Overview
Comment:Paramaters passed via an internal call to _numpar.
_args script can overide these parameters - sneaky.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 2f8552abe0ebd98f55cf947f6c35fc3ef60ab957939d3e58cd2e073af8103628
User & Date: gawthrop@users.sourceforge.net on 1996-08-12 20:22:20
Other Links: branch diff | manifest | tags
Context
1996-08-14
08:21:27
Initial revision check-in: 1b4eaf6372 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1996-08-12
20:22:20
Paramaters passed via an internal call to _numpar.
_args script can overide these parameters - sneaky. check-in: 2f8552abe0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
20:20:59
Explicit parameters via out put list.
Parameter conversion stuff deleted. check-in: 74b3d93b6c user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/dm_r2m from [d6421498ca] to [cf15c07c0d].

︙
10
11
12
13
14
15
16



17
18
19
20
21
22
23

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








+
+
+








# Copyright (c) P.J.Gawthrop, 1989, 1990, 1991, 1993,1994.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1  1996/08/12 19:09:13  peter
## Initial revision
##
###############################################################

#Inform user
echo Creating $1_dm.m

# Remove the old log file
rm -f dm_r2m.log
︙
42
43
44
45
46
47
48
49
50
51

52
53
54
55
56
57
58
59




60
61
62

63

64
65
66
67


68


69

70
71
72
73
74
75
76
77
78
79
80
81
82

45
46
47
48
49
50
51



52








53
54
55
56
57
58
59
60

61
62
63


64
65
66
67
68

69

70
71



72
73
74
75
76
77
78








-
-
-
+
-
-
-
-
-
-
-
-
+
+
+
+



+
-
+


-
-
+
+

+
+
-
+
-


-
-
-










OUT "$1_dm.m";

%Headings - Matlab style
%(Note. The ;; are deleted by for2mat)

IF MTTNvar>0 THEN
BEGIN
  write "function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm(...";
write "function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm;;";
  FOR i := 1:MTTNvar DO
  BEGIN
     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
                  ELSE write MTTVar(i,1), ");;";
  END;
END
ELSE write "function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm;;";

write "% [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm;;";
write "% Linearised descriptor matrices for system $1";
write "% File $1_dm.m";
write "% Generated by MTT";

IF MTTNvar>0 THEN
BEGIN
  write "% Read in the parameters";
  write "%function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm(...";
  write "[ ...;;";
  FOR i := 1:MTTNvar DO
  BEGIN
     IF i<MTTNvar THEN write "%", MTTVar(i,1), ",..."
                  ELSE write "%", MTTVar(i,1), ");;";
     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
                  ELSE write MTTVar(i,1), "] = $1_numpar"
  END;
  write "% Read in the arguments";
  write "$1_args";
END
END;
ELSE write "%function [MTTA,MTTB,MTTC,MTTD,MTTE] = $1_dm;;";


write "%Linearised descriptor matrices for system $1";
write "%File $1_dm.m";
write "%Generated by MTT";

ON NERO;	% Suppress zero elements.

%Fortran switches - one line expressions
OFF echo;
ON fort$
cardno!* := 1$
︙

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