tsttrans.m

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

function [ret,x0,str,ts,xts]=tsttrans(t,x,u,flag);
%TSTTRANS     is the M-file description of the SIMULINK system named TSTTRANS.
%       The block-diagram can be displayed by typing: TSTTRANS.
%
%       SYS=TSTTRANS(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 TSTTRANS 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 TSTTRANS with a FLAG of zero:
%  [SIZES]=TSTTRANS([],[],[],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',[120,161,698,461])
     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.0001')
set_param(sys,'Max step size', '10')
set_param(sys,'Relative error','1e-3')
set_param(sys,'Return vars',   '')

add_block('built-in/From Workspace',[sys,'/','From Workspace'])
set_param([sys,'/','From Workspace'],...
          'position',[60,42,100,68])

add_block('built-in/Discrete Transfer Fcn',[sys,'/','Transfer Fcn_'])
set_param([sys,'/','Transfer Fcn_'],...
          'Numerator','num2',...
          'Denominator','den2',...
                'Sample time','.1/15',...
               'position',[315,38,370,72])

add_block('built-in/Discrete Transfer Fcn',[sys,'/','Transfer Fcn'])
set_param([sys,'/','Transfer Fcn'],...
           'Numerator','num1',...
          'Denominator','den1',...
                'Sample time','.1/3',...
                'position',[195,108,265,142])

add_block('built-in/Mux',[sys,'/','Mux1'])
set_param([sys,'/','Mux1'],...
           'inputs','2',...
                'position',[430,150,465,185])


%     Subsystem  'Input signal'.

new_system([sys,'/','Input signal'])
set_param([sys,'/','Input signal'],'Location',[0,59,274,252])

add_block('built-in/S-Function',[sys,'/',['Input signal/S-function',13,'M-file which plots',13,'lines',13,'']])
set_param([sys,'/',['Input signal/S-function',13,'M-file which plots',13,'lines',13,'']],...
               'function name','sfuny',...
             'parameters','ax, color,dt',...
         'position',[130,55,180,75])

add_block('built-in/Inport',[sys,'/','Input signal/x'])
set_param([sys,'/','Input signal/x'],...
              'position',[65,55,85,75])
add_line([sys,'/','Input signal'],[90,65;125,65])
set_param([sys,'/','Input signal'],...
                'Mask Display','plot(0,0,100,100,[90,10,10,10,90,90,10],[65,65,90,40,40,90,90],[90,78,69,54,40,31,25,10],[77,60,48,46,56,75,81,84])',...
                'Mask Type','Graph scope.')
set_param([sys,'/','Input signal'],...
               'Mask Dialogue','Graph scope using MATLAB graph window.\nEnter plotting ranges and line type.|Time range:|y-min:|y-max:|Line type (rgbw-:*). Seperate each plot by ''/'':')
set_param([sys,'/','Input signal'],...
               'Mask Translate','color = @4; ax = [0, @1, @2, @3]; dt = -1;')
set_param([sys,'/','Input signal'],...
            'Mask Help','This block plots to the MATLAB graph window and can be used as an improved version of the Scope block. Look at the m-file sfuny.m to see how it works. This block can take scalar or vector input signal.')
set_param([sys,'/','Input signal'],...
          'Mask Entries','1\/-.2\/2\/''y-/g--/r-./w:/m*/ro/b+''\/')


%     Finished composite block 'Input signal'.

set_param([sys,'/','Input signal'],...
           'position',[495,151,525,189])


%     Subsystem  'Filtered signal'.

new_system([sys,'/','Filtered signal'])
set_param([sys,'/','Filtered signal'],'Location',[0,59,274,252])

add_block('built-in/Inport',[sys,'/','Filtered signal/x'])
set_param([sys,'/','Filtered signal/x'],...
            'position',[65,55,85,75])

add_block('built-in/S-Function',[sys,'/',['Filtered signal/S-function',13,'M-file which plots',13,'lines',13,'']])
set_param([sys,'/',['Filtered signal/S-function',13,'M-file which plots',13,'lines',13,'']],...
              'function name','sfuny',...
             'parameters','ax, color,dt',...
         'position',[130,55,180,75])
add_line([sys,'/','Filtered signal'],[90,65;125,65])
set_param([sys,'/','Filtered signal'],...
                'Mask Display','plot(0,0,100,100,[90,10,10,10,90,90,10],[65,65,90,40,40,90,90],[90,78,69,54,40,31,25,10],[77,60,48,46,56,75,81,84])',...
                'Mask Type','Graph scope.')
set_param([sys,'/','Filtered signal'],...
            'Mask Dialogue','Graph scope using MATLAB graph window.\nEnter plotting ranges and line type.|Time range:|y-min:|y-max:|Line type (rgbw-:*). Seperate each plot by ''/'':')
set_param([sys,'/','Filtered signal'],...
            'Mask Translate','color = @4; ax = [0, @1, @2, @3]; dt = -1;')
set_param([sys,'/','Filtered signal'],...
         'Mask Help','This block plots to the MATLAB graph window and can be used as an improved version of the Scope block. Look at the m-file sfuny.m to see how it works. This block can take scalar or vector input signal.')
set_param([sys,'/','Filtered signal'],...
               'Mask Entries','1\/-.2\/2\/''y-/g--/r-./w:/m*/ro/b+''\/')


%     Finished composite block 'Filtered signal'.

set_param([sys,'/','Filtered signal'],...
             'position',[505,61,535,99])

add_block('built-in/Mux',[sys,'/','Mux'])
set_param([sys,'/','Mux'],...
               'inputs','2',...
                'position',[445,60,480,95])


%     Subsystem  ['Change',13,'sample rate'].

new_system([sys,'/',['Change',13,'sample rate']])
set_param([sys,'/',['Change',13,'sample rate']],'Location',[76,420,651,578])

add_block('built-in/State-Space',[sys,'/',['Change',13,'sample rate/State-space']])
set_param([sys,'/',['Change',13,'sample rate/State-space']],...
         'A','[]',...
            'B','[]',...
            'C','[]',...
            'D','d',...
             'position',[315,15,375,45])


%     Subsystem  ['Change',13,'sample rate/Triggered',13,'buffer down'].

new_system([sys,'/',['Change',13,'sample rate/Triggered',13,'buffer down']])
set_param([sys,'/',['Change',13,'sample rate/Triggered',13,'buffer down']],'Location',[306,291,744,461])

add_block('built-in/Inport',[sys,'/',['Change',13,'sample rate/Triggered',13,'buffer down/in_3']])
set_param([sys,'/',['Change',13,'sample rate/Triggered',13,'buffer down/in_3']],...
            'Port','3',...
          'position',[65,85,85,105])

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

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

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

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

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