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
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
-
-
-
-
-
-
-
-
-
+
+
|
endfunction
EOF
}
make_cc() {
## Check octave version
case `$MATRIX --version | awk -F\. '{print $2}'` in
0) vector_value="vector_value";; # stable
1) vector_value="column_vector_value";; # development
*) vector_value="column_vector_value";;
esac
// File $Sys_input.oct;
// Generated by MTT on Thu Apr 5 21:05:08 EDT 2001;
// File ${Sys}_input.oct;
// Generated by MTT on `date`;
#ifdef STANDALONE
#include <octave/oct.h>
#include "${Sys}_def.h"
void strip_comments (istream &str)
{
|
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
|
octave_value_list retval;
#endif // ! STANDALONE
ColumnVector mttu (MTTNU);
// Set up the mttu vector
#ifndef STANDALONE
static int MTT_input_row;
static int MTT_input_last;
mttu = get_global_value ("MTT_input").${vector_value}();
Matrix MTT_input = get_global_value ("MTT_input").matrix_value();
mttu = MTT_input.row (MTT_input_row);
if (0 == MTT_input_row)
{
MTT_input_last = (MTT_input.length() / mttu.length()) - 1;
}
if (MTT_input_row < MTT_input_last)
{
MTT_input_row++;
}
#else
double t, u;
strip_comments (cin);
cin >> t;
for (register int i = 0; i < MTTNU; i++)
{
cin >> u;
|