In[833]:=
Out[836]=
Out[837]=
Converted by
Mathematica
(March 7, 2003)
![xy = {x, y} ; xyi = {-1/2, -1/2} ; xyj = {1/2, 1/4} ; ContourPlot[area[xy, xyi, xyj], {x, -1, 1}, {y, -1, 1}, PlotPoints -> 20] ContourPlot[areaUS[xy, xyi, xyj], {x, -1, 1}, {y, -1, 1}, PlotPoints -> 20]](../HTMLFiles/index_29.gif)
![[Graphics:../HTMLFiles/index_30.gif]](../HTMLFiles/index_30.gif)
![[Graphics:../HTMLFiles/index_32.gif]](../HTMLFiles/index_32.gif)
