Return to assert3.rr CVS log

Up to [local] / OpenXM / src / ox_gsl

Annotation of OpenXM/src/ox_gsl/assert3.rr, Revision 1.1

1.1     ! takayama    1: /* $OpenXM$ */
        !             2: #define myfail(s) printf("%a fails, Ans0=%a, Ans=%a\n",s,Ans0,Ans)
        !             3: #define dcmp2(a,b,e) (deval(abs(1-a/b))>e?1:0)
        !             4: Pid=ox_launch(0,getenv("OpenXM_HOME")+"/src/ox_gsl/ox_gsl");
        !             5: // Try 1.
        !             6: ox_cmo_rpc(Pid,"gsl_odeiv_step_rk4",[quote(y1),quote(-4*x^2*y0+y1/x)],
        !             7:    [1.0,0], 3.14/2, 10.0, 1e-6,"rk4");
        !             8: Ans=ox_pop_cmo(Pid);
        !             9: end$
        !            10: Ans0=[119.8]$
        !            11: if (dcmp2(Ans[0],Ans0[0],0.1)) myfail("Try1 "); else ;
        !            12: end$
        !            13: