tstrsbnv.m

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

		'parameters','shft_out, thrhld',...
		'position',[150,65,200,85])

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'RS decode/Register-shift/Demux']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Register-shift/Demux']],...
		'outputs','[len_rg, 1]',...
		'position',[260,55,300,90])
add_line([sys,'/',['Binary sequence',13,'RS decode/Register-shift']],[55,80;75,80])
add_line([sys,'/',['Binary sequence',13,'RS decode/Register-shift']],[55,65;75,65])
add_line([sys,'/',['Binary sequence',13,'RS decode/Register-shift']],[305,80;325,80])
add_line([sys,'/',['Binary sequence',13,'RS decode/Register-shift']],[305,65;325,65])
add_line([sys,'/',['Binary sequence',13,'RS decode/Register-shift']],[205,75;255,75])
add_line([sys,'/',['Binary sequence',13,'RS decode/Register-shift']],[120,75;145,75])
set_param([sys,'/',['Binary sequence',13,'RS decode/Register-shift']],...
		'Mask Display','Register\nshift',...
		'Mask Type','Register-shift')
set_param([sys,'/',['Binary sequence',13,'RS decode/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,'RS decode/Register-shift']],...
		'Mask Translate','shft_out=@1; thrhld=@2; len_rg=length(@1);')
set_param([sys,'/',['Binary sequence',13,'RS decode/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,'RS decode/Register-shift']],...
		'Mask Entries','[n*m:-1:1]\/.1\/')


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

set_param([sys,'/',['Binary sequence',13,'RS decode/Register-shift']],...
		'ForeGround',3,...
		'position',[195,35,250,75])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS decode/in_1']])
set_param([sys,'/',['Binary sequence',13,'RS decode/in_1']],...
		'position',[100,35,120,55])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'RS decode/out_1']])
set_param([sys,'/',['Binary sequence',13,'RS decode/out_1']],...
		'position',[645,40,665,60])


%     Subsystem  ['Binary sequence',13,'RS decode/Triggered',13,'buffer down'].

new_system([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],'Location',[306,291,744,461])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/out_1']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/out_1']],...
		'position',[390,60,410,80])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/out_2']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/out_2']],...
		'Port','2',...
		'position',[355,80,375,100])

add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/Mux']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/Mux']],...
		'inputs','[in_size 1 1]',...
		'position',[110,59,140,101])

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/Demux']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/Demux']],...
		'outputs','[out_size 1]',...
		'position',[290,62,330,98])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/S-function']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/S-function']],...
		'function name','regdown',...
		'parameters','ini_idx, idx_inc, thrshld, cycl_flag',...
		'position',[185,70,235,90])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/in_1']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/in_1']],...
		'position',[15,55,35,75])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/in_2']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/in_2']],...
		'Port','2',...
		'position',[40,70,60,90])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/in_3']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down/in_3']],...
		'Port','3',...
		'position',[65,85,85,105])
add_line([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],[240,80;285,80])
add_line([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],[145,80;180,80])
add_line([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],[40,65;105,65])
add_line([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],[335,70;385,70])
add_line([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],[65,80;105,80])
add_line([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],[335,90;350,90])
add_line([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],[90,95;105,95])
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],...
		'Mask Display','Triggered\nbuffer dn',...
		'Mask Type','Triggered buffer down.')
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],...
		'Mask Dialogue','Triggered buffer down.|Input signal vector size:|Initial index (integer vector):|Increament for each index (integer vector):|Trigger threshold:|When index exceed register size, 1 for cyclic ouput, 0 for zero output:')
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],...
		'Mask Translate','in_size=@1; ini_idx=@2; idx_inc=@3; thrshld=@4; cycl_flag=@5; out_size=length(ini_idx);')
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],...
		'Mask Help','The register inside this block take the signal vector at the 1st inport by the raising edge of the second inport. The fisrt outport outputs a signal vector at the raising edge of the third inport.')
set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],...
		'Mask Entries','k*m\/0\/1\/.1\/0\/')


%     Finished composite block ['Binary sequence',13,'RS decode/Triggered',13,'buffer down'].

set_param([sys,'/',['Binary sequence',13,'RS decode/Triggered',13,'buffer down']],...
		'ForeGround',6,...
		'position',[555,38,615,72])


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

new_system([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],'Location',[143,192,726,352])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/out_2']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/out_2']],...
		'Port','2',...
		'position',[495,95,515,115])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/out_1']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/out_1']],...
		'position',[495,30,515,50])

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/Demux']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/Demux']],...
		'outputs','[k*dim,1]',...
		'position',[395,40,435,75])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/in_2']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/in_2']],...
		'Port','2',...
		'position',[10,100,30,120])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/in_1']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/in_1']],...
		'position',[20,15,40,35])

