{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 "M
aple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 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 }{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 52 " Gegeben sind die Wertepaare (x0, y0) und
 (x1, y1). " }}{PARA 0 "" 0 "" {TEXT -1 36 " Gesucht ist die Exponenti
alfunktion" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 46 "print(`Wachstum/Zerfall, Funktionsgleichung`):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "g:=x->a*q^x:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "x0:=2: y0:=5: # eingeben" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 13 "x1:=8: y1:=9:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "glg1:=g
(x0)=y0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "glg2:=g(x1)=y1:
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 28 "L\366sen des Gleichungssystem
s:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "lsg_q:=evalf(solve( y0/q^x0=y
1/q^x1,q       ),6):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "lsg
_a:=y0/(lsg_q[1])^x0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "g:
=subs( \{q=lsg_q[1],a=lsg_a\},a*q^x):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "f:=unapply(g,x);" }}{PARA 11 "" 1 "" {TEXT -1 0 "" }}
{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "12 1 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }