{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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 32 "# Familie der Gamma-Verteilungen" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 58 "with(plots):   # erm\366glicht den Aufruf von Plot-
Programmen" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "assume(a>0); \+
  # beschr\344nkt den Parameter a auf a>0" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 63 "f:=x->x^(a-1)*exp(-x)/GAMMA(a);   # Dichte der Gamm
a-Verteilung" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "int(f(x), x
=0..infinity);  # Ist f eine korrekte Dichte?" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 51 "my := int(x*f(x), x=0..infinity);  # Erwartungsw
ert" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "varianz := int(x^2*f(x), x=0
..infinity) - my^2; # Varianz" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 12 "simplify(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "f_str
ich := x->diff(f(x),x); # Ableitung von f" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 41 "solve(f_strich(x)=0,x); # Modalwert von f" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "animate(f(x),x=0..25, a=1..2
0, frames=20);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "13 0 0" 12 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }