{VERSION 2 3 "APPLE_68K_MAC" "2.3" }
{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 116 111 127 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 112 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 Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 150 0 172 0 0 0 0 0 0 0 0 0 0 }1 3 0 -1 -1 -1 
0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 104 
168 230 0 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE 
"Author" 0 19 1 {CSTYLE "" -1 -1 "" 0 1 197 191 130 0 0 0 0 0 0 0 0 0 
0 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "top_s06_2" {TEXT -1 32 "6.2  The Most Ec
onomical Tin Can" }}{PARA 19 "" 0 "" {TEXT -1 25 "Art Belmonte, Summer
 1996" }}{PARA 0 "" 0 "" {TEXT -1 119 "These are the shaded gray examp
les which appear in Section 6.2. In-line plots have been removed to co
nserve disk space." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "resta
rt; s:=2*Pi*r^2 + 2*Pi*r*h;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG,
&*&%#PiG\"\"\"%\"rG\"\"#F**(F'F(F)F(%\"hGF(F*" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 14 "l:=4*Pi*r + h;" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"lG,&*&%#PiG\"\"\"%\"rGF(\"\"%%\"hGF(" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 30 "c:=a*s + b*l; a:=0.01; b:=0.2;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"cG,&*&%\"aG\"\"\",&*&%#PiGF(%\"rG\"\"#F-*(F+F(F,F(%
\"hGF(F-F(F(*&%\"bGF(,&*&F+F(F,F(\"\"%F/F(F(F(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"aG$\"\"\"!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"bG$\"\"#!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "h:=1000 \+
/ (Pi*r^2); c;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG,$*&%#PiG!\"\"
%\"rG!\"#\"%+5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&%#PiG\"\"\"%\"rG
\"\"#$F(!\"#*$F'!\"\"$\"%+?F**&F%F&F'F&$\"\")F,*&F%F,F'F*$F.F," }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "plot(c, r=1..10);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "Dc:=diff(c, r); rbest:=fsolv
e(Dc=0, r=3..5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#DcG,**&%#PiG\"
\"\"%\"rGF($\"\"%!\"#*$F)F,$!%+?F,F'$\"\")!\"\"*&F'F2F)!\"$$!%+SF2" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&rbestG$\"+Wr@/T!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "evalf(subs(r=rbest, h));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$\"+B_o*)=!\")" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "8 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }