{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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 75 "maple - ein Computeralgebr
a-System zum numerischen und symbolischen Rechnen" }}{PARA 0 "" 0 "" 
{TEXT -1 17 "Beispiel-Sitzung:" }}{PARA 0 "" 0 "" {TEXT -1 37 "1. Rech
nen in Zahlen und in Variablen" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "4*
2+1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "3/6;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "3/6:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 5 "3./6;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "t:
=(a+b)^3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "t1:=expand(t);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "t2:=factor(t1);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "u1:=cos(phi)^2+sin(phi)^2;" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "u2:=simplify(u1);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "a:=Pi;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 9 "evalf(a);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "Digits:=100:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 9 "evalf(a);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Digits:=1
0:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "2. Bildchen malen" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 10 "f:=cos(x);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "plot(f,x=-5..5);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 40 "plot(f,x=-5..5,thickness=3,color=black);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 59 "f\374r kompliziertere Bilder benutzen wir
 das Paket  'plots' ." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots
);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "was ist textplot?" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 55 "textplot([1,2,`one point in 2d`],align=\{
ABOVE,RIGHT\});\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "g:=cos
(x)*cos(y);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "plot3d(g,x=-
5..5,y=-5..5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Kreis:=x^
2+y^2=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "implicitplot(Kr
eis,x=-1..1,y=-1..1,thickness=5);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "h:=sin(omega*x);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 31 "animate(h,x=-5..5,omega=0..20);" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 67 "animate(h,x=-5..5,omega=0..20,frames=20,numpo
ints=500,color=black);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 12 "3d-Anim
ation" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "F:=cos(x*y*s);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "animate3d(F,x=-Pi..Pi,y=-Pi..Pi,s=0
..10,frames=16);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 82 "Beispiel: Ill
ustration des Verhaltens von Folgen der Form z^n, z (komplex) gegeben
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "z:=1/2+I;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 33 "s:=seq([Re(z^k),Im(z^k)],k=1..8);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 44 "PLOT(POINTS([Re(z),Im(z)],SYMBOL(DIAMOND)));" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "PLOT(POINTS(s,SYMBOL(DIAM
OND)));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "PLOT(POLYGONS([s
],SYMBOL(DIAMOND)));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "t:=
seq([Re(z^k),Im(z^k)],k=1..30):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 36 "PLOT(POLYGONS([t],SYMBOL(DIAMOND)));" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 37 " Das war f\374r eine Zahl mit Betrag > 1" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 13 "z:=3/5+I*4/5;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 34 "t:=seq([Re(z^k),Im(z^k)],k=1..30):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 36 "PLOT(POLYGONS([t],SYMBOL(DIAMOND)));" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "Diese Zahl hatte Betrag 1" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "z:=1/2+3/4*I;" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 14 "evalf(abs(z));" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 34 "t:=seq([Re(z^k),Im(z^k)],k=1..60):" }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 36 "PLOT(POLYGONS([t],SYMBOL(DIAMOND)));" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 23 "3. Benutzen von Paketen" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 13 "with(linalg);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "A:=matrix([[1,w,2],[2,1,1],[4,5,6]]);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "det(A);" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 11 "inverse(A);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 6 "w:=13;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 11 "inverse(A);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "multiply(A,inverse(A));" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 37 "4. Einfaches Programmieren: Schleifen" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 7 "n:=200;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
43 "for k from 1 to n do\na[k]:=evalf(k^1.0) od:" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 5 "a[2];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 13 "s:=seq[0..n];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "s[0]:
=0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "for j from 1 to n do
\ns[j]:=s[j-1]+exp(I*a[j]) od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 5 "s[3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "t:=seq([Re(
s[m]),Im(s[m])],m=1..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 
"PLOT(POLYGONS([t],SYMBOL(DIAMOND)));" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "51 0 0" 5 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }