{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 0 0 128 128 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 128 128 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 3 0 3 0 2 2 0 1 }{PSTYLE "R3 Fo nt 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 1 11 128 0 128 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 1 11 0 128 128 1 2 1 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 "" {MPLTEXT 1 0 21 "restart; with(plots) :" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has b een redefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 66 " Es werd en Normalen vom Punkt (x1|y1) an den Graphen gelegt." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "f:= x->1/5*x^3-x^2+x-1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "\n_EnvAllSol utions := true: \nvon:=-3: bis:=7: \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,**&#\"\"\"\"\"&F/*$)9$ \"\"$F/F/F/*$)F3\"\"#F/!\"\"F3F/F/F8F(F(F(" }}}{EXCHG {PARA 11 "" 1 " " {XPPMATH 20 "6#>%#x0G\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " f1:=unapply(diff(f(x),x),x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 147 " f1:=unapply(simplify(diff(f(x),x)),x):\n\nx1:=3: y1 :=2: # Punkt muss nicht auf dem Graphen liegen:\n\n normale:=unapp ly(-1/f1(x0)*(x-x0)+f(x0),x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(no rmaleGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,,*&,(*&#\"\"$\"\"&\"\"\"*$)% #x0G\"\"#F3F3F3*&F7F3F6F3!\"\"F3F3F9,&9$F3F6F9F3F9*&F2F9F6F1F3F4F9F6F3 F3F9F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 196 "stelle:= fso lve( normale(x1)=y1,x0=4..5);\nstelle2:= fsolve( normale(x1)=y1,x0);\n normale1:=unapply(-1/f1(stelle)*(x-stelle)+f(stelle),x);\nnormale2:=un apply(-1/f1(stelle2)*(x-stelle2)+f(stelle2),x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'stelleG$\"+Y)*HRX!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(stelle2G$\"+n\\1*G\"!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %)normale1Gf*6#%\"xG6\"6$%)operatorG%&arrowGF(,&*&$\"+([pRL#!#5\"\"\"9 $F1!\"\"$\"+\\3>+F!\"*F1F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)n ormale2Gf*6#%\"xG6\"6$%)operatorG%&arrowGF(,&*&$\"+KV#3s\"!\"*\"\"\"9$ F1F1$\"++IZiJF0!\"\"F(F(F(" }}}{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 232 "p1:=plot(f(x),x=von..bis,y=von..bis,scaling=const rained,color=black):\np2:=plot(normale1(x),x=von..bis,color=blue):\np3 :=plot(normale2(x),x=von..bis,color=blue):\np4:=plot([[x1,y1]],style=p oint,color=orange):\n\n\n\ndisplay([p1,p2,p3,p4]);" }}{PARA 13 "" 1 " " {GLPLOT2D 1061 510 510 {PLOTDATA 2 "6)-%'CURVESG6$7S7$$!\"$\"\"!$!3' )************R=!#;7$$!3YLLLe%G?y#!#<$!3#HSj3T6Ge\"F-7$$!3#om;aesBf#F1$ !3G)[c\"3Arz8F-7$$!3ALL$3s%3zBF1$!31a#[@PFK<\"F-7$$!31LL$e/$Qk@F1$!3=t B__3xw)*F17$$!3ommT5=q]>F1$!3]$e$Q?h^S#)F17$$!3ILL3_>f_$!3KH, PyEHz5F17$$\"3]om;z*ev:\"Fin$!3_B9CuJLt*)Fin7$$\"3GNLL$347T$Fin$!3]\\J sHw.twFin7$$\"3tOLLLjM?`Fin$!3aE?6De14sFin7$$\"3$3++D\"o7TvFin$!3c5^r& *f-)G(Fin7$$\"3$>LLL$Q*o]*Fin$!3dwq;#[BF\"yFin7$$\"3m++D\"=lj;\"F1$!3# )>4g;6'pw)Fin7$$\"3S++vV&RF1$ !31xr$RhLqR\"F17$$\"3=nm\"zRQb@#F1$!3JUPmL!H!=:F17$$\"3:++v=>Y2CF1$!3) y*=l7F17$$\"3iKLL$Qx$oOF1$!3w,=LMw\\ b\"*Fin7$$\"3Y+++v.I%)QF1$!3@=X^3#yQ#[Fin7$$\"3?mm\"zpe*zSF1$\"3Y&zt'y 1c%p\"F^p7$$\"3;,++D\\'QH%F1$\"3$45dhrM-!pFin7$$\"3%HL$e9S8&\\%F1$\"3) >eh(*QY[X\"F17$$\"3s++D1#=bq%F1$\"36Tk$o#3W,CF17$$\"3\"HLL$3s?6\\F1$\" 3;!G\"Re:(G[$F17$$\"3a***\\7`Wl7&F1$\"3/3U\"*3&*p\"z%F17$$\"3enmmm*RRL &F1$\"3$Gv\\f_>TB'F17$$\"3%zmmTvJga&F1$\"3i$4-b#=00zF17$$\"3]MLe9tOcdF 1$\"3MhU:\"=H*o(*F17$$\"31,++]Qk\\fF1$\"3[._2?#zs;\"F-7$$\"3![LL3dg6<' F1$\"3zL^%fVZ\"49F-7$$\"3%ymmmw(GpjF1$\"3'o)[$=N4zk\"F-7$$\"3C++D\"oK0 e'F1$\"3\"4n!3uB!p#>F-7$$\"35,+v=5s#y'F1$\"3&=5\"3lXc=AF-7$$\"\"(F*$\" 3'3++++++c#F--%'COLOURG6&%$RGBGF*F*F*-F$6$7S7$F($\"35++5&p\"Q+MF17$F/$ \"3?l:P-y]\\LF17$F5$\"3=!yH.qU_I$F17$F:$\"3e\"HTN'>YbKF17$F?$\"3R7brZ7 N0KF17$FD$\"3G;[P*pya:$F17$FI$\"3%oUKHYS#4JF17$FN$\"3s6&>tWj81$F17$FS$ \"3$f&QGp*[=,$F17$FX$\"3SBs![G$\\iHF17$Fgn$\"3()H#Qn*[s6HF17$F]o$\"3w] K*G23q'GF17$Fbo$\"3oEZR?vm;GF17$Fgo$\"3!G-^ZE?hw#F17$F\\p$\"3H2'fxh3ur #F17$Fbp$\"3O@AjvP w2D5.!Q#F17$Fer$\"3fyS+'=<+L#F17$Fjr$\"3WEP5p))3%G#F17$F_s$\"3T,miu*[X B#F17$Fds$\"3cj&)>Z44$=#F17$Fis$\"3'GI_Ie'HQ@F17$F^t$\"3MMEfUu\"**3#F1 7$Fct$\"3%o\\&fcq$*R?F17$Fht$\"3k^uv**4/\"*>F17$F]u$\"34V#y0bJP%>F17$F bu$\"3+2]ItC?\"*=F17$Fgu$\"375*\\5w-S%=F17$F\\v$\"3;M2k$*pg$z\"F17$Fav $\"3CDU3Q4%zu\"F17$Ffv$\"3aX]Pxe,)p\"F17$F[w$\"3/p')*fGS5l\"F17$F`w$\" 3y_*3wDP>g\"F17$Few$\"3)\\bT@2IRb\"F17$Fjw$\"3by:.)*4n.:F17$F_x$\"3G?5 BObEb9F17$Fdx$\"3O\">%=gRw09F17$Fix$\"3#p$)z@GsmN\"F17$F^y$\"3Zz#e&G@c 68F17$Fcy$\"3q\\(H=!3')f7F17$Fhy$\"3Six')=&=O@\"F17$F]z$\"3S?cP+YJk6F1 7$Fbz$\"3R%RS$fW7<6F17$Fgz$\"3E++53ATm5F1-F\\[l6&F^[l$F*F*Fgdl$\"*++++ \"!\")-F$6$7S7$F($!3H+++'*f%\\K)F17$F/$!3+\\kTj_&)\\zF17$F5$!3?[ZfA3\\ BwF17$F:$!3=F%*\\v)fkD(F17$F?$!3Yq#Q!4g*p)oF17$FD$!3s^9%)R\")G>lF17$FI $!33yB@vePyhF17$FN$!3H#*zfr4QDeF17$FS$!3MlbJPJJgaF17$FX$!3#)=w?!3;k4&F 17$Fgn$!3/$4Q$GK5AZF17$F]o$!31$ooYE3CR%F17$Fbo$!3P\"p;O#)\\7-%F17$Fgo$ !3+rbMqtc[OF17$F\\p$!3mZ&R-x=%*G$F17$Fbp$!3Y\"\\#HMuFjHF17$Fgp$!3sdgyS QYvDF17$F\\q$!3!3I$\\d[$pC#F17$Faq$!3SR_.\\vxk=F17$Ffq$!3wCf)pd.l_\"F1 7$F[r$!3W3u5;MOb6F17$F`r$!3U1U[f@]>!)Fin7$Fer$!3%*y\"=1<1?L%Fin7$Fjr$! 3y*oMg+;]JF17$F\\v$\"3ZDn4)fD<_$F17$Fav$\"35P+$4?>%eQF17$Ffv$\"3Wd8ETU^EU F17$F[w$\"3AUe*y)H'Gd%F17$F`w$\"3A&*R)RA(*[$\\F17$Few$\"37$z$fj=&))G&F 17$Fjw$\"3aLlXo&4%fcF17$F_x$\"3:rs1!o+j,'F17$Fdx$\"3mWYh)Qt7Q'F17$Fix$ \"3A,X')QRAVnF17$F^y$\"3YfT\"Q!*=e2(F17$Fcy$\"3g7!ppE5qX(F17$Fhy$\"3/T **QmB&zz(F17$F]z$\"3u+iTbxYh\")F17$Fbz$\"3')HGBm$)R4&)F17$Fgz$\"3#3++S K(H$)))F1Fedl-F$6%7#7$$\"\"$F*$\"\"#F*-F\\[l6&F^[l$\")+++!)Fjdl$\")Vyg >FjdlF]_m-%&STYLEG6#%&POINTG-%(SCALINGG6#%,CONSTRAINEDG-%+AXESLABELSG6 %Q\"x6\"Q\"yF[`m-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F(FgzFd`m" 1 2 0 1 10 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curv e 3" "Curve 4" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "plot(norm ale(x1)-y1,x0=1..1.5,color=blue);\n\nplot(normale(x1)-y1,x0=4..5,color =blue);\n" }}{PARA 13 "" 1 "" {GLPLOT2D 599 599 599 {PLOTDATA 2 "6&-%' CURVESG6#7S7$$\"\"\"\"\"!$\"31,++++++A!#<7$$\"3ULL3x&)*3,\"F-$\"3Gg#Q6 (f6j?F-7$$\"3om\"H2P\"Q?5F-$\"31=a6ZFu\\>F-7$$\"3DL$eRwX5.\"F-$\"3yy8^ /[8G=F-7$$\"3BL$3x%3yT5F-$\"3N0@/_Kc6VB$3\"F-$\"3$H8R*e)H!48F-7$$\"3++DJbw!Q4\"F-$\"3K#p ?a+po@\"F-7$$\"3tmmTIOo/6F-$\"3Th;+)H_f7\"F-7$$\"3GL$3_>jU6\"F-$\"3G?U y%*)H*[5F-7$$\"3*****\\i^Z]7\"F-$\"3#*Q^(4nfVl*!#=7$$\"3%****\\(=h(e8 \"F-$\"3AAEb$p!>[))Fdo7$$\"3#****\\P[6j9\"F-$\"3eJ2X6M(**4)Fdo7$$\"3GL e*[z(yb6F-$\"3#Q7J'40^VuFdo7$$\"3ummTXg0n6F-$\"3i#fT1ev(*o'Fdo7$$\"3em mmJ\"F-$\"3mXV/2PO%y%Fdo7$$\"37+D1f#=$37F-$\"3GAz3KPm_TFdo7$$\"3(* *\\(=xpe=7F-$\"3Mq=t!z***pNFdo7$$\"3wm;H28IH7F-$\"3ym*Qa'4l!)HFdo7$$\" 3sm\"zpSS\"R7F-$\"3#R-t:ZZ`X#Fdo7$$\"3ML$3_?`(\\7F-$\"3lX)4v1m\\!>Fdo7 $$\"3=Le*)>pxg7F-$\"3I)=)4a$R-N\"Fdo7$$\"3#**\\Pf4t.F\"F-$\"3/%H!R.I_2 ))!#>7$$\"3UL$e*Gst!G\"F-$\"3yWLnuvcqQF[t7$$\"3')****\\#RW9H\"F-$!3UBD ^;'G14\"F[t7$$\"3%)**\\7j#>>I\"F-$!3^sP!zXzN\"eF[t7$$\"3&)*\\i!RU078F- $!3x;L))['zl-\"Fdo7$$\"3'***\\(=S2LK\"F-$!31ijS#>))z]\"Fdo7$$\"3jmm;p) =ML\"F-$!3c;^)[P[%H>Fdo7$$\"3$****\\(=]@W8F-$!3G>GxgcMoBFdo7$$\"3ILe*[ $z*RN\"F-$!3eO&QB!RbcFFdo7$$\"3))***\\iC$pk8F-$!3Eiaf.o0rJFdo7$$\"3cm \"H2qcZP\"F-$!3s*y*4h'))>b$Fdo7$$\"33+DJ5fF&Q\"F-$!3]kDb'\\H6%RFdo7$$ \"3kmmTg.c&R\"F-$!3]&Qm]j\"*HJ%Fdo7$$\"3)**\\ilAFjS\"F-$!3=Nixn?a$p%Fd o7$$\"3HLLL)*pp;9F-$!3#z\\J=84>0&Fdo7$$\"3EL$3xe,tU\"F-$!3esrZ(GI/T&Fd o7$$\"3bm\"HdO=yV\"F-$!3+m\"y#)f?$edFdo7$$\"3))****\\#>#[Z9F-$!3U)Gm*) z-:2'Fdo7$$\"3gm;aG!e&e9F-$!3&)\\$GHHiIU'Fdo7$$\"3ELLL)Qk%o9F-$!3I*\\- ^vV5t'Fdo7$$\"3-+D1Mm-z9F-$!3i)3=(\\d#H0(Fdo7$$\"3-+v$40O\"*[\"F-$!3EZ EfXZ$\\N(Fdo7$$\"3++++++++:F-$!3!p#p2Bp2twFdo-%'COLOURG6&%$RGBG$F*F*F^ [l$\"*++++\"!\")-%+AXESLABELSG6$Q#x06\"Q!Ff[l-%%VIEWG6$;F($\"#:!\"\"%( DEFAULTG" 1 2 0 1 10 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Cur ve 1" }}}{PARA 13 "" 1 "" {GLPLOT2D 599 599 599 {PLOTDATA 2 "6&-%'CURV ESG6#7S7$$\"\"%\"\"!$!3E9YQ:YQ:=!#<7$$\"3Rmm;arz@SF-$!3u!GU0l\"F-7$ $\"3#pm;aphN3%F-$!3w3S]jW1\"f\"F-7$$\"3UL$e*=)H\\5%F-$!3QNiQn0eI:F-7$$ \"3Fm;z/3uCTF-$!3#*pl(H'GMt9F-7$$\"3!)**\\7LRDXTF-$!3M`2\\8F-7$$\"3e**\\i5`h(=%F-$!3MY`=#4`TG\"F- 7$$\"3,LL$3En$4UF-$!3u-KQ\"y()f@\"F-7$$\"3cmmT!RE&GUF-$!35'RZ>2tZ:\"F- 7$$\"3)*****\\K]4]UF-$!3YWdvl0`%3\"F-7$$\"3K++]PAvrUF-$!381_r1'pD,\"F- 7$$\"3#)****\\nHi#H%F-$!3H%R?lLI&=%*!#=7$$\"3bm;z*ev:J%F-$!3I&e&)=(3hk ()F^p7$$\"3/LL$347TL%F-$!3w9S,=dNszF^p7$$\"3=LLLjM?`VF-$!3[6DLh^i)G(F^ p7$$\"39+]7o7TvVF-$!3Q&ezfVG'ykF^p7$$\"3+LLLQ*o]R%F-$!31-L(4$GQ[dF^p7$ $\"3C+]7=lj;WF-$!3*=tO))oOF$\\F^p7$$\"3&***\\PaR7$ $\"3%)**\\(=>Y2a%F-$\"3=#=&\\Lw5:F-7$$\"35L$e9tOc([F-$\"3VS.Dv7mC;F-7$$\"3u**** *\\Qk\\*[F-$\"3bkbwE^#3t\"F-7$$\"3mLL3dg6<\\F-$\"3a-G;BNGa=F-7$$\"3'pm mmxGp$\\F-$\"3OVS_['Hj'>F-7$$\"3-+]7oK0e\\F-$\"3czrp#*Q\\(3#F-7$$\"3e* *\\(=5s#y\\F-$\"3;,1\"z\"p60AF-7$$\"\"&F*$\"3:KLLLLLLBF--%'COLOURG6&%$ RGBG$F*F*F_[l$\"*++++\"!\")-%+AXESLABELSG6$Q#x06\"Q!Fg[l-%%VIEWG6$;F(F gz%(DEFAULTG" 1 2 0 1 10 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "11 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }