com_pres.m

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

		'Value','Ac',...
		'position',[265,103,285,127])

add_block('built-in/Constant',[sys,'/',['MASK',13,'modulation/one']])
set_param([sys,'/',['MASK',13,'modulation/one']],...
		'Value','Fc',...
		'position',[30,171,55,199])


%     Subsystem  ['MASK',13,'modulation/Module',13,'Integrator'].

new_system([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],'Location',[196,490,621,627])

add_block('built-in/Inport',[sys,'/',['MASK',13,'modulation/Module',13,'Integrator/in_1']])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator/in_1']],...
		'position',[35,15,55,35])

add_block('built-in/Memory',[sys,'/',['MASK',13,'modulation/Module',13,'Integrator/Memory']])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator/Memory']],...
		'orientation',2,...
		'x0','init',...
		'position',[210,75,260,105])

add_block('built-in/Fcn',[sys,'/',['MASK',13,'modulation/Module',13,'Integrator/module']])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator/module']],...
		'Expr','rem(u[1],modu)',...
		'position',[235,29,325,51])

add_block('built-in/Reset Integrator',[sys,'/',['MASK',13,'modulation/Module',13,'Integrator/Reset',13,'integrator']])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator/Reset',13,'integrator']],...
		'position',[110,19,150,51])

add_block('built-in/Constant',[sys,'/',['MASK',13,'modulation/Module',13,'Integrator/one']])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator/one']],...
		'orientation',3,...
		'move name',0,...
		'position',[70,55,90,75])

add_block('built-in/Sum',[sys,'/',['MASK',13,'modulation/Module',13,'Integrator/Sum']])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator/Sum']],...
		'position',[195,30,215,50])

add_block('built-in/Outport',[sys,'/',['MASK',13,'modulation/Module',13,'Integrator/out_1']])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator/out_1']],...
		'position',[370,30,390,50])
add_line([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],[205,90;180,90;190,45])
add_line([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],[155,35;190,35])
add_line([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],[220,40;230,40])
add_line([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],[60,25;105,25])
add_line([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],[80,50;80,35;105,35])
add_line([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],[330,40;365,40])
add_line([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],[340,40;340,90;265,90])
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],...
		'Mask Display','Mod\nint',...
		'Mask Type','Module Integrator',...
		'Mask Dialogue','Module the given number when state exceed limit|Module bound:|Initial value:')
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],...
		'Mask Translate','init=@2; modu=@1;')
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],...
		'Mask Help','The absolute value of this integrator will not exceed the specified module bound. The state value is set to be zero when the module bound is reached. This block can only be used for scale value calculation.')
set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],...
		'Mask Entries','1\/0\/')


%     Finished composite block ['MASK',13,'modulation/Module',13,'Integrator'].

set_param([sys,'/',['MASK',13,'modulation/Module',13,'Integrator']],...
		'position',[80,166,140,204])

add_block('built-in/Gain',[sys,'/',['MASK',13,'modulation/Gain1']])
set_param([sys,'/',['MASK',13,'modulation/Gain1']],...
		'Gain','pi2',...
		'position',[165,171,200,199])

add_block('built-in/Fcn',[sys,'/',['MASK',13,'modulation/Oscilation']])
set_param([sys,'/',['MASK',13,'modulation/Oscilation']],...
		'Expr','sin(u)',...
		'position',[270,178,310,202])

add_block('built-in/Sum',[sys,'/',['MASK',13,'modulation/Sum']])
set_param([sys,'/',['MASK',13,'modulation/Sum']],...
		'position',[230,178,250,202])

add_block('built-in/Constant',[sys,'/',['MASK',13,'modulation/Initial phase']])
set_param([sys,'/',['MASK',13,'modulation/Initial phase']],...
		'Value','Ph',...
		'position',[190,218,210,242])
