{VERSION 4 0 "IBM INTEL NT" "4.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 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Ou
tput" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 
0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 
0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 96 "Construct the reflections \+
of a light ray trapped inside a reflective ellipse. There are two case
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" 
{TEXT -1 80 "Warning, the protected names norm and trace have been red
efined and unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 
"a:=5:b:=3:r:=2.34:s:=3.5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
47 "ll:=[a*cos(r),b*sin(r)]:l:=[a*cos(s),b*sin(s)]:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 10 "m:=[l,ll]:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 195 "for k to 200 do u:=ll-l: n:=[-b*ll[1]/a,-a*ll[2]/b]:
v:=u-2*dotprod(u , n)*n/dotprod(n,n):t:=-2*(b^2*v[1]*ll[1]+a^2*ll[2]*v
[2])/(b^2*v[1]^2+a^2*v[2]^2):lll:=ll+t*v:m:=[op(m),lll]:l:=ll:ll:=lll:
od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "plot(m,scaling=const
rained,axes=none,color=cyan);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 
300 {PLOTDATA 2 "6(-%'CURVESG6#7fw7$$!3i*****fV$G#o%!#<$!35+++$o\\B0\"
F*7$$!39+++Km\"yZ$F*$\"33+++zVRb@F*7$$\"3r*****Ry)z1[F*$\"3s*******Ra)
e#)!#=7$$\"39+++'=])RHF*$!3=+++C\"[mU#F*7$$!3w*****4H_N*[F*$!3S++++TPd
hF77$$!3;+++PO\"fG#F*$\"3/+++j$=\"oEF*7$$\"3/+++[9,^\\F*$\"3))******40
@*=%F77$$\"35+++zG2D:F*$!3y*****40Vq&GF*7$$!3I+++**R1&)\\F*$!3++++gd4<
BF77$$!3]******>?/NoF7$\"3#******\\8P=(HF*7$$\"3C+++beI**\\F*$\"3%)***
*****3x)*\\!#>7$$!3#*******R1Lp>F7$!3'******H9sw*HF*7$$!3q*****pok_*\\
F*$\"32+++gzL08F77$$\"3/+++/L*f1\"F*$\"3)*******4m-JHF*7$$\"3w*****ze0
D(\\F*$!36+++!)*y<9$F77$$!3#******HZTf(=F*$!31+++ie%3y#F*7$$!3d*****fN
+'G\\F*$\"3U+++Sow^]F77$$\"33+++![T8f#F*$\"3++++fUllDF*7$$\"39+++S`'*e
[F*$!3K+++?c0vqF77$$!3-+++%[.Q>$F*$!3++++5k@3BF*7$$!3;+++P(*fcZF*$\"3a
+++5?:Y#*F77$$\"39+++&[!*4o$F*$\"3$*******H$)HI?F*7$$\"3c*****4\"4!=h%
F*$!3)******fA$**e6F*7$$!33+++=3,iSF*$!35+++)e#H\\<F*7$$!3<+++)f5?T%F*
$\"30+++c!)[69F*7$$\"3!******px,?N%F*$\"3)******f'Q.x9F*7$$\"3O+++[K1U
TF*$!3)******4%[N!o\"F*7$$!3%******zm`xc%F*$!30+++-W<?7F*7$$!3-+++9pC&
y$F*$\"3!******R*H2g>F*7$$\"3e*****4_e\\s%F*$\"35+++g!HG\")*F77$$\"3'*
*****zClcK$F*$!3z*****zgu,C#F*7$$!3r*****>bqo$[F*$!3%)******fdc+wF77$$
!3'******R4AAv#F*$\"3(******>W:Y]#F*7$$\"3#)*****H*))*Q\"\\F*$\"3m****
***=@Ma&F77$$\"3!******>&))*Q1#F*$!33+++&f#\\KFF*7$$!3u*****>2#pj\\F*$
!3I++++[z3OF77$$!3'******>(e![F\"F*$\"3%******z(Q&3!HF*7$$\"3#******fO
39*\\F*$\"35+++?T$zv\"F77$$\"35+++S1SjTF7$!3#*******p:e*)HF*7$$!3q****
*>x#****\\F*$\"3p********fl-^!#?7$$\"3%)******f()fgYF7$\"39+++i)Qp)HF*
7$$\"3U+++'=o.*\\F*$!3++++5L@h=F77$$!3++++n0r@8F*$!35+++FpG$*GF*7$$!3C
+++G-]h\\F*$\"3#)******pzr:PF77$$\"38+++onx0@F*$\"34+++`b'4s#F*7$$\"3(
)******eZK5\\F*$!3Y******>xGccF77$$!3!)*****zm6yy#F*$!3;+++L_S!\\#F*7$
$!3w*****>O]:$[F*$\"3S++++BU@xF77$$\"31+++(3gYN$F*$\"3\"******HgcXA#F*
7$$\"3w*****Rpytr%F*$!3a******zzCV**F77$$!33+++)*)e!3QF*$!3%******po+T
%>F*7$$!3e*****>\")Qsb%F*$\"3(*******fuCM7F*7$$\"3e*****p:4&fTF*$\"3%*
*****>[oZm\"F*7$$\"3j*****45@xL%F*$!3!******\\<!3#\\\"F*7$$!3-+++OV/DW
F*$!35+++6Ds'R\"F*7$$!3o*****zICI/%F*$\"33+++ni0l<F*7$$\"3&)*****p\\P8
i%F*$\"3++++ujBX6F*7$$\"3=+++**HOcOF*$!31+++tfDY?F*7$$!3')*****H.DMw%F
*$!33+++g-y=\"*F77$$!3y*****H%)4G;$F*$\"35+++i#HNK#F*7$$\"3m*****\\v/P
'[F*$\"3!)*******)R$o&pF77$$\"3-+++alv`DF*$!3%******4^&=zDF*7$$!3C+++*
**><$\\F*$!3:+++Sx%4%\\F77$$!3*******HMYB$=F*$\"3')******p/H\"z#F*7$$
\"3y*****fyEV(\\F*$\"3\")*******))>i.$F77$$\"3-+++'ebz,\"F*$!3'******H
,or$HF*7$$!3i*****4U!)f*\\F*$!3\"*******H?p-7F77$$!37+++!)3,p9F7$\"3!*
*****p#\\q)*HF*7$$\"3'*******oI**)*\\F*$!31++++!e/-'Fjn7$$!3;+++5KXEtF
7$!3/+++(4>w'HF*7$$!3M+++$**)o$)\\F*$\"3/+++SjB@CF77$$\"3)******>JO1d
\"F*$\"35+++aE9[GF*7$$\"3%)*****\\[F%[\\F*$!3;+++S_r(H%F77$$!3<+++`t&f
K#F*$!3A+++h-jbEF*7$$!3%*******e(*[*)[F*$\"3Y******>E[siF77$$\"3#)****
*4@=M(HF*$\"3$)*****zTz=T#F*7$$\"3P+++\"*)\\3![F*$!3e******4q\\#Q)F77$
$!3/+++@R&[]$F*$!3&)*****p(*p&R@F*7$$!3!******p*e)Qn%F*$\"3)*******QQq
l5F*7$$\"30+++:ndDRF*$\"3#******fu[!e=F*7$$\"3?+++p,:(\\%F*$!32+++MV>6
8F*7$$!3M+++Q<)*[UF*$!3)*******yML\"e\"F*7$$!3u******R-UcUF*$\"3-+++,a
6u:F*7$$\"3g*****RuL;\\%F*$\"3*******>*Q)zJ\"F*7$$\"3/+++upQNRF*$!31++
+#zi0&=F*7$$!3!)*****4))y)pYF*$!3-+++6!4?2\"F*7$$!3')*****H*\\X<NF*$\"
3)******H_7@8#F*7$$\"3?+++nz+)z%F*$\"3<+++S8(3W)F77$$\"3A+++yl3*)HF*$!
3')*****47(*[S#F*7$$!3A+++]^a()[F*$!3)*******ps!oK'F77$$!32+++iAoWBF*$
\"33+++Kdp\\EF*7$$\"3!)*****>Q&=Z\\F*$\"3/++++/*)[VF77$$\"3/+++hr)>f\"
F*$!3<+++d>(Q%GF*7$$!3')*****z&*>I)\\F*$!3)*******R;JqCF77$$!3)*******
HGEdvF7$\"3%)*****ppMb'HF*7$$\"3w*****ptD))*\\F*$\"3n++++>X,lFjn7$$!3&
*******HMWL7F7$!3))*****z.(3**HF*7$$!3k*****pv'H'*\\F*$\"3/+++!G;W:\"F
77$$\"3!*******f2$G&**F7$\"3%)******yR'*RHF*7$$\"3!)*****\\!3;v\\F*$!3
%********G?m)HF77$$!34+++SSs6=F*$!3#)*****>OKhz#F*7$$!3S+++m,;L\\F*$\"
3y******Rr\"*))[F77$$\"3(******4kTf`#F*$\"3/+++ed]&e#F*7$$\"3G+++H'**e
'[F*$!3e******p'e8!pF77$$!35+++_T4[JF*$!3++++*e72L#F*7$$!3I+++r4fmZF*$
\"3[******\\v-f!*F77$$\"3=+++sNlWOF*$\"39+++QCw`?F*7$$\"3E+++VcwDYF*$!
3&******fM#yQ6F*7$$!3'******Rt')R.%F*$!3))*****\\\"[[s<F*7$$!39+++R:5J
WF*$\"3'******R7#z*Q\"F*7$$\"3n*****>9<4L%F*$\"31+++&fy\"*\\\"F*7$$\"3
5+++)4Cw;%F*$!3#******H0Yul\"F*7$$!3M+++A[A_XF*$!32+++12*3C\"F*7$$!3%)
*****H.\"o=QF*$\"3++++CaeO>F*7$$\"3f********3w8ZF*$\"3(******HR#[+5F*7
$$\"3A+++2(y\"oLF*$!3-+++!e!><AF*7$$!3V+++0x+H[F*$!3_******HPZyxF77$$!
35+++c9V/GF*$\"39+++i&yO[#F*7$$\"3?+++CCh3\\F*$\"3L+++IBa4dF77$$\"3&**
*****=.PD@F*$!3++++HdZ:FF*7$$!3M+++UUWg\\F*$!3)*******4A8mPF77$$!34+++
[QqV8F*$\"31+++Mwj*)GF*7$$\"3k*****fad)*)\\F*$\"3#*******\\d')4>F77$$
\"3))*******[%G%*[F7$!39+++0If&)HF*7$$!3))*****\\ws***\\F*$!3n++++!p`!
**F\\x7$$\"3=++++O9HRF7$\"3?+++mFs!*HF*7$$\"3m*****z#o(=*\\F*$!36+++I$
y$4<F77$$!33+++$)Rl_7F*$!32+++-fK/HF*7$$!3c*****\\@*pk\\F*$\"31+++]5de
NF77$$\"3#)******4x2W?F*$\"36+++>6&yt#F*7$$\"38+++63b:\\F*$!3Q+++gSW!
\\&F77$$!3!)*****R6X`t#F*$!3$)******>DE6DF*7$$!3#)******RcLR[F*$\"3_**
****pc'Qa(F77$$\"3.+++MO*=J$F*$\"3%******f[2vC#F*7$$\"3\"******zMv%GZF
*$!3+++++Vl^(*F77$$!3))*****4\"zRuPF*$!3)******fE!fn>F*7$$!3e******3oj
sXF*$\"3#******H=sN@\"F*7$$\"3-+++9vvLTF*$\"3#******R*=q(o\"F*7$$\"3!)
*****HRR'eVF*$!3!******H(4(*p9F*7$$!3k******R**z0WF*$!3*)*****Rra%=9F*
7$$!3c*****>$Q%32%F*$\"3&*******>\\)=u\"F*7$$\"3p*****R#GD2YF*$\"3#***
****Hp[l6F*7$$\"3!)*****zfgCp$F*$!38+++SjyA?F*7$$!3y******G9M`ZF*$!3b*
*****p%ziI*F77$$!3%)*****4Xe#3KF*$\"3*******f\\))4I#F*7$$\"33+++.$*pc[
F*$\"32+++?#[38(F77$$\"3y*****4%***)3EF*$!3A+++$HS#fDF*7$$!31+++FU5F\\
F*$!31+++]m./^F77$$!3++++.\"[j*=F*$\"3;+++?'eex#F*7$$\"3A+++qair\\F*$
\"3y******z'G:>$F77$$\"3'******\\*)H&)3\"F*$!3&******>@V!GHF*7$$!3c***
**fP2\\*\\F*$!33+++!3pON\"F77$$!3.+++!3;Y?#F7$\"3y*****pR#3(*HF*7$$\"3
#)*****f$HV**\\F*$!3o*******p#>=XFjn7$$!3k******4SQ.mF7$!31+++>@stHF*7
$$!3k*****z9*o&)\\F*$\"3')******z%e\"oAF77$$\"3,+++0Pa.:F*$\"3%******
\\3[6'GF*7$$\"3m******=9?_\\F*$!3********HjEQTF77$$!3%******H$G&pE#F*$
!37+++pe$Rn#F*7$$!3g*****zPJa*[F*$\"3#*******>_O.hF77$$\"3=+++<p#R#HF*
$\"33+++sTcLCF*7$$\"3F+++`fb4[F*$!3M+++5['3?)F77$$!3/+++I@(\\Y$F*$!3%*
*****\\%)GG;#F*7$$!3s*****f-!='o%F*$\"3-+++aq3Y5F*7$$\"37+++AwZ%*QF*$
\"3!*******=6Y\")=F*7$$\"3h*****46&49XF*$!3)******4<i+H\"F*7$$!3t*****
4=q`A%F*$!3%******\\#z%Rg\"F*7$$!3%)*****p<&HzUF*$\"3#******p\\F;b\"F*
7$$\"3G+++\\J5uWF*$\"3%******4ex#R8F*7$$\"3!******\\z%flRF*$!34+++(H+s
#=F*7$$!3))*****>7Irl%F*$!3)******p:#z\"4\"F*7$$!3!*******fzJcNF*$\"33
+++\"=w(3@F*7$$\"3y*****RS_*)y%F*$\"3()*******e;Si)F77$$\"3(******f7/v
.$F*$!3!******>:dHQ#F*7$$!3I+++hIL\")[F*$!3#)******p`;(\\'F77$$!3?+++j
=o-CF*$\"3')*****HSC4j#F*7$$\"3$******\\9'>V\\F*$\"3.+++?(Q#4XF77$$\"3
1+++.HIe;F*$!3>+++_j>IGF*7$$!3G+++Z&Q3)\\F*$!3*)******4:\"Ri#F77$$!3_*
*****>`Nw#)F7$\"3!)*****Ht:'eHF*7$$\"3%)******)p>#)*\\F*$\"3Y++++%)*\\
+)Fjn7$$!3;++++.gr\\Fjn$!3?+++0<&)**HF*7$$!3!******4\"3?(*\\F*$\"3++++
!**3P+\"F77$$\"3e******zd\">C*F7$\"3?+++WoI[HF*7$$\"3=+++0Anx\\F*$!3(*
******\\A(>$GF77$$!3%*******Hp'ou\"F*$!35+++o2&4\"GF*7$$!3=+++QbaP\\F*
$\"3********z)eos%F77$$\"3')*****z*QwzCF*$\"30+++%\\[]g#F*7$$\"3W+++=A
hs[F*$!3]******p3qGnF77$$!3!******>)Qe,JF*$!33+++\"=aIN#F*7$$!3!******
>\\%HwZF*$\"3-++++#GJ())F77$$\"3*)*****>fvvg$F*$\"3'******f1'>x?F*7$$
\"3,+++![c$RYF*$!3#******\\%=q=6F*7$$!3()*****HlD`+%F*$!3++++2;t&z\"F*
7$$!3q*****RS8(\\WF*$\"3'******f?<#o8F*7$$\"3%)******fBJ4VF*$\"32+++Vi
U@:F*7$$\"3#******48)e#>%F*$!3)******fWBYj\"F*7$$!3p*****Rg&GOXF*$!33+
++o#H<E\"F*7$$!35+++wKS^QF*$\"3++++I^68>F*7$$\"3P+++ZeC-ZF*$\"3\"*****
***3.)>5F*7$$\"3<+++X[*)4MF*$!3/+++w`6%>#F*7$$!3$)*****4i+4#[F*$!3k***
***f8XdzF7-%*AXESSTYLEG6#%%NONEG-%'COLOURG6&%$RGBG$\"\"!F`[o$\"*++++\"
!\")Fa[o-%(SCALINGG6#%,CONSTRAINEDG-%+AXESLABELSG6$Q!6\"F[\\o-%%VIEWG6
$%(DEFAULTGF`\\o" 1 2 0 1 10 0 2 6 1 1 1 1.000000 45.000000 45.000000 
0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "8 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }