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, 1997
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2 2000/08/24 11:42:46 peterg
## Read subs file
##
## Revision 1.1 1998/01/22 13:16:30 peterg
## Initial revision
##
###############################################################
# Inform user
|
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
-
+
-
+
|
write "%File: $1_ssk.tex";
write"";
write "% - Gain matrix - controller form";
MTT_Matrix := MTTK_c$
MTT_Matrix_name := "MTTK_c"$
MTT_Matrix_n := MTTNu$
MTT_Matrix_n := 1$
MTT_Matrix_m := MTTNx$
Latex_Matrix()$
write "% - Gain matrix - physical form";
MTT_Matrix := MTTK$
MTT_Matrix_name := "MTTK"$
MTT_Matrix_n := MTTNu$
MTT_Matrix_n := 1$
MTT_Matrix_m := MTTNx$
Latex_Matrix()$
SHUT "$1_ssk.tex";
quit;
EOF
|