Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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



  • Prev by Date: Re: Integrating a Piecewise function four times but different results
  • Next by Date: DynamicModule Pure Function
  • Previous by thread: Re: count zeros in a number
  • Next by thread: Re: Simple fractal