qpsnyqmf.m

现代通信系统（prokis）的所有matlab源程序,对初学者很有帮助的。

function [ret,x0,str,ts,xts]=qpsnyqmf(t,x,u,flag);
%QPSNYQMF	is the M-file description of the SIMULINK system named QPSNYQMF.
%	The block-diagram can be displayed by typing: QPSNYQMF.
%
%	SYS=QPSNYQMF(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 QPSNYQMF 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 QPSNYQMF with a FLAG of zero:
%	[SIZES]=QPSNYQMF([],[],[],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',[251,42,1260,320])
     open_system(sys)
end;
set_param(sys,'algorithm',     'RK-45')
set_param(sys,'Start time',    '0.0')
set_param(sys,'Stop time',     '999999')
set_param(sys,'Min step size', '0.000001')
set_param(sys,'Max step size', '10')
set_param(sys,'Relative error','1e-6')
set_param(sys,'Return vars',   '')


%     Subsystem  'Empf鋘ger'.

new_system([sys,'/','Empf鋘ger'])
set_param([sys,'/','Empf鋘ger'],'Location',[251,42,1259,320])

add_block('built-in/Product',[sys,'/','Empf鋘ger/Product'])
set_param([sys,'/','Empf鋘ger/Product'],...
		'hide name',0,...
		'position',[300,74,330,101])

add_block('built-in/Scope',[sys,'/','Empf鋘ger/x_eI(t)'])
set_param([sys,'/','Empf鋘ger/x_eI(t)'],...
		'orientation',3,...
		'Vgain','1.500000',...
		'Hgain','25.000000',...
		'Vmax','3.000000',...
		'Hmax','50.000000',...
		'Window',[0,440,640,540],...
		'position',[350,20,380,50])

add_block('built-in/Fcn',[sys,'/','Empf鋘ger/Fcn'])
set_param([sys,'/','Empf鋘ger/Fcn'],...
		'hide name',0,...
		'Expr','2*cos(4*pi*u)',...
		'position',[185,119,265,141])

add_block('built-in/Fcn',[sys,'/','Empf鋘ger/Fcn1'])
set_param([sys,'/','Empf鋘ger/Fcn1'],...
		'hide name',0,...
		'Expr','-2*sin(4*pi*u)',...
		'position',[185,159,265,181])

add_block('built-in/Scope',[sys,'/','Empf鋘ger/x_eQ(t)'])
set_param([sys,'/','Empf鋘ger/x_eQ(t)'],...
		'orientation',3,...
		'Vgain','1.500000',...
		'Hgain','25.000000',...
		'Vmax','3.000000',...
		'Hmax','50.000000',...
		'Window',[640,440,1280,540],...
		'position',[350,155,380,185])

add_block('built-in/Clock',[sys,'/','Empf鋘ger/Clock'])
set_param([sys,'/','Empf鋘ger/Clock'],...
		'hide name',0,...
		'position',[145,140,165,160])

add_block('built-in/Product',[sys,'/','Empf鋘ger/Product1'])
set_param([sys,'/','Empf鋘ger/Product1'],...
		'hide name',0,...
		'position',[295,213,325,237])

add_block('built-in/Inport',[sys,'/',['Empf鋘ger/gest鰎tes',13,'QPSK-',13,'Signal']])
set_param([sys,'/',['Empf鋘ger/gest鰎tes',13,'QPSK-',13,'Signal']],...
		'position',[25,145,45,165])

add_block('built-in/Scope',[sys,'/','Empf鋘ger/d_eI(t)'])
set_param([sys,'/','Empf鋘ger/d_eI(t)'],...
		'orientation',3,...
		'Vgain','1.500000',...
		'Hgain','25.000000',...
		'Vmax','3.000000',...
		'Hmax','50.000000',...
		'Window',[0,540,640,640],...
		'position',[540,20,570,50])

add_block('built-in/Gain',[sys,'/','Empf鋘ger/Gain2'])
set_param([sys,'/','Empf鋘ger/Gain2'],...
		'hide name',0,...
		'Gain','1/20',...
		'position',[510,77,535,103])


%     Subsystem  ['Empf鋘ger/Nyquist',13,'Filter'].

new_system([sys,'/',['Empf鋘ger/Nyquist',13,'Filter']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter']],'Location',[131,545,589,761])


%     Subsystem  ['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse'].

new_system([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],'Location',[541,520,939,745])

add_block('built-in/Inport',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/in_1']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/in_1']],...
		'position',[35,185,55,205])

add_block('built-in/Zero-Order Hold',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/Zero-Order',13,'Hold']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/Zero-Order',13,'Hold']],...
		'Sample time','ts',...
		'position',[205,84,240,116])

