\start83\
\comment=Program file dated 10/07/97, 14:24
\name=ARCLENTH
\file=J:\ARCLENTH.AS3
prgmFACSU
Disp "ENTER FUNCTION"
Disp "( IN QUOTES )"
Disp ""
Input "Y\1\=",Y\1\
Lbl 1
ClrDraw
ClrHome
Disp "LOWER LIMIT"
Disp "OF X"
Prompt L
Disp "UPPER LIMIT"
Disp "OF X"
Prompt U
Disp "HOW MANY"
Disp "INTERVALS"
Prompt N

0\->\S
(U-L)/N\->\W
L\->\Xmin
U\->\Xmax
L\->\C

ClrHome
Disp "SCALING GRAPH"
Disp "PLEASE WAIT"
fMin(Y\1\,X,L,U)\->\A
fMax(Y\1\,X,L,U)\->\B
Y\1\(A)\->\Ymin
Y\1\(B)\->\Ymax
If Ymin>0
0\->\Ymin
If Ymax<0
0\->\Ymax
DispGraph
For(I,1,N)
Y\1\(C)\->\Y
Y\1\(C+W)\->\Z
S+\root\((W\^2\+(Z-Y)\^2\)\->\S
Line(C,Y,C+W,Z)
Pt-Change(C,Y)
C+W\->\C
End
Pause 
ClrHome
Disp "ARC LENGTH ="
Disp S
Disp "RUN AGAIN ?"
Disp "(1) YES"
Disp "(2) NO"
Input R
If R=1
Goto 1
ClrHome

\stop83\