In[17]:=

xy = {x, y} ; xyi = {0, 0} ; ContourPlot[dist[xy, xyi], {x, -1, 1}, {y, -1, 1}, PlotPoints -> 20]

[Graphics:../HTMLFiles/index_26.gif]

Out[19]=

-ContourGraphics -


Converted by Mathematica  (March 7, 2003)