bushverb - #pure scaling by .53, with translation := f1 P (...

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

View Full Document Right Arrow Icon
ACCESS July 2001 bush fractal An example from the book "Fractals - Endlessly repeated geometric figures", by Hans Lauwerier, page 95. > restart: with(plots): Warning, the name changecoords has been redefined > Digits:=4: > > 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,.6,-.6,.6,.6,0,0); #A rotation (by Pi/4), an rescaling f2:=P->AFFINE1(P,.53,0,0,.53,1,0);
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.

Unformatted text preview: #pure scaling by .53, with translation := f1 P ( ) AFFINE1 , , , , , , P .6 -.6 .6 .6 0 0 := f2 P ( ) AFFINE1 , , , , , , P .53 0 0 .53 1 0 > S:={[0,0]}: > for i from 1 to 13 do S1:=map(f1,S): S2:=map(f2,S): S:=union(S1,S2): od: > > pointplot(S,symbol=point,scaling=constrained, title=Figure 5.16 page 95 Lauwerier); > 0.5 0.5 1 1.5 1 0.5 0.5 1 1.5 2 >...
View Full Document

Page1 / 2

bushverb - #pure scaling by .53, with translation := f1 P (...

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