|
3998
|
1 CLASS = "LSODE" |
|
|
2 |
|
|
3 OPTION |
|
|
4 NAME = "absolute tolerance" |
|
|
5 TYPE = "Array<double>" |
|
|
6 SET_ARG_TYPE = "const $TYPE&" |
|
|
7 INIT_BODY |
|
|
8 $OPTVAR.resize (1); |
|
|
9 $OPTVAR(0) = ::sqrt (DBL_EPSILON); |
|
|
10 END_INIT_BODY |
|
|
11 SET_CODE |
|
|
12 void set_$OPT (double val) |
|
|
13 { |
|
|
14 $OPTVAR.resize (1); |
|
|
15 $OPTVAR(0) = (val > 0.0) ? val : ::sqrt (DBL_EPSILON); |
|
|
16 } |
|
|
17 |
|
|
18 void set_$OPT (const $TYPE& val) |
|
|
19 { $OPTVAR = val; } |
|
|
20 END_SET_CODE |
|
|
21 END_OPTION |
|
|
22 |
|
|
23 OPTION |
|
|
24 NAME = "integration method" |
|
|
25 TYPE = "std::string" |
|
|
26 SET_ARG_TYPE = "const $TYPE&" |
|
|
27 INIT_VALUE = ""stiff"" |
|
|
28 SET_BODY |
|
|
29 if (val == "stiff" || val == "bdf") |
|
|
30 $OPTVAR = "stiff"; |
|
|
31 else if (val == "non-stiff" || val == "adams") |
|
|
32 $OPTVAR = "non-stiff"; |
|
|
33 else |
|
|
34 (*current_liboctave_error_handler) |
|
|
35 ("lsode_options: method must be \"stiff\", \"bdf\", \"non-stiff\", or \"adams\""); |
|
|
36 END_SET_BODY |
|
|
37 END_OPTION |
|
|
38 |
|
|
39 OPTION |
|
|
40 NAME = "initial step size" |
|
|
41 TYPE = "double" |
|
|
42 INIT_VALUE = "-1.0" |
|
|
43 SET_EXPR = "(val >= 0.0) ? val : -1.0" |
|
|
44 END_OPTION |
|
|
45 |
|
|
46 OPTION |
|
|
47 NAME = "maximum step size" |
|
|
48 TYPE = "double" |
|
|
49 INIT_VALUE = "-1.0" |
|
|
50 SET_EXPR = "(val >= 0.0) ? val : -1.0" |
|
|
51 END_OPTION |
|
|
52 |
|
|
53 OPTION |
|
|
54 NAME = "minimum step size" |
|
|
55 TYPE = "double" |
|
|
56 INIT_VALUE = "0.0" |
|
|
57 SET_EXPR = "(val >= 0.0) ? val : 0.0" |
|
|
58 END_OPTION |
|
|
59 |
|
|
60 OPTION |
|
|
61 NAME = "relative tolerance" |
|
|
62 TYPE = "double" |
|
|
63 INIT_VALUE = "::sqrt (DBL_EPSILON)" |
|
|
64 SET_EXPR = "(val > 0.0) ? val : ::sqrt (DBL_EPSILON)" |
|
|
65 END_OPTION |
|
|
66 |
|
|
67 OPTION |
|
|
68 NAME = "step limit" |
|
|
69 TYPE = "int" |
|
|
70 INIT_VALUE = "100000" |
|
|
71 SET_EXPR = "val" |
|
|
72 END_OPTION |
