{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 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "T ext Output" -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 "R3 Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 1 11 128 0 128 1 2 1 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 11 0 128 128 1 2 1 2 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 45 "Pyramidenstumpf mit quadratischer Grundfl \344che" }}{PARA 0 "" 0 "" {TEXT -1 56 "Die Bodenkanten a und b und di e H\366he h werden vorgegeben" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "a:=4: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "b:=2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "h:= 5:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " " 0 "" {TEXT -1 28 "H\366he der Erg\344nzungspyramide:" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 47 "Hoehe_Ergaenzungspyramide=solve(x/b=(x+h)/a,x) ;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "Trapezseitenfl\344che" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "Trapezseitenflaeche:=(a+b)/2* sqrt( h^2 + ((a-b)/2 )^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "T rapezseitenflaechenhoehe:= sqrt( h^2 + ((a-b)/2 )^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "A:=evalf(Trapezseitenflaeche,6);" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 21 "Volumen des Stumpfes:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "V_Pyramidenstumpf=1/3*h*(a^2+sqrt(a^2*b^2 )+b^2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "V_Pyramidenstump f=evalf(1/3*h*(a^2+sqrt(a^2*b^2)+b^2));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 18 "Seitenkantenl\344nge:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "Seitenkantenlaenge:=sqrt( h^2+ ( (a-b)*sqrt(2)/2 )^2 );" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "k:=evalf(Seitenkantenlaenge, 6);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "Fl\344chendiagonale" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "Flaechendiagonale:=sqrt( Trapezseit enflaechenhoehe^2+(b+a)^2/4); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "evalf(Flaechendiagonale,6); " }}{PARA 2 "" 1 "" {TEXT -1 1 "\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}}{MARK "15 \+ 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }