This is a multi-part message in MIME format.
--------------010809060702030409020508
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
(* 3d von Koch IFS 3d Fractal*)
(* by R. L. Bagula 07 Sept. 2007 ©*)
(*from Hans Lauwerier, "Fractals, Endlessly Repeating Geometrical
Figures",
Princeton Science Library, Page 129*)
Clear[f, dlst, pt, cr, ptlst]
in = Join[{{0, 2, 2}, {4, 2, 2}, {2, 0, 2}, {2, 4, 2}, {2, 2, 0}, {2, 2,
4}},
Flatten[Table[{i, j, k}, {i, 1, 3}, {j, 1, 3}, {k, 1, 3}], 2]];
Length[in];
dim_app = N[Log[Length[in]]/Log[5]]
2.1725022968909635`
dlst = Table[ Random[Integer, {1, Length[in]}], {n, 25000}];
f[j_, {x_, y_, z_}] := {x, y, z}/5 + in[[j]];
pt = {0.5, 0.5, 0.5};
cr[n_] := Flatten[Table[If[
i == j == k == 1, {}, RGBColor[i, j, k]], {i, 0, 1,
0.5}, {j, 0, 1, 0.5}, {k, 0, 1, 0.5}]][[1 + Mod[n, 26]]];
ptlst = Table[{cr[dlst[[j]]], Point[pt = f[dlst[[j]], Sequence[pt]]]},
{j, Length[dlst]}];
g = Show[Graphics3D[Join[{PointSize[.001]}, ptlst]], AspectRatio ->
Automatic, PlotRange -> All, Boxed -> False]
Show[g, ViewPoint -> {-0.178, -0.172, 3.375}]
Show[g, ViewPoint -> {2.649, -2.104, 0.059}]
>
>
>
--------------010809060702030409020508
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
(* 3d von Koch IFS 3d Fractal*)<br>
(* by R. L. Bagula 07 Sept. 2007 ©*)<br>
(*from Hans Lauwerier, "Fractals, Endlessly Repeating Geometrical
Figures", <br>
Princeton Science Library, Page 129*)<br>
Clear[f, dlst, pt, cr, ptlst]<br>
in = Join[{{0, 2, 2}, {4, 2, 2}, {2, 0, 2}, {2, 4, 2}, {2, 2, 0}, {2,
2, 4}}, <br>
Flatten[Table[{i, j, k}, {i, 1, 3}, {j, 1, 3}, {k, 1, 3}], 2]];<br>
Length[in];<br>
dim_app = N[Log[Length[in]]/Log[5]]<br>
2.1725022968909635`<br>
dlst = Table[ Random[Integer, {1, Length[in]}], {n, 25000}];<br>
<br>
f[j_, {x_, y_, z_}] := {x, y, z}/5 + in[[j]];<br>
<br>
pt = {0.5, 0.5, 0.5};<br>
<br>
cr[n_] := Flatten[Table[If[<br>
i == j == k == 1, {}, RGBColor[i, j, k]],
{i, 0, 1, <br>
0.5}, {j, 0, 1,
0.5}, {k, 0, 1, 0.5}]][[1 + Mod[n, 26]]];<br>
ptlst = Table[{cr[dlst[[j]]], Point[pt = f[dlst[[j]], Sequence[pt]]]},<br>
{j, Length[dlst]}];<br>
g = Show[Graphics3D[Join[{PointSize[.001]}, ptlst]], AspectRatio ->
<br>
Automatic, PlotRange -> All, Boxed -> False]<br>
Show[g, ViewPoint -> {-0.178, -0.172, 3.375}]<br>
Show[g, ViewPoint -> {2.649, -2.104, 0.059}]
<blockquote cite="midbBgEi.1899$Sd4.425@[EMAIL PROTECTED]
"
type="cite">
<div class="moz-text-flowed"
style="font-family: -moz-fixed; font-size: 13px;" lang="x-western"><br>
<br>
<br>
</div>
</blockquote>
<br>
</body>
</html>
--------------010809060702030409020508--
|
