Sharp PC-1500 Applications Manual page 13

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PROGRAM
ROOT OF
AN EQUATION
PROGRAM NO.
3
TI T LE
PS- A- I
I
Program List
I
[ Memory Contents
I
10 : "A " : INPUT "S TA
Minute Value
RTING POI NT=";
A
(input value)
=
h
v
20: INPUT
'"Ml NU TE=
B
f(x)
";A
c
Xo
30: INPUT '"IN f ERUA
L.:: '' ;W
D
f (x+h)
40:G=U: F=U: Z=0
E
50: IF Z=0GOTO 70
.J
60: G=G-W:C=G:GO IO
F
80
G
.J
70 :C=G:Z=l
H
80:GOSUB 300
90: F=F+W: C=F
I
100: G OSUB 300
J
I l 0 : GOTO 50
J20:ENO
K
300 :X=C: GOSUB 500
L
3J0:Y=B:X=A+C
M
320:60SUB 500
330:0=C:C=O-A*Y/ (8
N
-Y)
0
340: l F
ABS (0-C>>=
JE- SGOTO 300
p
350: BEEP 3:PR I NT
"
0
ANS.
:o " ;
C
R
360:RETt.JRN
500: B= ( ( X- 2) *X-· I ) *
s
X+ 2
T
5 J0:RETURN
v
v
Starting Point
(input value)
STATUS
J
w
Interval (input
300
value)
x
x
y
f (x)
z
Initial Flag
Do not sale this PDF !!!
- 7 -