TIB: re: maths
[Prev][Next][Index][Thread]
TIB: re: maths
here's a skeleton for it
disp "Original function?"
InpSt fun
St->Eq(fun, y1
disp"Derivitive function?"
InpSt der
St->Eq(der, y1
Input "Test value?", tst
If abs(der1(y1,x,tst)-y2(tst))>.001 ;substitute a different
tolerance for variation due to
calculator's method, etc. here--.001 is
just a guess
then
Disp "Your derivative is incorrect"
else
disp"Your derivative is correct."
end
stop
I really never thought of doing this...I always plotted graphs to check.
This should be quicker than that.
-Ben Kalafut
___________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com/getjuno.html
or call Juno at (800) 654-JUNO [654-5866]