This is a solver program. The difference between this one and the one that
been up for a while is that this one can solve equations that have square
roots, squares, cube root, cube, and there dosn't have to be an "X" on both
sides of the equation. Prier to running the program, you sould enter both
sides of the equation into Y1, and Y2. Example: 2X^2-14X+20=0
2X^2-14X+20 goes into Y1 and 0 goes into Y2. Then run the program,
The answere is X=2.
Prgm:SPRSLVER
-10->X
1->A
0->C
If Y1>Y2
Goto A
Lbl 1
X+A->X
If Y1=Y2
Goto 2
If Y1X
A/10->A
If A<1e-10
Goto 2
Goto 1
Lbl 2
Disp "X="
Disp X
Pause
If C
End
Disp "continue?"
Disp "0=Yes"
Disp "1=No"
Input B
If B
End
1->C
1->A
X+A->X
Lbl A
X+A->X
If Y1=Y2
Goto B
If Y1>Y2
Goto A
X-A->X
A/10->A
If A<1e-10
Goto B
Goto A
Lbl B
Disp "X="
Disp X
Pause
If C
End
Disp "Continue?"
Disp "0=Yes"
Disp "1=No"
Input B
If B
End
1->C
1->A
X+A->X
Goto 1
Also the program will ask you if you want to contiue. This may seem
usless at first but many equations have more then one answer, because of this
your solver program can now evaulate quadratic problems. If you have any
questions/comments about this or my other programs (Dodge the projectiles,
Table, Minimums Maximums Zeros, Distance 2, ect) please contact me at
EDWARD4793@aol.com
Josh Cunningham