tutmodce.m

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

add_block('built-in/Note',[sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/I1']])
set_param([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/I1']],...
		'position',[198,108,203,113])

add_block('built-in/Outport',[sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/Imag']])
set_param([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/Imag']],...
		'Port','2',...
		'position',[485,280,505,300])

add_block('built-in/Outport',[sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/Real']])
set_param([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/Real']],...
		'position',[495,110,515,130])

add_block('built-in/Note',[sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/I2']])
set_param([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/I2']],...
		'position',[170,225,175,230])

add_block('built-in/Gain',[sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/Conjugate']])
set_param([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply/Conjugate']],...
		'Gain','-1',...
		'position',[190,210,230,240])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[340,310;350,310;350,295;375,295])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[340,265;350,265;350,285;375,285])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[165,110;250,110;250,150;300,150])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[255,150;255,315;300,315])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[160,205;275,205;275,100;300,100])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[275,205;275,305;300,305])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[165,90;300,90])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[243,90;243,260;300,260])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[340,155;350,155;350,125;375,125])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[340,95;350,95;350,115;375,115])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[50,215;75,215])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[60,100;80,100])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[405,290;480,290])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[405,120;490,120])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[160,225;185,225])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[235,225;260,225;260,160;300,160])
add_line([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],[260,225;260,270;300,270])
set_param([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],...
		'Mask Display','Complex\nmultiply')


%     Finished composite block ['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply'].

set_param([sys,'/',['DSB-ADM',13,'baseband/Cmplx-in',13,'Re//Im-out',13,'Multiply']],...
		'orientation',2,...
		'hide name',0,...
		'position',[40,90,115,130])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[275,45;435,45])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[400,45;400,115;385,115])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[145,65;130,65;120,100])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[35,100;15,100;15,45;210,45])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[35,120;15,120;15,175;185,175])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[250,175;400,175;400,125;385,125])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[340,120;330,120])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[260,120;240,120])
add_line([sys,'/',['DSB-ADM',13,'baseband']],[150,120;120,120])
set_param([sys,'/',['DSB-ADM',13,'baseband']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);DSB ADM',...
		'Mask Type','DSB-SC ADM CE')
set_param([sys,'/',['DSB-ADM',13,'baseband']],...
		'Mask Dialogue','Demodulate the complex envelope of a\nDSB-SC AM modulated signal.|Lowpass filter numerator:|Lowpass filter denominator:|Initial phase (rad):|Sample time (sec):')
set_param([sys,'/',['DSB-ADM',13,'baseband']],...
		'Mask Translate','num=@1;den=@2;Ph=@3;pi2=pi*2;ts=@4;[x,y]=moduicon(2);[u,v]=cmplxicn(0,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['DSB-ADM',13,'baseband']],...
		'Mask Help','This block demodulates the complex envelope of a DSB-SC-AM modulated signal using Costas phase-locked loop method. This block requires you to specify a lowpass filter that eliminates the carrier frequency and keeps the message signal. This block takes a complex signal.')
set_param([sys,'/',['DSB-ADM',13,'baseband']],...
		'Mask Entries','num\/den\/0\/ts\/')


%     Finished composite block ['DSB-ADM',13,'baseband'].

set_param([sys,'/',['DSB-ADM',13,'baseband']],...
		'ForeGround',2,...
		'hide name',0,...
		'position',[235,38,315,82])


%     Subsystem  ['AM with carrier',13,'baseband'].

new_system([sys,'/',['AM with carrier',13,'baseband']])
set_param([sys,'/',['AM with carrier',13,'baseband']],'Location',[239,534,593,656])

add_block('built-in/Inport',[sys,'/',['AM with carrier',13,'baseband/in_1']])
set_param([sys,'/',['AM with carrier',13,'baseband/in_1']],...
		'position',[50,30,70,50])

add_block('built-in/Note',[sys,'/',['AM with carrier',13,'baseband/Ref: Hambley: An Intro to Comm. Systems. pp76']])
set_param([sys,'/',['AM with carrier',13,'baseband/Ref: Hambley: An Intro to Comm. Systems. pp76']],...
		'position',[180,155,185,160])

add_block('built-in/Sum',[sys,'/',['AM with carrier',13,'baseband/Sum']])
set_param([sys,'/',['AM with carrier',13,'baseband/Sum']],...
		'position',[125,35,145,55])

add_block('built-in/Outport',[sys,'/',['AM with carrier',13,'baseband/out_1']])
set_param([sys,'/',['AM with carrier',13,'baseband/out_1']],...
		'position',[280,35,300,55])

add_block('built-in/Constant',[sys,'/',['AM with carrier',13,'baseband/Constant']])
set_param([sys,'/',['AM with carrier',13,'baseband/Constant']],...
		'Value','Offset',...
		'position',[35,80,85,100])


%     Subsystem  ['AM with carrier',13,'baseband/DSB AM CE'].

new_system([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']])
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],'Location',[212,430,575,573])

add_block('built-in/Outport',[sys,'/',['AM with carrier',13,'baseband/DSB AM CE/out_1']])
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE/out_1']],...
		'position',[320,50,340,70])

add_block('built-in/Product',[sys,'/',['AM with carrier',13,'baseband/DSB AM CE/Product']])
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE/Product']],...
		'position',[255,42,280,73])

add_block('built-in/Inport',[sys,'/',['AM with carrier',13,'baseband/DSB AM CE/in_1']])
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE/in_1']],...
		'position',[115,15,135,35])

add_block('built-in/Mux',[sys,'/',['AM with carrier',13,'baseband/DSB AM CE/Mux']])
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE/Mux']],...
		'inputs','2',...
		'position',[170,66,205,99])

add_block('built-in/Constant',[sys,'/',['AM with carrier',13,'baseband/DSB AM CE/Constant1']])
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE/Constant1']],...
		'Value','x2',...
		'position',[90,90,110,110])

add_block('built-in/Constant',[sys,'/',['AM with carrier',13,'baseband/DSB AM CE/Constant']])
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE/Constant']],...
		'Value','x1',...
		'position',[40,65,60,85])
add_line([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],[65,75;165,75])
add_line([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],[115,100;130,100;130,90;165,90])
add_line([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],[140,25;185,25;185,50;250,50])
add_line([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],[285,60;315,60])
add_line([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],[210,85;230,85;230,65;250,65])
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],...
		'Mask Display','DSB AM\ncmplx env',...
		'Mask Type','DSB-SC AM complex envelop')
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],...
		'Mask Dialogue','Double-sideband suppressed-carrier amplitude modulation complex envelop.|Initial Phase (rad):',...
		'Mask Translate','Ph=@1;x1=cos(Ph);x2=sin(Ph);pi2=2*pi;')
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],...
		'Mask Help','The Double-Sideband-Supressed-Carrier Amplitude Modulation causes the amplitude of the sinusoidal carrier to depend on the input message signal, resulting in amplitude modulation. This block outputs the complex envelop of the modulation, which is a complex number.')
set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],...
		'Mask Entries','Ph\/')


%     Finished composite block ['AM with carrier',13,'baseband/DSB AM CE'].

set_param([sys,'/',['AM with carrier',13,'baseband/DSB AM CE']],...
		'position',[180,25,255,65])
add_line([sys,'/',['AM with carrier',13,'baseband']],[90,90;100,90;100,50;120,50])
add_line([sys,'/',['AM with carrier',13,'baseband']],[260,45;275,45])
add_line([sys,'/',['AM with carrier',13,'baseband']],[75,40;120,40])
add_line([sys,'/',['AM with carrier',13,'baseband']],[150,45;175,45])
set_param([sys,'/',['AM with carrier',13,'baseband']],...
		'Mask Display','plot(0,0,100,100,x,y,u,v);AM w TC',...
		'Mask Type','AM CE with TC')
set_param([sys,'/',['AM with carrier',13,'baseband']],...
		'Mask Dialogue','Output complex envelope of an AM with\ntransport carrier modulated signal.|Input signal offset:|Initial phase (rad):')
set_param([sys,'/',['AM with carrier',13,'baseband']],...
		'Mask Translate','Offset=@1;Ph=@2;[x,y]=moduicon(1);[u,v]=cmplxicn(1,50,get_param(gcb,''orientation''));')
set_param([sys,'/',['AM with carrier',13,'baseband']],...
		'Mask Help','This block causes the amplitude of the sinusoid carrier to depend on the message signal. An offset is added to the input signal before modulation. The output of this block is a complex signal. This modulation technique is not efficient.')
set_param([sys,'/',['AM with carrier',13,'baseband']],...
		'Mask Entries','1\/0\/')


%     Finished composite block ['AM with carrier',13,'baseband'].

set_param([sys,'/',['AM with carrier',13,'baseband']],...
		'ForeGround',3,...
		'hide name',0,...
		'position',[130,113,210,157])


%     Subsystem  ['ADM with carrier',13,'baseband'].

new_system([sys,'/',['ADM with carrier',13,'baseband']])
set_param([sys,'/',['ADM with carrier',13,'baseband']],'Location',[468,490,803,640])

add_block('built-in/Outport',[sys,'/',['ADM with carrier',13,'baseband/out_1']])
set_param([sys,'/',['ADM with carrier',13,'baseband/out_1']],...
		'position',[290,30,310,50])

add_block('built-in/Sum',[sys,'/',['ADM with carrier',13,'baseband/Sum']])
set_param([sys,'/',['ADM with carrier',13,'baseband/Sum']],...
		'inputs','+-',...
		'position',[240,30,260,50])

add_block('built-in/Inport',[sys,'/',['ADM with carrier',13,'baseband/in_1']])
set_param([sys,'/',['ADM with carrier',13,'baseband/in_1']],...
		'position',[40,25,60,45])

add_block('built-in/Constant',[sys,'/',['ADM with carrier',13,'baseband/Constant']])
set_param([sys,'/',['ADM with carrier',13,'baseband/Constant']],...
		'Value','Offset',...
		'position',[150,100,190,120])


%     Subsystem  ['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE'].

new_system([sys,'/',['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE']])
set_param([sys,'/',['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE']],'Location',[103,111,653,332])

add_block('built-in/Filter',[sys,'/',['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE/Filter1']])
set_param([sys,'/',['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE/Filter1']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[260,156,315,194])


%     Subsystem  ['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE/FM CE//VCO'].

new_system([sys,'/',['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE/FM CE//VCO']])
set_param([sys,'/',['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE/FM CE//VCO']],'Location',[114,165,727,312])


%     Subsystem  ['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE/FM CE//VCO/Dis module',13,'integrator'].

new_system([sys,'/',['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE/FM CE//VCO/Dis module',13,'integrator']])
set_param([sys,'/',['ADM with carrier',13,'baseband/Costas DSB-ADM',13,'CE/FM CE//VCO/Dis module',13,'integrator']],'Location',[40,403,515,507])