       heart rendering

• To: mathgroup at smc.vnet.net
• Subject: [mg28954] heart rendering
• From: "Clifford J. Nelson" <cnelson9 at gte.net>
• Date: Mon, 21 May 2001 00:43:40 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```What is the best way to render the graphics to show the heart of
the matter in this notebook?

CMYKColor is a four coordinate color directive: Cyan, Magenta,
Yellow, and Black. Each coordinate can represent the outward
movement of one of the planes that define a tetrahedron. So, all
of the subsets of four things have a color code and a geometrical
representation (in the Synergetics coordinate system). It is a
four dimensional tetrahedral Venn-like diagram. The larger subsets

(tetrahedra) contain the other representations of the smaller
subsets.

Graphic at:

http://homepage.mac.com/cnelson9/PhotoAlbum1.html

And see:

http://forum.swarthmore.edu/epigone/geometry-research/brydilyum

In:=
StoP[x_List] :=
Module[{an = {},w = x},
Do[an=Prepend[an,- Last[w]/i Sqrt[i(i+1)/2]];
w = Drop[w,-1]+ Last[w]/i, {i,Length[x]-1,1,-1}];an]

In:=
Vertexes[x_List] :=
Insert[Delete[x,- #],-Plus @@ Delete[x,-#],-#]& /@
Range[Length[x]]

In:=
<<DiscreteMath`Combinatorica`

In:=
ColorTet[x_] := {CMYKColor @@ x,Thickness[(1/(x. x)^1.2)/55],
Line /@ KSubsets[StoP /@ Vertexes[x],2]}

In:=
ggr[x_] :=  ColorTet /@ x

In:=
gg =ggr[ Sort[IntegerDigits[Range[1,15],2,4],(Plus @@ #1)>=(Plus
@@ #2)&]];

In:=
Show[Graphics3D[gg],Axes -> True ]

```

• Prev by Date: Fitting coeff. inside of a Matrix using NonLinear fit,
• Next by Date: RE: 3d Graphics problem
• Previous by thread: Fitting coeff. inside of a Matrix using NonLinear fit,