Overview
Comment:Fixed bug when Nx=0.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 30ff02c088f8cafaeae133eb9fe46865491307a27cc4fcfc930dcd9e05181a70
User & Date: gawthrop@users.sourceforge.net on 1996-08-19 16:25:18
Other Links: branch diff | manifest | tags
Context
1996-08-19
18:38:43
Read in the numerical params etc ... check-in: 83c54712bb user: gawthrop@users.sourceforge.net tags: origin/master, trunk
16:25:18
Fixed bug when Nx=0. check-in: 30ff02c088 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
15:38:31
Removed bug work round. check-in: ab90856182 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/sm_r2m from [bde12852b6] to [d0757fc71d].

︙︙
10
11
12
13
14
15
16



17
18
19
20
21
22
23

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

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



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


# Inform user
echo Creating $1_sm.m

# Remove the old log file








>
>
>








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

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, ");";



MTTD := MTTD;

OFF FORT;
write "";

SHUT "$1_sm.m";
















<
<
<








<
<

<
<

|

|
>
>
>






<
<
<
<
<
<
<
<

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




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

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


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


write "MTTC = zeros(", MTTNy, ",", MTTNx, ");";
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 ]