com_moce.m

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

set_param([sys,'/',['MFSK mod',13,'baseband']],...
		'position',[45,353,125,397])


%     Subsystem  ['MASK demod',13,'baseband'].

new_system([sys,'/',['MASK demod',13,'baseband']])
set_param([sys,'/',['MASK demod',13,'baseband']],'Location',[82,326,492,462])

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

add_block('built-in/Outport',[sys,'/',['MASK demod',13,'baseband/out_1']])
set_param([sys,'/',['MASK demod',13,'baseband/out_1']],...
		'position',[330,35,350,55])


%     Subsystem  ['MASK demod',13,'baseband/MASK demap'].

new_system([sys,'/',['MASK demod',13,'baseband/MASK demap']])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap']],'Location',[187,342,628,482])

add_block('built-in/Inport',[sys,'/',['MASK demod',13,'baseband/MASK demap/in_1']])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap/in_1']],...
		'position',[30,35,50,55])

add_block('built-in/S-Function',[sys,'/',['MASK demod',13,'baseband/MASK demap/Minimum']])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap/Minimum']],...
		'function name','arymimai',...
		'parameters','''min''',...
		'position',[315,45,370,65])

add_block('built-in/Outport',[sys,'/',['MASK demod',13,'baseband/MASK demap/out_1']])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap/out_1']],...
		'position',[400,45,420,65])

add_block('built-in/Abs',[sys,'/',['MASK demod',13,'baseband/MASK demap/Abs']])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap/Abs']],...
		'position',[235,42,270,68])

add_block('built-in/Sum',[sys,'/',['MASK demod',13,'baseband/MASK demap/Sum2']])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap/Sum2']],...
		'inputs','+-',...
		'position',[180,38,200,67])

add_block('built-in/Constant',[sys,'/',['MASK demod',13,'baseband/MASK demap/Shift key']])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap/Shift key']],...
		'Value','sft',...
		'position',[115,93,135,117])

add_block('built-in/Zero-Order Hold',[sys,'/',['MASK demod',13,'baseband/MASK demap/Zero-Order',13,'Hold']])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap/Zero-Order',13,'Hold']],...
		'Sample time','td',...
		'position',[85,29,120,61])
add_line([sys,'/',['MASK demod',13,'baseband/MASK demap']],[205,55;230,55])
add_line([sys,'/',['MASK demod',13,'baseband/MASK demap']],[140,105;155,105;155,60;175,60])
add_line([sys,'/',['MASK demod',13,'baseband/MASK demap']],[375,55;395,55])
add_line([sys,'/',['MASK demod',13,'baseband/MASK demap']],[125,45;175,45])
add_line([sys,'/',['MASK demod',13,'baseband/MASK demap']],[275,55;310,55])
add_line([sys,'/',['MASK demod',13,'baseband/MASK demap']],[55,45;80,45])
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap']],...
		'Mask Display','MASK\ndemap',...
		'Mask Type','MASK demap')
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap']],...
		'Mask Dialogue','Reverse the MASK mapping process\nConvert [-1 1] analog signal to [0, M-1] symbols.|M-ary number (digit integers in ranger [0, M-1]):|Output symbol interval and offset (sec):')
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap']],...
		'Mask Translate','N=@1;Ac=1;sft=[0:N-1]*Ac*2/(N-1)-Ac;td=@2;')
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap']],...
		'Mask Help','This block demaps a MASK mapped signal back to digit symbols. You can place this block after a amplitude demodulation block. The input of this block is an analog signal in the range [-1, 1]. The demodulation decides the closest integer fitting in [0,M-1] range. When the input symbol interval is a two-elements vector, the second element is offset. The default offset value is 0.')
set_param([sys,'/',['MASK demod',13,'baseband/MASK demap']],...
		'Mask Entries','N\/td\/')


%     Finished composite block ['MASK demod',13,'baseband/MASK demap'].

set_param([sys,'/',['MASK demod',13,'baseband/MASK demap']],...
		'position',[215,23,295,67])


%     Subsystem  ['MASK demod',13,'baseband/DSB-ADM',13,'baseband'].

new_system([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband']],'Location',[172,360,722,581])

add_block('built-in/Filter',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/Filter2']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/Filter2']],...
		'orientation',2,...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[310,100,370,140])


%     Subsystem  ['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO'].

new_system([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],'Location',[493,551,1106,698])

add_block('built-in/Constant',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Constant']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Constant']],...
		'Value','Ph',...
		'position',[160,100,180,120])

add_block('built-in/Sum',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Sum']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Sum']],...
		'position',[220,30,240,50])


%     Subsystem  ['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator'].

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

add_block('built-in/Discrete Transfer Fcn',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/Dis. Transfer Fcn']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/Dis. Transfer Fcn']],...
		'Numerator','ts(1)',...
		'Denominator','1',...
		'Sample time','ts',...
		'position',[90,17,135,53])

add_block('built-in/Inport',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/in_1']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/in_1']],...
		'position',[15,25,35,45])

add_block('built-in/Fcn',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/module']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/module']],...
		'Expr','rem(u[1],modu)',...
		'position',[235,29,325,51])

add_block('built-in/Sum',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/Sum']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/Sum']],...
		'position',[195,30,215,50])

add_block('built-in/Unit Delay',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/Unit Delay']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/Unit Delay']],...
		'Sample time','ts',...
		'x0','init',...
		'position',[345,30,395,50])

add_block('built-in/Outport',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/out_1']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator/out_1']],...
		'position',[445,30,465,50])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],[140,35;190,35])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],[40,35;85,35])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],[220,40;230,40])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],[330,40;340,40])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],[400,40;410,40;410,90;175,90;175,45;190,45])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],[410,40;440,40])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],...
		'Mask Display','discrete\nmod-int',...
		'Mask Type','Module Integrator')
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],...
		'Mask Dialogue','Module the given number when state exceed limit|Module bound:|Initial value:|Sample time:')
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],...
		'Mask Translate','init=@2; modu=@1;ts=@3;')
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis 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 demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],...
		'Mask Entries','pi2\/0\/ts\/')


%     Finished composite block ['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator'].

set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Dis module',13,'integrator']],...
		'position',[135,16,195,54])

add_block('built-in/Outport',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/out_1']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/out_1']],...
		'position',[490,35,510,55])

add_block('built-in/Gain',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Sensitivity1']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Sensitivity1']],...
		'Gain','Ac',...
		'position',[420,31,460,59])

add_block('built-in/Mux',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Mux']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Mux']],...
		'inputs','2',...
		'position',[355,26,390,59])

add_block('built-in/Fcn',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/sin']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/sin']],...
		'Expr','sin(u)',...
		'position',[270,81,325,109])

add_block('built-in/Fcn',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/cos']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/cos']],...
		'Expr','cos(u)',...
		'position',[270,21,325,49])

add_block('built-in/Gain',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Sensitivity']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/Sensitivity']],...
		'Gain','Kc',...
		'position',[80,21,120,49])

add_block('built-in/Inport',[sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/in_1']])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO/in_1']],...
		'position',[35,25,55,45])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[245,40;250,40;250,95;265,95])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[185,110;200,110;200,45;215,45])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[245,40;245,35;265,35])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[200,35;215,35])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[330,95;335,95;335,50;350,50])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[395,45;415,45])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[330,35;350,35])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[465,45;485,45])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[125,35;130,35])
add_line([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],[60,35;75,35])
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],...
		'Mask Display','FM\ncmplx env',...
		'Mask Type','FM with cmplx env out')
set_param([sys,'/',['MASK demod',13,'baseband/DSB-ADM',13,'baseband/FM CE//VCO']],...