com_frmt.m

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

set_param([sys,'/',['mu-law',13,'expander/out_1']],...
		'position',[410,50,430,70])
add_line([sys,'/',['mu-law',13,'expander']],[85,15;105,15;105,60;125,60])
add_line([sys,'/',['mu-law',13,'expander']],[100,70;125,70])
add_line([sys,'/',['mu-law',13,'expander']],[165,65;185,65])
add_line([sys,'/',['mu-law',13,'expander']],[320,20;330,20;330,50;355,50])
add_line([sys,'/',['mu-law',13,'expander']],[35,70;60,70])
add_line([sys,'/',['mu-law',13,'expander']],[45,70;45,110;255,110])
add_line([sys,'/',['mu-law',13,'expander']],[310,110;325,110;325,70;355,70])
add_line([sys,'/',['mu-law',13,'expander']],[390,60;405,60])
add_line([sys,'/',['mu-law',13,'expander']],[240,65;270,65])
add_line([sys,'/',['mu-law',13,'expander']],[300,60;355,60])
add_line([sys,'/',['mu-law',13,'expander']],[230,20;250,20;250,55;270,55])
set_param([sys,'/',['mu-law',13,'expander']],...
		'Mask Display','mu-law\nexpander',...
		'Mask Type','mu-law expander',...
		'Mask Dialogue','Inverse computation of mu-law compressor.|mu value:|Signal peak magnitude:')
set_param([sys,'/',['mu-law',13,'expander']],...
		'Mask Translate','mu=@1;V=@2;Vmu=V/mu;ln1mdV=log(1+mu)/V;',...
		'Mask Help','This block reverses the computation with mu-law compressor. The prevailing value for mu is mu=255.')
set_param([sys,'/',['mu-law',13,'expander']],...
		'Mask Entries','255\/1\/')


%     Finished composite block ['mu-law',13,'expander'].

set_param([sys,'/',['mu-law',13,'expander']],...
		'position',[165,208,245,252])


%     Subsystem  ['mu-law',13,'compressor'].

new_system([sys,'/',['mu-law',13,'compressor']])
set_param([sys,'/',['mu-law',13,'compressor']],'Location',[30,201,488,356])

add_block('built-in/Sum',[sys,'/',['mu-law',13,'compressor/Sum']])
set_param([sys,'/',['mu-law',13,'compressor/Sum']],...
		'position',[210,50,230,70])

add_block('built-in/Product',[sys,'/',['mu-law',13,'compressor/Product']])
set_param([sys,'/',['mu-law',13,'compressor/Product']],...
		'position',[145,53,175,77])

add_block('built-in/Abs',[sys,'/',['mu-law',13,'compressor/Abs']])
set_param([sys,'/',['mu-law',13,'compressor/Abs']],...
		'position',[75,58,105,82])

add_block('built-in/Constant',[sys,'/',['mu-law',13,'compressor/Constant']])
set_param([sys,'/',['mu-law',13,'compressor/Constant']],...
		'Value','mudV',...
		'position',[35,10,80,30])

add_block('built-in/Constant',[sys,'/',['mu-law',13,'compressor/Constant1']])
set_param([sys,'/',['mu-law',13,'compressor/Constant1']],...
		'position',[140,10,160,30])

add_block('built-in/S-Function',[sys,'/',['mu-law',13,'compressor/Array',13,'function']])
set_param([sys,'/',['mu-law',13,'compressor/Array',13,'function']],...
		'function name','arysin',...
		'parameters','opr',...
		'Mask Display','Array\nFcn',...
		'Mask Type','Array function')
set_param([sys,'/',['mu-law',13,'compressor/Array',13,'function']],...
		'Mask Dialogue','Multi-input/multi-output functions, such as sin, cos, tan,exp,asin, acos,ln,log10.|Operation (string):',...
		'Mask Translate','opr=@1;')
set_param([sys,'/',['mu-law',13,'compressor/Array',13,'function']],...
		'Mask Help','The vector length of the output is the same as the input.',...
		'Mask Entries','''ln''\/',...
		'position',[255,46,300,74])

add_block('built-in/Inport',[sys,'/',['mu-law',13,'compressor/Inport']])
set_param([sys,'/',['mu-law',13,'compressor/Inport']],...
		'position',[15,60,35,80])

add_block('built-in/Constant',[sys,'/',['mu-law',13,'compressor/Constant2']])
set_param([sys,'/',['mu-law',13,'compressor/Constant2']],...
		'Value','Vln1mu',...
		'position',[250,5,300,25])

add_block('built-in/S-Function',[sys,'/',['mu-law',13,'compressor/Array',13,'function1']])
set_param([sys,'/',['mu-law',13,'compressor/Array',13,'function1']],...
		'function name','arysin',...
		'parameters','opr',...
		'Mask Display','Array\nFcn',...
		'Mask Type','Array function')
set_param([sys,'/',['mu-law',13,'compressor/Array',13,'function1']],...
		'Mask Dialogue','Multi-input/multi-output functions, such as sin, cos, tan,exp,asin, acos,ln,log10.|Operation (string):',...
		'Mask Translate','opr=@1;')
set_param([sys,'/',['mu-law',13,'compressor/Array',13,'function1']],...
		'Mask Help','The vector length of the output is the same as the input.',...
		'Mask Entries','''sgn''\/',...
		'position',[175,96,220,124])

