*----------------------* ------------------------ (c) Bengt Werstén & JEFA ------------------------ --*******************--- --* DERIVATA SOLVER *--- --*******************--- *----------------------* PrgmX:DERIVATA :ClrHome :Disp "DERIVATA SOLVER" :Disp "*-----BY------*" :Disp "BENGT AND JEFA" :Disp "" :Disp "USING Y1" :Disp "F´(?)=" 'there is no ´-sign in the calc, use anything you want. :Input X :NDeriv(Y1,0.00000001)->S :Disp "ANSWER=" :Disp S