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 ]