{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 "Maple P
lot" 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 126 "Construct the envelope of
 the light rays emitted from a radiant point source at infinity after \+
reflection by the semi-circle. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 67 "m:=[[-3,sin(t)],[cos(t),sin(t)],[cos(t)-cos(2*t),sin(t)-sin(2*
t)]]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "t:=k*Pi/50-Pi/2:" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "plot([m$k=0..50],color=re
d,scaling=constrained,axes=none);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6Z-%'CURVESG6#7%7$$!\"$\"\"!$!\"\"F*7$$F*F*F+7$$
\"\"\"F*F+-F$6#7%7$F($!3g:FG%Gn-)**!#=7$$\"3SP8$H&>0zi!#>F67$$\"3C\"zV
3A0\\0\"!#<$!3,t'R'[\\$ps)F8-F$6#7%7$F($!3wyZ98q9@**F87$$\"3eUIkNBL`7F
8FG7$$\"3KNHp%R;R4\"F@$!3PJi\\T\"[UV(F8-F$6#7%7$F($!3@()oG2D(G#)*F87$$
\"3+Ys&e98Q(=F8FU7$$\"3<wRZ+y:<6F@$!3-3,W!)piThF8-F$6#7%7$F($!3w5jG6;$
eo*F87$$\"3%za[;())*o[#F8F]o7$$\"3L=(3sc'*\\7\"F@$!3ad\"p-([Ho[F8-F$6#
7%7$F($!3UO:&H;l0^*F87$$\"3'RZ\\P%*p,4$F8F[p7$$\"3!\\*)\\())R.=6F@$!30
0o-SErKOF8-F$6#7%7$F($!3e9D))e[w(H*F87$$\"3=zn%o_X7o$F8Fip7$$\"3Y*31,=
$4(4\"F@$!3WGcf*z$H_CF8-F$6#7%7$F($!3y&>gY_q#[!*F87$$\"3;F2l:HzdUF8Fgq
7$$\"3SiPJ\"G.K1\"F@$!3B.B!p4QJM\"F8-F$6#7%7$F($!3%ejQ/!o1j()F87$$\"3B
`r,Tn`<[F8Fer7$$\"3)>r!3p/e<5F@$!3'3&[=aa(y>$F<-F$6#7%7$F($!3v],-b#zKW
)F87$$\"3cm**y\\zEe`F8Fcs7$$\"3;$pSa'31;'*F8$\"3;]/S'p7*\\gF<-F$6#7%7$
F($!3_u%\\P%*p,4)F87$$\"3QJZ#H__y(eF8Fat7$$\"3)e?umYA!o*)F8$\"3!31-#>_
R?9F8-F$6#7%7$F($!3`#*yvFC80xF87$$\"3M'*o[(*)RUP'F8F_u7$$\"3YVTMVI0[#)
F8$\"3o%**G&z+u<@F8-F$6#7%7$F($!3_:T@uio*G(F87$$\"39')oGf5ZXoF8F]v7$$
\"3'3-!eaiPtuF8$\"31+'o+,\"e!p#F8-F$6#7%7$F($!3E()oGf5ZXoF87$$\"3U9T@u
io*G(F8F[w7$$\"3qz4#*y5yhmF8$\"3LGe*\\A'zMJF8-F$6#7%7$F($!3M'*o[(*)RUP
'F87$$\"3`#*yvFC80xF8Fiw7$$\"3TX1!>G>8$eF8$\"3'3***z4Ej[MF8-F$6#7%7$F(
$!3[KZ#H__y(eF87$$\"3St%\\P%*p,4)F8Fgx7$$\"3)))*************\\F8$\"3$G
!o-SErKOF8-F$6#7%7$F($!3cm**y\\zEe`F87$$\"3v],-b#zKW)F8Fey7$$\"3;C%p$R
j[&=%F8$\"3?H-([d-+p$F8-F$6#7%7$F($!37_r,Tn`<[F87$$\"3%ejQ/!o1j()F8Fcz
7$$\"3Fp'[1&))z/MF8$\"3j)*H+9DuDOF8-F$6#7%7$F($!3gE2l:HzdUF87$$\"3y&>g
Y_q#[!*F8Fa[l7$$\"3U*HtriISn#F8$\"3%f;2@^RtW$F8-F$6#7%7$F($!3'3yYo_X7o
$F87$$\"3Y8D))e[w(H*F8F_\\l7$$\"3&zRoYey!3?F8$\"3G0,WKbAkJF8-F$6#7%7$F
($!3_u%\\P%*p,4$F87$$\"3JN:&H;l0^*F8F]]l7$Fit$\"3'oDv\"zDo(y#F8-F$6#7%
7$F($!3i\\&[;())*o[#F87$$\"3w5jG6;$eo*F8Fi]l7$$\"3@\\nZ3\"[wA*F<$\"3i.
'o$pyjIBF8-F$6#7%7$F($!37Zs&e98Q(=F87$$\"3@()oG2D(G#)*F8Fg^l7$$\"3IEP/
%[w5D&F<$\"32K&*)4QKu!=F8-F$6#7%7$F($!3eUIkNBL`7F87$$\"3wyZ98q9@**F8Fe
_l7$$\"3)*zYe=S:`BF<$\"3P0b+OlcL7F8-F$6#7%7$F($!3G^8$H&>0ziF<7$$\"3g:F
G%Gn-)**F8Fc`l7$$\"32$o$z8r-7f!#?$\"3eu!*\\.9FaiF<-F$6#7%7$F(F.7$F0F.7
$F.F.-F$6#7%7$F($\"3G^8$H&>0ziF<7$Ff`lFhal7$Fi`l$!3eu!*\\.9FaiF<-F$6#7
%7$F(FJ7$Fh_lFJ7$F[`l$!3P0b+OlcL7F8-F$6#7%7$F($\"37Zs&e98Q(=F87$Fj^lFj
bl7$F]_l$!32K&*)4QKu!=F8-F$6#7%7$F($\"3i\\&[;())*o[#F87$F\\^lFdcl7$F_^
l$!3i.'o$pyjIBF8-F$6#7%7$F($\"3_u%\\P%*p,4$F87$F`]lF^dl7$Fit$!3'oDv\"z
Do(y#F8-F$6#7%7$F($\"3'3yYo_X7o$F87$Fb\\lFhdl7$Fe\\l$!3G0,WKbAkJF8-F$6
#7%7$F($\"3gE2l:HzdUF87$Fd[lFbel7$Fg[l$!3%f;2@^RtW$F8-F$6#7%7$F($\"37_
r,Tn`<[F87$FfzF\\fl7$Fiz$!3j)*H+9DuDOF8-F$6#7%7$F(Ffs7$FhyFfs7$F[z$!3?
H-([d-+p$F8-F$6#7%7$F($\"3[KZ#H__y(eF87$FjxF^gl7$F]y$!3$G!o-SErKOF8-F$
6#7%7$F(Fbu7$F\\xFbu7$F_x$!3'3***z4Ej[MF8-F$6#7%7$F($\"3E()oGf5ZXoF87$
F^wF`hl7$Faw$!3LGe*\\A'zMJF8-F$6#7%7$F($\"3_:T@uio*G(F87$F`vFjhl7$Fcv$
!31+'o+,\"e!p#F8-F$6#7%7$F(F\\x7$FbuF\\x7$Feu$!3o%**G&z+u<@F8-F$6#7%7$
F($\"3_u%\\P%*p,4)F87$FdtF\\jl7$Fgt$!3!31-#>_R?9F8-F$6#7%7$F(Fhy7$FfsF
hy7$Fis$!3;]/S'p7*\\gF<-F$6#7%7$F(Ffz7$FhrFfz7$F[s$\"3'3&[=aa(y>$F<-F$
6#7%7$F(Fd[l7$FjqFd[l7$F]r$\"3B.B!p4QJM\"F8-F$6#7%7$F($\"3e9D))e[w(H*F
87$F\\qF^\\m7$F_q$\"3WGcf*z$H_CF8-F$6#7%7$F($\"3UO:&H;l0^*F87$F^pFh\\m
7$Fap$\"300o-SErKOF8-F$6#7%7$F(F\\^l7$F`oF\\^l7$Fco$\"3ad\"p-([Ho[F8-F
$6#7%7$F(Fj^l7$FXFj^l7$Fen$\"3-3,W!)piThF8-F$6#7%7$F(Fh_l7$FJFh_l7$FM$
\"3PJi\\T\"[UV(F8-F$6#7%7$F(Ff`l7$F:Ff`l7$F>$\"3,t'R'[\\$ps)F8-F$6#7%7
$F(F07$F.F07$F0F0-%*AXESSTYLEG6#%%NONEG-%'COLOURG6&%$RGBG$\"*++++\"!\"
)F.F.-%(SCALINGG6#%,CONSTRAINEDG-%+AXESLABELSG6$Q!6\"Ff`m-%%VIEWG6$%(D
EFAULTGF[am" 1 2 0 1 10 0 2 6 1 1 1 1.000000 45.000000 45.000000 0 0 "
Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve 6" "Curve 7" "
Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve \+
14" "Curve 15" "Curve 16" "Curve 17" "Curve 18" "Curve 19" "Curve 20" 
"Curve 21" "Curve 22" "Curve 23" "Curve 24" "Curve 25" "Curve 26" "Cur
ve 27" "Curve 28" "Curve 29" "Curve 30" "Curve 31" "Curve 32" "Curve 3
3" "Curve 34" "Curve 35" "Curve 36" "Curve 37" "Curve 38" "Curve 39" "
Curve 40" "Curve 41" "Curve 42" "Curve 43" "Curve 44" "Curve 45" "Curv
e 46" "Curve 47" "Curve 48" "Curve 49" "Curve 50" "Curve 51" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }