Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

heart rendering

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

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

Graphic at:

And see:

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]

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


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

ggr[x_] :=  ColorTet /@ x

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

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,
  • Next by thread: Help With MathLink