Overview
Comment:Fixed problem with more than one output (y vector).
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 57084c7bf11979be1fca6a5a2854b0e77433251e0c67f1c36f2330eb16f49455
User & Date: gawthrop@users.sourceforge.net on 1996-08-16 13:04:46.000
Other Links: branch diff | manifest | tags
Context
1996-08-16
13:10:53
Fixed bug Ny changed to Nx in redidual loop. check-in: 73ee98f275 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
13:04:46
Fixed problem with more than one output (y vector). check-in: 57084c7bf1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
12:58:58
Now does preferred causality of I and C. check-in: 4064008eaa user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
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.3  1996/08/16 06:36:03  peter
## Removed u from default arg list.
##
## Revision 1.2  1996/08/15 16:24:43  peter
## Uses T in place of t to avoid name clash within function.
##
## Revision 1.1  1996/08/15 11:56:38  peter
## Initial revision
##
###############################################################
59
60
61
62
63
64
65
66

67
68
69
70
71
72
73
74
75
76
77
62
63
64
65
66
67
68

69
70
71
72
73
74
75
76
77
78
79
80







-
+











  end;

x = lsode('$1_ode', x0, T);

i=0;
for tt=T'
  i=i+1;
  y(i) = $1_odeo(x(i,:),tt);
  y(i,:) = $1_odeo(x(i,:),tt)';
end;

write_matrix([T,y], '$1_odesol');

EOF







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