v34struc.m

通信系统的matlab仿真程序

add_block('built-in/Inport',[sys,'/',['Call modem/QAM',13,'baseband/in_2']])
set_param([sys,'/',['Call modem/QAM',13,'baseband/in_2']],...
		'Port','2',...
		'position',[135,55,155,75])

add_block('built-in/Note',[sys,'/',['Call modem/QAM',13,'baseband/R2']])
set_param([sys,'/',['Call modem/QAM',13,'baseband/R2']],...
		'position',[125,135,130,140])

add_block('built-in/Note',[sys,'/',['Call modem/QAM',13,'baseband/I2']])
set_param([sys,'/',['Call modem/QAM',13,'baseband/I2']],...
		'position',[190,155,195,160])

add_block('built-in/Product',[sys,'/',['Call modem/QAM',13,'baseband/Product3']])
set_param([sys,'/',['Call modem/QAM',13,'baseband/Product3']],...
		'position',[310,183,340,207])

add_block('built-in/Product',[sys,'/',['Call modem/QAM',13,'baseband/Product2']])
set_param([sys,'/',['Call modem/QAM',13,'baseband/Product2']],...
		'position',[310,228,340,252])

add_block('built-in/Sum',[sys,'/',['Call modem/QAM',13,'baseband/Sum1']])
set_param([sys,'/',['Call modem/QAM',13,'baseband/Sum1']],...
		'position',[385,210,405,230])

add_block('built-in/Note',[sys,'/',['Call modem/QAM',13,'baseband/I_out']])
set_param([sys,'/',['Call modem/QAM',13,'baseband/I_out']],...
		'position',[445,206,450,211])

add_block('built-in/Note',[sys,'/',['Call modem/QAM',13,'baseband/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['Call modem/QAM',13,'baseband/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
		'position',[260,370,265,375])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[550,140;580,140])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[345,240;355,240;355,225;380,225])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[345,195;355,195;355,215;380,215])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[160,65;245,65;245,100;295,100])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[250,100;250,245;305,245])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[155,175;280,175;280,110;295,110])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[280,175;280,200;305,200])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[105,155;270,155;270,50;295,50])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[270,155;270,235;305,235])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[120,40;295,40])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[238,40;238,190;305,190])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[335,105;345,105;345,75;370,75])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[335,45;345,45;345,65;370,65])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[400,70;425,70;425,130;465,130])
add_line([sys,'/',['Call modem/QAM',13,'baseband']],[410,220;425,220;425,150;465,150])
set_param([sys,'/',['Call modem/QAM',13,'baseband']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);QAM',...
		'Mask Type','QM DSB-SC AM CE')
set_param([sys,'/',['Call modem/QAM',13,'baseband']],...
		'Mask Dialogue','Modulate the in-phase and quadrature\ncomponent signal from the 1st and 2nd\ninput ports, baseband simulation.|Initial phase (rad):')
set_param([sys,'/',['Call modem/QAM',13,'baseband']],...
		'Mask Translate','Ph=@1;x1=cos(Ph);x2=sin(Ph);[x,y]=moduicon(1);[u,v]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['Call modem/QAM',13,'baseband']],...
		'Mask Help','This block outputs the complex envelope of the quadratic multiplexed double-sideband suppressed-carrier amplitude modulated signal. The 1st and 2nd input ports input the in-phase and quadrature components. The output is a complex signal.')
set_param([sys,'/',['Call modem/QAM',13,'baseband']],...
		'Mask Entries','0\/')


%     Finished composite block ['Call modem/QAM',13,'baseband'].

set_param([sys,'/',['Call modem/QAM',13,'baseband']],...
		'hide name',0,...
		'position',[705,73,785,117])

add_block('built-in/Demux',[sys,'/','Call modem/Demux2'])
set_param([sys,'/','Call modem/Demux2'],...
		'hide name',0,...
		'outputs','2',...
		'position',[645,74,690,116])

add_block('built-in/Note',[sys,'/',['Call modem/x''(n)']])
set_param([sys,'/',['Call modem/x''(n)']],...
		'position',[625,90,630,95])


%     Subsystem  ['Call modem/Non-linear',13,'encoder'].

new_system([sys,'/',['Call modem/Non-linear',13,'encoder']])
set_param([sys,'/',['Call modem/Non-linear',13,'encoder']],'Location',[313,87,639,216])

add_block('built-in/Note',[sys,'/',['Call modem/Non-linear',13,'encoder/This example assume Theta = 0']])
set_param([sys,'/',['Call modem/Non-linear',13,'encoder/This example assume Theta = 0']],...
		'position',[150,25,155,30])

