comcdrs.m

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

		'Mask Type','Triggered buffer down.')
set_param([sys,'/',['Binary sequence',13,'RS encode/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 encode/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 encode/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 encode/Triggered',13,'buffer down']],...
		'Mask Entries','n*m\/0\/1\/.1\/0\/')


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

set_param([sys,'/',['Binary sequence',13,'RS encode/Triggered',13,'buffer down']],...
		'ForeGround',6,...
		'position',[540,53,600,87])


%     Subsystem  ['Binary sequence',13,'RS encode/Rising edge',13,'detector'].

new_system([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],'Location',[282,116,671,290])

add_block('built-in/Relational Operator',[sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/Relational',13,'Operator']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/Relational',13,'Operator']],...
		'position',[135,18,165,42])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/in_1']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/in_1']],...
		'position',[10,15,30,35])

add_block('built-in/Memory',[sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/Memory1']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/Memory1']],...
		'position',[125,80,165,110])

add_block('built-in/Constant',[sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/one1']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/one1']],...
		'Value','thld',...
		'position',[30,135,60,155])

add_block('built-in/Relational Operator',[sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/Relational',13,'Operator2']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/Relational',13,'Operator2']],...
		'Operator','>',...
		'position',[265,23,295,47])

add_block('built-in/Relational Operator',[sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/Relational',13,'Operator1']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/Relational',13,'Operator1']],...
		'position',[200,88,230,112])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/out_1']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector/out_1']],...
		'position',[340,25,360,45])
add_line([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],[300,35;335,35])
add_line([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],[235,100;240,100;240,40;260,40])
add_line([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],[170,30;260,30])
add_line([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],[65,145;100,145;100,35;130,35])
add_line([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],[100,145;180,145;180,105;195,105])
add_line([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],[170,95;195,95])
add_line([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],[35,25;130,25])
add_line([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],[45,25;45,95;120,95])
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],...
		'Mask Display','Edge\nDetector',...
		'Mask Type','Edge Detection',...
		'Mask Dialogue','Rising edge detection:|Threshold:',...
		'Mask Translate','thld=@1;')
set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],...
		'Mask Help','When the input signal rising edge passed the given shreshold, this block outputs one, otherwise outputs zero.',...
		'Mask Entries','0.1\/')


%     Finished composite block ['Binary sequence',13,'RS encode/Rising edge',13,'detector'].

set_param([sys,'/',['Binary sequence',13,'RS encode/Rising edge',13,'detector']],...
		'ForeGround',2,...
		'position',[315,56,365,84])


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

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

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

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

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

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

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

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


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

set_param([sys,'/',['Binary sequence',13,'RS encode/Register-shift']],...
		'ForeGround',3,...
		'position',[225,40,280,80])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS encode/in_1']])
set_param([sys,'/',['Binary sequence',13,'RS encode/in_1']],...
		'position',[115,40,135,60])


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

new_system([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],'Location',[160,111,633,282])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/out_1']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/out_1']],...
		'position',[425,60,445,80])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/in_2']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/in_2']],...
		'Port','2',...
		'position',[20,110,40,130])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/in_1']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/in_1']],...
		'position',[30,25,50,45])

add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/Mux']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/Mux']],...
		'inputs','2',...
		'position',[90,51,125,84])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/S-function']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/S-function']],...
		'function name','simrscbv',...
		'parameters','n, k, pg,tp,dim',...
		'position',[180,30,245,50])

add_block('built-in/Switch',[sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/Switch']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/Switch']],...
		'Threshold','0.5',...
		'position',[305,54,335,86])

add_block('built-in/Memory',[sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/Memory']])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode/Memory']],...
		'orientation',2,...
		'x0','zeros(1,n*dim)',...
		'position',[305,105,345,135])
add_line([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],[45,120;210,120;210,70;300,70])
add_line([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],[70,120;70,75;85,75])
add_line([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],[130,70;160,70;160,40;175,40])
add_line([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],[55,35;70,35;70,60;85,60])
add_line([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],[250,40;265,40;265,60;300,60])
add_line([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],[300,120;265,120;265,80;300,80])
add_line([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],[340,70;420,70])
add_line([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],[370,70;370,120;350,120])
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);Bnr RS en',...
		'Mask Type','Binary vector I/O RS encode')
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],...
		'Mask Dialogue','Reed-Solomon encode with binary input\nvector length K*M and binary output vector length N*M.|Code length N=2^M-1 (M is a >2 integer):|Message length K (< N):')
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],...
		'Mask Translate','n=@1;k=@2;if length(k)>1,pg=k;k=n-length(pg)-1;else,pg=rspoly(n,k);end;dim=3;p_dim=7;while p_dim<n,dim=dim+1;p_dim=2^dim-1;end;tp=gftuple([-1:n-1]'',dim);[x,y]=codeicon(1);[v,w]=trigicon(0,25,get_param(gcb,''orientation''));')
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],...
		'Mask Help','This block encodes length K*M binary vector input into length N*M binary vector output using Reed-Solomon code. The codeword length is N=2^M-1. M is a integer larger than 2. The message length is K<N. The block refreshes its encoding output when the enable signal at the second inport has positive value.')
set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],...
		'Mask Entries','n\/k\/')


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

set_param([sys,'/',['Binary sequence',13,'RS encode/Binary vector',13,'RS encode']],...
		'position',[415,38,495,82])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[175,115;510,115;510,80;535,80])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[175,100;185,100;185,70;220,70])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[370,70;410,70])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[395,70;395,110;505,110;505,70;535,70])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[285,70;310,70])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[500,60;535,60])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[100,110;120,110])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[285,50;410,50])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[140,50;220,50])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[605,65;680,65])
add_line([sys,'/',['Binary sequence',13,'RS encode']],[605,80;640,80])
set_param([sys,'/',['Binary sequence',13,'RS encode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);B-RS en',...