com_mlac.m

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

		'Port','3',...
		'position',[65,85,85,105])

add_block('built-in/Inport',[sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down/in_2']])
set_param([sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down/in_2']],...
		'Port','2',...
		'position',[40,70,60,90])

add_block('built-in/Inport',[sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down/in_1']])
set_param([sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down/in_1']],...
		'position',[15,55,35,75])

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

add_block('built-in/Mux',[sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down/Mux']])
set_param([sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down/Mux']],...
		'inputs','[in_size 1 1]',...
		'position',[110,59,140,101])

add_block('built-in/Outport',[sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down/out_2']])
set_param([sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down/out_2']],...
		'Port','2',...
		'position',[355,80,375,100])

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


%     Finished composite block ['Digital-TDMA',13,'mux/Triggered',13,'buffer down'].

set_param([sys,'/',['Digital-TDMA',13,'mux/Triggered',13,'buffer down']],...
		'position',[215,53,275,97])

add_block('built-in/Outport',[sys,'/',['Digital-TDMA',13,'mux/out_1']])
set_param([sys,'/',['Digital-TDMA',13,'mux/out_1']],...
		'position',[310,55,330,75])

add_block('built-in/Inport',[sys,'/',['Digital-TDMA',13,'mux/in_1']])
set_param([sys,'/',['Digital-TDMA',13,'mux/in_1']],...
		'position',[115,20,135,40])
add_line([sys,'/',['Digital-TDMA',13,'mux']],[140,30;190,30;190,60;210,60])
add_line([sys,'/',['Digital-TDMA',13,'mux']],[280,65;305,65])
add_line([sys,'/',['Digital-TDMA',13,'mux']],[105,85;125,85])
add_line([sys,'/',['Digital-TDMA',13,'mux']],[185,75;210,75])
add_line([sys,'/',['Digital-TDMA',13,'mux']],[185,90;210,90])
set_param([sys,'/',['Digital-TDMA',13,'mux']],...
		'Mask Display','D-TDMA\nmux',...
		'Mask Type','Digital TDMA')
set_param([sys,'/',['Digital-TDMA',13,'mux']],...
		'Mask Dialogue','Input a vector digital signal. Output a scalar up-sampled digital signal.|Input symbol sample time (sec):|Input vector length:',...
		'Mask Translate','td=@1;N=@2;')
set_param([sys,'/',['Digital-TDMA',13,'mux']],...
		'Mask Help','This block inputs a length N_in vector input signal with sample time T_in. The output of this block is a vector with sample time T_in/N_in. For the output signal, a T_in time period is partitioned into N_in even time length sections. Each section contains the value of one element of the input vector. This block takes all elements from the input vector at the start point of the sample time.')
set_param([sys,'/',['Digital-TDMA',13,'mux']],...
		'Mask Entries','.1\/3\/')


%     Finished composite block ['Digital-TDMA',13,'mux'].

set_param([sys,'/',['Digital-TDMA',13,'mux']],...
		'position',[35,43,115,87])

add_block('built-in/Note',[sys,'/','Multiple Access Library'])
set_param([sys,'/','Multiple Access Library'],...
		'ForeGround',3,...
		'Font Weight','bold',...
		'Font Size',12,...
		'position',[215,6,220,11])


%     Subsystem  'CDMA demo'.

new_system([sys,'/','CDMA demo'])
set_param([sys,'/','CDMA demo'],'Location',[175,552,335,697])
set_param([sys,'/','CDMA demo'],...
		'Mask Display','CDMA\ndemo',...
		'Mask Dialogue','eval(''F0=50;F2=80;F4=110;ts=.002;[num0,den0]=butter(2,F0/2*ts);[num4,den4]=butter(2,F4/2*ts);[num2,den2]=butter(2,F2/2*ts);tstcdma'')')


%     Finished composite block 'CDMA demo'.

set_param([sys,'/','CDMA demo'],...
		'BackGround',7,...
		'position',[325,293,405,337])


%     Subsystem  'FDMA demo'.

new_system([sys,'/','FDMA demo'])
set_param([sys,'/','FDMA demo'],'Location',[175,552,335,697])
set_param([sys,'/','FDMA demo'],...
		'Mask Display','FDMA\ndemo',...
		'Mask Dialogue','eval(''F0=50;F2=80;F4=110;ts=.002;[num0,den0]=butter(2,F0/2*ts);[num4,den4]=butter(2,F4/2*ts);[num2,den2]=butter(2,F2/2*ts);tstfdma'')')


%     Finished composite block 'FDMA demo'.

set_param([sys,'/','FDMA demo'],...
		'BackGround',7,...
		'position',[325,208,405,252])


%     Subsystem  ['Time-sharing',13,'demo'].

new_system([sys,'/',['Time-sharing',13,'demo']])
set_param([sys,'/',['Time-sharing',13,'demo']],'Location',[175,552,335,697])
set_param([sys,'/',['Time-sharing',13,'demo']],...
		'Mask Display','Time-share\ndemo',...
		'Mask Dialogue','eval(''tsttdmaa'')')


%     Finished composite block ['Time-sharing',13,'demo'].

set_param([sys,'/',['Time-sharing',13,'demo']],...
		'BackGround',7,...
		'position',[325,118,405,162])


%     Subsystem  ['Time-sharing',13,'mux'].

new_system([sys,'/',['Time-sharing',13,'mux']])
set_param([sys,'/',['Time-sharing',13,'mux']],'Location',[387,83,767,247])

add_block('built-in/Inport',[sys,'/',['Time-sharing',13,'mux/in_1']])
set_param([sys,'/',['Time-sharing',13,'mux/in_1']],...
		'position',[65,20,85,40])


%     Subsystem  ['Time-sharing',13,'mux/Triggered time',13,'domain switch'].

new_system([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']])
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],'Location',[672,516,1052,680])

add_block('built-in/Inport',[sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/in_1']])
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/in_1']],...
		'position',[65,20,85,40])

add_block('built-in/Mux',[sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/Mux']])
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/Mux']],...
		'inputs','2',...
		'position',[145,54,175,96])

add_block('built-in/Outport',[sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/out_1']])
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/out_1']],...
		'position',[320,65,340,85])

add_block('built-in/Inport',[sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/in_2']])
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/in_2']],...
		'Port','2',...
		'position',[60,75,80,95])

add_block('built-in/S-Function',[sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/S-function']])
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch/S-function']],...
		'function name','stdmamux',...
		'parameters','sw,ke,in,tt',...
		'position',[205,60,275,90])
add_line([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],[90,30;120,30;120,65;140,65])
add_line([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],[85,85;140,85])
add_line([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],[180,75;200,75])
add_line([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],[280,75;315,75])
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],...
		'Mask Display','Vector\nredistributor',...
		'Mask Type','Triggered time domain switch')
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],...
		'Mask Dialogue','The rasing edge impulse from the 2nd inport triggers the output of this block by the distribution of the next row in the switch box variable.|Switch box:|Keeping value:|Initial value:|Trigger threshold:')
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],...
		'Mask Translate','sw=@1;ke=@2;in=@3;tt=@4;')
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],...
		'Mask Help','The column number of the switch box is the size of the output vector size, which is the size for vector keep_value and initial_value. The raising edge of the 2nd inport trigger the distribution pattern goes to the next row of the switch box.  When switch_box has value 0, the output keeps the last output value if keeping_value is greater than 0; the output is initial_value when the keep_value is less than 0.')
set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],...
		'Mask Entries','[1:N]''\/-1\/0\/.1\/')


%     Finished composite block ['Time-sharing',13,'mux/Triggered time',13,'domain switch'].

set_param([sys,'/',['Time-sharing',13,'mux/Triggered time',13,'domain switch']],...
		'position',[170,15,250,70])

add_block('built-in/Outport',[sys,'/',['Time-sharing',13,'mux/out_1']])
set_param([sys,'/',['Time-sharing',13,'mux/out_1']],...
		'position',[295,35,315,55])


%     Subsystem  ['Time-sharing',13,'mux/Pulses deivide',13,'same sample time'].

new_system([sys,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time']])
set_param([sys,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time']],'Location',[55,192,283,286])

add_block('built-in/Outport',[sys,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time/Outport']])
set_param([sys,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time/Outport']],...
		'position',[160,35,180,55])

add_block('built-in/S-Function',[sys,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time/S-function1']])
set_param([sys,'/',['Time-sharing',13,'mux/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,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time']],[110,45;155,45])
set_param([sys,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time']],...
		'Mask Display','Vector\nPulse',...
		'Mask Type','Pulse generator')
set_param([sys,'/',['Time-sharing',13,'mux/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,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time']],...
		'Mask Translate','samp_time=@1;out_divid=@2;offset=@3;')
set_param([sys,'/',['Time-sharing',13,'mux/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,'/',['Time-sharing',13,'mux/Pulses deivide',13,'same sample time']],...