Overview
Comment:Fixed various bugs.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 374eddf0e05e54517dbf19c31678d3e1bca30ad2a95e902405ddb7b5fd98cb3a
User & Date: gawthrop@users.sourceforge.net on 1996-08-11 10:41:52
Other Links: branch diff | manifest | tags
Context
1996-08-11
19:08:08
Parameter passing now enabled. check-in: a0161c78ec user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:41:52
Fixed various bugs. check-in: 374eddf0e0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:40:56
Added new numpar stuff.
Added step response. check-in: ae56da63d4 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/sympar2numpar_r2m from [c5ec703796] to [1e44b3561c].

︙
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.1  1996/08/11 08:48:07  peter
## Initial revision
##
###############################################################

# Inform user
echo Creating $1_numpar.m
echo Creating $1_parconv.m

# Remove the old log file
︙
31
32
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

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








+
+







-
+
+
+
+





-
+





+
-
+
+
+









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

OUT "$1_numpar.m";

write "function numpar = $1_numpar;";
write "% function numpar = $1_numpar;";
write "% Created by MTT";

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


SHUT "$1_numpar.m";

OUT "$1_parconv.m";

write "[ ...";
write "function [ ...";

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

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

IF MTTNvar>0 THEN
BEGIN
︙

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