add_block('built-in/Product',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/Product']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/Product']],...
		'position',[155,90,180,110])

add_block('built-in/Outport',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/out_1']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/out_1']],...
		'position',[355,130,375,150])

add_block('built-in/Constant',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/Constant']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/Constant']],...
		'Value','x',...
		'position',[210,155,230,175])

add_block('built-in/Switch',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/Switch']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/Switch']],...
		'Threshold','.5',...
		'position',[295,124,320,156])


%     Subsystem  ['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector'].

new_system([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],'Location',[419,521,808,713])

add_block('built-in/Relational Operator',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/Relational',13,'Operator']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/Relational',13,'Operator']],...
		'position',[135,18,165,42])

add_block('built-in/Inport',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/in_1']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/in_1']],...
		'position',[10,15,30,35])

add_block('built-in/Constant',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/one1']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/one1']],...
		'Value','thld',...
		'position',[30,135,60,155])

add_block('built-in/Relational Operator',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/Relational',13,'Operator2']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/Relational',13,'Operator2']],...
		'Operator','>',...
		'position',[265,23,295,47])

add_block('built-in/Relational Operator',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/Relational',13,'Operator1']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/Relational',13,'Operator1']],...
		'position',[200,88,230,112])

add_block('built-in/Outport',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/out_1']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/out_1']],...
		'position',[340,25,360,45])

add_block('built-in/Unit Delay',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/Unit Delay']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector/Unit Delay']],...
		'Sample time','ts',...
		'position',[120,87,170,103])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],[300,35;335,35])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],[235,100;240,100;240,40;260,40])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],[170,30;260,30])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],[65,145;100,145;100,35;130,35])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],[100,145;180,145;180,105;195,105])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],[175,95;195,95])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],[35,25;130,25])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],[45,25;45,95;115,95])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],...
		'Mask Display','Edge\nDetector',...
		'Mask Type','Edge Detection')
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],...
		'Mask Dialogue','Rising edge detection:|Threshold:|Sampling time:',...
		'Mask Translate','thld=@1;ts=@2;')
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],...
		'Mask Help','When the input signal rising edge passed the given shreshold, this block outputs one, otherwise outputs zero.')
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],...
		'Mask Entries','thr\/ts\/')


%     Finished composite block ['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector'].

set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/discrete',13,'Rising edge',13,'detector']],...
		'position',[65,26,120,54])

add_block('built-in/Inport',[sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/in_2']])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse/in_2']],...
		'Port','2',...
		'position',[25,30,45,50])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],[245,100;260,100;260,130;290,130])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],[185,100;200,100])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],[60,195;280,195;290,150])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],[95,195;95,105;150,105])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],[325,140;350,140])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],[235,165;250,165;250,140;290,140])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],[125,40;130,40;130,95;150,95])
add_line([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],[50,40;60,40])
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],...
		'Mask Display','1/sinc',...
		'Mask Type','Impulse',...
		'Mask Dialogue','1/sinc filter:|Holding time:|Threshold for clock pulse: ')
set_param([sys,'/',['Empf鋘ger/Nyquist',13,'Filter/Memory Impulse']],...