(In reply to
a start by Charlie)
DEFDBL AZ
CLS
FOR x0 = .8201941# TO .8201941# STEP .0000001#
y0 = x0 * x0
b = 1 / (2 * x0)
deltax = (x0 ^ 2  x0) / (1 / (2 * x0)  1)
newy = y0 + b * deltax
leftx = x0  deltax
deltay = y0  newy
dist = SQR(deltay ^ 2 + deltax ^ 2)
PRINT USING "###.#######"; x0; y0; leftx; newy; dist; newy  dist
PRINT x0 + deltax, y0 + deltay
NEXT
finds
0.8201941 0.6727184 0.4424272 0.4424272 0.4424272 0.0000000
1.197960993479501 .903009516829121
The point on the parabola is (0.8201941, 0.6727184).
The radius of each circle is 0.4424272.
The lefthand circle is centered at (0.4424272, 0.9030095).
The righthand circle is centered at (1.197961, 0.4424272).

Posted by Charlie
on 20130713 17:07:42 