[Date Index] [Thread Index] [Author Index]

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>