Reduce (CSL, rev 6860), 11-Aug-2024 ...

1: 1: 1: 1: 

2: in "/opt/R/R-4.4.2/lib64/R/site-library/redcas/reduce/redcas.red" $
lisp_dialect

swget

swtoggle

asltx

exprltx

itoa

array2flatls

arrayltx

asltx_marker

;

4: 
4: on combineexpt, combinelogs, div;

5: operator c;

6: korder x, v, c, a ;

7: depend y, x;

8: 
8: 
8: ym:=log(4*c1*exp(sqrt(2*c1)*(x-c2)) / 
8: (exp(2*sqrt(2*c1)*(x-c2))-2*exp(sqrt(2*c1)*(x-c2))+1));
                 sqrt(c1)*sqrt(2)*x - sqrt(c1)*sqrt(2)*c2
ym := log(( - 4*e                                        *c1)/(

                sqrt(c1)*sqrt(2)*x - sqrt(c1)*sqrt(2)*c2
             2*e

                 2*sqrt(c1)*sqrt(2)*x - 2*sqrt(c1)*sqrt(2)*c2
              - e                                             - 1))


9: write "Result: df(y,x,2) - exp(y)) is: ", 
9: sub(y=ym, df(y,x,2) - exp(y));
Result: df(y,x,2) - exp(y)) is: 0

