•Triangle example

In[79]:=

points = {{0, 0}, {1, 0}, {1, 1}} ; connect = {{1, 2, 3}} ; pts = Part[points, connect[[1]]] ; areas = Apply[area, Partition[pts, 3, 1, {2}], {1}] ;

In[83]:=

convex[x, y] // Simplify

Out[83]=

{1 - x, x - y, y}

•Compile function
•Show

In[53]:=

tri = Show[pContour, Graphics[Flatten[{{RGBColor[1, 1, 1]}, {mask[pts]}}]], Graphics[Flatten[{{PointSize[.02]}, {outline[pts], name[pts], nodes[pts]}}]], PlotRange -> All, Frame -> False, AspectRatio -> 1, DisplayFunction -> $DisplayFunction]

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

Out[53]=

-Graphics -

Converted by Mathematica  (March 7, 2003)