hdslsimu.m

通信系统的matlab仿真程序

set_param([sys,'/','PAM Signal/MASK map'],...
		'hide name',0,...
		'position',[155,33,235,77])

add_block('built-in/Outport',[sys,'/','PAM Signal/out_1'])
set_param([sys,'/','PAM Signal/out_1'],...
		'position',[270,45,290,65])


%     Subsystem  ['PAM Signal/Sampled read',13,'from wksp'].

new_system([sys,'/',['PAM Signal/Sampled read',13,'from wksp']])
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],'Location',[355,528,737,675])

add_block('built-in/S-Function',[sys,'/',['PAM Signal/Sampled read',13,'from wksp/Message source']])
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Message source']],...
		'BackGround',5,...
		'function name','trigwksp',...
		'parameters','var,thd,cyclFlag,ini',...
		'Mask Display','Triggered\nread')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Message source']],...
		'Mask Type','Read from workspace')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Message source']],...
		'Mask Dialogue','The raising edge of input pulse trigger the block output the next row from the workspace variable.|Read the variable:|Threshold for the input pulse:|Cyclic read variable (1) or amend zeros (0).|Output before first trigger:')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Message source']],...
		'Mask Translate','var=@1;thd=@2;cyclFlag=@3;ini=@4;')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Message source']],...
		'Mask Help','This block reads the data from a workspace variable. The output is refreshed at the raising edge of the input pulse.')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Message source']],...
		'Mask Entries','var\/.1\/cyc\/ini\/',...
		'position',[180,53,255,97])

add_block('built-in/Outport',[sys,'/',['PAM Signal/Sampled read',13,'from wksp/out_1']])
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/out_1']],...
		'position',[295,65,315,85])


%     Subsystem  ['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1'].

new_system([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']])
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']],'Location',[55,192,283,286])

add_block('built-in/Outport',[sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1/Outport']])
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1/Outport']],...
		'position',[160,35,180,55])

add_block('built-in/S-Function',[sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1/S-function1']])
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1/S-function1']],...
		'function name','homopuls',...
		'parameters','samp_time, out_divid, offset',...
		'position',[40,31,105,59])
add_line([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']],[110,45;155,45])
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']],...
		'Mask Display','Vector\nPulse',...
		'Mask Type','Pulse generator')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']],...
		'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,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']],...
		'Mask Translate','samp_time=@1;out_divid=@2;offset=@3;')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']],...
		'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,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']],...
		'Mask Entries','ts\/1\/off\/')


%     Finished composite block ['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1'].

set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp/Pulses deivide',13,'same sample time1']],...
		'position',[50,56,110,94])
add_line([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],[115,75;175,75])
add_line([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],[260,75;290,75])
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],...
		'Mask Display','plot(0,0,100,100,x,y);Rd wksp',...
		'Mask Type','Read from workspace')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],...
		'Mask Dialogue','Read from a workspace variable at\nsampling time point.|Variable (column_number=block_output_length):|Data output sample time (sec):|Cyclic control (1: cyclic read, 0: output zeros after eof).|Initial output:')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],...
		'Mask Translate','var=@1;td=@2;ts=td(1);if (length(td)>=2),off=td(2);else off=0;end;cyc=@3;ini=@4;[x,y]=srcsicon(7);')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],...
		'Mask Help','This block reads from a workspace variable at a given sample time. The column number is the block output vector length. When the simulation reached the end of the variable (eof) row, the block will cyclically output from the first row of the variable or output zeros based on the cyclic control entree.')
set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],...
		'Mask Entries','randint(300,1,2)\/0.0025\/1\/0\/')


%     Finished composite block ['PAM Signal/Sampled read',13,'from wksp'].

set_param([sys,'/',['PAM Signal/Sampled read',13,'from wksp']],...
		'hide name',0,...
		'position',[40,33,120,77])

add_block('built-in/Outport',[sys,'/','PAM Signal/out_2'])
set_param([sys,'/','PAM Signal/out_2'],...
		'Port','2',...
		'position',[180,90,200,110])
add_line([sys,'/','PAM Signal'],[125,55;150,55])
add_line([sys,'/','PAM Signal'],[240,55;265,55])
add_line([sys,'/','PAM Signal'],[125,55;135,55;135,100;175,100])


%     Finished composite block 'PAM Signal'.

set_param([sys,'/','PAM Signal'],...
		'position',[20,130,50,185])


%     Subsystem  'Channel'.

new_system([sys,'/','Channel'])
set_param([sys,'/','Channel'],'Location',[417,524,780,716])

add_block('built-in/Sum',[sys,'/','Channel/Sum'])
set_param([sys,'/','Channel/Sum'],...
		'hide name',0,...
		'position',[230,115,250,135])


%     Subsystem  ['Channel/Band-Limited',13,'White Noise'].

new_system([sys,'/',['Channel/Band-Limited',13,'White Noise']])
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise']],'Location',[54,341,339,470])

add_block('built-in/White Noise',[sys,'/',['Channel/Band-Limited',13,'White Noise/White Noise']])
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise/White Noise']],...
		'Seed','seed',...
		'position',[25,40,45,60])

add_block('built-in/Zero-Order Hold',[sys,'/',['Channel/Band-Limited',13,'White Noise/Zero-Order',13,'Hold']])
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise/Zero-Order',13,'Hold']],...
		'Sample time','Ts',...
		'position',[85,34,120,66])

