Differences From Artifact [bde12852b6]:

To Artifact [d0757fc71d]:


︙
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, 1996.

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1  1996/08/19 15:14:51  peter
## Initial revision
##
###############################################################


# Inform user
echo Creating $1_sm.m

# Remove the old log file
︙
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

93
94




95
96
97
98
99
100
101
102
103
104
105
106
107
108
71
72
73
74
75
76
77



78
79
80
81
82
83
84
85


86


87

88
89

90
91
92
93
94
95
96
97
98
99















-
-
-








-
-

-
-

-
+

-
+
+
+
+






-
-
-
-
-
-
-
-
ELSE write "%function [MTTA,MTTB,MTTC,MTTD] = $1_sm;;";


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


ON NERO;	% Suppress zero elements.

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

write "MTTA = zeros(", MTTNx, ",", MTTNx, ");";
MTTA := MTTA;

write "MTTB = zeros(", MTTNx, ",", MTTNu, ");";
MTTB := MTTB;

write "MTTC = zeros(", MTTNy, ",", MTTNx, ");";
MTTC := MTTC;
write "MTTD = zeros(", MTTNy, ",", MTTNu, ");";

write "MTTD = zeros(", MTTNy, ",", MTTNu, ");";
ON NERO;	% Suppress zero elements.
MTTA := MTTA;
MTTB := MTTB;
MTTC := MTTC;
MTTD := MTTD;

OFF FORT;
write "";

SHUT "$1_sm.m";









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