op_eye_ifs.gif (GIF Image, 997x997 pixels) - Scaled (91%)

op_eye_ifs.gif (GIF Image, 997x997 pixels) - Scaled (91%)

Post by Roger Bagu » Fri, 10 Jul 2009 14:51:51


http://www.yqcomputer.com/
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]
 
 
 

1. fractal_teardrops.gif (GIF Image, 658x1009 pixels) - Scaled (90%)

2. Henon2nd_kiss.gif (GIF Image, 1042x1042 pixels) - Scaled (87%)

http://www.yqcomputer.com/
Here the Henon of the second kind ( rotational)
is scaled to get a kissing fractal.
I got the idea for this from my efforts to get a Weizs=E4cker-Kuiper
like vortex of circles-ellipses.
The Henon law is based on conservation of the area in the x direction.
The first two are trianguloids like the elliptical signature curve,
but the inner curves are
four cornered.
Mathematica:
Clear[f, dlst, pt, cr, ptlst, x, y]
RandomSeed[];
a0 = 1.5732;
dlst = Table[ Random[Integer, {1, 2}], {n, 250000}];
f[1, {x_, y_}] := N[ {2*x*y/(x^2 + y^2) , (y^2 - x^2)/(y^2 + x^2)}];
f[2, {x_, y_}] := N[{x*Cos[a0] - (y - x^2)*Sin[
a0], x*Sin[a0] + (y - x^2)*Cos[a0]}/(1.55)];
pt = {0.5, 0.75};
cr[n_] := If[n - 2 == 0, RGBColor[0, 0, 1], If[n - 3 == 0, RGBCol=
or[0,
1, 0],
If[n - 1 == 0, RGBColor[1, 0, 0], RGBColor[0, 0, 0]]]]
ptlst = Table[{cr[dlst[[j]]], Point[pt = f[dlst[[j]], Sequence[pt]]]},
{j, Length[dlst]}];
Show[Graphics[Join[{PointSize[.001]}, ptlst]], AspectRatio ->
Automatic]

3. eyeofra_ifs.gif (GIF Image, 1044x1044 pixels) - Scaled (87%)

4. How to find difference between gif (Single frame GIF image)and gif animations(moving gif images)

5. How to convert a base 64 encoded GIF image to a *.gif file?

6. Unable to save GIF images as GIFs

7. Help: Creating a 3rd GIF image from 2 other GIFs

8. Broken image (single-pixel GIF) on refresh

9. Possible to scale a GIF image?

10. Positioning list-style-image: url(image.gif); images

11. using(Image image = Image.FromFile("bell.gif"))

12. Saving a Gif file as a Gif file in Outlook

13. mprevgrey.gif and next.gif (Fatal Error During Installation)

14. Graph: How to create a single GIF file contain 100 individual GIF

15. Gdi+ Gif Encoder Color Table problem for Png to Gif conversion with transparency