dispdes.m

MIMO and VBLAST( please see the documentation)

function dispdes(lt_data,lt_state)

%DISPDES Display designed code in graphical form.
%   DISPDES(LT_DATA,LT_STATE) picks-up the entries from LT_DATA and
%   LT_STATE look-up tables and displays designed code in graphical
%   form. The figure may be than exported into various graphical 
%   formats JPEG,GIF,PostScript(R) and inserted into report.
%
%   See also LTABLE.

%   Copyright 2001-2002 Kamil Anis, [e-mail]
%   Dept. of Radioelectronics, 
%   Faculty of Electrical Engineering
%   Czech Technical University in Pragu
%   $Revision: 2.0 $  $Date: 2002/10/23 17:33:28 $
%   --
%   <additional stuff should go here>

[s,md,space_dim] = size(lt_data);
[l,foo,partran] = size(lt_state);

% parallel trasitions check -> won't be displayed
if partran > 1
	[indent,gap,name] =  iprompt('DISPDES:');

  str5 = num2str(partran);

  disp(' ');
  disp([name,gap,str5,' parallel transitions detected.']);
  disp([indent,'Paralel transitions will not be diplayed.'])
  disp(' ');

  lt_state = lt_state(:,:,1);
end

% figure size and offset adjustment
switch md
case 16
	set(gcf,'Position',[200 514 850 420]);
  offset = 20;
case 8
  offset = 0;
case 4
  offset = -3;
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BODY BEGIN %%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

clf;
x1 = 5.5 + offset; x2 = 10 + offset;

for i = 1:s
  str = '';
  for j = 1:md
    y1 = i;
    y2 = lt_state(i,j,:);
    line([x1 x2],[y1,y2]);

  	d = lt_data(i,j,:);
    d = reshape(d,[1 space_dim]);

    str1 = sprintf('%d ',d);
    str = [str str1,', '];
  end

  text(5 + offset,i,str,'HorizontalAlignment','Right');
end

axis([0 10 + offset 0 s]);
axis off;
view(0,-90);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% BODY END %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

if (md == 4) | (md == 8)
      str2 = 'PSK';
else
      str2 = 'QAM';
end

str1 = num2str(md);
str3 = num2str(s);
str4 = num2str(log2(md));

figtitle = ['Space-time code, ',str1,str2,', ',str3,' states, ',...
      str4,' bit/sec/Hz'];
wintitle = ['DISPDES: ',figtitle];
ft = title(figtitle);

set(ft,'FontWeight','bold','FontSize',12);
set(gcf,'Name',wintitle);