comcdcyc.m

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

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

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


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

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

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

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'cyclic encode/out_1']])
set_param([sys,'/',['Binary sequence',13,'cyclic encode/out_1']],...
		'position',[565,30,585,50])


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

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

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

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

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

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

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

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


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

set_param([sys,'/',['Binary sequence',13,'cyclic encode/Triggered',13,'buffer down']],...
		'BackGround',3,...
		'position',[435,28,495,62])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'cyclic encode/out_2']])
set_param([sys,'/',['Binary sequence',13,'cyclic encode/out_2']],...
		'Port','2',...
		'position',[525,45,545,65])


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

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

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

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

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

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode/in_1']])
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode/in_1']],...
		'position',[30,35,50,55])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],[245,45;285,45])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],[140,45;175,45])
add_line([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],[55,45;105,45])
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],...
		'Mask Display','Cyclic\nencode',...
		'Mask Type','Cyclic encoding')
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],...
		'Mask Dialogue','Cyclic encoding:|Code word length:|Generator polynomial or message length:')
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],...
		'Mask Translate','n=@1;p=@2;if length(p)==1,p=cyclpoly(n,p,''min'');if isempty(p),error(''No such cyclic code exist'');end;end;[h,G]=cyclgen(n, p);G=G'';')
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],...
		'Mask Help','This block encodes the input binary signal using cyclic coding method. Let k=code_word_length - degree_of_generator_poly. The input of this block is a k-array binary message vector. The output of this block is an n-array binary code word vector. If the entry for "Generator polynomial" is a number instead of polynomial, the number is taken as the message length (input vector length).')
set_param([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],...
		'Mask Entries','n\/p\/')


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

set_param([sys,'/',['Binary sequence',13,'cyclic encode/Binary-vector',13,'Cyclic encode']],...
		'position',[320,15,385,55])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[175,105;410,105;410,55;430,55])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[175,90;185,90;185,50;215,50])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[100,100;125,100])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[280,50;295,50;295,85;400,85;400,45;430,45])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[70,35;215,35])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[280,35;315,35])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[390,35;430,35])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[500,40;560,40])
add_line([sys,'/',['Binary sequence',13,'cyclic encode']],[500,55;520,55])
set_param([sys,'/',['Binary sequence',13,'cyclic encode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);Cyclic en',...
		'Mask Type','Sequence I/O cyclic encode')
set_param([sys,'/',['Binary sequence',13,'cyclic encode']],...
		'Mask Dialogue','Cyclic encode with codeword length N\nand message length K.|Codeword length N:|Message length K, or generator polynomial Pg:|Input sample time T_in (sec):')
set_param([sys,'/',['Binary sequence',13,'cyclic encode']],...
		'Mask Translate','n=@1;p=@2;if length(p)==1,p=cyclpoly(n,p,''min'');if isempty(p),error(''No such cyclic code exist'');end;end;k=n-length(p)+1;samp=@3;[x,y]=codeicon(3);[v,w]=trigicon(1,75,get_param(gcb,''orientation''));')
set_param([sys,'/',['Binary sequence',13,'cyclic encode']],...
		'Mask Help','This block encodes length K binary message into length N binary codeword using cyclic code. The block uses sequential input/output format. The output sequence 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 CYCLPOLY for a list of cyclic generator polynomials.')
set_param([sys,'/',['Binary sequence',13,'cyclic encode']],...
		'Mask Entries','7\/4\/1/4\/')


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

set_param([sys,'/',['Binary sequence',13,'cyclic encode']],...
		'position',[50,138,130,182])
add_line(sys,[135,80;165,80])
add_line(sys,[135,150;145,150;145,160;165,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