add_line([sys,'/',['MASK',13,'modulation']],[425,110;445,110])
add_line([sys,'/',['MASK',13,'modulation']],[315,190;340,190;340,115;390,115])
add_line([sys,'/',['MASK',13,'modulation']],[215,230;225,195])
add_line([sys,'/',['MASK',13,'modulation']],[145,185;160,185])
add_line([sys,'/',['MASK',13,'modulation']],[60,185;75,185])
add_line([sys,'/',['MASK',13,'modulation']],[255,190;265,190])
add_line([sys,'/',['MASK',13,'modulation']],[55,100;70,100])
add_line([sys,'/',['MASK',13,'modulation']],[110,35;185,35])
add_line([sys,'/',['MASK',13,'modulation']],[180,95;165,95;165,55;185,55])
add_line([sys,'/',['MASK',13,'modulation']],[140,100;150,100;150,45;185,45])
add_line([sys,'/',['MASK',13,'modulation']],[205,185;225,185])
add_line([sys,'/',['MASK',13,'modulation']],[225,45;250,45;250,95;230,95])
add_line([sys,'/',['MASK',13,'modulation']],[250,45;260,45])
add_line([sys,'/',['MASK',13,'modulation']],[310,45;315,45;315,75;330,75])
add_line([sys,'/',['MASK',13,'modulation']],[360,80;370,80;370,105;390,105])
add_line([sys,'/',['MASK',13,'modulation']],[290,115;315,115;315,85;330,85])
set_param([sys,'/',['MASK',13,'modulation']],...
		'Mask Display','MASK',...
		'Mask Type','MASK')
set_param([sys,'/',['MASK',13,'modulation']],...
		'Mask Dialogue','M-ary Amplitude Shift Keying Modulation:|M-ary number:|Carrier frequency (Hz):|Maximum amplitude:|Trigger signal threshold:|Initial phase (rad):')
set_param([sys,'/',['MASK',13,'modulation']],...
		'Mask Translate','pi2=2*pi;N=@1;Fc=@2;Ac=@3;Kc=Ac*2/(N-1);thld=@4;Ph=@5;')
set_param([sys,'/',['MASK',13,'modulation']],...
		'Mask Help','This block modulates an M-ary digital signal onto a given carrier frequency using amplitude shift keying method. The first input port is for the original digital signal, which is coded as 0,1,..,M-1. The second input port inputs the clock pulse. The clock rising edge triggers the block to process next input.')
set_param([sys,'/',['MASK',13,'modulation']],...
		'Mask Entries','16\/100\/1\/.2\/0\/')


%     Finished composite block ['MASK',13,'modulation'].

set_param([sys,'/',['MASK',13,'modulation']],...
		'position',[495,3078,555,3122])


%     Subsystem  ['MASK',13,'demodulation'].

new_system([sys,'/',['MASK',13,'demodulation']])
set_param([sys,'/',['MASK',13,'demodulation']],'Location',[202,402,920,610])


%     Subsystem  ['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas'].

new_system([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],'Location',[150,97,844,378])

add_block('built-in/Outport',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/out_1']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/out_1']],...
		'position',[660,50,680,70])

add_block('built-in/Gain',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Gain']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Gain']],...
		'Gain','G',...
		'position',[605,45,630,75])

add_block('built-in/Product',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Product1']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Product1']],...
		'orientation',2,...
		'position',[525,110,555,130])

add_block('built-in/Constant',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Carrier',13,'frequency']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Carrier',13,'frequency']],...
		'orientation',2,...
		'Value','Fc',...
		'position',[460,175,480,195])

add_block('built-in/Transfer Fcn',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter1']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter1']],...
		'orientation',2,...
		'Numerator','Fn',...
		'Denominator','Fd',...
		'position',[450,100,500,140])

add_block('built-in/Sum',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Sum']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Sum']],...
		'orientation',2,...
		'position',[380,115,400,135])


%     Subsystem  ['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator'].

new_system([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],'Location',[529,321,954,458])

add_block('built-in/Inport',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/in_1']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/in_1']],...
		'position',[35,15,55,35])

add_block('built-in/Memory',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/Memory']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/Memory']],...
		'orientation',2,...
		'x0','init',...
		'position',[210,75,260,105])

