comcdcyc.m

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

		'Mask Display','Modulo',...
		'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation2']],...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation2']],...
		'Mask Help','This block output modulus operation of the input signal with module base as specified in block entry. The length of the output vector is the same as the input vector.')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation2']],...
		'Mask Entries','2\/',...
		'position',[455,81,515,119])

add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain1']])
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain1']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','K',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain1']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain1']],...
		'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
		'Mask Entries','G\/')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain1']],...
		'position',[415,86,440,114])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation1']])
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation1']],...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo',...
		'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation1']],...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation1']],...
		'Mask Help','This block output modulus operation of the input signal with module base as specified in block entry. The length of the output vector is the same as the input vector.')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation1']],...
		'Mask Entries','2\/',...
		'position',[340,81,400,119])

add_block('built-in/Sum',[sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Sum']])
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Sum']],...
		'position',[305,90,325,110])

add_block('built-in/Combinatorial Logic',[sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Combinatorial',13,'Logic']])
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Combinatorial',13,'Logic']],...
		'Truth Table','trt',...
		'position',[225,33,255,57])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation']])
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation']],...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo',...
		'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation']],...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation']],...
		'Mask Help','This block output modulus operation of the input signal with module base as specified in block entry. The length of the output vector is the same as the input vector.')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Modulus',13,'operation']],...
		'Mask Entries','2\/',...
		'position',[140,26,200,64])

add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain']])
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','K',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain']],...
		'Mask Help','Multiplies input vector by entered matrix to produce output vector (y=Au).',...
		'Mask Entries','H\/')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/Matrix',13,'Gain']],...
		'position',[100,31,125,59])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/in_1']])
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode/in_1']],...
		'position',[30,35,50,55])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[520,100;530,100])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[445,100;450,100])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[405,100;410,100])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[330,100;335,100])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[55,45;95,45])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[80,45;80,105;300,105])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[260,45;285,45;285,95;300,95])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[205,45;220,45])
add_line([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],[130,45;135,45])
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],...
		'Mask Display','plot(0,0,100,100,x,y);Cyclic de',...
		'Mask Type','Vector I/O cyclic decode')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],...
		'Mask Dialogue','Cyclic decode with codeword length N,\nmessage length K.|Codeword length N:|Message length K, or generator polynomial Pg:')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],...
		'Mask Translate','n=@1;p=@2;if length(p)==1, p=cyclpoly(n,p,''min'');end;if isempty(p),error(''No such cyclic code exist'');end;[H,G]=cyclgen(n,p);trt=htruthtb(G);[n,m]=size(G);G=[zeros(n,m-n),eye(n)];[x,y]=codeicon(2);')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],...
		'Mask Help','This block decodes length N binary vector codeword input into length K binary vector message output using cyclic code. When Pg is specified instead of K, the block uses the user-defined cyclic polynomial Pg. Use function CYCLPOLY for the choice of cyclic generator polynomials.')
set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],...
		'Mask Entries','n\/p\/')


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

set_param([sys,'/',['Binary sequence',13,'cyclic decode/Binary vector',13,'cyclic decode']],...
		'position',[285,13,365,57])
add_line([sys,'/',['Binary sequence',13,'cyclic decode']],[165,105;400,105;400,65;425,65])
add_line([sys,'/',['Binary sequence',13,'cyclic decode']],[495,40;525,40])
add_line([sys,'/',['Binary sequence',13,'cyclic decode']],[100,100;115,100])
add_line([sys,'/',['Binary sequence',13,'cyclic decode']],[135,35;190,35])
add_line([sys,'/',['Binary sequence',13,'cyclic decode']],[370,35;425,35])
add_line([sys,'/',['Binary sequence',13,'cyclic decode']],[255,35;280,35])
add_line([sys,'/',['Binary sequence',13,'cyclic decode']],[255,55;270,55;270,90;390,90;390,50;425,50])
add_line([sys,'/',['Binary sequence',13,'cyclic decode']],[165,90;170,90;170,55;190,55])
set_param([sys,'/',['Binary sequence',13,'cyclic decode']],...
		'Mask Display','plot(0,0,100,100,x,y);Cyclic de',...
		'Mask Type','Sequence I/O cyclic decode')
set_param([sys,'/',['Binary sequence',13,'cyclic decode']],...
		'Mask Dialogue','Sequence decode with codeword length N\nand message length K.|Codeword length N:|Message length K, or generator polynomial Pg:|Output sample time T_out (sec):')
set_param([sys,'/',['Binary sequence',13,'cyclic decode']],...
		'Mask Translate','n=@1;p=@2;if length(p)==1, p=cyclpoly(n,p,''min'');end;if isempty(p),error(''No such cyclic code exist'');end;k=n-length(p)+1;samp=@3;[x,y]=codeicon(4);')
set_param([sys,'/',['Binary sequence',13,'cyclic decode']],...
		'Mask Help','This block decodes length N binary codeword into length K message using cyclic code. The block uses sequential input/output format. Use function CYCLPOLY for a list of cyclic generator polynomials. The input sequence sample time is K*T_out/N. The block causes a K*T_out delay.')
set_param([sys,'/',['Binary sequence',13,'cyclic decode']],...
		'Mask Entries','7\/4\/1/4\/')


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

set_param([sys,'/',['Binary sequence',13,'cyclic decode']],...
		'position',[170,138,250,182])


%     Subsystem  ['Sequence cyclic',13,'co//dec demo'].

new_system([sys,'/',['Sequence cyclic',13,'co//dec demo']])
set_param([sys,'/',['Sequence cyclic',13,'co//dec demo']],'Location',[175,552,335,697])
set_param([sys,'/',['Sequence cyclic',13,'co//dec demo']],...
		'Mask Display','Cyclic\nco/dec\ndemo',...
		'Mask Dialogue','eval(''N_cyc_demo=7;K_cyc_demo=4;tstcycsq'')')


%     Finished composite block ['Sequence cyclic',13,'co//dec demo'].

set_param([sys,'/',['Sequence cyclic',13,'co//dec demo']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[290,138,370,182])


%     Subsystem  ['Binary sequence',13,'cyclic encode'].

new_system([sys,'/',['Binary sequence',13,'cyclic encode']])
set_param([sys,'/',['Binary sequence',13,'cyclic encode']],'Location',[149,109,788,279])


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

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

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'cyclic encode/Register-shift/Demux']])
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift/Demux']],...
		'outputs','[len_rg, 1]',...
		'position',[260,55,300,90])

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

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

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

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

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

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'cyclic encode/Register-shift/in_2']])
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift/in_2']],...
		'Port','2',...
		'position',[30,70,50,90])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift']],[120,75;145,75])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift']],[205,75;255,75])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift']],[305,65;325,65])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift']],[305,80;325,80])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift']],[55,65;75,65])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift']],[55,80;75,80])
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift']],...
		'Mask Display','Register\nshift',...
		'Mask Type','Register-shift')
set_param([sys,'/',['Binary sequence',13,'cyclic 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,'cyclic encode/Register-shift']],...
		'Mask Translate','shft_out=@1; thrhld=@2; len_rg=length(@1);')
set_param([sys,'/',['Binary sequence',13,'cyclic 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,'cyclic encode/Register-shift']],...
		'Mask Entries','[k:-1:1]\/.1\/')


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

set_param([sys,'/',['Binary sequence',13,'cyclic encode/Register-shift']],...
		'BackGround',3,...
		'position',[220,26,275,59])

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


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