comcdlin.m

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

set_param([sys,'/',['Binary vector',13,'lin-blk decode/Matrix',13,'Gain1']],...
		'position',[415,86,440,114])

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

add_block('built-in/Outport',[sys,'/',['Binary vector',13,'lin-blk decode/out_1']])
set_param([sys,'/',['Binary vector',13,'lin-blk decode/out_1']],...
		'position',[535,90,555,110])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[130,45;135,45])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[205,45;220,45])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[260,45;285,45;285,95;300,95])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[55,45;95,45])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[80,45;80,105;300,105])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[330,100;335,100])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[405,100;410,100])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[445,100;450,100])
add_line([sys,'/',['Binary vector',13,'lin-blk decode']],[520,100;530,100])
set_param([sys,'/',['Binary vector',13,'lin-blk decode']],...
		'Mask Display','plot(0,0,100,100,x,y);Linear de',...
		'Mask Type','Vector I/O linear block decode')
set_param([sys,'/',['Binary vector',13,'lin-blk decode']],...
		'Mask Dialogue','Linear block decode with input codeword vector length N and output message vector length K.|Generator matrix (binary K-by-N matrix):|Error-correction truth table (0 for single error-corr):')
set_param([sys,'/',['Binary vector',13,'lin-blk decode']],...
		'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)];[x,y]=codeicon(2);')
set_param([sys,'/',['Binary vector',13,'lin-blk decode']],...
		'Mask Help','This block decodes length N binary vector codeword input into length K binary vector message output using linear block code. The generator matrix is a K-by-N matrix. Linear block code is a generic code. Use the HTRUTHTB function to generate a single error-correction truth table.')
set_param([sys,'/',['Binary vector',13,'lin-blk decode']],...
		'Mask Entries','[[1 1 0; 0 1 1; 1 1 1;1 0 1] eye(4)]\/0\/')


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

set_param([sys,'/',['Binary vector',13,'lin-blk decode']],...
		'position',[165,53,245,97])


%     Subsystem  ['Binary sequence',13,'lin-blk encode'].

new_system([sys,'/',['Binary sequence',13,'lin-blk encode']])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode']],'Location',[159,155,829,298])


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

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

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

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

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

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

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

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


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

set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Register-shift']],...
		'BackGround',3,...
		'position',[225,21,280,54])

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'lin-blk encode/in_1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/in_1']],...
		'position',[50,20,70,40])


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

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

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


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

set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Pulses deivide',13,'same sample time']],...
		'ForeGround',2,...
		'position',[40,76,100,114])

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'lin-blk encode/Demux']])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Demux']],...
		'outputs','2',...
		'position',[135,75,175,110])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'lin-blk encode/out_1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/out_1']],...
		'position',[570,25,590,45])


%     Subsystem  ['Binary sequence',13,'lin-blk encode/Triggered',13,'buffer down'].

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

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

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

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

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

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

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


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