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 Unified 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

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

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



###############################################################

#Inform user
echo Creating $1_dm.m

# Remove the old log file
rm -f dm_r2m.log








>
>
>








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



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(...";
  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;;";




IF MTTNvar>0 THEN
BEGIN

  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 "%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$








<
<
|
<
<
<
<
<
<
|
|
>
>



>
|


|
|

>
>
|
<


<
<
<








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)



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 "[ ...;;";
  FOR i := 1:MTTNvar DO
  BEGIN
     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;







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 ]