I am using CASIO fx-9700GE, so supporting that calculator is
the main purpose of this page.
There will be other stuff to, like things for the HP48G - an awesome machine -.
Newton-Raphson
Euclidean Algorithm
or download casio.zip with all the programs as text.
I am in the midst of making my own Casio to PC interface.
When it is ready I will sell the device to anyone interested.
These programs were made by me Stefan Sonesson.
You may do whatever You wish to them, except letting them clean Your house.
I really dislike housecleaning : (
==============
Explanations
==============
You must store the function you shall calculate
in function memory 3 "f3".(or edit program to contain another location)
f3 'shift+F-MEM', F3, 3
~ 'shift+PRGM', F5
-> the arrow above the "DEL" -button
=> 'shift+PRGM', F1, F1
<> 'shift+PRGM', F2, F2
"Newton-Raphson"
"Enter X0:"?->X
Lbl 0
X->A
X-f3÷d/dx(f3,X)->X
A<>X=>Goto 0
A
"Euclidean"
"GCD(A,B)"
1->B
"Greatest Integer A"
?->A
"Smallest Integer B"
?->B
A->G:B->H
Lbl 1
B=0=>Goto 0
A÷B->C
Int C->C
B*C->D:D->J
A-D->E
E=0=>Goto 3
E->F:A->I:B->A:E->B
E>0=>F~
Goto 1
Lbl 2
B~
Lbl 3
"Finished"