Mercurial > hg > octave-nkf

comparison liboctave/DASPK-opts.in @ 3998:f6df65db67f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-24 18:10:39 by jwe]
author jwe
date Wed, 24 Jul 2002 18:10:40 +0000
parents
children 9678c5526190
comparison
equal deleted inserted replaced
3997:d4091aff6468 3998:f6df65db67f9
1 CLASS = "DASPK"
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