Overview
Comment:Fixed .oct use of Octave globals: MTT_input_last MTT_input_index
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: dde64a93003d22b7f03519227b03fd865a6cbfda4c5a7836fb0ce4d4bc4ba37f
User & Date: geraint@users.sourceforge.net on 2001-04-12 00:49:13
Other Links: branch diff | manifest | tags
Context
2001-04-12
03:08:00
Improved sh->csh conversion, reduces environment namespace pollution.
Still need to do proper if [ -z $MTT_BASE ] ... else ... fi conversion.
check-in: 13c87384a1 user: geraint@users.sourceforge.net tags: origin/master, trunk
00:49:13
Fixed .oct use of Octave globals: MTT_input_last MTT_input_index check-in: dde64a9300 user: geraint@users.sourceforge.net tags: origin/master, trunk
2001-04-11
15:41:45
New identification example - friction components only check-in: 3c4ab88a3c user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/make_stdin from [d0411ef94d] to [04200eeea3].

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
115
116
117
118
119
120
121

122



123
124

125


126
127



128
129

130
131
132
133
134
135
136
137







-
+
-
-
-
+
+
-

-
-
+
+
-
-
-
+

-
+







  octave_value_list retval;
#endif // ! STANDALONE

  ColumnVector	mttu	(MTTNU);

  // Set up the mttu vector
#ifndef STANDALONE
  static int MTT_input_row;
  int MTT_input_index	= static_cast<int>(get_global_value ("MTT_input_index").double_value ());
  static int MTT_input_last;

  Matrix MTT_input = get_global_value ("MTT_input").matrix_value();
  int MTT_input_last	= static_cast<int>(get_global_value ("MTT_input_last").double_value ());
  Matrix MTT_input 	= get_global_value ("MTT_input").matrix_value();
  mttu = MTT_input.row (MTT_input_row);

  if (0 == MTT_input_row)
    {
  mttu = MTT_input.row (MTT_input_index);

      MTT_input_last = (MTT_input.length() / mttu.length()) - 1;
    }
  if (MTT_input_row < MTT_input_last)
  if (MTT_input_index < (MTT_input_last - 1))
    {
      MTT_input_row++;
      set_global_value ("MTT_input_index", static_cast<double>(++MTT_input_index));
    }
  
#else
  double t, u;
  strip_comments (cin);
  cin >> t;
  for (register int i = 0; i < MTTNU; i++)


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]