comcdbch.m

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

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

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

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

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'BCH decode/Register-shift/out_2']])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Register-shift/out_2']],...
		'Port','2',...
		'position',[330,70,350,90])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Register-shift']],[120,75;145,75])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Register-shift']],[205,75;255,75])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Register-shift']],[305,65;325,65])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Register-shift']],[305,80;325,80])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Register-shift']],[35,65;75,65])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Register-shift']],[65,80;75,80])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Register-shift']],...
		'Mask Display','Register\nshift',...
		'Mask Type','Register-shift')
set_param([sys,'/',['Binary sequence',13,'BCH 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,'BCH decode/Register-shift']],...
		'Mask Translate','shft_out=@1; thrhld=@2; len_rg=length(@1);')
set_param([sys,'/',['Binary sequence',13,'BCH 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,'BCH decode/Register-shift']],...
		'Mask Entries','[n:-1:1]\/.1\/')


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

set_param([sys,'/',['Binary sequence',13,'BCH decode/Register-shift']],...
		'BackGround',3,...
		'position',[185,25,240,65])


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

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

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down/in_3']])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down/in_3']],...
		'Port','3',...
		'position',[65,85,85,105])

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

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

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down/S-function']])
set_param([sys,'/',['Binary sequence',13,'BCH 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/Demux',[sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down/Demux']])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down/Demux']],...
		'outputs','[out_size 1]',...
		'position',[290,62,330,98])

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

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

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down/out_1']])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down/out_1']],...
		'position',[390,60,410,80])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],[90,95;105,95])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],[335,90;350,90])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],[65,80;105,80])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],[335,70;385,70])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],[40,65;105,65])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],[145,80;180,80])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],[240,80;285,80])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],...
		'Mask Display','Triggered\nbuffer dn',...
		'Mask Type','Triggered buffer down.')
set_param([sys,'/',['Binary sequence',13,'BCH 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,'BCH 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,'BCH 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,'BCH decode/Triggered',13,'buffer down']],...
		'Mask Entries','k\/0\/1\/.1\/0\/')


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

set_param([sys,'/',['Binary sequence',13,'BCH decode/Triggered',13,'buffer down']],...
		'BackGround',3,...
		'position',[445,28,505,72])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'BCH decode/out_2']])
set_param([sys,'/',['Binary sequence',13,'BCH decode/out_2']],...
		'Port','2',...
		'position',[370,45,390,65])


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

new_system([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],'Location',[157,499,740,659])

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

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

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

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

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

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

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

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

add_block('built-in/Memory',[sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode/Memory']])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode/Memory']],...
		'orientation',2,...
		'x0','zeros(1,k+1)',...
		'position',[295,95,335,125])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[440,65;455,65;455,105;490,105])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[440,50;455,50;455,40;490,40])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[35,110;200,110;200,60;290,60])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[60,110;60,65;75,65])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[120,60;150,60;150,30;165,30])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[45,25;60,25;60,50;75,50])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[240,30;255,30;255,50;290,50])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[290,110;255,110;255,70;290,70])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[330,60;390,60])
add_line([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],[360,60;360,110;340,110])
set_param([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);BCH de',...
		'Mask Type','Vector I/O BCH decode')
set_param([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],...
		'Mask Dialogue','Codeword length N, message length K, T\nerror-correction BCH decode. (N,K,T) must be a valid BCH code combination.|Codeword length (N=2^M-1. M is a >2 integer):|Message length K (check BCHPOLY for valid K):|Error-correction capability (0 for unknown):')
set_param([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],...
		'Mask Translate','n=@1;k=@2;t=@3;if t<=0, [x1,x2,x3,x4,t]=bchpoly(n,k);end;dim=3;pow_dim=7;while pow_dim<n,dim=dim+1;pow_dim=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,'BCH decode/Binary-vector',13,'BCH decode']],...
		'Mask Help','This block decodes length N binary vector codeword input into length K binary vector message output using BCH code. The block refreshes its decoding output only if the enable signal at the second inport is high. The second outport outputs the error detected in the process. A negative output indicates more error than the capability.')
set_param([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],...
		'Mask Entries','n\/k\/t\/')


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

set_param([sys,'/',['Binary sequence',13,'BCH decode/Binary-vector',13,'BCH decode']],...
		'position',[275,26,345,64])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[155,90;160,90;160,55;180,55])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[245,55;270,55])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[245,55;260,55;260,100;415,100;415,50;440,50])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[245,35;270,35])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[350,55;365,55])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[350,35;440,35])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[125,35;180,35])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[90,100;105,100])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[510,40;555,40])
add_line([sys,'/',['Binary sequence',13,'BCH decode']],[155,105;425,105;425,65;440,65])
set_param([sys,'/',['Binary sequence',13,'BCH decode']],...
		'Mask Display','plot(0,0,100,100,x,y);BCH de',...
		'Mask Type','Sequence I/O BCH decode')
set_param([sys,'/',['Binary sequence',13,'BCH decode']],...
		'Mask Dialogue','BCH decode with codeword length N,\nmessage length K, and error-correction capability T. (N,K,T) must be a valid BCH code combination.|Codeword length N (N=2^M-1. M is a >2 integer):|Message length K (check BCHPOLY for valid K):|Error-correction capability T (0 for unknown):|Output sample time T_out (sec):')
set_param([sys,'/',['Binary sequence',13,'BCH decode']],...
		'Mask Translate','n=@1;k=@2;t=@3;samp=@4;[x,y]=codeicon(4);')
set_param([sys,'/',['Binary sequence',13,'BCH decode']],...
		'Mask Help','This block decodes length N binary codeword into length K message using BCH code. The block uses sequential input/output format. The input sequence sample time is K*T_out/N. The block causes a K*T_out delay. The second outport outputs the number of errors detected in the process. A negative value indicates the block found more error in the codeword than T.')
set_param([sys,'/',['Binary sequence',13,'BCH decode']],...
		'Mask Entries','15\/5\/3\/1/5\/')


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