tstbchsq.m

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

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

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

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'BCH encode/Binary-vector',13,'BCH encode/out_1']])
set_param([sys,'/',['Binary sequence',13,'BCH encode/Binary-vector',13,'BCH encode/out_1']],...
		'position',[290,35,310,55])
add_line([sys,'/',['Binary sequence',13,'BCH encode/Binary-vector',13,'BCH encode']],[55,45;105,45])
add_line([sys,'/',['Binary sequence',13,'BCH encode/Binary-vector',13,'BCH encode']],[140,45;175,45])
add_line([sys,'/',['Binary sequence',13,'BCH encode/Binary-vector',13,'BCH encode']],[245,45;285,45])
set_param([sys,'/',['Binary sequence',13,'BCH encode/Binary-vector',13,'BCH encode']],...
		'Mask Display','BCH\nencode',...
		'Mask Type','BCH encoding')
set_param([sys,'/',['Binary sequence',13,'BCH encode/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 sequence',13,'BCH encode/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 sequence',13,'BCH encode/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 sequence',13,'BCH encode/Binary-vector',13,'BCH encode']],...
		'Mask Entries','n\/k\/')


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

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


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

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

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'BCH encode/Pulses deivide',13,'same sample time/S-function1']])
set_param([sys,'/',['Binary sequence',13,'BCH encode/Pulses deivide',13,'same sample time/S-function1']],...
		'function name','homopuls',...
		'parameters','samp_time, out_divid, offset',...
		'position',[40,31,105,59])

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


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

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

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'BCH encode/Demux']])
set_param([sys,'/',['Binary sequence',13,'BCH encode/Demux']],...
		'outputs','2',...
		'position',[140,80,180,115])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'BCH encode/out_1']])
set_param([sys,'/',['Binary sequence',13,'BCH encode/out_1']],...
		'position',[575,30,595,50])


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

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

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

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

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

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

add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'BCH encode/Triggered',13,'buffer down/Mux']])
set_param([sys,'/',['Binary sequence',13,'BCH encode/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 encode/Triggered',13,'buffer down/out_2']])
set_param([sys,'/',['Binary sequence',13,'BCH encode/Triggered',13,'buffer down/out_2']],...
		'Port','2',...
		'position',[355,80,375,100])

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


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

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

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'BCH encode/out_2']])
set_param([sys,'/',['Binary sequence',13,'BCH encode/out_2']],...
		'Port','2',...
		'position',[535,45,555,65])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[185,105;420,105;420,55;440,55])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[185,90;195,90;195,50;225,50])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[110,100;135,100])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[290,50;305,50;305,85;410,85;410,45;440,45])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[80,35;225,35])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[290,35;335,35])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[405,35;440,35])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[510,40;570,40])
add_line([sys,'/',['Binary sequence',13,'BCH encode']],[510,55;530,55])
set_param([sys,'/',['Binary sequence',13,'BCH encode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);BCH en',...
		'Mask Type','Sequence I/O BCH encode')
set_param([sys,'/',['Binary sequence',13,'BCH encode']],...
		'Mask Dialogue','BCH encode with codeword length N,\nand message length K. (N, K) must be a valid BCH code pair.|Codeword length N (N=2^M-1. M is a >2 integer):|Message length K (check BCHPOLY for valid K):|Input sample time T_in (sec):')
set_param([sys,'/',['Binary sequence',13,'BCH encode']],...
		'Mask Translate','n=@1;k=@2;samp=@3;[x,y]=codeicon(3);[v,w]=trigicon(1,75,get_param(gcb,''orientation''));')
set_param([sys,'/',['Binary sequence',13,'BCH encode']],...
		'Mask Help','This block encodes length K binary message into length N binary codeword using BCH code. The block uses sequence input/output format. The output sequential sample time is K*T_in/N. The block causes a K*T_in delay. The second outport outputs a pulse when Kth message signal is received. Use function BCHPOLY to view the valid N, K, and error-corr ection capability T combination.')
set_param([sys,'/',['Binary sequence',13,'BCH encode']],...
		'Mask Entries','N_bch_demo\/K_bch_demo\/1/K_bch_demo\/')


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

set_param([sys,'/',['Binary sequence',13,'BCH encode']],...
		'hide name',0,...
		'position',[145,78,225,122])


%     Subsystem  ['Sampled read with',13,'synchronized pulse'].

new_system([sys,'/',['Sampled read with',13,'synchronized pulse']])
set_param([sys,'/',['Sampled read with',13,'synchronized pulse']],'Location',[355,527,737,674])

add_block('built-in/S-Function',[sys,'/',['Sampled read with',13,'synchronized pulse/Message source']])
set_param([sys,'/',['Sampled read with',13,'synchronized pulse/Message source']],...
		'BackGround',5,...
		'function name','trigwksp',...
		'parameters','var,thd,cyclFlag,ini',...
		'Mask Display','Triggered\nread')
set_param([sys,'/',['Sampled read with',13,'synchronized pulse/Message source']],...
		'Mask Type','Read from workspace')
set_param([sys,'/',['Sampled read with',13,'synchronized pulse/Message source']],...
		'Mask Dialogue','The raising edge of input pulse trigger the block output the next row from the workspace variable.|Read the variable:|Threshold for the input pulse:|Cyclic read variable (1) or amend zeros (0).|Output before first trigger:')
set_param([sys,'/',['Sampled read with',13,'synchronized pulse/Message source']],...
		'Mask Translate','var=@1;thd=@2;cyclFlag=@3;ini=@4;')
set_param([sys,'/',['Sampled read with',13,'synchronized pulse/Message source']],...
		'Mask Help','This block reads the data from a workspace variable. The output is refreshed at the raising edge of the input pulse.')
set_param([sys,'/',['Sampled read with',13,'synchronized pulse/Message source']],...
		'Mask Entries','var\/.1\/cyc\/ini\/',...
		'position',[180,53,255,97])

add_block('built-in/Outport',[sys,'/',['Sampled read with',13,'synchronized pulse/out_2']])
set_param([sys,'/',['Sampled read with',13,'synchronized pulse/out_2']],...
		'Port','2',...
		'position',[195,115,215,135])

add_block('built-in/Outport',[sys,'/',['Sampled read with',13,'synchronized pulse/out_1']])
set_param([sys,'/',['Sampled read with',13,'synchronized pulse/out_1']],...
		'position',[295,65,315,85])


%     Subsystem  ['Sampled read with',13,'synchronized pulse/Pulses deivide',13,'same sample time1'].

new_system([sys,'/',['Sam