1. Limited time only! Sign up for a free 30min personal tutor trial with Chegg Tutors
    Dismiss Notice
Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Fractals and Area summation in Mathematica

  1. Jan 25, 2010 #1
    1. The problem statement, all variables and given/known data
    Begin with an equilateral triangle T of side length 1
    At the middle of each side of T place an equilateral triangle whose side lengths are 1/3
    Repeat this process ad infinitum

    By summing an appropriate series, show that the area A of the fractal obtained above is finite, find A. Plot the area vs. iteration number, up to iteration 200.
    By summing an appropriate series show that the boundary of the fractal has infinite length. What well studied series do we get? Show both theoretically and empirically how we know the series does not converge.

    Draw the fractal

    2. Relevant equations
    Harmonic Series: 1/n
    Telescoping Series: b(n)-b(n+1) where the values in the parentheses are sub-notations
    Geometric Series: cr^n

    3. The attempt at a solution
    So far I am able to create a triangle with side lengths of 1, however I'm already stuck at placing the new triangles within it.

    [In]:r = 0;
    s = 0;
    t = 1;
    u = 0;
    v = 0.5;
    w = 0.866;

    [In]:T = Polygon[{{r, s}, {t, u}, {v, w}}]
    [Out]:Polygon[{{0, 0}, {1, 0}, {0.5, 0.866}}]

    [In]:Graphics[{Directive[Purple, Opacity[.5], EdgeForm[Thickness[.006]]],
    tri}, ImageSize -> 200]
    [Out]: A purple equilateral triangle
  2. jcsd
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook

Can you offer guidance or do you also need help?
Draft saved Draft deleted

Similar Discussions: Fractals and Area summation in Mathematica
  1. Summation ? (Replies: 4)