add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/Mux']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/Mux']],...
		'inputs','2',...
		'position',[80,41,115,74])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/S-function']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/S-function']],...
		'function name','simrsdbv',...
		'parameters','n, k, tp, dim',...
		'position',[170,20,235,40])

add_block('built-in/Switch',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/Switch']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/Switch']],...
		'Threshold','0.5',...
		'position',[295,44,325,76])

add_block('built-in/Memory',[sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/Memory']])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode/Memory']],...
		'orientation',2,...
		'x0','zeros(1,k*dim+1)',...
		'position',[295,95,335,125])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[440,65;455,65;455,105;490,105])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[440,50;455,50;455,40;490,40])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[35,110;200,110;200,60;290,60])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[60,110;60,65;75,65])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[120,60;150,60;150,30;165,30])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[45,25;60,25;60,50;75,50])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[240,30;255,30;255,50;290,50])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[290,110;255,110;255,70;290,70])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[330,60;390,60])
add_line([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],[360,60;360,110;340,110])
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);B-RS de',...
		'Mask Type','Binary vector I/O RS decode')
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],...
		'Mask Dialogue','Reed-Solomon decode with binary input\nvector length N*M and binary output\nvector length K*M.|Code length N=2^M-1 (M is a >2 integer):|Message length K (< N):')
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],...
		'Mask Translate','n=@1;k=@2;dim=3;p_d=7;while p_d<n,dim=dim+1;p_d=2^dim-1;end;tp=gftuple([-1:n-1]'',dim);[x,y]=codeicon(2);[v,w]=trigicon(0,25,get_param(gcb,''orientation''));')
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],...
		'Mask Help','This block decodes length N*M binary vector input into length K*M binary vector output. The codeword length is N=2^M-1. M>2. The message length is K<N. The block refreshes its decoding output when the enable signal at the second inport has positive value. The second outport outputs the number of errors detected in the process. If the codeword contains more errors than the correction capability, this output is negative.')
set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],...
		'Mask Entries','n\/k\/')


%     Finished composite block ['Binary sequence',13,'RS decode/Binary vector',13,'RS decode'].

set_param([sys,'/',['Binary sequence',13,'RS decode/Binary vector',13,'RS decode']],...
		'position',[380,33,460,77])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[465,65;475,65])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[80,105;90,105])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[255,45;375,45])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[145,95;160,95;160,65;190,65])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[125,45;190,45])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[255,65;275,65])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[145,110;525,110;525,65;550,65])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[335,65;360,65;360,105;520,105;520,55;550,55])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[360,65;375,65])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[465,45;550,45])
add_line([sys,'/',['Binary sequence',13,'RS decode']],[620,50;640,50])
set_param([sys,'/',['Binary sequence',13,'RS decode']],...
		'Mask Display','plot(0,0,100,100,x,y);B-RS de',...
		'Mask Type','Binary sequence I/O RS decode')
set_param([sys,'/',['Binary sequence',13,'RS decode']],...
		'Mask Dialogue','RS decode with codeword length N, message\nlength K.|Code length N=2^M-1 (M is a >2 integer):|Message length K:|Output sample time T_out (sec):')
set_param([sys,'/',['Binary sequence',13,'RS decode']],...
		'Mask Translate','n=@1;k=@2;samp=@3;m=3;p_d=7;while p_d<n,m=m+1;p_d=2^m-1;end;[x,y]=codeicon(4);')
set_param([sys,'/',['Binary sequence',13,'RS decode']],...
		'Mask Help','This block decodes length N binary codeword into length K binary message. The block uses sequence input/output format. The input sequential sample time is K*T_out/N. The block causes a K*M*T_out delay. The second outport outputs the number of errors detected in the process. If the codeword contains more error than the correction capability, this output is nagative.')
set_param([sys,'/',['Binary sequence',13,'RS decode']],...
		'Mask Entries','N_rs_demo\/K_rs_demo\/1/K_rs_demo/M_rs_demo\/')


%     Finished composite block ['Binary sequence',13,'RS decode'].

set_param([sys,'/',['Binary sequence',13,'RS decode']],...
		'ForeGround',2,...
		'hide name',0,...
		'position',[400,53,480,97])


%     Subsystem  ['Sampled read',13,'from wksp'].

new_system([sys,'/',['Sampled read',13,'from wksp']])
set_param([sys,'/',['Sampled read',13,'from wksp']],'Location',[355,528,737,675])