pracaffverb - ACCESS - July 2001 Twig example with test...

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

View Full Document Right Arrow Icon
ACCESS - July 2001 Twig example with test procedure In order to make the twig from yesterday’s notes, as well as more complicated examples, it is nice to have a test procedure to make sure you have picked your affine maps correctly (and to help you adjust them later if necessary.) The procedure TESTMAP below, takes an affine function as its input, and the result is a mapping -L picture like the ones in the fractal templates. > restart: > with(plots): Digits:=4: Warning, the name changecoords has been redefined > TESTMAP:=proc(f) #this procedure lets you test individual #functions in your iterated function system local S, #corners of unit square L, #corners of letter L Sq, #unit square Llet, #letter L AS, #transf of square corners ASq,#transf of square AL, #transf of L corners ALlet; #transf of letter L S:=[[0,0],[0,1],[1,1] ,[1,0]]; L:=[[.1,.9],[.1,.75],[.2,.75],[.2,.775],[.125,.775],[.125,.9]]: Sq:=polygonplot(S): #polygonplot connects the dots! Llet:=polygonplot(L): AS:=map(f,S): AL:=map(f,L): ASq:=polygonplot(AS): ALlet:=polygonplot(AL): #finally, display the unit square, the letter L,
Background image of page 1

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

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

Page1 / 4

pracaffverb - ACCESS - July 2001 Twig example with test...

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