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: 6c2ed05516f9dc82bd083843eff4563e51de7e42db52ff8dcb9a13c819e2ac81
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: d8c4862c2f 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: 6c2ed05516 user: geraint@users.sourceforge.net tags: origin/master, trunk
2001-04-11
15:41:45
New identification example - friction components only check-in: 6e8c859b73 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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 ]