|figure ford p y c|

ford:=[ :r | 1/(r asFraction denominator) squared /2 asFloat].

figure:=DrGeoCanvas new.

0 to: 2 by: (1/120) do:
	[:x |
	y:=ford value: x.
	p:=figure point: x@y.
	p hide.
	c:=figure circleCenter: p radius: (figure freeValue: y).
	]