\start83\
\comment=Program file dated 10/07/97, 14:24
\name=CENTMASS
\file=J:\CENTMASS.AS3
prgmFACSU
Disp "ENTER FIRST"
Disp "FUNCTION Y\1\"
Disp "( IN QUOTES )"
Disp ""
Input "Y\1\=",Y\1\
ClrHome
Disp "ENTER SECOND"
Disp "FUNCTION Y\2\"
Disp "( IN QUOTES )"
Disp ""
Input "Y\2\=",Y\2\
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
0\->\M
0\->\V
(U-L)/N\->\W

L\->\Xmin
U\->\Xmax
L+(W/2)\->\T
ClrHome
Disp "SCALING GRAPH"
Disp "PLEASE WAIT"
fMin(Y\1\,X,L,U)\->\A
fMax(Y\1\,X,L,U)\->\B
fMin(Y\2\,X,L,U)\->\G
fMax(Y\2\,X,L,U)\->\H
Y\2\(G)\->\G
Y\2\(H)\->\H
Y\1\(A)\->\A
Y\1\(B)\->\B
If A\<=\G
Then
A\->\Ymin
Else
G\->\Ymin
End
If B\>=\H
Then
B\->\Ymax
Else
H\->\Ymax
End

If Ymin>0
0\->\Ymin
If Ymax<0
0\->\Ymax

DispGraph
For(I,1,N)
Y\1\(T)\->\P
Y\2\(T)\->\Q
S+abs((P-Q)*W\->\S
M+.5(P+Q)(P-Q)*W\->\M
V+T*(P-Q)*W\->\V
Line(T-W/2,Q,T-W/2,P)
Line(T-W/2,P,T+W/2,P)
Line(T+W/2,P,T+W/2,Q)
Line(T+W/2,Q,T-W/2,Q)
T+W\->\T
End
V/S\->\E
M/S\->\F
Line(E,Ymax,E,Ymin)
Line(Xmin,F,Xmax,F)
Pause 
ClrHome
Disp "TOTAL MASS ="
Disp ""
Disp S
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "X MOMENT =",M
Disp "Y MOMENT =",V
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "CENTER OF MASS"
Disp "X = ",E
Disp "Y = ",F
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "RUN AGAIN ?"
Disp "(1) YES"
Disp "(2) NO"
Input R
If R=1
Goto 1
ClrHome
\stop83\