##
Mathematica Simulation of fractal tetrahedron

Posted by veselovskyi under

Code,

General Fractal Information,

Models
Leave a Comment
Manipulate[

where = PolyhedronData[“Tetrahedron”][[1, 1]];

tet = PolyhedronData[“Tetrahedron”][[1]];

oct = PolyhedronData[“Octahedron”][[1]];

octn = {RGBColor[0.6, 1, 0.2],

Rotate[oct, ArcTan[Sqrt[2]], {0, 1, 0}]};

octn2 = Scale[octn, 2 {1, 1, 1}, {0, 0, 0}];

d2 = Map[Translate[{tet}, #] &, a where];

d3 = Map[Translate[{octn, d2}, #] &, b 2 where];

Graphics3D[{d3, octn2}, Boxed -> False, SphericalRegion -> True,

ViewPoint -> {-5, 20, 5}, ViewAngle -> Pi/60],

{{b, 1, “divide tetrahedron b”}, 0, 2},

{{a, 1, “divide tetrahedron a”}, 0, 2}, TrackedSymbols -> {b, a}]

### Like this:

Like Loading...

*Related*

## Leave a Reply