com_cdmo.m

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

%     Subsystem  ['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt'].

new_system([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],'Location',[51,135,503,309])

add_block('built-in/Filter',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/zero-hold',13,'for timing-control']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/zero-hold',13,'for timing-control']],...
		'Numerator','1',...
		'Denominator','1',...
		'Sample time','ts',...
		'position',[55,196,110,234])

add_block('built-in/Gain',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Gain']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Gain']],...
		'Gain','Fc',...
		'position',[70,56,120,94])

add_block('built-in/Clock',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Clock']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Clock']],...
		'position',[20,65,40,85])

add_block('built-in/Product',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Product']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Product']],...
		'position',[340,42,365,73])

add_block('built-in/Outport',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/out_1']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/out_1']],...
		'position',[380,50,400,70])

add_block('built-in/Inport',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/in_1']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/in_1']],...
		'position',[205,20,225,40])

add_block('built-in/Constant',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Constant1']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Constant1']],...
		'Value','Ph',...
		'position',[60,115,100,145])

add_block('built-in/Fcn',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Fcn']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Fcn']],...
		'Expr','cos(u[1])',...
		'position',[205,85,265,115])

add_block('built-in/Sum',[sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Sum2']])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt/Sum2']],...
		'position',[170,90,190,110])
add_line([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],[270,100;270,65;335,65])
add_line([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],[370,60;375,60])
add_line([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],[230,30;270,30;270,50;335,50])
add_line([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],[45,75;65,75])
add_line([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],[125,75;150,75;150,95;165,95])
add_line([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],[105,130;130,130;130,105;165,105])
add_line([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],[195,100;200,100])
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],...
		'Mask Display','DSB-SC\nAM',...
		'Mask Type','DSB-SC AM')
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],...
		'Mask Dialogue','Double-sideband suppressed-carrier amplitude modulation:|Amplitude scale factor:|Carrier frequency (Hz):|Initial Phase (rad):|Sample time (sec):')
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],...
		'Mask Translate','Ac=@1;Fc=@2;Fc=Fc*2*pi;Ph=@3;ts=@4;')
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],...
		'Mask Help','The DSB-SC AM causes the amplitude of the sinusoidal carrier to depend on the input message signal, resulting in amplitude modulation. In general, the carrier frequency should be much higher than the message signal frequency.')
set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],...
		'Mask Entries','1\/Fc\/Ph\/ts\/')


%     Finished composite block ['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt'].

set_param([sys,'/',['AM with carrier',13,'passband/DSB-SC AM',13,'discr-flt']],...
		'ForeGround',3,...
		'position',[265,28,340,62])

add_block('built-in/Constant',[sys,'/',['AM with carrier',13,'passband/Constant']])
set_param([sys,'/',['AM with carrier',13,'passband/Constant']],...
		'Value','Offset',...
		'position',[60,75,110,95])

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

add_block('built-in/Sum',[sys,'/',['AM with carrier',13,'passband/Sum']])
set_param([sys,'/',['AM with carrier',13,'passband/Sum']],...
		'position',[160,35,180,55])

add_block('built-in/Outport',[sys,'/',['AM with carrier',13,'passband/out_1']])
set_param([sys,'/',['AM with carrier',13,'passband/out_1']],...
		'position',[395,35,415,55])

add_block('built-in/Note',[sys,'/',['AM with carrier',13,'passband/Ref: Hambley: An Intro to Comm. Systems. pp76']])
set_param([sys,'/',['AM with carrier',13,'passband/Ref: Hambley: An Intro to Comm. Systems. pp76']],...
		'position',[180,155,185,160])
add_line([sys,'/',['AM with carrier',13,'passband']],[115,85;130,85;130,50;155,50])
add_line([sys,'/',['AM with carrier',13,'passband']],[345,45;390,45])
add_line([sys,'/',['AM with carrier',13,'passband']],[185,45;260,45])
add_line([sys,'/',['AM with carrier',13,'passband']],[75,40;155,40])
set_param([sys,'/',['AM with carrier',13,'passband']],...
		'Mask Display','plot(0,0,100,100,x,y);AM w TC',...
		'Mask Type','Passband AM with carrier')
set_param([sys,'/',['AM with carrier',13,'passband']],...
		'Mask Dialogue','Modulate the input signal using\namplitude modulation with transmission\ncarrier method.|Input signal offset:|Carrier frequency (Hz):|Initial phase (rad):|Sample time (sec)')
set_param([sys,'/',['AM with carrier',13,'passband']],...
		'Mask Translate','Offset=@1;Fc=@2;Ph=@3;ts=@4;[x,y]=moduicon(1);')
set_param([sys,'/',['AM with carrier',13,'passband']],...
		'Mask Help','This block shifts the amplitude of the input signal before the modulation. AM with carrier is a simple technique but not an energy-efficient one.')
set_param([sys,'/',['AM with carrier',13,'passband']],...
		'Mask Entries','1\/100/2/pi\/0\/.01\/')


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

set_param([sys,'/',['AM with carrier',13,'passband']],...
		'position',[50,423,130,467])


%     Subsystem  ['SSB-ADM',13,'passband'].

new_system([sys,'/',['SSB-ADM',13,'passband']])
set_param([sys,'/',['SSB-ADM',13,'passband']],'Location',[234,472,778,662])

add_block('built-in/Gain',[sys,'/',['SSB-ADM',13,'passband/Gain1']])
set_param([sys,'/',['SSB-ADM',13,'passband/Gain1']],...
		'Gain','2',...
		'position',[250,108,275,132])

add_block('built-in/Inport',[sys,'/',['SSB-ADM',13,'passband/in_1']])
set_param([sys,'/',['SSB-ADM',13,'passband/in_1']],...
		'position',[210,110,230,130])

add_block('built-in/Gain',[sys,'/',['SSB-ADM',13,'passband/Gain']])
set_param([sys,'/',['SSB-ADM',13,'passband/Gain']],...
		'Gain','Fc',...
		'position',[110,51,160,89])

add_block('built-in/Clock',[sys,'/',['SSB-ADM',13,'passband/Clock']])
set_param([sys,'/',['SSB-ADM',13,'passband/Clock']],...
		'position',[60,60,80,80])

add_block('built-in/Outport',[sys,'/',['SSB-ADM',13,'passband/out_1']])
set_param([sys,'/',['SSB-ADM',13,'passband/out_1']],...
		'position',[480,70,500,90])

add_block('built-in/Product',[sys,'/',['SSB-ADM',13,'passband/Product']])
set_param([sys,'/',['SSB-ADM',13,'passband/Product']],...
		'position',[330,62,355,93])

add_block('built-in/Fcn',[sys,'/',['SSB-ADM',13,'passband/Fcn']])
set_param([sys,'/',['SSB-ADM',13,'passband/Fcn']],...
		'Expr','cos(u[1]+Ph)',...
		'position',[205,55,300,85])