add_block('built-in/Gain',[sys,'/',['Channel/Band-Limited',13,'White Noise/Gain']])
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise/Gain']],...
		'Gain','[sqrt(Cov)]/[sqrt(Ts)]',...
		'position',[155,31,195,69])

add_block('built-in/Outport',[sys,'/',['Channel/Band-Limited',13,'White Noise/Out_1']])
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise/Out_1']],...
		'position',[230,40,250,60])
add_line([sys,'/',['Channel/Band-Limited',13,'White Noise']],[125,50;150,50])
add_line([sys,'/',['Channel/Band-Limited',13,'White Noise']],[200,50;225,50])
add_line([sys,'/',['Channel/Band-Limited',13,'White Noise']],[50,50;80,50])
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise']],...
		'Mask Display','plot(t(:),r2(:))',...
		'Mask Type','Continuous White Noise.')
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise']],...
		'Mask Dialogue','White noise for continuous (s-domain) systems.\nBand-limited using zero-order-hold.|Noise Power:|Sample Time:|Seed')
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise']],...
		'Mask Translate','Cov = @1; Ts = @2; seed = @3; r = rand(1,12); r2 = [r(1),r;r,r(12)]; t =[1:13;1:13];')
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise']],...
		'Mask Help','Implemented using white noise into Zero-Order Hold block. The seed and power can be vectors of the same length to produce a vector of white noise sources. For faster simulation, set sample time to the highest value possible but in accordance with the fastest dynamics of system.')
set_param([sys,'/',['Channel/Band-Limited',13,'White Noise']],...
		'Mask Entries','[1]\/0.002\/[23341]\/')


%     Finished composite block ['Channel/Band-Limited',13,'White Noise'].

set_param([sys,'/',['Channel/Band-Limited',13,'White Noise']],...
		'position',[40,32,85,68])

add_block('built-in/Outport',[sys,'/','Channel/out'])
set_param([sys,'/','Channel/out'],...
		'position',[275,115,295,135])

add_block('built-in/Filter',[sys,'/','Channel/Noise Shape'])
set_param([sys,'/','Channel/Noise Shape'],...
		'Numerator','nfilt',...
		'Denominator','[1]',...
		'Sample time','0.002',...
		'position',[125,31,185,69])

add_block('built-in/Filter',[sys,'/','Channel/Channel'])
set_param([sys,'/','Channel/Channel'],...
		'Numerator','chim',...
		'Denominator','[1]',...
		'Sample time','0.002',...
		'position',[125,111,185,149])

add_block('built-in/Inport',[sys,'/','Channel/in'])
set_param([sys,'/','Channel/in'],...
		'position',[60,120,80,140])
add_line([sys,'/','Channel'],[90,50;120,50])
add_line([sys,'/','Channel'],[190,50;210,50;210,120;225,120])
add_line([sys,'/','Channel'],[190,130;225,130])
add_line([sys,'/','Channel'],[255,125;270,125])
add_line([sys,'/','Channel'],[85,130;120,130])


%     Finished composite block 'Channel'.

set_param([sys,'/','Channel'],...
		'position',[180,119,210,171])


%     Subsystem  'Receiver'.

new_system([sys,'/','Receiver'])
set_param([sys,'/','Receiver'],'Location',[80,490,779,816])


%     Subsystem  'Receiver/Switch 2'.

new_system([sys,'/','Receiver/Switch 2'])
set_param([sys,'/','Receiver/Switch 2'],'Location',[95,218,471,387])

add_block('built-in/Inport',[sys,'/','Receiver/Switch 2/in_1'])
set_param([sys,'/','Receiver/Switch 2/in_1'],...
		'position',[35,55,55,75])

add_block('built-in/Gain',[sys,'/','Receiver/Switch 2/Gain2'])
set_param([sys,'/','Receiver/Switch 2/Gain2'],...
		'hide name',0,...
		'Gain','0',...
		'position',[110,108,155,142])

add_block('built-in/Gain',[sys,'/','Receiver/Switch 2/Gain3'])
set_param([sys,'/','Receiver/Switch 2/Gain3'],...
		'hide name',0,...
		'Gain','10',...
		'position',[110,48,155,82])

add_block('built-in/Outport',[sys,'/','Receiver/Switch 2/out_1'])
set_param([sys,'/','Receiver/Switch 2/out_1'],...
		'position',[300,80,320,100])

add_block('built-in/Switch',[sys,'/','Receiver/Switch 2/Switch'])
set_param([sys,'/','Receiver/Switch 2/Switch'],...
		'hide name',0,...
		'Threshold','0.5',...
		'position',[240,74,270,106])

add_block('built-in/Inport',[sys,'/','Receiver/Switch 2/in_2'])
set_param([sys,'/','Receiver/Switch 2/in_2'],...
		'Port','2',...
		'position',[165,80,185,100])
add_line([sys,'/','Receiver/Switch 2'],[60,65;105,65])
add_line([sys,'/','Receiver/Switch 2'],[95,65;105,125])
add_line([sys,'/','Receiver/Switch 2'],[275,90;295,90])
add_line([sys,'/','Receiver/Switch 2'],[190,90;235,90])
add_line([sys,'/','Receiver/Switch 2'],[160,65;205,65;205,80;235,80])
add_line([sys,'/','Receiver/Switch 2'],[160,125;200,125;200,100;235,100])


%     Finished composite block 'Receiver/Switch 2'.

set_param([sys,'/','Receiver/Switch 2'],...
		'position',[170,221,200,274])

add_block('built-in/Inport',[sys,'/','Receiver/in_2'])
set_param([sys,'/','Receiver/in_2'],...