30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#if (CODEGENTARGET == STANDALONE)
return Fmtt_residual (X, DX, t, ires);
#elif (CODEGENTARGET == OCTAVEDLD)
static octave_value_list args, f;
args(0) = octave_value (X);
args(1) = octave_value (DX);
args(2) = octave_value (t);
args(3) = octave_value (ires);
f = feval ("mtt_residual", args, 1);
return f(0).VECTOR_VALUE ();
#endif // (CODEGENTARGET == STANDALONE)
}
#if (CODEGENTARGET == STANDALONE)
|
|
|
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#if (CODEGENTARGET == STANDALONE)
return Fmtt_residual (X, DX, t, ires);
#elif (CODEGENTARGET == OCTAVEDLD)
static octave_value_list args, f;
args(0) = octave_value (X);
args(1) = octave_value (DX);
args(2) = octave_value (t);
args(3) = octave_value (static_cast<double>(ires));
f = feval ("mtt_residual", args, 1);
return f(0).VECTOR_VALUE ();
#endif // (CODEGENTARGET == STANDALONE)
}
#if (CODEGENTARGET == STANDALONE)
|