comcdlin.m

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

set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Triggered',13,'buffer down']],...
		'BackGround',3,...
		'position',[440,23,500,57])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'lin-blk encode/out_2']])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/out_2']],...
		'Port','2',...
		'position',[530,40,550,60])


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

new_system([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],'Location',[235,592,599,711])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding/out_1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding/out_1']],...
		'position',[290,35,310,55])

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

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

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding/in_1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding/in_1']],...
		'position',[30,35,50,55])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],[245,45;285,45])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],[140,45;175,45])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],[55,45;105,45])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],...
		'Mask Display','Linear\nencode',...
		'Mask Type','Linear coding',...
		'Mask Dialogue','Linear block coding:|Generator matrix:')
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],...
		'Mask Translate','G=@1'';')
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],...
		'Mask Help','This block encodes the input binary signal using linear block coding method. The generator matrix has the dimension of m-by-n. The input of this block is a m-array binary message vector. The output of this block is an n-array code word vector. This is a generic style block for linear block coding.')
set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],...
		'Mask Entries','G\/')


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

set_param([sys,'/',['Binary sequence',13,'lin-blk encode/Linear block',13,'encoding']],...
		'position',[325,11,390,49])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[180,100;415,100;415,50;435,50])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[180,85;190,85;190,45;220,45])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[105,95;130,95])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[285,45;300,45;300,80;405,80;405,40;435,40])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[75,30;220,30])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[285,30;320,30])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[395,30;435,30])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[505,35;565,35])
add_line([sys,'/',['Binary sequence',13,'lin-blk encode']],[505,50;525,50])
set_param([sys,'/',['Binary sequence',13,'lin-blk encode']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);Linear en',...
		'Mask Type','Sequence I/O linear block encode')
set_param([sys,'/',['Binary sequence',13,'lin-blk encode']],...
		'Mask Dialogue','Linear block encode with message length K and codeword length N.|Generator matrix (binary K-by-N matrix):|Input sample time T_in (sec):')
set_param([sys,'/',['Binary sequence',13,'lin-blk encode']],...
		'Mask Translate','G=@1;samp=@2;[k, n]=size(G);[x,y]=codeicon(3);[v,w]=trigicon(1,75,get_param(gcb,''orientation''));')
set_param([sys,'/',['Binary sequence',13,'lin-blk encode']],...
		'Mask Help','This block encodes length K binary message into length N binary codeword using linear block 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. The generator matrix is a K-by-N matrix. Linear block code is a generic code.')
set_param([sys,'/',['Binary sequence',13,'lin-blk encode']],...
		'Mask Entries','[[1 1 0; 0 1 1; 1 1 1; 1 0 1] eye(4)]\/1/4\/')


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

set_param([sys,'/',['Binary sequence',13,'lin-blk encode']],...
		'position',[35,133,115,177])


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

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

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'lin-blk decode/sequential',13,'message-out']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/sequential',13,'message-out']],...
		'position',[525,30,545,50])


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

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

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/out_1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/out_1']],...
		'position',[390,60,410,80])

add_block('built-in/Outport',[sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/out_2']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/out_2']],...
		'Port','2',...
		'position',[355,80,375,100])

add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/Mux']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/Mux']],...
		'inputs','[in_size 1 1]',...
		'position',[110,59,140,101])

add_block('built-in/Demux',[sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/Demux']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/Demux']],...
		'outputs','[out_size 1]',...
		'position',[290,62,330,98])

add_block('built-in/S-Function',[sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/S-function']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/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/Inport',[sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/in_1']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/in_1']],...
		'position',[15,55,35,75])

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

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/in_3']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down/in_3']],...
		'Port','3',...
		'position',[65,85,85,105])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],[240,80;285,80])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],[145,80;180,80])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],[40,65;105,65])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],[335,70;385,70])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],[65,80;105,80])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],[335,90;350,90])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],[90,95;105,95])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],...
		'Mask Display','Triggered\nbuffer dn',...
		'Mask Type','Triggered buffer down.')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/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 decode/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 decode/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 decode/Triggered',13,'buffer down']],...
		'Mask Entries','k\/0\/1\/.1\/0\/')


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

set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Triggered',13,'buffer down']],...
		'BackGround',3,...
		'position',[425,28,485,72])


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

new_system([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],'Location',[19,610,374,740])

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

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

add_block('built-in/Mux',[sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift/Mux']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift/Mux']],...
		'inputs','2',...
		'position',[80,56,115,89])

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

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

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

add_block('built-in/Inport',[sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift/in_2']])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift/in_2']],...
		'Port','2',...
		'position',[40,70,60,90])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],[65,80;75,80])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],[35,65;75,65])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],[305,80;325,80])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],[305,65;325,65])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],[205,75;255,75])
add_line([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],[120,75;145,75])
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/Register-shift']],...
		'Mask Display','Register\nshift',...
		'Mask Type','Register-shift')
set_param([sys,'/',['Binary sequence',13,'lin-blk decode/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:')