add_block('built-in/Product',[sys,'/',['mu-law',13,'compressor/Product1']])
set_param([sys,'/',['mu-law',13,'compressor/Product1']],...
		'inputs','3',...
		'position',[360,45,385,75])

add_block('built-in/Outport',[sys,'/',['mu-law',13,'compressor/out_1']])
set_param([sys,'/',['mu-law',13,'compressor/out_1']],...
		'position',[420,50,440,70])
add_line([sys,'/',['mu-law',13,'compressor']],[110,70;140,70])
add_line([sys,'/',['mu-law',13,'compressor']],[85,20;115,20;115,60;140,60])
add_line([sys,'/',['mu-law',13,'compressor']],[180,65;205,65])
add_line([sys,'/',['mu-law',13,'compressor']],[165,20;185,20;185,55;205,55])
add_line([sys,'/',['mu-law',13,'compressor']],[235,60;250,60])
add_line([sys,'/',['mu-law',13,'compressor']],[40,70;70,70])
add_line([sys,'/',['mu-law',13,'compressor']],[50,70;50,110;170,110])
add_line([sys,'/',['mu-law',13,'compressor']],[305,60;355,60])
add_line([sys,'/',['mu-law',13,'compressor']],[225,110;325,110;325,70;355,70])
add_line([sys,'/',['mu-law',13,'compressor']],[305,15;325,15;325,50;355,50])
add_line([sys,'/',['mu-law',13,'compressor']],[390,60;415,60])
set_param([sys,'/',['mu-law',13,'compressor']],...
		'Mask Display','mu-law\ncompressor',...
		'Mask Type','mu-law compressor')
set_param([sys,'/',['mu-law',13,'compressor']],...
		'Mask Dialogue','Compress the input signal using mu-law\ncompressor. The mu-law compressor\nuses logarithm computation.|mu value:|Peak signal magnitude:')
set_param([sys,'/',['mu-law',13,'compressor']],...
		'Mask Translate','mu=@1;V=@2;mudV=mu/V;Vln1mu=V/log(1+mu);')
set_param([sys,'/',['mu-law',13,'compressor']],...
		'Mask Help','This block processes a vector signal. The output has the same length as the input signal. The prevailing value is mu=255.',...
		'Mask Entries','255\/1\/')


%     Finished composite block ['mu-law',13,'compressor'].

set_param([sys,'/',['mu-law',13,'compressor']],...
		'position',[35,208,115,252])


%     Subsystem  ['Sampled',13,'quantizer encode'].

new_system([sys,'/',['Sampled',13,'quantizer encode']])
set_param([sys,'/',['Sampled',13,'quantizer encode']],'Location',[37,120,369,253])

add_block('built-in/Outport',[sys,'/',['Sampled',13,'quantizer encode/out_3']])
set_param([sys,'/',['Sampled',13,'quantizer encode/out_3']],...
		'Port','3',...
		'position',[255,85,275,105])

add_block('built-in/Outport',[sys,'/',['Sampled',13,'quantizer encode/out_2']])
set_param([sys,'/',['Sampled',13,'quantizer encode/out_2']],...
		'Port','2',...
		'position',[290,55,310,75])

add_block('built-in/Outport',[sys,'/',['Sampled',13,'quantizer encode/out_1']])
set_param([sys,'/',['Sampled',13,'quantizer encode/out_1']],...
		'position',[260,20,280,40])

add_block('built-in/Inport',[sys,'/',['Sampled',13,'quantizer encode/in_1']])
set_param([sys,'/',['Sampled',13,'quantizer encode/in_1']],...
		'position',[15,55,35,75])

add_block('built-in/Demux',[sys,'/',['Sampled',13,'quantizer encode/Demux']])
set_param([sys,'/',['Sampled',13,'quantizer encode/Demux']],...
		'outputs','[n n n]',...
		'position',[175,47,215,83])

add_block('built-in/S-Function',[sys,'/',['Sampled',13,'quantizer encode/S-function']])
set_param([sys,'/',['Sampled',13,'quantizer encode/S-function']],...
		'function name','simquans',...
		'parameters','n, partition, codebook,sample_time',...
		'position',[80,55,135,75])
add_line([sys,'/',['Sampled',13,'quantizer encode']],[220,75;235,75;235,95;250,95])
add_line([sys,'/',['Sampled',13,'quantizer encode']],[220,65;285,65])
add_line([sys,'/',['Sampled',13,'quantizer encode']],[220,55;235,55;235,30;255,30])
add_line([sys,'/',['Sampled',13,'quantizer encode']],[140,65;170,65])
add_line([sys,'/',['Sampled',13,'quantizer encode']],[40,65;75,65])
set_param([sys,'/',['Sampled',13,'quantizer encode']],...
		'Mask Display','Scalar\nquantizer',...
		'Mask Type','Scalar quantization encode')
