{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 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Fo
nt 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 1 11 128 0 128 1 2 1 2 2 2 
2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 2" -1 257 1 
{CSTYLE "" -1 -1 "Courier" 1 11 0 128 128 1 2 1 2 2 2 2 1 1 1 1 }1 1 
0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 69 "F\374r eine Ausgabe ist der Doppelpunkt d
urch ein Semikolon zu ersetzen." }}{PARA 0 "" 0 "" {TEXT -1 43 "Kegels
tumpf: gegeben:  V, r1, h, gesucht r2" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 10 "V:=631.46:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "r1:=2: \+
# Radius des Grundkreises" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 
"h:=9:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "Radius:=solve(V=1
/3*Pi*h*(r1^2+r1*r2+r2^2),r2):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "
" }}{PARA 0 "" 0 "" {TEXT -1 44 "Kegelstumpf: gegeben:  r1, r2, V , ge
sucht h" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "r1:=7: # Radius des Grundkreises" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "r2:=5:" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 7 "V:=250:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
18 "H\366he des Stumpfes:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "Hoehe:
=solve(V=1/3.0*Pi*h*(r1^2+r1*r2+r2^2),h):" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 33 "Kegelstumpf:  gegeben:  r
1, r2, s" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "r1:=5: # Radius des Gru
ndkreises" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "r2:=3:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "s:=4:" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 27 "Mantellinie_Erg\344nzungskegel" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "Mantellinie_Ergaenzungskegel:=r2*s/(r1-r2):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "y:=Mantellinie_Ergaenzungske
gel:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "Hoehe_Ergaenzungske
gel=sqrt(y^2-r2^2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "Hoehe_Ergaenzungskegel:=eval
f(sqrt(y^2-r2^2)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "Hoehe
_gesamt:=evalf(sqrt((y+s)^2-r1^2)):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 55 "Hoehe_Kegelstumpf:=Hoehe_gesamt-Hoehe_Ergaenzungskege
l:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "h:=Hoehe_Kegelstumpf:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "V_Kegelstumpf=1/3*Pi*h*
(r1^2+r1*r2*r2^2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "V_Keg
elstumpf=evalf(1/3*Pi*h*(r1^2+r1*r2+r2^2)):" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 33 "Kegelstump
f:  gegeben:  r1, r2, h" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "r1:=12: # Radius des Gr
undkreises" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "r2:=10:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "h:=7:" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 23 "Mantellinie_Kegelstumpf" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 31 "s1:=evalf(sqrt(h^2+(r1-r2)^2)):" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 27 "Mantellinie_Erg\344nzungskegel" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 35 "s2:=evalf(solve(x/r2=(x+s1)/r1,x)):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "Mantelflaeche:=evalf(Pi*(r1*(s1+s2)
-r2*s2)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Mantellinie_ge
samt:=s1+s2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "hoehe_gesam
t:=evalf(solve(h2/r1=(h2-h)/r2,h2)):" }}}}{MARK "2 0 0" 32 }{VIEWOPTS 
1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }