Simple fractal
- To: mathgroup at smc.vnet.net
- Subject: [mg121790] Simple fractal
- From: Tom De Vries <tidetabletom at gmail.com>
- Date: Sun, 2 Oct 2011 02:36:57 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
I am trying to create a very simple fractal, but I am not having any success.
I'd like to learn how to do this recursively, and hoping someone can
give me a bit of a push in the right direction.
It's a simple triangle with triangles at each corner, with triangles
at each corner, etc.
Below, a simple "level 1" graphic.
scale = 0.5;
list1 = Table[{0, 0} + {Cos[i*120*Degree], Sin[i*120*Degree]}, {i, 1,
sides + 1}];
list2 = (Table[#1 + scale*{Cos[i*120*Degree], Sin[i*120*Degree]}, {i,
1, sides + 1}] & ) /@ list1;
Graphics[{Line[list1], Line[list2]}]
Ideally I'd like to have a Manipulate with a slider for the level of
the fractal, the scale applied to each level, and the distance each
corner triangle is from the centre triangle.
Sorry, I know this is simple programming, but I don't have any ideas
how to start.
Tom De Vries
- Follow-Ups:
- Re: Simple fractal
- From: Heike Gramberg <heike.gramberg@gmail.com>
- Re: Simple fractal
- From: Patrick Scheibe <pscheibe@trm.uni-leipzig.de>
- Re: Simple fractal
- From: Ulrich Arndt <ulrich.arndt@data2knowledge.de>
- Re: Simple fractal