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