XMas tree fractals

This quick Maple worksheet produces some very simple fractals that look vaguely like XMas trees. The chaos Maple library is available here.

> readlib(chaos);

degrees:=Pi/180;

angle:=20;

IFS := [
Affine(1/2,1/2,90+angle,90+angle,1/2-0.15,0),
Affine(1/2,1/2,-90-angle,-90-angle,1/2+1/2*sin(angle*degrees)+0.15,1/2*cos(angle*degrees)),
Affine(1/2,1/2,0,0,1/4,0.85)];

DrawDetIFS(MrFace,IFS,1);

DrawIFS(IFS,20000,color=green);

IFS:=GridIFS(Lt,Rt,Up,none);

IFS := [Affine(1/2,1/2,90,90,1/2,0), Affine(1/2,1/2,-90,-90,1/2,1/2), Affine(1/2,1/2,0,0,1/4,1/2)];

DrawDetIFS(MrFace,IFS,1);

DrawIFS(IFS,20000,color=GREEN);

IFS:=GridIFS(Up,Up,Up,none);

angle:=60;

IFS := [
Affine(1/2,1/2,angle,angle,1/4-1/4*cos(angle*degrees),-1/4*sin(angle*degrees)),
Affine(1/2,1/2,-angle,-angle,3/4-1/4*cos(angle*degrees),1/4*sin(angle*degrees)),
Affine(1/2,1/2,0,0,1/4,1/2)];

DrawDetIFS(MrFace,IFS,1);

DrawIFS(IFS,20000,color=green);

Many mathematics files on this site are in pdf format. If your browser does not display pdf files, click here for assistance.
This page was last  updated on Sunday, May 28, 2000 12:24:54 AM. © Ken Monks