Overview
Comment:Explicit definition of j
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: a928ed514f81d0cf67acce1adc0fd3c4bda922b3a53847e20f485d6bed22bcd8
User & Date: gawthrop@users.sourceforge.net on 1996-11-06 16:40:38
Other Links: branch diff | manifest | tags
Context
1996-11-07
10:57:17
Initial revision check-in: c6ff7325ab user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1996-11-06
16:40:38
Explicit definition of j check-in: a928ed514f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
15:58:46
Changed Matrix to RMATRIX check-in: f06c85f481 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/m/dm2fr.m from [c4b4dcedcc] to [3b12a6a127].

1
2
3
4
5
6
7
8
9
10
11
12



13
14
15
16
17
18
19
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22












+
+
+







function  fr = dm2fr(A,B,C,D,E,W,u0)
% fr = dm2fr(A,B,C,D,E,W,u0)
% Descriptor matrix to frequency response.
% A,B,C,D,E - descriptor matrices
% W vector of frequency points
% u0 input gain vector: u = u0*unit phasor

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
// Revision 1.6  1996/08/24  14:22:23  peter
// Put in a ; to avoid excessive log output.
//
% %% Revision 1.5  1996/08/16 14:26:37  peter
% %% Check and fix size of u0.
% %%
% %% Revision 1.4  1996/08/15 12:50:51  peter
% %% Put in a conj to undo effect of transpose.
% %%
% %% Revision 1.3  1996/08/15 11:53:44  peter
48
49
50
51
52
53
54
55

56
57
58
59
60
61
62
51
52
53
54
55
56
57

58
59
60
61
62
63
64
65







-
+







end;

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


j = sqrt(-1);
fr = zeros(N,Ny);
i = 0;
for w = W'
  i = i+1;
  FR = C*( (E*j*w - A) \ B*u0 ) + D*u0;
  fr(i,:) = conj(FR');
end;


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