In[838]:=

xy = {x, y} ; xyi = {-1/2, -1/2} ; xyj = {1/2, 1/4} ; ContourPlot[perim[xy, xyi, xyj], {x, -1, 1}, {y, -1, 1}]

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

Out[841]=

-ContourGraphics -


Converted by Mathematica  (March 7, 2003)