ACCESS
July 2001
crystal/forest fractal
An example from the book "Fractals  Endlessly repeated geometric figures", by Hans Lauwerier, page
94.
> restart:
> Digits:=4:
> with(plots):
Warning, the name changecoords has been redefined
>
> AFFINE1:=proc(X,a,b,c,d,e,f)
RETURN(evalf([a*X[1]+b*X[2]+e,
c*X[1]+d*X[2]+f]));
end:
> f1:=P>AFFINE1(P,0,.7,.7,0,0,0);
#rotate by Pi/2 rads, and scale by .7
f2:=P>AFFINE1(P,.7,0,0,.7,1,0);
#just scale by factor of .7, and translate
#to the right by 1
:=
f1
→
P
()
AFFINE1
, ,
,
, , ,
P
0
.
7.
7000
This preview has intentionally blurred sections. Sign up to view the full version.
View Full Document
This is the end of the preview.
Sign up
to
access the rest of the document.
 Spring '08
 McAllister
 Math, Geometry, geometric figures, Hans Lauwerier, crystal/forest fractal, Pi/2 rads, picture kind

Click to edit the document details