add_block('built-in/Note',[sys,'/',['SSB-ADM',13,'passband/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['SSB-ADM',13,'passband/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
		'position',[285,280,290,285])

add_block('built-in/Filter',[sys,'/',['SSB-ADM',13,'passband/Filter']])
set_param([sys,'/',['SSB-ADM',13,'passband/Filter']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[390,61,445,99])
add_line([sys,'/',['SSB-ADM',13,'passband']],[85,70;105,70])
add_line([sys,'/',['SSB-ADM',13,'passband']],[450,80;475,80])
add_line([sys,'/',['SSB-ADM',13,'passband']],[360,80;385,80])
add_line([sys,'/',['SSB-ADM',13,'passband']],[305,70;325,70])
add_line([sys,'/',['SSB-ADM',13,'passband']],[235,120;245,120])
add_line([sys,'/',['SSB-ADM',13,'passband']],[280,120;305,120;305,85;325,85])
add_line([sys,'/',['SSB-ADM',13,'passband']],[165,70;200,70])
set_param([sys,'/',['SSB-ADM',13,'passband']],...
		'Mask Display','plot(0,0,100,100,x,y);SSB ADM',...
		'Mask Type','Passband SSB ADM')
set_param([sys,'/',['SSB-ADM',13,'passband']],...
		'Mask Dialogue','Demodulate a SSB-AM modulated signal.|Carrier frequency (Hz):|Lowpass filter numerator:|Lowpass filter denominator:|Initial phase (rad):|Sample time (sec):')
set_param([sys,'/',['SSB-ADM',13,'passband']],...
		'Mask Translate','Fc=@1*2*pi;num=@2;den=@3;Ph=@4;ts=@5;Pg=Ph+pi/2;[x,y]=moduicon(2);')
set_param([sys,'/',['SSB-ADM',13,'passband']],...
		'Mask Help','This block demodulates the SSB-SC-AM modulated signal. The demodulation uses a discrete-time lowpass filter that passes the signal message and eliminates the carrier signal. You can specify the modulation to be a USB or LSB modulation.')
set_param([sys,'/',['SSB-ADM',13,'passband']],...
		'Mask Entries','100/2/pi\/[4.57 9.14 4.57]*.01\/[1 -1.3108 .4936]\/0\/.01\/')


%     Finished composite block ['SSB-ADM',13,'passband'].

set_param([sys,'/',['SSB-ADM',13,'passband']],...
		'position',[185,348,265,392])


%     Subsystem  'AM demo'.

new_system([sys,'/','AM demo'])
set_param([sys,'/','AM demo'],'Location',[175,552,335,697])
set_param([sys,'/','AM demo'],...
		'Mask Display','AM w carrier\ndemo',...
		'Mask Dialogue','eval(''ts=.01;[num,den]=butter(2,100/pi/2*ts);testamc2'')')


%     Finished composite block 'AM demo'.

set_param([sys,'/','AM demo'],...
		'BackGround',7,...
		'hide name',0,...
		'position',[315,423,395,467])


%     Subsystem  ['FM Mo//Dem',13,'demo'].

new_system([sys,'/',['FM Mo//Dem',13,'demo']])
set_param([sys,'/',['FM Mo//Dem',13,'demo']],'Location',[175,552,335,697])
set_param([sys,'/',['FM Mo//Dem',13,'demo']],...
		'Mask Display','FM\ndemo',...
		'Mask Dialogue','eval(''ts=.01;[num,den]=butter(2,100/pi/2*ts);test_fm2'')')


%     Finished composite block ['FM Mo//Dem',13,'demo'].

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


%     Subsystem  ['SSB AM',13,'demo'].

new_system([sys,'/',['SSB AM',13,'demo']])
set_param([sys,'/',['SSB AM',13,'demo']],'Location',[175,552,335,697])
set_param([sys,'/',['SSB AM',13,'demo']],...
		'Mask Display','SSB AM\ndemo',...
		'Mask Dialogue','eval(''ts=.01;[num,den]=butter(2,100/pi/2*ts);testssba'')')


%     Finished composite block ['SSB AM',13,'demo'].

set_param([sys,'/',['SSB AM',13,'demo']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[315,348,395,392])


%     Subsystem  ['PM Mo//Dem',13,'demo'].

new_system([sys,'/',['PM Mo//Dem',13,'demo']])
set_param([sys,'/',['PM Mo//Dem',13,'demo']],'Location',[175,552,335,697])
set_param([sys,'/',['PM Mo//Dem',13,'demo']],...
		'Mask Display','PM\ndemo',...
		'Mask Dialogue','eval(''ts=.01;[num,den]=butter(2,100/pi/2*ts);test_pm2'')')


%     Finished composite block ['PM Mo//Dem',13,'demo'].

set_param([sys,'/',['PM Mo//Dem',13,'demo']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[315,273,395,317])