add_block('built-in/Fcn',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/module']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/module']],...
		'Expr','rem(u[1],modu)',...
		'position',[235,29,325,51])

add_block('built-in/Reset Integrator',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/Reset',13,'integrator']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/Reset',13,'integrator']],...
		'position',[110,19,150,51])

add_block('built-in/Constant',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/one']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/one']],...
		'orientation',3,...
		'move name',0,...
		'position',[70,55,90,75])

add_block('built-in/Sum',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/Sum']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/Sum']],...
		'position',[195,30,215,50])

add_block('built-in/Outport',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/out_1']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator/out_1']],...
		'position',[370,30,390,50])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[205,90;180,90;190,45])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[155,35;190,35])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[220,40;230,40])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[60,25;105,25])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[80,50;80,35;105,35])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[330,40;365,40])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],[340,40;340,90;265,90])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],...
		'Mask Display','Mod\nint',...
		'Mask Type','Module Integrator')
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],...
		'Mask Dialogue','Module the given number when state exceed limit|Module bound:|Initial value:',...
		'Mask Translate','init=@2; modu=@1;')
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],...
		'Mask Help','The absolute value of this integrator will not exceed the specified module bound. The state value is set to be zero when the module bound is reached. This block can only be used for scale value calculation.')
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],...
		'Mask Entries','1\/0\/')


%     Finished composite block ['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator'].

set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Module',13,'Integrator']],...
		'orientation',2,...
		'position',[290,110,350,140])

add_block('built-in/Transfer Fcn',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter2']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter2']],...
		'Numerator','Fn',...
		'Denominator','Fd',...
		'position',[325,204,375,246])

add_block('built-in/Product',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Product2']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Product2']],...
		'position',[125,215,150,235])

add_block('built-in/Fcn',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/sin1']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/sin1']],...
		'orientation',2,...
		'Expr','sin(u[1]*pi2+pih)',...
		'position',[120,160,220,190])

add_block('built-in/Transfer Fcn',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Lowpass',13,'filter']],...
		'Numerator','Fn',...
		'Denominator','Fd',...
		'position',[240,39,290,81])

add_block('built-in/Product',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Product']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Product']],...
		'position',[125,50,150,70])

add_block('built-in/Fcn',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/sin']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/sin']],...
		'orientation',2,...
		'Expr','sin(u[1]*pi2)',...
		'position',[120,113,205,137])

add_block('built-in/Inport',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/in_1']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/in_1']],...
		'position',[45,45,65,65])

add_block('built-in/Note',[sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Ref: Hambley: An Intro to Comm. Systems. pp69']])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas/Ref: Hambley: An Intro to Comm. Systems. pp69']],...
		'position',[260,350,265,355])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[295,60;600,60])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[580,60;580,115;560,115])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[285,125;210,125])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[250,125;250,175;225,175])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[635,60;655,60])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[155,60;235,60])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[115,125;105,125;105,65;120,65])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[455,185;430,185;430,130;405,130])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[375,125;355,125])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[520,120;505,120])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[445,120;405,120])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[115,175;105,175;105,220;120,220])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[70,55;120,55])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[90,55;90,230;120,230])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[155,225;320,225])
add_line([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],[380,225;580,225;580,125;560,125])
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],...
		'Mask Display','Costas PL\nDSB ADM',...
		'Mask Type','DSB-SC ADM')
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],...
		'Mask Dialogue','Double-sideband suppressed-carrier amplitude demodulation:|Carrier frequency:|Filter numerator:|Filter denominator:|Output gain:')
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],...
		'Mask Translate','Fc=@1;Fn=@2;Fd=@3;G=@4;pi2=pi*2;pih=pi/2;')
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],...
		'Mask Help','The Double-Sideband Supressed-Carrier Amplitude Modulation demodulates a DSB-SC-AM signal using Costas Phase-Locked Loop method.')
set_param([sys,'/',['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas']],...
		'Mask Entries','Fc\/num\/den\/2\/')


%     Finished composite block ['MASK',13,'demodulation/DSB-SC-ADM',13,'by-Costas'].