tstps2cd.m

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

		'position',[130,70,200,110])

add_block('built-in/Mux',[sys,'/',['Eye-diagram',13,'scatter plot/Mux']])
set_param([sys,'/',['Eye-diagram',13,'scatter plot/Mux']],...
		'inputs','2',...
		'position',[65,70,100,105])

add_block('built-in/Inport',[sys,'/',['Eye-diagram',13,'scatter plot/in_2']])
set_param([sys,'/',['Eye-diagram',13,'scatter plot/in_2']],...
		'Port','2',...
		'position',[20,115,40,135])

add_block('built-in/Inport',[sys,'/',['Eye-diagram',13,'scatter plot/in_1']])
set_param([sys,'/',['Eye-diagram',13,'scatter plot/in_1']],...
		'position',[15,55,35,75])
add_line([sys,'/',['Eye-diagram',13,'scatter plot']],[105,90;125,90])
add_line([sys,'/',['Eye-diagram',13,'scatter plot']],[45,125;50,125;60,95])
add_line([sys,'/',['Eye-diagram',13,'scatter plot']],[40,65;45,65;45,80;60,80])
set_param([sys,'/',['Eye-diagram',13,'scatter plot']],...
		'Mask Display','plot(0,0,100,100,x,y,v,w);',...
		'Mask Type','Eye-diagram/scatter plot')
set_param([sys,'/',['Eye-diagram',13,'scatter plot']],...
		'Mask Dialogue','Produce eye-pattern diagram/scatter\nplot/x-y plot with the rising edge of the second input as the decision line.|Eye-pattern plot time frame:|Lower and upper bound of in-coming signal (1x2 vector):|Number of saved traces:|Line-type for eye-pattern diagram (0 for no such plot):|Line-type for scatter plot (0 for no such plot):|Line-type for x-y plot (0 for no such plot):')
set_param([sys,'/',['Eye-diagram',13,'scatter plot']],...
		'Mask Translate','time_range=@1;boundary=@2;kept_length=@3;eye_line=@4;scatter_line=@5;two_d_line=@6;[x,y]=srcsicon(10);[v,w]=trigicon(0,25,get_param(gcb,''orientation''),2);')
set_param([sys,'/',['Eye-diagram',13,'scatter plot']],...
		'Mask Help','This plot opens one, two, or three plots by assigning the line type parameters. The scatter plot point is selected by the rising edge of a trigger signal. A decision line is drawn at the rising edge of the trigger signal.')
set_param([sys,'/',['Eye-diagram',13,'scatter plot']],...
		'Mask Entries','td*2\/[-7 7]\/10\/0\/''m./g*/bo''\/0\/')


%     Finished composite block ['Eye-diagram',13,'scatter plot'].

set_param([sys,'/',['Eye-diagram',13,'scatter plot']],...
		'hide name',0,...
		'position',[630,133,710,177])


%     Subsystem  ['QADM',13,'passband1'].

new_system([sys,'/',['QADM',13,'passband1']])
set_param([sys,'/',['QADM',13,'passband1']],'Location',[194,478,738,741])

add_block('built-in/Clock',[sys,'/',['QADM',13,'passband1/Clock']])
set_param([sys,'/',['QADM',13,'passband1/Clock']],...
		'position',[60,110,80,130])

add_block('built-in/Gain',[sys,'/',['QADM',13,'passband1/Gain']])
set_param([sys,'/',['QADM',13,'passband1/Gain']],...
		'Gain','Fc',...
		'position',[110,101,160,139])

