tstconsq.m

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

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'convol encode/Demux']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Demux']],...
		'outputs','2',...
		'position',[140,80,180,115])


%     Subsystem  ['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time'].

new_system([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']],'Location',[55,192,283,286])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time/Outport']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time/Outport']],...
		'position',[160,35,180,55])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time/S-function1']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time/S-function1']],...
		'function name','homopuls',...
		'parameters','samp_time, out_divid, offset',...
		'position',[40,31,105,59])
add_line([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']],[110,45;155,45])
set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']],...
		'Mask Display','Vector\nPulse',...
		'Mask Type','Pulse generator')
set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']],...
		'Mask Dialogue','Vector pulses with sample rate of each pulse as Sample_time ./Divider. |Sample time (scalar, sec):|Divider (integer vector):|Offset (have same dimension as Divider):')
set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']],...
		'Mask Translate','samp_time=@1;out_divid=@2;offset=@3;')
set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']],...
		'Mask Help','This block generator a vector pulses. The output length is the same as the vector defined in "Divider". The ith element of the output has the sample time Sample_time/Divider(i). All elements in "Divider" must be integers.')
set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']],...
		'Mask Entries','samp*k\/[k, n]\/[0 0]\/')


%     Finished composite block ['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time'].

set_param([sys,'/',['Binary sequence',13,'convol encode/Pulses deivide',13,'same sample time']],...
		'ForeGround',2,...
		'position',[45,81,105,119])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'convol encode/in_1']])
set_param([sys,'/',['Binary sequence',13,'convol encode/in_1']],...
		'position',[55,25,75,45])


%     Subsystem  ['Binary sequence',13,'convol encode/Register-shift'].

new_system([sys,'/',['Binary sequence',13,'convol encode/Register-shift']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],'Location',[237,587,592,717])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'convol encode/Register-shift/in_2']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift/in_2']],...
		'Port','2',...
		'position',[30,70,50,90])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'convol encode/Register-shift/in_1']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift/in_1']],...
		'position',[30,55,50,75])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'convol encode/Register-shift/out_2']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift/out_2']],...
		'Port','2',...
		'position',[330,70,350,90])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'convol encode/Register-shift/out_1']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift/out_1']],...
		'position',[330,55,350,75])

add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'convol encode/Register-shift/Mux']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift/Mux']],...
		'inputs','2',...
		'position',[80,56,115,89])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'convol encode/Register-shift/S-function']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift/S-function']],...
		'function name','regshift',...
		'parameters','shft_out, thrhld',...
		'position',[150,65,200,85])

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'convol encode/Register-shift/Demux']])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift/Demux']],...
		'outputs','[len_rg, 1]',...
		'position',[260,55,300,90])
add_line([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],[55,80;75,80])
add_line([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],[55,65;75,65])
add_line([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],[305,80;325,80])
add_line([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],[305,65;325,65])
add_line([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],[205,75;255,75])
add_line([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],[120,75;145,75])
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],...
		'Mask Display','Register\nshift',...
		'Mask Type','Register-shift')
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],...
		'Mask Dialogue','Store and shift the input from 1st port by raising edge of the pulse from second port.|Vector specify ouput delay length(non-negative integer):|Threshold for the pulse signal from the 2nd port:')
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],...
		'Mask Translate','shft_out=@1; thrhld=@2; len_rg=length(@1);')
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],...
		'Mask Help','This block store the 1st inport signal at the raising edge of 2nd inport pulse. The 1st outport outputs a vector with its size same as the the size of the 1st entree of this block. The maximum delay is the register size of this block. The second outport output a positive pulse at the begining of entire register refreshment.')
set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],...
		'Mask Entries','[k:-1:1]\/.1\/')


%     Finished composite block ['Binary sequence',13,'convol encode/Register-shift'].

set_param([sys,'/',['Binary sequence',13,'convol encode/Register-shift']],...
		'BackGround',3,...
		'position',[230,25,285,65])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[290,55;305,55;305,85;410,85;410,55;440,55])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[305,55;320,55])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[510,65;530,65])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[510,50;570,50])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[410,45;440,45])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[290,35;320,35])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[80,35;225,35])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[110,100;135,100])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[185,90;195,90;195,55;225,55])
add_line([sys,'/',['Binary sequence',13,'convol encode']],[185,105;420,105;420,65;440,65])
set_param([sys,'/',['Binary sequence',13,'convol encode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);Convl en',...
		'Mask Type','Sequence I/O convolution encode')
set_param([sys,'/',['Binary sequence',13,'convol encode']],...
		'Mask Dialogue','Convolution encode with codeword length\nN and message length K. Transfer function\nmatrix is a K-by-N matrix.|Transfer function (or SIMULINK diagram):|Input sample time T_in (sec):')
set_param([sys,'/',['Binary sequence',13,'convol encode']],...
		'Mask Translate','tf=@1;if isstr(tf), tf=sim2tran(tf);end;n=tf(1,size(tf,2));k=tf(2,size(tf,2));samp=@2;[x,y]=codeicon(3);[v,w]=trigicon(1,75,get_param(gcb,''orientation''));')
set_param([sys,'/',['Binary sequence',13,'convol encode']],...
		'Mask Help','This block encodes length K binary message into length K binary codeword using convolutio n code. The block uses sequential input/output format. The output sequence sample time is K*T_in/N. The block causes a K*T_in delay. The second outport outputs a pulse when Kth message signal is received. You can also use a SIMULINK block diagram to define the convolution code transfer function.')
set_param([sys,'/',['Binary sequence',13,'convol encode']],...
		'Mask Entries','tf\/1/tf(2,size(tf,2))\/')


%     Finished composite block ['Binary sequence',13,'convol encode'].

set_param([sys,'/',['Binary sequence',13,'convol encode']],...
		'hide name',0,...
		'position',[145,78,225,122])


%     Subsystem  'transfer function'.

new_system([sys,'/','transfer function'])
set_param([sys,'/','transfer function'],'Location',[436,197,856,343])
set_param([sys,'/','transfer function'],...
		'Mask Display','Generate\ntran_func',...
		'Mask Dialogue','eval(''fig_10_9; tf = sim2tran(''''fig_10_9'''');N_con_demo=tf(1,size(tf,2));K_con_demo=tf(2,size(tf,2));'')')


%     Finished composite block 'transfer function'.

set_param([sys,'/','transfer function'],...
		'BackGround',5,...
		'hide name',0,...
		'position',[485,100,565,147])


%     Subsystem  ['Binary sequence',13,'convol decode'].

new_system([sys,'/',['Binary sequence',13,'convol decode']])
set_param([sys,'/',['Binary sequence',13,'convol decode']],'Location',[319,153,929,306])


%     Subsystem  ['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2'].

new_system([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2']],'Location',[719,297,1227,483])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/in_2']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/in_2']],...
		'Port','2',...
		'position',[30,120,50,140])

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Demux']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Demux']],...
		'outputs','[tf(2,size(tf,2)), 1]',...
		'position',[305,35,345,70])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/out_1']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/out_1']],...
		'position',[405,35,425,55])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/out_2']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/out_2']],...
		'Port','2',...
		'position',[445,65,465,85])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Modulo',13,'operation1']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Modulo',13,'operation1']],...
		'function name','sviterbi',...
		'parameters','tf, leng, tran_prob, plot_flag,v1,v2,v3,v4',...
		'position',[235,40,280,70])

add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Mux']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Mux']],...
		'inputs','[tf(1,size(tf,2)), 1]',...
		'Mask Display','',...
		'position',[170,36,205,69])


%     Subsystem  ['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Rising edge',13,'detector'].

new_system([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Rising edge',13,'detector']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Rising edge',13,'detector']],'Location',[282,116,671,290])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Rising edge',13,'detector/out_1']])
set_param([sys,'/',['Binary sequence',13,'convol decode/Binary vector',13,'convol decode2/Rising edge',13,'detector/out_1']],...
		'position',[340,25,360,45])