•Example

In[411]:=

areaUS[{xn[1], yn[1]}, {xn[2], yn[2]}, {xn[3], yn[3]}] // Simplify

Out[411]=

1/2 √ (xn[3] (-yn[1] + yn[2]) + xn[2] (yn[1] - yn[3]) + xn[1] (-yn[2] + yn[3]))^2

The function finds the area between three points independent of dimension:

In[405]:=

areaUS[{xn[1], yn[1], z[1]}, {xn[2], yn[2], zn[2]}, {xn[3], yn[3], zn[3]}] // Simplify


Converted by Mathematica  (March 7, 2003)