tsthamsq.m

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

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

set_param([sys,'/',['Binary sequence',13,'Hamming decode/Register-shift']],...
		'BackGround',3,...
		'position',[205,25,260,65])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'Hamming decode/sequential',13,'code-word-in']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/sequential',13,'code-word-in']],...
		'position',[120,25,140,45])


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

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

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

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'Hamming decode/Pulses deivide',13,'same sample time/S-function1']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/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,'Hamming decode/Pulses deivide',13,'same sample time']],[110,45;155,45])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Pulses deivide',13,'same sample time']],...
		'Mask Display','Vector\nPulse',...
		'Mask Type','Pulse generator')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/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,'Hamming decode/Pulses deivide',13,'same sample time']],...
		'Mask Translate','samp_time=@1;out_divid=@2;offset=@3;')
set_param([sys,'/',['Binary sequence',13,'Hamming decode/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,'Hamming decode/Pulses deivide',13,'same sample time']],...
		'Mask Entries','samp*k\/[n, k]\/[0 0]\/')


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

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

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'Hamming decode/Demux']])
set_param([sys,'/',['Binary sequence',13,'Hamming decode/Demux']],...
		'outputs','2',...
		'position',[130,80,170,115])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[175,105;410,105;410,65;435,65])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[505,40;535,40])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[110,100;125,100])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[145,35;200,35])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[375,35;435,35])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[265,35;305,35])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[265,55;280,55;280,90;400,90;400,50;435,50])
add_line([sys,'/',['Binary sequence',13,'Hamming decode']],[175,90;180,90;180,55;200,55])
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
		'Mask Display','plot(0,0,100,100,x,y);Hamming de',...
		'Mask Type','Sequence I/O Hamming decode')
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
		'Mask Dialogue','Single error-correction Hamming decode with codeword length N=2^M-1, message length K=2^M-M-1, where M is a >=3 integer.|Codeword length N:|Message length K, or M-degree primitive polynomial:|Input sample time T_out (sec):')
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
		'Mask Translate','n=@1;k=@2;if length(k)>1,p=k;k=n-length(p)+1;else,p=gfprimdf(n-k);end;samp=@3;[x,y]=codeicon(4);')
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
		'Mask Help','This block decodes length N binary codeword into length K message using Hamming 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. Use function GFPRIMDF or GFPRIMFD to find M-degree\nprimitive polynomials.')
set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
		'Mask Entries','7\/K_ham_demo\/1/K_ham_demo\/')


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

set_param([sys,'/',['Binary sequence',13,'Hamming decode']],...
		'hide name',0,...
		'position',[375,33,455,77])


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

new_system([sys,'/',['Binary sequence',13,'Hamming encode']])
set_param([sys,'/',['Binary sequence',13,'Hamming encode']],'Location',[68,475,675,670])


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

new_system([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']])
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],'Location',[235,592,599,711])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode/out_1']])
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode/out_1']],...
		'position',[290,35,310,55])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode/Modulus',13,'operation']])
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode/Modulus',13,'operation']],...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo',...
		'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode/Modulus',13,'operation']],...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode/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,'Hamming encode/Binary-vector',13,'Hamming encode/Modulus',13,'operation']],...
		'Mask Entries','2\/',...
		'position',[180,26,240,64])

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

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode/in_1']])
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode/in_1']],...
		'position',[30,35,50,55])
add_line([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],[245,45;285,45])
add_line([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],[140,45;175,45])
add_line([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],[55,45;105,45])
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],...
		'Mask Display','Hamming\nencode',...
		'Mask Type','Hamming encoding')
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],...
		'Mask Dialogue','Single error-correction Hamming encode. For integer M>2, N=2^M-1; K=2^M-M-1.|Code-word length N:|Message length K or M-degree primitive polynomial:')
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],...
		'Mask Translate','n=@1;k=@2;if length(k)>1,p=k; k=n-length(k)+1;else,p=gfprimdf(n-k);end;[h,G]=hammgen(n-k,p);G=G'';')
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],...
		'Mask Help','This block encodes the input binary signal using Hamming coding method.  The code length is N=2^M-1. The message length should be K=2^M-M-1. M is a integer no less than 3. The second entree of this block could also be a M-degree primitive polynomial, which can be found by using commands gfprimfd or gfprimdf. This block takes K-ary binary message input and results N-ary binary code-word output.')
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],...
		'Mask Entries','n\/p\/')


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

set_param([sys,'/',['Binary sequence',13,'Hamming encode/Binary-vector',13,'Hamming encode']],...
		'position',[330,25,395,65])


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

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

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

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'Hamming encode/Register-shift/S-function']])
set_param([sys,'/',['Binary sequence',13,'Hamming 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,'Hamming encode/Register-shift/Mux']])
set_param([sys,'/',['Binary sequence',13,'Hamming encode/Register-shift/Mux']],...
		'inputs','2',...
		'position',[80,56,115,89])

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

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

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

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


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

set_param([sys,'/',['Binary sequence',13,'Hamming encode/Register-shift']],...
		'BackGround',3,...
		'position',[230,36,285,69])

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


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

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