add_block('built-in/Filter',[sys,'/',['QADM',13,'passband1/Filter1']])
set_param([sys,'/',['QADM',13,'passband1/Filter1']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[390,166,445,204])

add_block('built-in/Filter',[sys,'/',['QADM',13,'passband1/Filter']])
set_param([sys,'/',['QADM',13,'passband1/Filter']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[390,61,445,99])

add_block('built-in/Gain',[sys,'/',['QADM',13,'passband1/Gain1']])
set_param([sys,'/',['QADM',13,'passband1/Gain1']],...
		'Gain','2',...
		'position',[270,118,295,142])

add_block('built-in/Inport',[sys,'/',['QADM',13,'passband1/in_1']])
set_param([sys,'/',['QADM',13,'passband1/in_1']],...
		'position',[230,120,250,140])

add_block('built-in/Note',[sys,'/',['QADM',13,'passband1/Ref: Hambley: An Intro to Comm. Systems. pp72']])
set_param([sys,'/',['QADM',13,'passband1/Ref: Hambley: An Intro to Comm. Systems. pp72']],...
		'position',[285,280,290,285])

add_block('built-in/Fcn',[sys,'/',['QADM',13,'passband1/Fcn']])
set_param([sys,'/',['QADM',13,'passband1/Fcn']],...
		'Expr','cos(u[1]+Ph)',...
		'position',[205,55,300,85])

add_block('built-in/Fcn',[sys,'/',['QADM',13,'passband1/Fcn1']])
set_param([sys,'/',['QADM',13,'passband1/Fcn1']],...
		'Expr','sin(u[1]+Ph)',...
		'position',[200,175,300,205])

add_block('built-in/Product',[sys,'/',['QADM',13,'passband1/Product']])
set_param([sys,'/',['QADM',13,'passband1/Product']],...
		'position',[330,62,355,93])

add_block('built-in/Product',[sys,'/',['QADM',13,'passband1/Product1']])
set_param([sys,'/',['QADM',13,'passband1/Product1']],...
		'position',[330,167,355,198])

add_block('built-in/Outport',[sys,'/',['QADM',13,'passband1/out_2']])
set_param([sys,'/',['QADM',13,'passband1/out_2']],...
		'Port','2',...
		'position',[480,175,500,195])

add_block('built-in/Outport',[sys,'/',['QADM',13,'passband1/out_1']])
set_param([sys,'/',['QADM',13,'passband1/out_1']],...
		'position',[480,70,500,90])
add_line([sys,'/',['QADM',13,'passband1']],[300,130;305,130;305,175;325,175])
add_line([sys,'/',['QADM',13,'passband1']],[300,130;305,130;305,85;325,85])
add_line([sys,'/',['QADM',13,'passband1']],[255,130;265,130])
add_line([sys,'/',['QADM',13,'passband1']],[165,120;185,120;185,70;200,70])
add_line([sys,'/',['QADM',13,'passband1']],[185,120;195,190])
add_line([sys,'/',['QADM',13,'passband1']],[305,70;325,70])
add_line([sys,'/',['QADM',13,'passband1']],[305,190;325,190])
add_line([sys,'/',['QADM',13,'passband1']],[360,80;385,80])
add_line([sys,'/',['QADM',13,'passband1']],[450,80;475,80])
add_line([sys,'/',['QADM',13,'passband1']],[360,185;385,185])
add_line([sys,'/',['QADM',13,'passband1']],[450,185;475,185])
add_line([sys,'/',['QADM',13,'passband1']],[85,120;105,120])
set_param([sys,'/',['QADM',13,'passband1']],...
		'Mask Display','plot(0,0,100,100,x,y);QADM',...
		'Mask Type','Passband DSB-SC QADM')
set_param([sys,'/',['QADM',13,'passband1']],...
		'Mask Dialogue','Demodulate a DSB-SC QAM modulated\nsignal into in-phase and quadrature\ncomponents.|Carrier frequency (Hz):|Lowpass filter numerator:|Lowpass filter denominator:|Initial phase (rad):|Sample time (sec):')
set_param([sys,'/',['QADM',13,'passband1']],...
		'Mask Translate','Fc=@1*2*pi;num=@2;den=@3;Ph=@4;ts=@5;[x,y]=moduicon(2);')
set_param([sys,'/',['QADM',13,'passband1']],...
		'Mask Help','This block demodulates the QM-DSB-SC-AM modulated signal. The first output port outputs the in-phase component and the second port outputs the quadrature component. The demodulation uses a discrete-time lowpass filter that passes the signal message and eliminates the carrier signal. ')
set_param([sys,'/',['QADM',13,'passband1']],...
		'Mask Entries','100/2/pi\/num\/den\/0\/ts\/')


%     Finished composite block ['QADM',13,'passband1'].

set_param([sys,'/',['QADM',13,'passband1']],...
		'hide name',0,...
		'position',[375,48,455,92])


%     Subsystem  ['Pulses divide',13,'same sample time'].

new_system([sys,'/',['Pulses divide',13,'same sample time']])
set_param([sys,'/',['Pulses divide',13,'same sample time']],'Location',[55,192,283,286])

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

add_block('built-in/S-Function',[sys,'/',['Pulses divide',13,'same sample time/S-function1']])
set_param([sys,'/',['Pulses divide',13,'same sample time/S-function1']],...
		'function name','homopuls',...
		'parameters','samp_time, out_divid, offset',...
		'position',[40,31,105,59])
add_line([sys,'/',['Pulses divide',13,'same sample time']],[110,45;155,45])
set_param([sys,'/',['Pulses divide',13,'same sample time']],...
		'Mask Display','plot(0,0,100,100,x,y);Pulse',...
		'Mask Type','Pulse generator')
set_param([sys,'/',['Pulses divide',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 (same length as Divider):')
set_param([sys,'/',['Pulses divide',13,'same sample time']],...
		'Mask Translate','samp_time=@1;out_divid=@2;offset=@3;[x,y]=srcsicon(2);')
set_param([sys,'/',['Pulses divide',13,'same sample time']],...
		'Mask Help','This block generates a vector pulse. The output length is the same as the divider vector length. The ith element of the output has the sample time Sample_time/Divider(i). All elements in divider must be integers.')
set_param([sys,'/',['Pulses divide',13,'same sample time']],...
		'Mask Entries','td\/1\/-ts\/')


%     Finished composite block ['Pulses divide',13,'same sample time'].

set_param([sys,'/',['Pulses divide',13,'same sample time']],...
		'hide name',0,...
		'position',[385,143,465,187])


%     Subsystem  ['ASK Mo//Dem',13,'demo1'].

new_system([sys,'/',['ASK Mo//Dem',13,'demo1']])
set_param([sys,'/',['ASK Mo//Dem',13,'demo1']],'Location',[175,552,335,697])
set_param([sys,'/',['ASK Mo//Dem',13,'demo1']],...
		'Mask Display','View\nconstellation',...
		'Mask Dialogue','eval(''modmap(''''qask/cir'''',[6 12 18 24 30 38],[1 1.93 2.88 3.83 4.78 6.05],[0 0 0 0 0 0])'')')


%     Finished composite block ['ASK Mo//Dem',13,'demo1'].

set_param([sys,'/',['ASK Mo//Dem',13,'demo1']],...
		'BackGround',7,...
		'hide name',0,...
		'position',[80,133,160,177])
add_line(sys,[100,70;145,70])
add_line(sys,[115,70;115,20;620,20;630,50])
add_line(sys,[565,130;590,130;590,145;625,145])
add_line(sys,[600,70;630,70])
add_line(sys,[350,70;370,70])
add_line(sys,[460,60;510,60])
add_line(sys,[235,60;260,60])
add_line(sys,[460,80;510,80])
add_line(sys,[490,80;490,115;520,115])
add_line(sys,[470,60;470,140;520,140])
add_line(sys,[470,165;625,165])
add_line(sys,[235,80;260,80])

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