set_param([sys,'/',['Sampled',13,'quantizer encode']],...
		'Mask Dialogue','Quantize an analog signal to (1)digital\nsignal, (2)quantization value, and (3)distor-\ntion at every sample time point.|Quantization partition:|Quantization codebook:|Input signal vector length:|Sample time (sec):')
set_param([sys,'/',['Sampled',13,'quantizer encode']],...
		'Mask Translate','partition=@1;codebook=@2;n=@3;sample_time=@4;')
set_param([sys,'/',['Sampled',13,'quantizer encode']],...
		'Mask Help','This block converts the input analog signal to digital signal (1st outport) with the quantized value (2nd outport), and distortion (3rd outport) at every sample point. The input signa can be a vector. When the sample time is a two-elements vector, the second element is the offset value. The length of the partition is one less than the length of codebook. Use LLOYDS to optimize the partition and codebook.')
set_param([sys,'/',['Sampled',13,'quantizer encode']],...
		'Mask Entries','[-.75 -.25 .25 .75]\/[-.825 -.5 0 .5 .825]\/2\/.1\/')


%     Finished composite block ['Sampled',13,'quantizer encode'].

set_param([sys,'/',['Sampled',13,'quantizer encode']],...
		'position',[35,58,115,102])


%     Subsystem  ['A-law',13,'compressor'].

new_system([sys,'/',['A-law',13,'compressor']])
set_param([sys,'/',['A-law',13,'compressor']],'Location',[24,465,668,718])

add_block('built-in/Product',[sys,'/',['A-law',13,'compressor/Product3']])
set_param([sys,'/',['A-law',13,'compressor/Product3']],...
		'BackGround',7,...
		'position',[195,118,225,142])

add_block('built-in/S-Function',[sys,'/',['A-law',13,'compressor/Array',13,'function']])
set_param([sys,'/',['A-law',13,'compressor/Array',13,'function']],...
		'ForeGround',2,...
		'function name','arysin',...
		'parameters','opr',...
		'Mask Display','Array\nFcn',...
		'Mask Type','Array function')
set_param([sys,'/',['A-law',13,'compressor/Array',13,'function']],...
		'Mask Dialogue','Multi-input/multi-output functions, such as sin, cos, tan,exp,asin, acos,ln,log10.|Operation (string):',...
		'Mask Translate','opr=@1;')
set_param([sys,'/',['A-law',13,'compressor/Array',13,'function']],...
		'Mask Help','The vector length of the output is the same as the input.',...
		'Mask Entries','''ln''\/',...
		'position',[255,116,300,144])

add_block('built-in/Sum',[sys,'/',['A-law',13,'compressor/Sum']])
set_param([sys,'/',['A-law',13,'compressor/Sum']],...
		'BackGround',5,...
		'position',[330,125,350,145])

add_block('built-in/Constant',[sys,'/',['A-law',13,'compressor/Constant2']])
set_param([sys,'/',['A-law',13,'compressor/Constant2']],...
		'ForeGround',3,...
		'Value','AdV',...
		'position',[105,125,155,145])

add_block('built-in/Constant',[sys,'/',['A-law',13,'compressor/Constant4']])
set_param([sys,'/',['A-law',13,'compressor/Constant4']],...
		'ForeGround',3,...
		'position',[220,165,245,185])

add_block('built-in/Product',[sys,'/',['A-law',13,'compressor/Product']])
set_param([sys,'/',['A-law',13,'compressor/Product']],...
		'BackGround',7,...
		'position',[390,128,420,152])

add_block('built-in/Constant',[sys,'/',['A-law',13,'compressor/Constant']])
set_param([sys,'/',['A-law',13,'compressor/Constant']],...
		'ForeGround',3,...
		'Value','VdlnA1',...
		'position',[320,165,365,185])

add_block('built-in/S-Function',[sys,'/',['A-law',13,'compressor/Array',13,'function1']])
set_param([sys,'/',['A-law',13,'compressor/Array',13,'function1']],...
		'ForeGround',2,...
		'function name','arysin',...
		'parameters','opr',...
		'Mask Display','Array\nFcn',...
		'Mask Type','Array function')
set_param([sys,'/',['A-law',13,'compressor/Array',13,'function1']],...
		'Mask Dialogue','Multi-input/multi-output functions, such as sin, cos, tan,exp,asin, acos,ln,log10.|Operation (string):',...
		'Mask Translate','opr=@1;')
set_param([sys,'/',['A-law',13,'compressor/Array',13,'function1']],...
		'Mask Help','The vector length of the output is the same as the input.',...
		'Mask Entries','''sgn''\/',...
		'position',[125,191,170,219])

add_block('built-in/Product',[sys,'/',['A-law',13,'compressor/Product2']])
set_param([sys,'/',['A-law',13,'compressor/Product2']],...
		'BackGround',7,...
		'position',[275,18,305,42])

add_block('built-in/Constant',[sys,'/',['A-law',13,'compressor/Constant3']])
set_param([sys,'/',['A-law',13,'compressor/Constant3']],...
		'ForeGround',3,...
		'Value','AdlnA1',...
		'position',[90,12,135,38])

add_block('built-in/Switch',[sys,'/',['A-law',13,'compressor/Switch']])