•Example

Minimum at a point

In[17]:=

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

Minimum along a line

In[833]:=

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]

Minimum strictly along a line

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}]

Converted by Mathematica  (March 7, 2003)