bern.input

-- @(#)bern.input	1.1    89/09/07  20:54:27
draw(curve(cos(t)/(1+sin(t)**2),sin(t)*cos(t)/(1+sin(t)**2)),t = -%pi..%pi, [title "Lemniscate of Bernoulli"])