Overview
Comment:Explicit parameters via out put list.
Parameter conversion stuff deleted.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 74b3d93b6cbd284e8fe10bd2336ede2f127ce3b38949b9b2df8d5ccfac707eee
User & Date: gawthrop@users.sourceforge.net on 1996-08-12 20:20:59.000
Other Links: branch diff | manifest | tags
Context
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
20:19:52
Arguments now passed via $1_args.m file check-in: ead13b5877 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/sympar2numpar_r2m from [1e44b3561c] to [ea45d7e584].
︙
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 1996

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2  1996/08/11 10:41:52  peter
## Fixed various bugs.
##
## Revision 1.1  1996/08/11 08:48:07  peter
## Initial revision
##
###############################################################

# Inform user
echo Creating $1_numpar.m
︙
33
34
35
36
37
38
39



40
41









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
83

36
37
38
39
40
41
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



































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






-
+

-
+
-
-




-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

MTTNVar := 0;

%Read the symbolic parameters file
IN "$1_sympar.r";

OUT "$1_numpar.m";


IF MTTNvar>0 THEN
BEGIN
write "function numpar = $1_numpar;";
write "% function numpar = $1_numpar;";
  write "function [ ...;;";
  FOR i := 1:MTTNvar DO
  BEGIN
     IF i<MTTNvar THEN write MTTVar(i,1), ",..."
                  ELSE write MTTVar(i,1), "] = $1_numpar;;"
  END;
END;

write "% function [par_list] = $1_numpar;";
write "% Created by MTT";

IF MTTNvar>0 THEN
BEGIN
  FOR i := 1:MTTNvar DO
  BEGIN
    write "numpar(",i , ") = 1;		% ", MTTVar(i,1);
    write MTTVar(i,1), "  = 1;	% Default value";
  END;
END
END;
ELSE
  write "numpar = []";


SHUT "$1_numpar.m";

OUT "$1_parconv.m";

write "function [ ...";

IF MTTNvar>0 THEN
BEGIN
  FOR i := 1:MTTNvar DO
  BEGIN
    IF i<MTTNvar THEN
      write MTTVar(i,1), ", ..."
    ELSE
      write MTTVar(i,1), " ...";
  END;
END;

write "] = $1_parconv(numpar);";

IF MTTNvar>0 THEN
BEGIN
  FOR i := 1:MTTNvar DO
  BEGIN
    write MTTVar(i,1), " = numpar(", i, ");";
  END;
END;

SHUT "$1_parconv.m";
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]