| 1 |
johnpye |
830 |
REQUIRE "atoms.a4l"; |
| 2 |
|
|
|
| 3 |
johnpye |
831 |
MODEL testfunc; |
| 4 |
johnpye |
830 |
(* dependent variables *) |
| 5 |
|
|
yArccosh,yArcsinh,yArctanh, |
| 6 |
|
|
yCos,yCosh, |
| 7 |
|
|
yExp,yLn,yLnm, |
| 8 |
|
|
ySin,ySinh, |
| 9 |
|
|
yTan,yTanh IS_A factor; |
| 10 |
|
|
|
| 11 |
|
|
yArcsin,yArccos, |
| 12 |
|
|
yArctan IS_A angle; |
| 13 |
|
|
|
| 14 |
|
|
(* fixed variables *) |
| 15 |
|
|
xArccos,xArccosh, |
| 16 |
|
|
xArcsin,xArcsinh, |
| 17 |
|
|
xArctan,xArctanh, |
| 18 |
|
|
xCosh, |
| 19 |
|
|
xExp,xLn,xLnm, |
| 20 |
|
|
xSinh, |
| 21 |
|
|
xTanh IS_A factor; |
| 22 |
|
|
|
| 23 |
|
|
xCos,xSin, |
| 24 |
|
|
xTan IS_A angle; |
| 25 |
|
|
|
| 26 |
|
|
(* equations *) |
| 27 |
|
|
arccosEqn: yArccos = arccos(xArccos); |
| 28 |
|
|
arccoshEqn: yArccosh = arccosh(xArccosh); |
| 29 |
|
|
arcsinEqn: yArcsin = arcsin(xArcsin); |
| 30 |
|
|
arcsinhEqn: yArcsinh = arcsinh(xArcsinh); |
| 31 |
|
|
arctanEqn: yArctan = arctan(xArctan); |
| 32 |
|
|
arctanhEqn: yArctanh = arctanh(xArctanh); |
| 33 |
|
|
cosEqn: yCos = cos(xCos); |
| 34 |
|
|
coshEqn: yCosh = cosh(xCosh); |
| 35 |
|
|
expEqn: yExp = exp(xExp); |
| 36 |
|
|
lnEqn: yLn = ln(xLn); |
| 37 |
|
|
lnmEqn: yLnm = lnm(xLnm); |
| 38 |
|
|
sinEqn: ySin = sin(xSin); |
| 39 |
|
|
sinhEqn: ySinh = sinh(xSinh); |
| 40 |
|
|
tanEqn: yTan = tan(xTan); |
| 41 |
|
|
tanhEqn: yTanh = tanh(xTanh); |
| 42 |
|
|
|
| 43 |
johnpye |
831 |
METHODS |
| 44 |
johnpye |
830 |
|
| 45 |
johnpye |
831 |
METHOD default_self; |
| 46 |
|
|
END default_self; |
| 47 |
|
|
|
| 48 |
|
|
METHOD specify; |
| 49 |
johnpye |
830 |
FIX xExp,xLn; |
| 50 |
|
|
FIX xSin,xCos,xTan; |
| 51 |
|
|
FIX xArcsin,xArccos,xArctan; |
| 52 |
|
|
FIX xSinh,xCosh,xTanh; |
| 53 |
|
|
FIX xArccosh,xArcsinh,xArctanh; |
| 54 |
|
|
FIX xLnm; |
| 55 |
johnpye |
831 |
END specify; |
| 56 |
johnpye |
830 |
|
| 57 |
johnpye |
831 |
METHOD on_load; |
| 58 |
|
|
RUN default_self; |
| 59 |
|
|
RUN reset; |
| 60 |
|
|
RUN values; |
| 61 |
|
|
END on_load; |
| 62 |
|
|
|
| 63 |
|
|
METHOD values; |
| 64 |
johnpye |
830 |
xArccos := 0.10; (* magnitude must not exceed 1.0 *) |
| 65 |
|
|
xArccosh := 2.0; (* value must be 1.0 or greater *) |
| 66 |
|
|
xArcsin := 0.11; (* magnitude must not exceed 1.0 *) |
| 67 |
|
|
xArcsinh := 2.1; |
| 68 |
|
|
xArctan := 2.2; |
| 69 |
|
|
xArctanh := 0.12; (* magnitude must not exceed 1.0 *) |
| 70 |
|
|
xCos := 0.13 {radian}; |
| 71 |
|
|
xCosh := 0.14; |
| 72 |
|
|
xExp := 0.15; |
| 73 |
|
|
xLn := 0.16; (* value must be greater than 0 *) |
| 74 |
|
|
xLnm := 0.16; |
| 75 |
|
|
xSin := 0.17 {radian}; |
| 76 |
|
|
xSinh := 0.18; |
| 77 |
|
|
xTan := 0.19 {radian}; |
| 78 |
|
|
xTanh := 0.2; |
| 79 |
johnpye |
831 |
END values; |
| 80 |
johnpye |
830 |
|
| 81 |
johnpye |
831 |
|
| 82 |
|
|
(* set up to recover original x values. Note mapping |
| 83 |
|
|
after solving. *) |
| 84 |
|
|
|
| 85 |
|
|
METHOD valuesRecover; |
| 86 |
johnpye |
830 |
xArccos := yCos; (* yArccos becomes xCos orig value *) |
| 87 |
|
|
xArccosh := yCosh; (* yArccosh becomes xCosh orig value *) |
| 88 |
|
|
xArcsin := ySin; (* etc *) |
| 89 |
|
|
xArcsinh := ySinh; |
| 90 |
|
|
xArctan := yTan; |
| 91 |
|
|
xArctanh := yTanh; |
| 92 |
|
|
xCos := yArccos; |
| 93 |
|
|
xCosh := yArccosh; |
| 94 |
|
|
xExp := yLn; |
| 95 |
|
|
xLn := yExp; |
| 96 |
|
|
xLnm := yExp; |
| 97 |
|
|
xSin := yArcsin; |
| 98 |
|
|
xSinh := yArcsinh; |
| 99 |
|
|
xTan := yArctan; |
| 100 |
|
|
xTanh := yArctanh; |
| 101 |
johnpye |
831 |
END valuesRecover; |
| 102 |
johnpye |
830 |
|
| 103 |
johnpye |
831 |
END testfunc; |
Parent Directory
| 
Revision Log