tutbchsq.m

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

%     Subsystem  ['Binary-sequential',13,'BCH encode1/Pulses deivide',13,'same sample time'].

new_system([sys,'/',['Binary-sequential',13,'BCH encode1/Pulses deivide',13,'same sample time']])
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Pulses deivide',13,'same sample time']],'Location',[55,192,283,286])

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

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


%     Finished composite block ['Binary-sequential',13,'BCH encode1/Pulses deivide',13,'same sample time'].

set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Pulses deivide',13,'same sample time']],...
		'ForeGround',2,...
		'position',[45,81,105,119])


%     Subsystem  ['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode'].

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

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

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

add_block('built-in/State-Space',[sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode/Matrix',13,'Gain']])
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode/Matrix',13,'Gain']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','K',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode/Matrix',13,'Gain']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH 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-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode/Matrix',13,'Gain']],...
		'position',[110,31,135,59])

add_block('built-in/Inport',[sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode/in_1']])
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode/in_1']],...
		'position',[30,35,50,55])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],[245,45;285,45])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],[140,45;175,45])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],[55,45;105,45])
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],...
		'Mask Display','BCH\nencode',...
		'Mask Type','BCH encoding')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],...
		'Mask Dialogue','Code word N, message length K multi-error-correction BCH code.|Code length (N=2^M-1. M is a >2 integer):|Message length (check BCHPOLY for valid number):')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],...
		'Mask Translate','n=@1; k=@2; pg = bchpoly(n,k);[h,G]=cyclgen(n,pg); G=G'';')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],...
		'Mask Help','This block encodes the K-ary binary message signal into N-ary binary code word using BCH code. Use MATLAB command BCHPOLY to view the valid code-word length N and message length K combination.')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],...
		'Mask Entries','n\/k\/')


%     Finished composite block ['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode'].

set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Binary-vector',13,'BCH encode']],...
		'BackGround',5,...
		'position',[340,15,400,55])

add_block('built-in/Inport',[sys,'/',['Binary-sequential',13,'BCH encode1/in_1']])
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/in_1']],...
		'position',[55,25,75,45])


%     Subsystem  ['Binary-sequential',13,'BCH encode1/Register-shift'].

new_system([sys,'/',['Binary-sequential',13,'BCH encode1/Register-shift']])
set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Register-shift']],'Location',[237,587,592,717])

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

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

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

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

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

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

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


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

set_param([sys,'/',['Binary-sequential',13,'BCH encode1/Register-shift']],...
		'BackGround',3,...
		'position',[230,26,285,59])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[510,55;530,55])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[510,40;570,40])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[405,35;440,35])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[290,35;335,35])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[80,35;225,35])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[290,50;305,50;305,85;410,85;410,45;440,45])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[110,100;135,100])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[185,90;195,90;195,50;225,50])
add_line([sys,'/',['Binary-sequential',13,'BCH encode1']],[185,105;420,105;420,55;440,55])
set_param([sys,'/',['Binary-sequential',13,'BCH encode1']],...
		'Mask Display','BCH\nencode',...
		'Mask Type','BCH binary sequential encoding')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1']],...
		'Mask Dialogue','Code word N, message length K multi-error-correction BCH code.|Code length (N=2^M-1. M is a >2 integer):|Message length (check BCHPOLY for valid number):|Input sample time:')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1']],...
		'Mask Translate','n=@1; k=@2;samp=@3;')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1']],...
		'Mask Help','This block encodes the K-ary binary message signal into N-ary binary code word using BCH code. Use MATLAB command BCHPOLY to view the valid code-word length N and message length K combination.')
set_param([sys,'/',['Binary-sequential',13,'BCH encode1']],...
		'Mask Entries','15\/5\/1/5\/')


%     Finished composite block ['Binary-sequential',13,'BCH encode1'].

set_param([sys,'/',['Binary-sequential',13,'BCH encode1']],...
		'hide name',0,...
		'position',[145,57,210,93])


%     Subsystem  'Binary Error'.

new_system([sys,'/','Binary Error'])
set_param([sys,'/','Binary Error'],'Location',[154,494,633,699])

add_block('built-in/Outport',[sys,'/','Binary Error/out_2'])
set_param([sys,'/','Binary Error/out_2'],...
		'Port','2',...
		'position',[275,125,295,145])

add_block('built-in/Saturation',[sys,'/','Binary Error/Saturation'])
set_param([sys,'/','Binary Error/Saturation'],...
		'Lower Limit','0',...
		'Upper Limit','M-1',...
		'position',[165,70,190,90])

add_block('built-in/S-Function',[sys,'/',['Binary Error/Modulo',13,'operation']])
set_param([sys,'/',['Binary Error/Modulo',13,'operation']],...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo',...
		'Mask Type','Modulo',...
		'Mask Dialogue','Modulo operation:|Modulo base:')
set_param([sys,'/',['Binary Error/Modulo',13,'operation']],...
		'Mask Translate','md = @1;')