comcdlin.m

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

set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],...
		'Mask Translate','shft_out=@1; thrhld=@2; len_rg=length(@1);')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/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,'lin-blk decode/Register-shift']],...
		'Mask Entries','[n:-1:1]\/.1\/')


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

set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],...
		'BackGround',3,...
		'position',[190,25,245,65])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'lin-blk decode/sequential',13,'code-word-in']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/sequential',13,'code-word-in']],...
		'position',[105,25,125,45])


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

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

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

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


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

set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Pulses deivide',13,'same sample time']],...
		'ForeGround',2,...
		'position',[30,81,90,119])

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'lin-blk decode/Demux']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Demux']],...
		'outputs','2',...
		'position',[115,80,155,115])


%     Subsystem  ['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding'].

new_system([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],'Location',[267,160,850,320])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/out_1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/out_1']],...
		'position',[535,90,555,110])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation2']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation2']],...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo',...
		'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation2']],...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/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,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation2']],...
		'Mask Entries','2\/',...
		'position',[455,81,515,119])

add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Matrix',13,'Gain1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Matrix',13,'Gain1']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','K',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Matrix',13,'Gain1']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/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,'lin-blk decode/Linear block',13,'decoding/Matrix',13,'Gain1']],...
		'position',[415,86,440,114])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation1']],...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo',...
		'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation1']],...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/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,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation1']],...
		'Mask Entries','2\/',...
		'position',[340,81,400,119])

add_block('built-in/Sum',[sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Sum']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Sum']],...
		'position',[305,90,325,110])

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

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation']],...
		'function name','arymodu',...
		'parameters','md',...
		'Mask Display','Modulo',...
		'Mask Type','Modulo')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation']],...
		'Mask Dialogue','Modulus operation:|Modulus base:',...
		'Mask Translate','md = @1;')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/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,'lin-blk decode/Linear block',13,'decoding/Modulus',13,'operation']],...
		'Mask Entries','2\/',...
		'position',[140,26,200,64])

add_block('built-in/State-Space',[sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Matrix',13,'Gain']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Matrix',13,'Gain']],...
		'A','[]',...
		'B','[]',...
		'C','[]',...
		'D','K',...
		'Mask Display','K',...
		'Mask Type','Matrix Gain')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/Matrix',13,'Gain']],...
		'Mask Dialogue','Matrix Gain.|Gain matrix:',...
		'Mask Translate','K = @1;')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/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,'lin-blk decode/Linear block',13,'decoding/Matrix',13,'Gain']],...
		'position',[100,31,125,59])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/in_1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding/in_1']],...
		'position',[30,35,50,55])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[520,100;530,100])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[445,100;450,100])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[405,100;410,100])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[330,100;335,100])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[55,45;95,45])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[80,45;80,105;300,105])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[260,45;285,45;285,95;300,95])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[205,45;220,45])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],[130,45;135,45])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],...
		'Mask Display','Linear\ndecode',...
		'Mask Type','Linear coding')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],...
		'Mask Dialogue','Linear block coding:|Generator matrix:|Error-correction truth table (0 for single error-correction default):')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],...
		'Mask Translate','G=@1;trt=@2;H=gen2par(G);if trt==0,trt=htruthtb(G);end;[n,m]=size(G);G=[zeros(n,m-n),eye(n)];')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],...
		'Mask Help','This block decodes code word binary vecotr using linear block coding method. The m-by-n generator matrix should match the generator matrix defined in the encode block. This block input n-array code word and output m-array message. This is a generic styke block for linear block code.')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],...
		'Mask Entries','G\/trt\/')


%     Finished composite block ['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding'].

set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Linear block',13,'decoding']],...
		'position',[295,15,355,55])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode']],[160,105;395,105;395,65;420,65])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode']],[490,40;520,40])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode']],[95,100;110,100])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode']],[130,35;185,35])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode']],[360,35;420,35])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode']],[250,35;290,35])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode']],[250,55;265,55;265,90;385,90;385,50;420,50])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode']],[160,90;165,90;165,55;185,55])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode']],...
		'Mask Display','plot(0,0,100,100,x,y);Linear de',...
		'Mask Type','Sequence I/O linear block decode')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode']],...
		'Mask Dialogue','Linear block decode with message length K and codeword length N.|Generator matrix (binary K-by-N matrix):|Error-correction truth table (0 for single error-corr):|Output sample time T_out (sec):')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode']],...
		'Mask Translate','G=@1;trt=@2;samp=@3;[k,n]=size(G);[x,y]=codeicon(4);')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode']],...
		'Mask Help','This block decodes length N binary codeword into length K message using linear block 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. The generator matrix is a K-by-N matrix. Linear block code is a generic code.')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode']],...
		'Mask Entries','[[1 1 0; 0 1 1; 1 1 1; 1 0 1] eye(4)]\/0\/1/4\/')


%     Finished composite block ['Binary sequence',13,'lin-blk decode'].

set_param([sys,'/',['Binary sequence',13,'lin-blk decode']],...
		'position',[165,138,245,182])
add_line(sys,[120,75;160,75])
add_line(sys,[120,145;135,145;135,160;160,160])

drawnow

% Return any arguments.
if (nargin | nargout)
	% Must use feval here to access system in memory
	if (nargin > 3)
		if (flag == 0)
			eval(['[ret,x0,str,ts,xts]=',sys,'(t,x,u,flag);'])
		else
			eval(['ret =', sys,'(t,x,u,flag);'])
		end
	else
		[ret,x0,str,ts,xts] = feval(sys);
	end
else
	drawnow % Flash up the model and execute load callback
end