{VERSION 4 0 "HP RISC UNIX" "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 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "helvetica" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } 3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "" -1 -1 " " 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 259 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 260 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 261 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 262 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 1 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 256 "" 0 "" {TEXT -1 27 "Beispiele von Vektorraeu men" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "r estart; with(plots): setoptions(titlefont=[HELVETICA, 24]):" }}} {EXCHG {PARA 257 "" 0 "" {TEXT -1 53 "Physikalische Kraftfelder: Zwei \+ Felder und ihre Summe" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 191 "fieldplot([x/(x^2+y^2)^(3/2), y/(x^2+y^2)^(3/2)], x= -1..1, y=-1..1, arrows=thick, scaling=constrained,axes=boxed, color=bl ue, grid=[6,6],\ntitle=\"Elektrisches Feld einer absto\337enden Ladung \"); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 181 "fieldplot([y/(x^2 +y^2), -x/(x^2+y^2)], x=-2..2, y=-2..2, arrows=thick, scaling=constrai ned, axes=boxed, color=red, grid=[6,6],\ntitle=\"Magnetfeld eines stro mdurchflossenen Leiters\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 200 "fieldplot([x/(x^2+y^2)^(3/2)+y/(x^2+y^2), y/(x^2+y^2)^(3/2)-x/(x^ 2+y^2)], x=-2..2, y=-2..2, arrows=thick, scaling=constrained, axes=box ed, color=plum, grid=[6,6], title=\"Die Summe der beiden Felder\");" } }}{EXCHG {PARA 258 "" 0 "" {TEXT -1 27 "Die Summe zweier Funktionen" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 260 "displa y([plot(sin(t), t=0..3*Pi, color=red, thickness=3),\n plot(sin(3*t), t =0..3*Pi, color=blue, thickness=3),\n plot(sin(t)+sin(3*t), t=0..3*Pi, color=plum, thickness=5)],\n axes=normal, scaling=unconstrained, titl e=\"Rote Kurve + Blaue Kurve = Violette Kurve\");" }}}{EXCHG {PARA 259 "" 0 "" {TEXT -1 46 "Multiplikation einer Funktion mit einem Skala r" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "plo t([sin(t), 2*sin(t)], t=0..3*Pi, thickness=5, title=\"Eine Funktion un d ihre Verdoppelung\");" }}}{EXCHG {PARA 260 "" 0 "" {TEXT -1 24 "Abta stung einer Funktion" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 216 "display([\nplot(cos(t) + sin(Pi*t) + cos(sqrt(2)*t), t=0..20,\ncolor=red, thickness=3),\nseq(plot([[i,0],[i, cos(i) + sin( Pi*i) + cos(sqrt(2)*i)]],\ncolor=blue, thickness=5), i=0..20)], title= \"Abtastung einer Funktion\");" }}}{EXCHG {PARA 261 "" 0 "" {TEXT -1 22 "Der Kern der Abtastung" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "plot(sin(Pi*t), t=0..20, xtickmarks=20, thicknes s=3,\ntitle=\"Die Funktion sin(pi*t)\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 413 "display([\nplot(cos(t) + cos(sqrt(2)*t), t=0..20, co lor=blue, thickness=2),\nplot(cos(t) + sin(2*Pi*t) + cos(sqrt(2)*t), t =0..20, color=red, thickness=2),\nseq(plot([[i,0],[i, cos(i) + sin(2*P i*i) + cos(sqrt(2)*i)]], color=green, thickness=3), i=0..20),\nplot([s eq([i, cos(i) + sin(2*Pi*i) + cos(sqrt(2)*i)], i=0..20)], color=black, style=point, symbol=diamond)],\ntitle=\"Zwei Funktionen mit gleichem \+ Abtastergebnis\");" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 350 "disp lay([plot(sin(10*Pi*t), t=0..5, color=red, numpoints=1000, thickness=2 ),\nplot(sin(2*Pi*t), t=0..5, color=blue, thickness=3),\nplot([seq([[i /4, 0], [i/4, sin(Pi*i/2)]], i=0..20)], color=green, thickness=3),\npl ot([seq([i/4, sin(Pi*i/2)], i=0..20)], color=black, style=point, symbo l=diamond)],\ntitle=\"Zwei reine Schwingungen mit gleicher Abtastung\" );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 333 "display([plot(sin(5* Pi*t/2), t=0..4, color=red, numpoints=100, thickness=3),\nplot(sin(Pi* t/2), t=0..4, color=blue, thickness=4),\nplot([seq([[i, 0], [i, sin(Pi *i/2)]], i=0..4)], color=green, thickness=5),\nplot([seq([i, sin(Pi*i/ 2)], i=0..4)], color=black, style=point, symbol=circle, xtickmarks=5)] , title=\"Dasselbe in Gro\337aufnahme\");" }}}{EXCHG {PARA 262 "" 0 " " {TEXT -1 43 "Harmonische Analyse der g-Saite einer Geige" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "a := [0.1, 26, 4 5.2, 8.8, 8.5, 4.5, 0.1, 4.8, 0,1]: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 248 "display([\nseq(\ndisplay([plot(sin(196*t), t=0..Pi/4 9, color=green, thickness=3),\nplot(sum(a[j]*sin(196*j*t)/100, j=1..i) , t=0..Pi/49, color=red, thickness=3)]), i=1..8)],\ninsequence=true, t itle=\"Harmonische Synthese des Tons einer Geige (g-Saite)\");" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 3 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }