com_cemo.m

数字通信第四版原书的例程

set_param([sys,'/',['FM Mo//Dem',13,'demo']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[325,198,405,242])


%     Subsystem  'Demonstration blocks'.

new_system([sys,'/','Demonstration blocks'])
set_param([sys,'/','Demonstration blocks'],'Location',[175,552,335,697])
set_param([sys,'/','Demonstration blocks'],...
		'Mask Display','.')


%     Finished composite block 'Demonstration blocks'.

set_param([sys,'/','Demonstration blocks'],...
		'orientation',1,...
		'BackGround',7,...
		'position',[45,498,100,521])


%     Subsystem  ['PM',13,'baseband'].

new_system([sys,'/',['PM',13,'baseband']])
set_param([sys,'/',['PM',13,'baseband']],'Location',[320,489,688,666])

add_block('built-in/Inport',[sys,'/',['PM',13,'baseband/in_1']])
set_param([sys,'/',['PM',13,'baseband/in_1']],...
		'position',[35,50,55,70])

add_block('built-in/Fcn',[sys,'/',['PM',13,'baseband/cos']])
set_param([sys,'/',['PM',13,'baseband/cos']],...
		'Expr','cos(u)',...
		'position',[155,46,210,74])

add_block('built-in/Fcn',[sys,'/',['PM',13,'baseband/sin']])
set_param([sys,'/',['PM',13,'baseband/sin']],...
		'Expr','sin(u)',...
		'position',[155,106,210,134])

add_block('built-in/Outport',[sys,'/',['PM',13,'baseband/out_1']])
set_param([sys,'/',['PM',13,'baseband/out_1']],...
		'position',[315,60,335,80])

add_block('built-in/Mux',[sys,'/',['PM',13,'baseband/Mux']])
set_param([sys,'/',['PM',13,'baseband/Mux']],...
		'inputs','2',...
		'position',[250,51,285,84])
add_line([sys,'/',['PM',13,'baseband']],[60,60;150,60])
add_line([sys,'/',['PM',13,'baseband']],[130,60;130,120;150,120])
add_line([sys,'/',['PM',13,'baseband']],[215,120;230,120;230,75;245,75])
add_line([sys,'/',['PM',13,'baseband']],[290,70;310,70])
add_line([sys,'/',['PM',13,'baseband']],[215,60;245,60])
set_param([sys,'/',['PM',13,'baseband']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);PM',...
		'Mask Type','PM CE',...
		'Mask Dialogue','Output the complex envelope of a PM\nmodulated signal.|Initial phase (rad):')
set_param([sys,'/',['PM',13,'baseband']],...
		'Mask Translate','Ph=@1;pi2=2*pi;[x,y]=moduicon(3);[u,v]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['PM',13,'baseband']],...
		'Mask Help','This block outputs the complex envelope of the phase modulated signal. The output of this block is a complex signal.',...
		'Mask Entries','0\/')


%     Finished composite block ['PM',13,'baseband'].

set_param([sys,'/',['PM',13,'baseband']],...
		'position',[45,273,125,317])


%     Subsystem  ['SSB-AM',13,'baseband'].

new_system([sys,'/',['SSB-AM',13,'baseband']])
set_param([sys,'/',['SSB-AM',13,'baseband']],'Location',[65,60,522,206])

add_block('built-in/Inport',[sys,'/',['SSB-AM',13,'baseband/in_1']])
set_param([sys,'/',['SSB-AM',13,'baseband/in_1']],...
		'position',[30,20,50,40])

add_block('built-in/Note',[sys,'/',['SSB-AM',13,'baseband/Ref: Hambley: An Intro to Comm. Systems. pp82']])
set_param([sys,'/',['SSB-AM',13,'baseband/Ref: Hambley: An Intro to Comm. Systems. pp82']],...
		'position',[355,290,360,295])


%     Subsystem  ['SSB-AM',13,'baseband/QAM CE'].

new_system([sys,'/',['SSB-AM',13,'baseband/QAM CE']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE']],'Location',[125,397,758,690])

add_block('built-in/Note',[sys,'/',['SSB-AM',13,'baseband/QAM CE/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
		'position',[260,370,265,375])

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

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

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

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

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

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

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

add_block('built-in/Note',[sys,'/',['SSB-AM',13,'baseband/QAM CE/I1']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/I1']],...
		'position',[193,43,198,48])

add_block('built-in/Constant',[sys,'/',['SSB-AM',13,'baseband/QAM CE/Constant1']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/Constant1']],...
		'Value','x2',...
		'position',[130,165,150,185])

add_block('built-in/Constant',[sys,'/',['SSB-AM',13,'baseband/QAM CE/Constant']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/Constant']],...
		'Value','x1',...
		'position',[80,145,100,165])

add_block('built-in/Outport',[sys,'/',['SSB-AM',13,'baseband/QAM CE/out_1']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/out_1']],...
		'position',[585,130,605,150])

add_block('built-in/Inport',[sys,'/',['SSB-AM',13,'baseband/QAM CE/in_1']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/in_1']],...
		'position',[95,30,115,50])

add_block('built-in/Mux',[sys,'/',['SSB-AM',13,'baseband/QAM CE/RI2C']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/RI2C']],...
		'inputs','2',...
		'Mask Display','Real/Imag\nto Complex',...
		'Mask Type','Real/Imag to Complex',...
		'Mask Dialogue','Construct complex vector from real and imaginary vectors.')
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/RI2C']],...
		'Mask Help','The Real/Imag to Complex block creates a complex output from the two inputs. It uses a Mux block to append the complex part (input 2) to the real part (input 1).')
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/RI2C']],...
		'position',[470,119,545,161])

add_block('built-in/Note',[sys,'/',['SSB-AM',13,'baseband/QAM CE/R_out']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/R_out']],...
		'position',[445,45,450,50])

add_block('built-in/Sum',[sys,'/',['SSB-AM',13,'baseband/QAM CE/Sum']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/Sum']],...
		'inputs','+-',...
		'position',[375,60,395,80])

add_block('built-in/Product',[sys,'/',['SSB-AM',13,'baseband/QAM CE/Product1']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/Product1']],...
		'position',[300,93,330,117])

add_block('built-in/Product',[sys,'/',['SSB-AM',13,'baseband/QAM CE/Product']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/Product']],...
		'position',[300,33,330,57])

add_block('built-in/Note',[sys,'/',['SSB-AM',13,'baseband/QAM CE/R1']])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE/R1']],...
		'position',[190,15,195,20])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[410,220;425,220;425,150;465,150])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[400,70;425,70;425,130;465,130])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[335,45;345,45;345,65;370,65])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[335,105;345,105;345,75;370,75])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[120,40;295,40])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[238,40;238,190;305,190])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[105,155;270,155;270,50;295,50])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[270,155;270,235;305,235])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[155,175;280,175;280,110;295,110])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[280,175;280,200;305,200])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[160,65;245,65;245,100;295,100])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[250,100;250,245;305,245])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[345,195;355,195;355,215;380,215])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[345,240;355,240;355,225;380,225])
add_line([sys,'/',['SSB-AM',13,'baseband/QAM CE']],[550,140;580,140])
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE']],...
		'Mask Display','QM DSB\nAM',...
		'Mask Type','Quadrature Multiplexed DSB-SC AM')
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE']],...
		'Mask Dialogue','Quadrature multiplexed double-sideband suppressed-carrier amplitude modulation:|Initial phase (rad):|Sample time (sec):')
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE']],...
		'Mask Translate','Ph=@1;ts=@2;x1=cos(Ph);x2=sin(Ph);')
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE']],...
		'Mask Help','The Quadratic Multiplexed Double-Sideband-Supressed-Carrier AM block causes the amplitude of the sinusoidal carrier to depend on the input message signal, resulting in amplitude modulation. There are two input signal being modulated at the same time by using two orthogonal sinusoidal carriers.')
set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE']],...
		'Mask Entries','Ph\/ts\/')


%     Finished composite block ['SSB-AM',13,'baseband/QAM CE'].

set_param([sys,'/',['SSB-AM',13,'baseband/QAM CE']],...
		'position',[280,20,360,60])

add_block('built-in/Outport',[sys,'/',['SSB-AM',13,'baseband/out_1']])
set_param([sys,'/',['SSB-AM',13,'baseband/out_1']],...
		'position',[395,30,415,50])

add_block('built-in/Filter',[sys,'/',['SSB-AM',13,'baseband/Filter']])
set_param([sys,'/',['SSB-AM',13,'baseband/Filter']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[90,66,145,104])

add_block('built-in/Gain',[sys,'/',['SSB-AM',13,'baseband/Gain']])
set_param([sys,'/',['SSB-AM',13,'baseband/Gain']],...
		'Gain','k',...
		'position',[190,75,210,95])
add_line([sys,'/',['SSB-AM',13,'baseband']],[365,40;390,40])
add_line([sys,'/',['SSB-AM',13,'baseband']],[55,30;65,30;65,85;85,85])
add_line([sys,'/',['SSB-AM',13,'baseband']],[65,30;275,30])
add_line([sys,'/',['SSB-AM',13,'baseband']],[150,85;185,85])
add_line([sys,'/',['SSB-AM',13,'baseband']],[215,85;240,85;240,50;275,50])
set_param([sys,'/',['SSB-AM',13,'baseband']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);SSB AM',...
		'Mask Type','SSB-AM CE using Hilbert transform filter.')
set_param([sys,'/',['SSB-AM',13,'baseband']],...
		'Mask Dialogue','Output complex envelope of a SSB AM\nmodulated signal.|Initial Phase (rad):|Bandwidth of the input signal (Hz):|Time delay for Hilbert transform filter (sec):|Sample time (sec):|"upper" sideband or "lower" sideband:')
set_param([sys,'/',['SSB-AM',13,'baseband']],...
		'Mask Translate','Ph=@1;ban=@2;dly=@3;ts=@4;sd=@5;k=-1;if sd(1)==''l'',k=1;end;if ban>1/ts, ban=1/ts-ts;end;[num,den]=hilbiir(ts,dly,ban);pi2=2*pi;pih=pi/2;[x,y]=moduicon(1);[u,v]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['SSB-AM',13,'baseband']],...
		'Mask Help','This block outputs the complex envelope of a SSB AM modulated signal. This block uses the Hilbert transfer filter. Because the Hilbert transform filter is a non-causal filter, you must use a positive time delay in the implementation. The input signal bandwidth is needed in designing the Hilbert transform filter. You can specify the modulation to be an