67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
-
-
-
-
+
+
+
+
|
write "matrix mttb(", mttnx, ",", mttnu, ");";
write "matrix mttc(", mttny, ",", mttnx, ");";
write "matrix mttd(", mttny, ",", mttnu, ");";
END;
IF (lang = m) THEN
BEGIN
write "mtta = zeros(", mttnx, ",", mttnx, ");";
write "mttb = zeros(", mttnx, ",", mttnu, ");";
write "mttc = zeros(", mttny, ",", mttnx, ");";
write "mttd = zeros(", mttny, ",", mttnu, ");";
write "[mtta] = zeros(", mttnx, ",", mttnx, ");";
write "[mttb] = zeros(", mttnx, ",", mttnu, ");";
write "[mttc] = zeros(", mttny, ",", mttnx, ");";
write "[mttd] = zeros(", mttny, ",", mttnu, ");";
end;
% find MTTA : the A matrix
FOR j := 1:MTTNx DO
BEGIN
|