tddmmask.m

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

function [ret,x0,str,ts,xts]=tddmmask(t,x,u,flag);
%TDDMMASK	is the M-file description of the SIMULINK system named TDDMMASK.
%	The block-diagram can be displayed by typing: TDDMMASK.
%
%	SYS=TDDMMASK(T,X,U,FLAG) returns depending on FLAG certain
%	system values given time point, T, current state vector, X,
%	and input vector, U.
%	FLAG is used to indicate the type of output to be returned in SYS.
%
%	Setting FLAG=1 causes TDDMMASK to return state derivatives, FLAG=2
%	discrete states, FLAG=3 system outputs and FLAG=4 next sample
%	time. For more information and other options see SFUNC.
%
%	Calling TDDMMASK with a FLAG of zero:
%	[SIZES]=TDDMMASK([],[],[],0),  returns a vector, SIZES, which
%	contains the sizes of the state vector and other parameters.
%		SIZES(1) number of states
%		SIZES(2) number of discrete states
%		SIZES(3) number of outputs
%		SIZES(4) number of inputs
%		SIZES(5) number of roots (currently unsupported)
%		SIZES(6) direct feedthrough flag
%		SIZES(7) number of sample times
%
%	For the definition of other parameters in SIZES, see SFUNC.
%	See also, TRIM, LINMOD, LINSIM, EULER, RK23, RK45, ADAMS, GEAR.

% Note: This M-file is only used for saving graphical information;
%       after the model is loaded into memory an internal model
%       representation is used.

% the system will take on the name of this mfile:
sys = mfilename;
new_system(sys)
simver(1.3)
if (0 == (nargin + nargout))
     set_param(sys,'Location',[189,75,743,202])
     open_system(sys)
end;
set_param(sys,'algorithm',     'RK-45')
set_param(sys,'Start time',    '0.0')
set_param(sys,'Stop time',     '999')
set_param(sys,'Min step size', 'ts')
set_param(sys,'Max step size', 'ts')
set_param(sys,'Relative error','1e-3')
set_param(sys,'Return vars',   '')
set_param(sys,'Load callback','ts=.01;td=.1;M=8;Fc=100/2/pi;');


%     Subsystem  'MASK demod'.

new_system([sys,'/','MASK demod'])
set_param([sys,'/','MASK demod'],'Location',[482,504,899,622])


%     Subsystem  'MASK demod/MASK demap'.

new_system([sys,'/','MASK demod/MASK demap'])
set_param([sys,'/','MASK demod/MASK demap'],'Location',[187,342,628,482])

add_block('built-in/Inport',[sys,'/','MASK demod/MASK demap/in_1'])
set_param([sys,'/','MASK demod/MASK demap/in_1'],...
		'position',[30,35,50,55])

add_block('built-in/S-Function',[sys,'/','MASK demod/MASK demap/Minimum'])
set_param([sys,'/','MASK demod/MASK demap/Minimum'],...
		'function name','arymimai',...
		'parameters','''min''',...
		'position',[315,45,370,65])

add_block('built-in/Outport',[sys,'/','MASK demod/MASK demap/out_1'])
set_param([sys,'/','MASK demod/MASK demap/out_1'],...
		'position',[400,45,420,65])

add_block('built-in/Abs',[sys,'/','MASK demod/MASK demap/Abs'])
set_param([sys,'/','MASK demod/MASK demap/Abs'],...
		'position',[235,42,270,68])

add_block('built-in/Sum',[sys,'/','MASK demod/MASK demap/Sum2'])
set_param([sys,'/','MASK demod/MASK demap/Sum2'],...
		'inputs','+-',...
		'position',[180,38,200,67])

add_block('built-in/Constant',[sys,'/','MASK demod/MASK demap/Shift key'])
set_param([sys,'/','MASK demod/MASK demap/Shift key'],...
		'Value','sft',...
		'position',[115,93,135,117])

add_block('built-in/Zero-Order Hold',[sys,'/',['MASK demod/MASK demap/Zero-Order',13,'Hold']])
set_param([sys,'/',['MASK demod/MASK demap/Zero-Order',13,'Hold']],...
		'Sample time','td',...
		'position',[85,29,120,61])
add_line([sys,'/','MASK demod/MASK demap'],[205,55;230,55])
add_line([sys,'/','MASK demod/MASK demap'],[140,105;155,105;155,60;175,60])
add_line([sys,'/','MASK demod/MASK demap'],[375,55;395,55])
add_line([sys,'/','MASK demod/MASK demap'],[125,45;175,45])
add_line([sys,'/','MASK demod/MASK demap'],[275,55;310,55])
add_line([sys,'/','MASK demod/MASK demap'],[55,45;80,45])
set_param([sys,'/','MASK demod/MASK demap'],...
		'Mask Display','MASK\ndemap',...
		'Mask Type','MASK demap')
set_param([sys,'/','MASK demod/MASK demap'],...
		'Mask Dialogue','Reverse the MASK mapping process\nConvert [-1 1] analog signal to [0, M-1] symbols.|M-ary number (digit integers in ranger [0, M-1]):|Output symbol interval and offset (sec):')
set_param([sys,'/','MASK demod/MASK demap'],...
		'Mask Translate','N=@1;Ac=1;sft=[0:N-1]*Ac*2/(N-1)-Ac;td=@2;')
set_param([sys,'/','MASK demod/MASK demap'],...
		'Mask Help','This block demaps a MASK mapped signal back to digit symbols. You can place this block after a amplitude demodulation block. The input of this block is an analog signal in the range [-1, 1]. The demodulation decides the closest integer fitting in [0,M-1] range. When the input symbol interval is a two-elements vector, the second element is offset. The default offset value is 0.')
set_param([sys,'/','MASK demod/MASK demap'],...
		'Mask Entries','M\/td\/')


%     Finished composite block 'MASK demod/MASK demap'.

set_param([sys,'/','MASK demod/MASK demap'],...
		'position',[215,18,295,62])


%     Subsystem  ['MASK demod/DSB-SC-ADM',13,'passband'].

new_system([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband']],'Location',[588,690,716,690])

add_block('built-in/Outport',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/In-phase',13,'output']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/In-phase',13,'output']],...
		'position',[695,50,715,70])

add_block('built-in/Filter',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Filter1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Filter1']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[425,206,480,244])

add_block('built-in/Filter',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Filter']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Filter']],...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[340,41,395,79])

add_block('built-in/Fcn',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/sin']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/sin']],...
		'orientation',2,...
		'Expr','2*cos(u[1])',...
		'position',[125,118,210,142])

add_block('built-in/Note',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Ref: Hambley: An Intro to Comm. Systems. pp69']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Ref: Hambley: An Intro to Comm. Systems. pp69']],...
		'position',[260,350,265,355])

add_block('built-in/Inport',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/in_1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/in_1']],...
		'position',[45,45,65,65])

add_block('built-in/Product',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Product']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Product']],...
		'position',[125,50,150,70])

add_block('built-in/Fcn',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/sin1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/sin1']],...
		'orientation',2,...
		'Expr','-2*sin(u[1])',...
		'position',[115,167,220,193])

add_block('built-in/Product',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Product2']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Product2']],...
		'position',[125,215,150,235])

add_block('built-in/Sum',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Sum1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Sum1']],...
		'orientation',2,...
		'position',[265,120,285,140])

add_block('built-in/Constant',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Carrier',13,'frequency1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Carrier',13,'frequency1']],...
		'orientation',2,...
		'Value','Ph',...
		'position',[320,175,340,195])

add_block('built-in/Gain',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Gain1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Gain1']],...
		'orientation',2,...
		'Gain','pi2',...
		'position',[310,110,340,140])

add_block('built-in/Sum',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Sum']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Sum']],...
		'orientation',2,...
		'position',[440,115,460,135])

add_block('built-in/Filter',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Filter2']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Filter2']],...
		'orientation',2,...
		'Numerator','num',...
		'Denominator','den',...
		'Sample time','ts',...
		'position',[535,100,595,140])

add_block('built-in/Product',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Product1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Product1']],...
		'orientation',2,...
		'position',[610,110,640,130])

add_block('built-in/Constant',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Carrier',13,'frequency']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Carrier',13,'frequency']],...
		'orientation',2,...
		'Value','Fc',...
		'position',[510,165,530,185])


%     Subsystem  ['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator'].

new_system([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator']],'Location',[40,403,515,507])

add_block('built-in/Discrete Transfer Fcn',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/Dis. Transfer Fcn']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/Dis. Transfer Fcn']],...
		'Numerator','ts(1)',...
		'Denominator','1',...
		'Sample time','ts',...
		'position',[90,17,135,53])

add_block('built-in/Inport',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/in_1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/in_1']],...
		'position',[15,25,35,45])

add_block('built-in/Fcn',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/module']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/module']],...
		'Expr','rem(u[1],modu)',...
		'position',[235,29,325,51])

add_block('built-in/Sum',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/Sum']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/Sum']],...
		'position',[195,30,215,50])

add_block('built-in/Unit Delay',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/Unit Delay']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/Unit Delay']],...
		'Sample time','ts',...
		'x0','init',...
		'position',[345,30,395,50])

add_block('built-in/Outport',[sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/out_1']])
set_param([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator/out_1']],...
		'position',[445,30,465,50])
add_line([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator']],[140,35;190,35])
add_line([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator']],[40,35;85,35])
add_line([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator']],[220,40;230,40])
add_line([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator']],[330,40;340,40])
add_line([sys,'/',['MASK demod/DSB-SC-ADM',13,'passband/Dis module',13,'integrator']],[400,40;410,40;410,90;175,90;175,45;190,45])