{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "a:=[1,1];" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 9 "b:=[5,2];" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "c:=[2,7];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
34 "polygonplot([a,b,c],color=wheat);\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "t:=[8,8];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
26 "ta:=a+t; tb:=b+t; tc:=c+t;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 36 "polygonplot([ta,tb,tc],color=khaki);" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 79 "display(polygonplot([a,b,c],color=wheat),polygon
plot([ta,tb,tc],color=khaki));\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 6 "n:=40;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f
or i from 1 by 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "p3[i]:=
polygonplot([i*a,i*b,i*c],color=turquoise):" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "disp
lay(seq(p3[i],i=1..n));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "
because2:=seq(p3[i],i=1..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 36 "display([because2],insequence=true);" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 11 "ryan:=Pi/4;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 61 "barf:=matrix([[cos(ryan),-sin(ryan)],[sin(ryan),cos(ryan)]]);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "gross:=matrix([[a[1]],[
a[2]]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "why:=matrix([[b
[1]],[b[2]]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "tv:=matri
x([[c[1]],[c[2]]]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "tris
ta:=multiply(barf,gross);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
28 "reality:=multiply(barf,why);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "sick:=multiply(barf,tv);" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 30 "ap:=[trista[1,1],trista[2,1]];" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 32 "bp:=[reality[1,1],reality[2,1]];" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "cp:=[sick[1,1],sick[2,1]];" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "polygonplot([ap,bp,cp]);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 54 "display(polygonplot([a,b,c]),polygonplot([ap,bp,cp]
));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "begpt:=0;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "endpt:=2*Pi;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "for i from 0 by 1 to n do" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "   ryan:=begpt+i*(endpt-begpt)/n:
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "   barf:=matrix([[cos(ryan),-si
n(ryan)],[sin(ryan),cos(ryan)]]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
34 "   gross:=matrix([[a[1]],[a[2]]]):" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 32 "   why:=matrix([[b[1]],[b[2]]]):" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 31 "   tv:=matrix([[c[1]],[c[2]]]):" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "   trista:=multiply(barf,gross):" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 31 "   reality:=multiply(barf,why):" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 27 "   sick:=multiply(barf,tv):" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 33 "   ap:=[trista[1,1],trista[2,1]]:" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 35 "   bp:=[reality[1,1],reality[2,1]]:" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 29 "   cp:=[sick[1,1],sick[2,1]];" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 46 "   p[i]:=polygonplot([ap,bp,cp],color=sienna):" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "display(seq(p[i],i=1..n));" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 26 "because:=seq(p[i],i=0..n):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 35 "display([because],insequence=true);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "for i from 0 by 1 to n do" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "   ryan:=begpt+i*(endpt-begpt)/n:
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "   barf:=matrix([[cos(ryan),-si
n(ryan)],[sin(ryan),cos(ryan)]]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
38 "   gross:=matrix([[a[1]-8],[a[2]-8]]):" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 36 "   why:=matrix([[b[1]-8],[b[2]-8]]):" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 35 "   tv:=matrix([[c[1]-8],[c[2]-8]]):" }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 32 "   trista:=multiply(barf,gross):" }}{PARA 0 
"> " 0 "" {MPLTEXT 1 0 31 "   reality:=multiply(barf,why):" }}{PARA 0 
"> " 0 "" {MPLTEXT 1 0 27 "   sick:=multiply(barf,tv):" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 37 "   ap:=[trista[1,1]+8,trista[2,1]+8]:" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "   bp:=[reality[1,1]+8,reality[2,1]
+8]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "   cp:=[sick[1,1]+8,sick[2,
1]+8];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "   p2[i]:=polygonplot([ap
,bp,cp],color=tan):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "display(seq(p2[i],i=1..n));
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "display([seq(p2[i],i=1.
.n),seq(p[i],i=1..n)]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "48" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 
1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }