Overview
Comment:Added mttinput paramater
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: aa043a1ff63ff0909c92f4c88df95dc3f2ddac8ef4d7eacade5f51555dc9e3fb
User & Date: gawthrop@users.sourceforge.net on 1998-09-02 12:02:14
Other Links: branch diff | manifest | tags
Context
1998-09-02
12:05:39
Added INPUT to simpar check-in: 8fbbb4631d user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:02:14
Added mttinput paramater check-in: aa043a1ff6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:48:51
VERSION 3.2 (Swansea)
abg data structure now uses explicti port and subsystem lists so that
processing is in predetermined order. check-in: 0030d60738 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/dm2fr_m from [aa5007007b] to [6f8f6f0736].

︙
11
12
13
14
15
16
17



18
19
20
21
22
23
24

11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27








+
+
+








# Copyright (c) P.J.Gawthrop, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.11  1998/08/11 13:32:42  peterg
## Lowercase mttLAST etc
##
## Revision 1.10  1998/07/27 20:27:25  peterg
## Now get parameters for simpar file.
##
## Revision 1.9  1998/02/26 15:12:26  peterg
## Removed parameter stuff
##
# Revision 1.8  1996/08/30  14:54:36  peter
︙
90
91
92
93
94
95
96
97

98
99

100


101
102
103
104
105
106
107
108

109
110

111
112
113
114

115
116
117
118
119
120
121

93
94
95
96
97
98
99

100


101
102
103
104
105
106
107
108
109
110
111

112
113

114
115
116
117

118
119
120
121
122
123
124
125








-
+
-
-
+

+
+







-
+

-
+



-
+









  if exist('mttwsteps')==0
    mttwsteps = 100;
  end;

  W = logspace(mttwmin,mttwmax,mttwsteps)';

  if exist('u0')==0
  if exist('mttinput')==0
    u0 = zeros(nu,1);
    u0(1) = 1;
    mttinput = 1;
  end;
  mttu0 = zeros(nu,1);
  mttu0(mttinput) = 1;


  [n,m]=size(W);
  if m>n
    W=W';
  end;

  [n,m]=size(u0);
  [n,m]=size(mttu0);
  if m>n
    u0=u0';
    mttu0=mttu0';
  end;

  [A,B,C,D,E] = $1_dm
  fr = dm2fr(A,B,C,D,E,W,u0)
  fr = dm2fr(A,B,C,D,E,W,mttu0);
  lw = log10(W);
  lmfr = log10(abs(fr));
  pfr = angle(fr)*180/pi;

% Complex frequency response
  write_matrix([W fr], '$1_fr');
︙

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]