{VERSION 5 0 "IBM INTEL LINUX" "5.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 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "Worksheet zu Aufgabe 10" } }{PARA 0 "" 0 "" {TEXT -1 24 "Gerald Schubert 13.11.03" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 97 "F\374r die rechte Seite unserer Bestimmungsgleichung f\374r die er laubten k-Werte ergab sich (mit a=1):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "f(k) := cos(k)+lambda/(2*k)*sin(k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 111 "Falls mir die vordefinierten Farben (welche das sind -> \+ ?plot[color]) f\374r die Ausgabe von plots nicht gefallen:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "macro(darkgreen=COLOR(RGB, 0, 0.5, 0));\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 172 "plot([eval(f(k),lambda=1 5),eval(f(k),lambda=7),eval(f(k),lambda=1),\n -1, 1],\n k=0. .20,\n color=[red,blue,darkgreen,black,black],\n thickness=[ 3,3,3,1,1]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 103 "Um die Bedingung cos(q)=f(k) erf\374llen zu k\366nnen, mu\337 der Wert von f(k) betrag sm\344\337ig kleiner als 1 sein:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "erlaubt := piecewise(abs(f(k))<1,1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "E_15 :=plot([eval(erlaubt,lambda=15),eval(-1*erlaubt,lambda=15)] ,k=0..20,filled=true,color=green):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "P_15 :=plot(eval(f(k),lambda=15),k=0..20,thickness=3):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "display([E_15,P_15]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "E_7 :=plot([eval(erlaubt,lambda=7),eval(-1*er laubt,lambda=7)],k=0..20,filled=true,color=green):" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 64 "P_7 :=plot(eval(f(k),lambda=15),k=0..20,thickness=3 ,color=blue):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "display([E_7,P_7]) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "E_1 :=plot([eval(erla ubt,lambda=1),eval(-1*erlaubt,lambda=1)],k=0..20,filled=true,color=gre en,numpoints=1000):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "P_1 :=plot(e val(f(k),lambda=1),k=0..20,thickness=3,color=darkgreen,numpoints=1000) :" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "display([P_1,E_1]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 1 0" 24 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }