Sharp PC-1403 - Page 243

237
R ET UR N
w - - w
L m e 2 40
Su b rou li ne 1
L in es 1 7 0 10 200
c en t e r ccc r dlna t e s o f ci rc le
os u l a ti t1gC 1 & C 2and
pol n1s o l c oo te ctP1 & P2
a r e celculet e d .
N O
W = W -t 190
Y ES
W • W + 1 80
Y ES
M = M < - S * COS W
l = N + S >i< S INW
X. A* ID - M)
Y ~ R * I E- N )
U n a 1 50
N--K + G *L
M = A +C*COSN
N = B +C*SIN N
X=O*(A- M )
Y= O *(B - · N)
llne130
L = ACS(IC*C o J *J F * F )
121C1 J )
F ~ P + R* S
C=O + O*S : H = D - A
l =E - B
J ~ SOR(H*I< > 1* 1 1
K = ACS(H ! J)
L ine 110
•FLOWCHART