{VERSION 3 0 "SUN SPARC SOLARIS" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{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 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 
1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }{PSTYLE 
"Heading 2" 3 4 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 }
0 0 0 -1 8 2 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 -1 -1 -1 0 0 0 0 0 0 -1 
0 }{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 Output" 0 
11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 
-1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{SECT 0 {PARA 3 "" 0 "" 
{TEXT -1 35 "This worksheet explores snell's Law" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "law := sin(t
heta[r]) = (eta[i]/eta[r])*sin(theta[i]): law;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#/-%$sinG6#&%&thetaG6#%\"rG*&*&&%$etaG6#%\"iG\"\"\"-F%6#
&F(F/F1\"\"\"&F.F)!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 23 "For a specific material" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
46 "law1 := subs(\{eta[i]=1,eta[r]=3/2\},law):\nlaw1;" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 44 "eq1 := solve(law1,theta[r]):\ntheta[r] = eq1;" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "plot([eq1,theta[i]],theta[i]=0..Pi
/2,thickness=5,font=[TIMES,BOLD,24]);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#/-%$sinG6#&%&thetaG6#%\"rG,$-F%6#&F(6#%\"iG#\"\"#\"\"$" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#/&%&thetaG6#%\"rG-%'arcsinG6#,$-%$sinG6#&F%6#%
\"iG#\"\"#\"\"$" }}{PARA 8 "" 1 "" {TEXT -1 73 "Error, (in plot/adapti
ve) unknown optional argument, pmetric_bool = false" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 29 "plot([eq1],theta[i]=0..Pi/2);" }}{PARA 8 
"" 1 "" {TEXT -1 73 "Error, (in plot/adaptive) unknown optional argume
nt, pmetric_bool = false" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}}}{MARK "2 4 4 0 0" 0 }{VIEWOPTS 1 1 0 2 1 1805 }