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 Unified 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

  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;

  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++)








|
<
|
|
<

|
|
<
<
|

|








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
  int MTT_input_index	= static_cast<int>(get_global_value ("MTT_input_index").double_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_index);



  if (MTT_input_index < (MTT_input_last - 1))
    {
      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 ]