add_block('built-in/Outport',[sys,'/',['Call modem/Non-linear',13,'encoder/x''(n)']])
set_param([sys,'/',['Call modem/Non-linear',13,'encoder/x''(n)']],...
		'position',[215,70,235,90])

add_block('built-in/Inport',[sys,'/',['Call modem/Non-linear',13,'encoder/x(n)']])
set_param([sys,'/',['Call modem/Non-linear',13,'encoder/x(n)']],...
		'position',[75,70,95,90])
add_line([sys,'/',['Call modem/Non-linear',13,'encoder']],[100,80;210,80])


%     Finished composite block ['Call modem/Non-linear',13,'encoder'].

set_param([sys,'/',['Call modem/Non-linear',13,'encoder']],...
		'position',[580,68,615,122])

add_block('built-in/Note',[sys,'/','Call modem/y(m)'])
set_param([sys,'/','Call modem/y(m)'],...
		'position',[545,130,550,135])

add_block('built-in/Outport',[sys,'/',['Call modem/Modulated',13,'input']])
set_param([sys,'/',['Call modem/Modulated',13,'input']],...
		'position',[810,85,830,105])


%     Subsystem  'Call modem/Trellis code'.

new_system([sys,'/','Call modem/Trellis code'])
set_param([sys,'/','Call modem/Trellis code'],'Location',[214,435,1004,747])

add_block('built-in/Inport',[sys,'/','Call modem/Trellis code/y(m)'])
set_param([sys,'/','Call modem/Trellis code/y(m)'],...
		'position',[60,35,80,55])


%     Subsystem  ['Call modem/Trellis code/Symbol to bit',13,'convertor'].

new_system([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor']],'Location',[147,441,937,645])

add_block('built-in/Note',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Symbol to bit converter']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Symbol to bit converter']],...
		'position',[310,10,315,15])


%     Subsystem  ['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor4'].

new_system([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor4']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor4']],'Location',[175,552,335,697])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor4']],...
		'Mask Display','Sym-to-bit\nconvertor\nFigure 9/V34')
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor4']],...
		'Mask Dialogue','eval(''x=[1 5 3 7 5 1 7 3 5 1 7 3 1 5 3 7];y=[1 3 3 1 1 3 3 1 5 7 7 5 5 7 7 5];for i=1:16,text(x(i),y(i),num2str(rem(i-1,8)));end;set(get(gcf,''''child''''),''''Xlim'''',[0,8],''''Ylim'''',[0,8]);xlabel(''''Re'''');ylabel(''''Im'''')'')')


%     Finished composite block ['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor4'].

set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor4']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[295,110,380,152])


%     Subsystem  ['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor3'].

new_system([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor3']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor3']],'Location',[175,552,335,697])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor3']],...
		'Mask Display','Sym-to-bit\nconvertor\nFigure 10/V34')
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor3']],...
		'Mask Dialogue','eval(''x=floor([[0:.5:7.5,0:.5:7.5],rem([0:.5:7.5,0:.5:7.5]+4,8)]);y=[rem(floor([0:2.5:39,1:2.5:40]),4),rem(floor([0:2.5:39,1:2.5:40]),4)+4];for i=1:64,text(x(i),y(i),num2str(rem(i-1,16)));end;set(get(gcf,''''child''''),''''Xlim'''',[-1,8],''''Ylim'''',[-1,8]);xlabel(''''s(2m)'''');ylabel(''''s(2m+1)'''')'')')


%     Finished composite block ['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor3'].

set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Vector',13,'redistributor3']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[565,105,650,152])

add_block('built-in/Outport',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Y1-Y4']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/Y1-Y4']],...
		'position',[675,60,695,80])


%     Subsystem  ['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1'].

new_system([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1']],'Location',[45,449,594,684])

add_block('built-in/Constant',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/imag_pt']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/imag_pt']],...
		'BackGround',5,...
		'Value','y2',...
		'position',[165,169,190,191])

add_block('built-in/Constant',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/real_pt']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/real_pt']],...
		'BackGround',3,...
		'Value','y1',...
		'position',[170,84,195,106])

add_block('built-in/Outport',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/out_1']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/out_1']],...
		'position',[495,85,515,105])

add_block('built-in/S-Function',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Minimum1']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Minimum1']],...
		'function name','arymimai',...
		'parameters','''min''',...
		'position',[415,85,475,105])

add_block('built-in/Sum',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Sum2']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Sum2']],...
		'position',[370,78,390,107])

add_block('built-in/Product',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Product1']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Product1']],...
		'position',[300,130,325,150])

add_block('built-in/Product',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Product']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Product']],...
		'position',[300,45,325,65])

add_block('built-in/Sum',[sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Sum6']])
set_param([sys,'/',['Call modem/Trellis code/Symbol to bit',13,'convertor/QASK',13,'arbitrary-demap1/Sum6']],...