{VERSION 5 0 "Windows NT (unknown)" "5.0" }
{USTYLETAB {PSTYLE "Ordered List 1" -1 200 1 {CSTYLE "" -1 -1 "Times"
 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }
{PSTYLE "Ordered List 2" -1 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 36 2 0 2 2 -1 1 }{PSTYLE "Ordered
 List 3" -1 202 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 
0 0 1 }1 1 0 0 3 3 2 72 2 0 2 2 -1 1 }{PSTYLE "Ordered List 4" -1 203 
1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3
 3 2 108 2 0 2 2 -1 1 }{PSTYLE "Ordered List 5" -1 204 1 {CSTYLE "" -1
 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 
2 -1 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1
 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1 }{PSTYLE "Warning" 
-1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }
1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Annotation Title" -1 205 1 
{CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }3 1 0 0 12 
12 2 0 2 0 2 2 -1 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" -1 -1 "C
ourier" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1
 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2
 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Line Printe
d Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1
 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1 10 1 {CSTYLE
 "" -1 -1 "Courier" 1 9 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0
 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier"
 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }
{PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1 10 64 128 64 
1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Normal" 
-1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 
0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1
 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 
-1 1 }{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Hyperlin
kError" -1 206 1 {CSTYLE "" -1 -1 "Courier New" 1 12 255 0 255 1 2 2 1
 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Error" -1 8 1 
{CSTYLE "" -1 -1 "Courier" 1 10 255 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0
 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Tim
es" 1 18 0 0 0 1 2 1 1 2 2 2 1 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 }
{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2
 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Bullet Item" -1
 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0
 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 
"Times" 1 10 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1
 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 1 1
 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 2" -1
 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 
0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "HyperlinkWarning" -1 207 1 {CSTYLE ""
 -1 -1 "Courier New" 1 12 0 0 255 1 2 2 1 2 2 1 1 0 0 1 }1 1 0 0 0 0 2
 0 2 0 2 2 -1 1 }{PSTYLE "Left Justified Maple Output" -1 12 1 {CSTYLE
 "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 
0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Times" 1 12 
0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{CSTYLE "An
notation Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }
{CSTYLE "Help Maple Name" -1 35 "Times" 1 12 104 64 92 1 2 1 2 2 2 2 0
 0 0 1 }{CSTYLE "2D Math Bold" -1 5 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0
 0 0 1 }{CSTYLE "Help Menus" -1 36 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 
0 0 1 }{CSTYLE "2D Math Italic" -1 3 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 
0 0 0 1 }{CSTYLE "Help Normal" -1 30 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 
0 0 0 1 }{CSTYLE "Plot Text" -1 28 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0
 0 1 }{CSTYLE "Help Nonterminal" -1 24 "Courier" 1 12 0 0 0 1 2 1 2 2 
2 2 0 0 0 1 }{CSTYLE "Help Heading" -1 26 "Times" 1 14 0 0 0 1 2 1 2 2
 2 2 0 0 0 1 }{CSTYLE "Help Italic" -1 42 "Times" 1 12 0 0 0 1 1 2 2 2
 2 2 0 0 0 1 }{CSTYLE "Help Variable" -1 25 "Courier" 1 12 0 0 0 1 2 2
 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" -1 40 "Times" 1 12 0 0 0 
1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 38 "Times" 1 12 0 0 0 1 2 
2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Italic" -1 43 "Times" 1 12
 0 0 0 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Maple Input" -1 0 "Courier" 1 
12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 
12 0 0 255 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold Small" -1 10 "
Times" 1 1 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Small" -1 7 "
Times" 1 1 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Page Number" -1 33 "T
imes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Output Labels" -1 29 
"Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Plot Title" -1 27 "T
imes" 1 10 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Emphasized" -1 
22 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Symbol 2
" -1 16 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Comme
nt" -1 21 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Caption
 Reference" -1 201 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "
Maple Input Placeholder" -1 202 "Courier New" 1 12 200 0 200 1 2 1 2 2
 1 2 0 0 0 1 }{CSTYLE "Code" -1 203 "Courier New" 1 12 255 0 0 1 2 2 2
 2 2 2 0 0 0 1 }{CSTYLE "2D Inert Output" -1 204 "Times" 1 12 144 144 
144 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Italic Small" -1 205 "Time
s" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Comment" -1 18 "Times"
 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Bold" -1 
41 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }{CSTYLE "Copyright" -1 34
 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "
Times" 1 12 0 128 128 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined"
 -1 44 "Times" 1 12 0 0 0 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1
 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "T
imes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Time
s" 1 12 255 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Header and Footer" -1 
206 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 207 "T
imes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Notes" -1 37 "Ti
mes" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Bold" -1 39 "Time
s" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Equation Label" -1 208 "
Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "LaTeX" -1 32 "Times"
 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Popup" -1 31 "Times" 1 12 
0 128 128 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 45 
"Times" 1 12 147 0 15 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Caption Text" -1
 209 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Fixed" -1
 23 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "with(LinearAlgebra)
:\n" }{MPLTEXT 1 0 56 "# rotation parallel to the x-y plane, around th
e z-axis\n" }{MPLTEXT 1 0 50 "Txy := Matrix(3,3,[ [cos(theta), -sin(th
eta), 0],\n" }{MPLTEXT 1 0 50 "                    [sin(theta),  cos(t
heta), 0],\n" }{MPLTEXT 1 0 52 "                    [         0,      \+
     0, 1]]);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "-I'MatrixG6$%*protect
edGI(_syslibG6\"6#/I$%idGF'\"5QY#>A!3WnW=" }}}{EXCHG {PARA 0 "> " 0 ""
 {MPLTEXT 1 0 26 "rotxy := proc(vec, angel)\n" }{MPLTEXT 1 0 32 "   # \+
vec to be rotated by angel\n" }{MPLTEXT 1 0 57 "   MatrixVectorMultipl
y(subs(theta = angel, Txy) , vec);\n" }{MPLTEXT 1 0 5 "end;\n" }}
{PARA 11 "" 1 "" {XPPMATH 20 "f*6$I$vecG6\"I&angelGF%F%F%F%-_I.LinearA
lgebraG6$%*protectedGI(_syslibGF%I5MatrixVectorMultiplyGF%6$-I%subsGF+
6$/I&thetaGF%9%I$TxyGF%9$F%F%F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "v := Vector([1,2,3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "-&I'Vec
torG6$%*protectedGI(_syslibG6\"6#I'columnGF(6#/I$%idGF(\"5eZ#>A!3WnW="
 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "vrot := rotxy(v, Pi/2);"
 }}{PARA 11 "" 1 "" {XPPMATH 20 "-&I'VectorG6$%*protectedGI(_syslibG6
\"6#I'columnGF(6#/I$%idGF(\"5)*\\#>A!3WnW=" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 10 "Norm(v,2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "*$\"#9#
\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Norm(vrot,2)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "*$\"#9#\"\"\"\"\"#" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(plots):\n" }{MPLTEXT 1 0 27 "k
 := 8: # number of frames\n" }{MPLTEXT 1 0 9 "L := []:\n" }{MPLTEXT 1 
0 21 "for i from 0 to k do\n" }{MPLTEXT 1 0 25 "plt[i] := polygonplot3
d(\n" }{MPLTEXT 1 0 48 "              rotxy(Vector([1,0,0]), i*2*Pi/k)
,\n" }{MPLTEXT 1 0 48 "              rotxy(Vector([0,2,0]), i*2*Pi/k),
\n" }{MPLTEXT 1 0 47 "              rotxy(Vector([0,0,3]), i*2*Pi/k)\n
" }{MPLTEXT 1 0 16 "              ,\n" }{MPLTEXT 1 0 29 "             \+
 axes = normal,\n" }{MPLTEXT 1 0 28 "              style = patch\n" }
{MPLTEXT 1 0 42 "              #,orientation = [-25,75]\n):\n" }
{MPLTEXT 1 0 22 "L := [op(L), plt[i]]:\n" }{MPLTEXT 1 0 4 "od:\n" }}}
{PARA 0 "" 0 "" {TEXT 210 116 "In order to see the animation, click on
 the plot below with the right mouse button and follow the Animation s
ubmenu." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "display(L, insequ
ence=true);" }}{PARA 13 "" 1 "" {TEXT 211 0 "" }{GLPLOT3D 400 400 400 
{PLOTDATA 3 "6&-%(ANIMATEG6+7#-%)POLYGONSG6$7%7%$\"#5!\"\"$\"\"!!\"\"$
\"\"!!\"\"7%$\"\"!!\"\"$\"#?!\"\"$\"\"!!\"\"7%$\"\"!!\"\"$\"\"!!\"\"$
\"#I!\"\"-%&STYLEG6#%&PATCHG7#-%)POLYGONSG6$7%7%$\"*\"y1rq!\"*$!+iN@99
!\"*$\"\"!!\"\"7%$\"*\"y1rq!\"*$\"+iN@99!\"*$\"\"!!\"\"7%$\"\"!!\"\"$
\"\"!!\"\"$\"#I!\"\"-%&STYLEG6#%&PATCHG7#-%)POLYGONSG6$7%7%$\"\"!!\"\"
$!#?!\"\"$\"\"!!\"\"7%$\"#5!\"\"$\"\"!!\"\"$\"\"!!\"\"7%$\"\"!!\"\"$\"
\"!!\"\"$\"#I!\"\"-%&STYLEG6#%&PATCHG7#-%)POLYGONSG6$7%7%$!*\"y1rq!\"*
$!+iN@99!\"*$\"\"!!\"\"7%$\"*\"y1rq!\"*$!+iN@99!\"*$\"\"!!\"\"7%$\"\"!
!\"\"$\"\"!!\"\"$\"#I!\"\"-%&STYLEG6#%&PATCHG7#-%)POLYGONSG6$7%7%$!#5!
\"\"$\"\"!!\"\"$\"\"!!\"\"7%$\"\"!!\"\"$!#?!\"\"$\"\"!!\"\"7%$\"\"!!\"
\"$\"\"!!\"\"$\"#I!\"\"-%&STYLEG6#%&PATCHG7#-%)POLYGONSG6$7%7%$!*\"y1r
q!\"*$\"+iN@99!\"*$\"\"!!\"\"7%$!*\"y1rq!\"*$!+iN@99!\"*$\"\"!!\"\"7%$
\"\"!!\"\"$\"\"!!\"\"$\"#I!\"\"-%&STYLEG6#%&PATCHG7#-%)POLYGONSG6$7%7%
$\"\"!!\"\"$\"#?!\"\"$\"\"!!\"\"7%$!#5!\"\"$\"\"!!\"\"$\"\"!!\"\"7%$\"
\"!!\"\"$\"\"!!\"\"$\"#I!\"\"-%&STYLEG6#%&PATCHG7#-%)POLYGONSG6$7%7%$
\"*\"y1rq!\"*$\"+iN@99!\"*$\"\"!!\"\"7%$!*\"y1rq!\"*$\"+iN@99!\"*$\"\"
!!\"\"7%$\"\"!!\"\"$\"\"!!\"\"$\"#I!\"\"-%&STYLEG6#%&PATCHG7&-%)POLYGO
NSG6$7%7%$\"#5!\"\"$\"\"!!\"\"$\"\"!!\"\"7%$\"\"!!\"\"$\"#?!\"\"$\"\"!
!\"\"7%$\"\"!!\"\"$\"\"!!\"\"$\"#I!\"\"-%&STYLEG6#%&PATCHG-&%&_AXISG6#
\"\"\"6&-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYLE
G6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-&%&_AXISG6#
\"\"#6&-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYLEG
6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-&%&_AXISG6#\"
\"$6&-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYLEG6#
\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-%%VIEWG6%;$!#5!
\"\"$\"#5!\"\";$!#?!\"\"$\"#?!\"\";$\"\"!!\"\"$\"#I!\"\"-%+LIGHTMODELG
6#Q(LIGHT_36\"-%*AXESSTYLEG6#%'NORMALG" 1 2 2 1 10 0 2 1 0 4 2 1.0 
45.0 45.0 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve
 6" "Curve 7" "Curve 8" "Curve 9" }}{TEXT 211 0 "" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 14 "?polygonplot3d" }}}{EXCHG {PARA 0 "> " 0 "" 
{XPPEDIT 19 1 "" "%#%?G" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2
 33 1 1 }