<?xml version="1.0" encoding="UTF-8"?>
<Worksheet><Version major="6" minor="1"/><View-Properties><Zoom percentage="200"/></View-Properties><Styles><Layout alignment="left" bullet="none" linespacing="0.0" name="Heading 1" spaceabove="8.0" spacebelow="4.0"/><Layout alignment="left" bullet="none" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="Normal" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="centred" bullet="none" name="Maple Plot"/><Layout alignment="centred" bullet="none" linespacing="0.5" name="Maple Output"/><Font background="[0,0,0]" bold="true" executable="true" family="Monospaced" foreground="[255,0,0]" name="Maple Input" opaque="false" size="12"/><Font background="[0,0,0]" bold="false" executable="false" family="Lucida Bright" foreground="[0,0,0]" italic="false" name="Text" opaque="false" size="12" underline="false"/><Font background="[0,0,0]" bold="true" family="Serif" name="Heading 1" opaque="false" size="18"/><Font background="[0,0,0]" family="Lucida Bright" foreground="[0,0,255]" name="2D Output" opaque="false" readonly="true" size="12"/></Styles><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">read("turtle.txt"):</Text-field></Input><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">ResetTurtle();</Text-field></Input><Input><Text-field prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" style="Text">In order to "glue" sequences of letters together we use the maple comand "cat". EXAMPLE</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cat('F','RR');</Text-field></Input></Group><Group><Input><Text-field layout="Normal" style="Text">Maple has a comand to produce sequences</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">qq:=seq(x^i,i=2..4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSNxcUc2IjYlKiRJInhHRiUiIiMqJEYoIiIkKiRGKCIiJQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cat(qq);</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">aa:=seq('FLFR',i=1..6);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSNhYUc2IjYoSSVGTEZSR0YlRidGJ0YnRidGJw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cat(aa);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiNJOUZMRlJGTEZSRkxGUkZMRlJGTEZSRkxGUkc2Ig==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">Then we can "glue" the elements of our sequence with the cat command.</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">fig:=cat(aa);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSRmaWdHNiJJOUZMRlJGTEZSRkxGUkZMRlJGTEZSRkxGUkdGJQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">TurtleCmd(fig);</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDcvNyQiIiFGKjckJCIiIkYqJEYqRio3JCQiKykqKioqKioqKiohIzVGLDckJCIrKysrKz8hIipGLDckRjQkIiIjRio3JCQiKysrKytJRjZGODckRjskIiIkRio3JCQiKysrKytTRjZGPjckRkEkIiIlRio3JCQiKysrKytdRjZGRDckRkckIiImRio3JCQiKysrKytnRjZGSjckRk0kIiInRiotJSZDT0xPUkc2JiUkUkdCRyRGKiEiIkZWRlYtJSpBWEVTU1RZTEVHNiMlJU5PTkVHLSUoU0NBTElOR0c2IyUsQ09OU1RSQUlORURH</Plot></Text-field></Output></Group><Section><Title><Text-field layout="Heading 1" style="Heading 1">An interesting example from the book.</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">SetTurtleAngle(30);</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">TurtleCmd(cat(seq(cat(R,seq(FR,i=1..12)),j=1..12)));</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdddDckIiIhRio3JCQiKy0rKytdISM1JCIrUFNEZycpRi43JCQiKy9hLW04ISIqRjI3JCQiKy9hLW1CRjRGMjckJCIrMzMwS0tGNCQiK05TRGcnKUYuNyQkIis1MzBLUEY0JCIiKEYuNyQkIis2MzBLUEY0JCErJCoqKioqKioqKkYuNyQkIis1MzBLS0Y0JCErLmEtbT1GNDckJCIrMmEtbUJGNCQhKzBhLW1CRjQ3JCQiKzJhLW04RjRGTzckJCIrSysrK11GLiQhKzBhLW09RjQ3JCQiI0ZGLiQhKy0rKys1RjQ3JCQiKz5tKltcIyEjPSQhIiNGNDckJCIraVNEZycpRi4kIisjKSoqKioqKlxGLjckJCIrMWEtbT1GNEZhbzckJCIrNTMwS0ZGNCQhI0JGLjckJCIrNzMwS0tGNCQhK15TRGcnKUYuNyQkIis4MzBLS0Y0Rlc3JCQiKzczMEtGRjQkISszMzBLRkY0NyQkIis0YS1tPUY0JCErNTMwS0tGNDckJCIqNGEtbSlGNEZbcTckJCIjX0YuJCErNTMwS0ZGNDckJCErYCoqKioqKlxGLiQhKzFhLW09RjQ3JCQhK2IqKioqKipcRi4kISoxYS1tKUY0NyQkIiNaRi5GaW83JCQiKzArKys1RjRGaW83JCQiKzNhLW09RjQkIStHKysrXUYuNyQkIis1YS1tQkY0JCErMWEtbThGNDckJCIrNmEtbUJGNCQhKzFhLW1CRjQ3JCQiKzVhLW09RjQkISs0MzBLS0Y0NyQkIisyKysrNUY0JCErNjMwS1BGNDckJEZBRjRGXHQ3JCQhK29SRGcnKUYuJCErNjMwS0tGNDckJCErKFJEZ08iRjQkISszYS1tQkY0NyRGZnQkISszYS1tOEY0NyRGYXQkIStWKysrXUYuNyQkIiNwRi4kISNURi43JCQiKy9URGcnKUYuJCErWSsrK11GLjckJCIrN2EtbThGNCQhKzJhLW04RjQ3JCQiKzhhLW04RjQkISsyYS1tQkY0NyQkIitCVERnJylGLkZbcTckJCIjJSpGLiQhKzczMEtQRjQ3JCQhKzEqKioqKioqKkYuRmp2NyQkISslUkRnJz1GNCQhKzczMEtLRjQ3JCQhKyVSRGdPI0Y0Rmh0NyRGZXdGW3U3JEZgd0ZedTckJCErLioqKioqKioqRi5GY3U3JCQiIygqRi5GY3U3JCQiKzksKytdRi4kIStwU0RnJylGLjckJCIrPywrK11GLiQhKzJhLW09RjQ3JCQiJDgiRi5GY3E3JCQhKztSRGcnKUYuRmJ3NyQkISsjUkRnJz1GNEZidzckJCErJ3pdP3QjRjQkISs3MzBLRkY0NyQkISsnel0/QiRGNCQhKzNhLW09RjQ3JEZoeSQhKjNhLW0pRjQ3JEZjeSQhI1ZGLjckRmB5JCIrZioqKioqKlxGLjckJCEqI1JEZycpRjRGY3o3JCQiJDoiRi4kISNZRi43JCQiKzk1YDY3ISM8JCErMCsrKzVGNDckJCErJykpKioqKipcRi5Gank3JCQhKyNSRGdPIkY0JCErNWEtbUJGNDckJCErI1JEZ08jRjRGaVtsNyRGaHkkISs1YS1tPUY0NyQkISsnel0/dCRGNCQhKzErKys1RjQ3JEZiXGwkISInRjQ3JEZoeSQiK3hSRGcnKUYuNyRGXFxsJCIrKVJEZ08iRjQ3JEZnW2xGXV1sNyQkISsmKSkqKioqKlxGLiQiK3ZSRGcnKUYuNyQkIiRLIkYuJCEjYEYuNyQkISt2KSoqKioqXEYuJCErKDNhLW0pRi43JCQhKyFSRGdPIkY0JCErNWEtbThGNDckJCErIVJEZ08jRjRGYl5sNyQkISslel0/QiRGNCQhKytURGcnKUYuNyQkISslel0/dCRGNCQhI2xGLjckRl1fbCQiK04qKioqKioqKkYuNyRGaF5sJCIrKFJEZyc9RjQ3JEZlXmwkIisoUkRnTyNGNDckRmBebEZoX2w3JCQhK2wpKioqKipcRi4kIisnUkRnJz1GNDckJCIkXyJGLiQiK0sqKioqKioqKkYuNyQkIis5NWAiZSJGYFtsJCEjb0YuNyQkIStyUURnJylGLiQhKyUzKysrJkYuNyQkISsoUURnJz1GNCQhKykzKysrJkYuNyQkISsiel0/dCNGNCQhIykpRi43JCQhKyN6XT9CJEY0JCIrWlJEZycpRi43JEZqYWwkIismUkRnJz1GNDckJCErI3pdP3QjRjQkIisqel0/dCNGNDckJCErKVFEZyc9RjQkIisqel0/QiRGNDckJCEqKVFEZycpRjRGaWJsNyQkIiRiIkYuJCIrKXpdP3QjRjQ3JCQiK3MsKytdRi5GX2JsNyQkIit5LCsrXUYuJCIqJlJEZycpRjQ3JCQiJHIiRi4kISMlKUYuNyQkIStIKSoqKioqKipGLiQhK2luPzUpKUZbbzckRmBhbCQiKzcqKioqKipcRi43JCQhKylRRGdPI0Y0JCIrJlJEZ08iRjQ3JEZpZGwkIismUkRnTyNGNEZmYmw3JCQhK1YpKioqKioqKkYuJCIrKnpdP3QkRjQ3JCQiJGQiRi5GY2VsNyQkIisjPmEtbSlGLiQiKyl6XT9CJEY0NyQkIitAYS1tOEY0Rl5lbDckJCIrQWEtbThGNEZbZWw3JCQiKzhVRGcnKUYuJCIrOyoqKioqKlxGLjckJCIkJT1GLiQhJCsiRi43JCQhK2FRRGcnKUYuJCIrKyoqKioqKlxGLjckJCErJ1FEZ08iRjQkIislUkRnTyJGNDckRmNnbCQiKyVSRGdPI0Y0NyQkIStlUURnJylGLkZbZmw3JCQiJHoiRi4kIispel0/dCRGNDckJCIrPSsrKzVGNEZgaGw3JCQiK0FhLW09RjRGW2ZsNyQkIitDYS1tQkY0Rl5lbDckJCIrRGEtbUJGNEZbZWw3JCQiK0NhLW09RjRGZmZsNyQkIitAKysrNUY0RltnbDckJCIjQEY0JCErdzEtVDVGYFtsNyQkISsmeioqKioqXEYuJCIrSlJEZycpRi43JCQhKyh6KioqKipcRi4kIiskUkRnJz1GNDckJCIkMCNGLiQiKyh6XT90I0Y0NyQkIitVVURnJylGLiQiKyh6XT9CJEY0NyRGX2lsRltbbTckJCIrRzMwS0ZGNCQiKyd6XT90I0Y0NyQkIitJMzBLS0Y0RmFqbDckJCIrSjMwS0tGNCQiKiRSRGcnKUY0NyQkIitJMzBLRkY0JCEkLyJGLjckJCIrRmEtbT1GNCQhKz8sKytdRi43JCQiKkZhLW0pRjQkIStDLCsrXUYuNyQkIiRLI0YuJCEkQyJGLjckJCIraScqWypII0ZgW2wkIit3KSoqKioqKipGLjckJCIrSy0rK11GLiQiKyJSRGcnPUY0NyQkIitGYS1tOEY0JCIrIlJEZ08jRjQ3JCQiK0ZhLW1CRjRGXF5tNyRGZFttJCIrIVJEZyc9RjQ3JCQiK0szMEtQRjQkIitzKSoqKioqKipGLjckJCIrTDMwS1BGNCQhJEciRi43JCQiK0szMEtLRjQkIStpVERnJylGLjckJCIrSGEtbUJGNCQhKz1hLW04RjQ3JCQiK0hhLW04RjRGZl9tNyQkIitfLSsrXUYuJCErIT1hLW0pRi43JCQiJFojRi4kISRYIkYuLSUmQ09MT1JHNiYlJFJHQkckRiohIiJGaWBtRmlgbS0lKkFYRVNTVFlMRUc2IyUlTk9ORUctJShTQ0FMSU5HRzYjJSxDT05TVFJBSU5FREc=</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">With the above sequence of maple commands, change some of the parameters (angle, number of iterations for i, or j) and try to understand the output.</Text-field><Text-field layout="Normal" style="Text"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group></Section><Group><Input><Text-field layout="Normal" style="Text">Our First Procedure</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">triang:=proc()
SetTurtleAngle(60):
TurtleCmd(BRFRB):
end proc;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSd0cmlhbmdHNiJmKkYlRiVGJUYlQyQtSS9TZXRUdXJ0bGVBbmdsZUdGJTYjIiNnLUkqVHVydGxlQ21kR0YlNiNJJkJSRlJCR0YlRiVGJUYl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">triang();</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDcmNyQiIiFGKjckJCEiIkYqJEYqRio3JCQhKyQpKioqKioqXCEjNSQhK0dTRGcnKUYyNyQkIiNDRjIkIiInRjItJSZDT0xPUkc2JiUkUkdCRyRGKkYtRj5GPi0lKkFYRVNTVFlMRUc2IyUlTk9ORUctJShTQ0FMSU5HRzYjJSxDT05TVFJBSU5FREc=</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">SetInitialTurtleHeading(90):
triang();</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDcmNyQiIiFGKjckJCIrM1EuXj8hIz4kISIiRio3JCQiK1JTRGcnKSEjNSQhKykqKioqKioqXEY0NyQkIiIlRjQkIiIoRjQtJSZDT0xPUkc2JiUkUkdCRyRGKkYwRkBGQC0lKkFYRVNTVFlMRUc2IyUlTk9ORUctJShTQ0FMSU5HRzYjJSxDT05TVFJBSU5FREc=</Plot></Text-field></Output></Group><Section><Title><Text-field layout="Heading 1" style="Heading 1">EXERCISE: Create a procedure to draw</Text-field></Title><Group><Input><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">1. A decagon</Text-field><Text-field layout="Normal" style="Text">2. A polygon of n sides</Text-field><Text-field layout="Normal" style="Text">3. A circle</Text-field><Text-field layout="Normal" style="Text">4. Two polygons of n sides with a common edge.</Text-field><Text-field layout="Normal" style="Text"/></Input></Group></Section><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" style="Text">EXERCISE </Text-field><Text-field layout="Normal" style="Text">1. Draw the figures corresponding to the sequences FRSFR and FFRF and compare them. </Text-field><Text-field layout="Normal" style="Text">Can you deduce what S does?
</Text-field><Text-field layout="Normal" style="Text">2. Draw the figures corresponding to the sequences FRGFR and FRFF and compare them. </Text-field><Text-field layout="Normal" style="Text">Can you deduce what G does?</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" style="Text">Scaling</Text-field></Input></Group><Group><Input><Text-field layout="Normal" style="Text">Draw the picture corresponding to the next sequence of letters, execute the command SetTurtleScale(0.8) and draw the picture again. What can you deduce from the results?</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Section><Title><Text-field layout="Heading 1" style="Heading 1">Exercise</Text-field></Title><Group><Input><Text-field layout="Normal" style="Text">Find the sequence that produces the following figure</Text-field><Text-field layout="Normal" style="Text"/></Input></Group><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDctNyQiIiFGKjckJCIrSy0lKnBaISM3JEYqRio3JCQiK0pMXi0nKUYuJCEraEZbblhGLjckJCIrbHpJM3RGLiQhKzInRzI+IiEjNjckJCEqO2EkKWYoRi4kISslM1ZsbCJGOjckJCErMScqR3E2RjokISteI1sjZTdGOjckJCErWyJlIm87RjokIipHVmo0IkY6NyQkISssRGskZShGLiQiKyRlVmFvIkY6NyQkIitnZmMiWyJGOiQiKzlQUyEzI0Y6NyQkIitpOV5mT0Y6JCIqYC8qR0RGOjckJCIrazleZk9GOiQhK2Y+KjRJJEY6LSUmQ09MT1JHNiYlJFJHQkckRiohIiJGXG9GXG8tJSpBWEVTU1RZTEVHNiMlJU5PTkVHLSUoU0NBTElOR0c2IyUsQ09OU1RSQUlORURH</Plot></Text-field></Section><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/></Worksheet>