op_eye_ifs.gif (GIF Image, 997x997 pixels) - Scaled (91%)
- To: mathgroup at smc.vnet.net
- Subject: [mg101504] op_eye_ifs.gif (GIF Image, 997x997 pixels) - Scaled (91%)
- From: Roger Bagula <rlbagula at sbcglobal.net>
- Date: Thu, 9 Jul 2009 01:53:45 -0400 (EDT)
- References: <h2fe37$ppu$1@smc.vnet.net>
http://www.geocities.com/rlbagulatftn/op_eye_ifs.gif Another of the nested ellipse types that I found yesterday. A very simple op art type tiling of a circle: Clear[f, dlst, pt, cr, ptlst, x, y] dlst = Table[ Random[Integer, {1, 2}], {n, 250000}]; f[1, {x_, y_}] := N[{-x/2 - y/2, x/2 - y/2 + 7/24}]; f[2, {x_, y_}] := N[ {2*x*y/(x2 + y2) , (x2 - y2)/(y2 + x2)}]; pt = {0.5, 0.75}; cr[n_] := If[n - 1 == 0, RGBColor[0, 0, 1], If[n - 2 == 0, RGBColor[0, 0, 0], If[n - 3 == 0, RGBColor[1, 0, 0], RGBColor[0, 1, 0]]]] ptlst = Table[{cr[dlst[[j]]], Point[pt = f[dlst[[j]], Sequence[pt]]]}, {j, Length[dlst]}]; Show[Graphics[Join[{PointSize[.001]}, ptlst]], AspectRatio -> Automatic, PlotRange -> All]
