crystalverb - ACCESS July 2001 crystal/forest fractal An...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
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
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

crystalverb - ACCESS July 2001 crystal/forest fractal An...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online