10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop, 1991, May 1994, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
# Revision 1.3 1997/06/13 13:50:11 peterg
# Matrices in amstex format
#
# Revision 1.2 1997/04/18 12:54:00 peterg
# No longer does labels.
#
# Revision 1.1 1996/08/19 15:19:23 peter
|
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright (c) P.J.Gawthrop, 1991, May 1994, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 1998/04/07 08:30:20 peterg
## Initial revision
##
# Revision 1.3 1997/06/13 13:50:11 peterg
# Matrices in amstex format
#
# Revision 1.2 1997/04/18 12:54:00 peterg
# No longer does labels.
#
# Revision 1.1 1996/08/19 15:19:23 peter
|
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
76
77
78
79
80
81
82
83
|
in "$1_def.r";
%Read the obs file
in "$1_obs.r";
%Read the Obs function parameters
in "$1_obspar.r";
%Read the simplification parameters
in "$1_simp.r";
%Read the formatting function
in "$MTTPATH/trans/latex_matrix.r";
OFF Echo;
OFF Nat;
OFF EXP;
OUT "$1_obs.tex";
% Write the obs vector (YY)
MTT_Matrix := MTTYY$
MTT_Matrix_name := "MTTO"$
MTT_Matrix_n := (MTTGPCNY+1)*MTTNy$
MTT_Matrix_m := 1$
LaTeX_Matrix()$
% Write the affine form
IF affine=1 THEN
BEGIN
MTT_Matrix := MTTObs_o$
MTT_Matrix_name := "MTTO_o"$
MTT_Matrix_n := (MTTGPCNY+1)*MTTNy$
MTT_Matrix_m := 1$
LaTeX_Matrix()$
MTT_Matrix := MTTObs_h$
MTT_Matrix_name := "MTTO_h"$
MTT_Matrix_n := (MTTGPCNy+1)*MTTNy$
MTT_Matrix_m := (MTTGPCNu+1)*MTTNu$
LaTeX_Matrix()$
END;
SHUT "$1_obs.tex";
quit;
EOF
|
>
>
>
<
<
<
<
<
<
<
>
>
>
>
>
>
>
>
>
>
|
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
in "$1_def.r";
%Read the obs file
in "$1_obs.r";
%Read the Obs function parameters
in "$1_obspar.r";
%Read the substitution file
in "$1_subs.r";
%Read the simplification parameters
in "$1_simp.r";
%Read the formatting function
in "$MTTPATH/trans/latex_matrix.r";
OFF Echo;
OFF Nat;
OFF EXP;
OUT "$1_obs.tex";
% Write the affine form
IF affine=1 THEN
BEGIN
MTT_Matrix := MTTObs_o$
MTT_Matrix_name := "MTTO_o"$
MTT_Matrix_n := (MTTGPCNY+1)*MTTNy$
MTT_Matrix_m := 1$
LaTeX_Matrix()$
MTT_Matrix := MTTObs_h$
MTT_Matrix_name := "MTTO_h"$
MTT_Matrix_n := (MTTGPCNy+1)*MTTNy$
MTT_Matrix_m := (MTTGPCNu+1)*MTTNu$
LaTeX_Matrix()$
END
ELSE
BEGIN
% Write the obs vector (YY)
MTT_Matrix := MTTYY$
MTT_Matrix_name := "MTTO"$
MTT_Matrix_n := (MTTGPCNY+1)*MTTNy$
MTT_Matrix_m := 1$
LaTeX_Matrix()$
END;
SHUT "$1_obs.tex";
quit;
EOF
|