|
3998
|
1 CLASS = "DASRT" |
|
|
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 = "relative tolerance" |
|
|
25 TYPE = "Array<double>" |
|
|
26 SET_ARG_TYPE = "const $TYPE&" |
|
|
27 INIT_BODY |
|
|
28 $OPTVAR.resize (1); |
|
|
29 $OPTVAR(0) = ::sqrt (DBL_EPSILON); |
|
|
30 END_INIT_BODY |
|
|
31 SET_CODE |
|
|
32 void set_$OPT (double val) |
|
|
33 { |
|
|
34 $OPTVAR.resize (1); |
|
|
35 $OPTVAR(0) = (val > 0.0) ? val : ::sqrt (DBL_EPSILON); |
|
|
36 } |
|
|
37 |
|
|
38 void set_$OPT (const $TYPE& val) |
|
|
39 { $OPTVAR = val; } |
|
|
40 END_SET_CODE |
|
|
41 END_OPTION |
|
|
42 |
|
|
43 OPTION |
|
|
44 NAME = "initial step size" |
|
|
45 TYPE = "double" |
|
|
46 INIT_VALUE = "-1.0" |
|
|
47 SET_EXPR = "(val >= 0.0) ? val : -1.0" |
|
|
48 END_OPTION |
|
|
49 |
|
|
50 OPTION |
|
|
51 NAME = "maximum step size" |
|
|
52 TYPE = "double" |
|
|
53 INIT_VALUE = "-1.0" |
|
|
54 SET_EXPR = "(val >= 0.0) ? val : -1.0" |
|
|
55 END_OPTION |
|
|
56 |
|
|
57 OPTION |
|
|
58 NAME = "minimum step size" |
|
|
59 TYPE = "double" |
|
|
60 INIT_VALUE = "0.0" |
|
|
61 SET_EXPR = "(val >= 0.0) ? val : 0.0" |
|
|
62 END_OPTION |
|
|
63 |
|
|
64 OPTION |
|
|
65 NAME = "step limit" |
|
|
66 TYPE = "int" |
|
|
67 INIT_VALUE = "-1" |
|
|
68 SET_EXPR = "(val >= 0) ? val : -1" |
|
|
69 END_OPTION |
