{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 0 0 0 128 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 0 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 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "restart; with(stats) : with(fit): with(plots):\n" }{TEXT -1 397 "Einem Monopolunternehmen i st bekannt, dass f\374r eines seiner Produkte folgende Kosten anfallen :\nx in Mengeneinheiten: Liste der x-Werte datax\nK(x) in Geldeinh eiten Liste der y-Werte datay\nDie Nachfragefunktion f\374r das Pr odukt lautet: p(x).\nK(x) wird durch Regression bestimmt.\nErrechnet w erden die Gewinnzone, die Stelle des maximalen Gewinns, der maximale \+ Gewinn und der zugeh\366rige Preis," }}{PARA 0 "" 0 "" {TEXT -1 51 " \+ wobei negative Werte \374berlesen werden sollten." }}{PARA 7 "" 1 " " {TEXT -1 50 "Warning, the name changecoords has been redefined\n" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "datax:=[0,2,4,6,7];" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%&dataxG7'\"\"!\"\"#\"\"%\"\"'\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "datay:=[10., 14, 18, 33, \+ 49 ];\n" }{TEXT -1 21 "K(x) durch Regression" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&datayG7'$\"#5\"\"!\"#9\"#=\"#L\"#\\" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "fy:=a*x^3+b*x^2+c*x+d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "f:=rhs(leastsquare[[x,y],y=fy,\{a,b ,c,d\}]([datax,datay])):\n" }{TEXT -1 37 " Kostenfunktion K(x) \+ (blau)" }{MPLTEXT 1 0 20 "\nK:=unapply(f,x); \n" }{TEXT -1 39 " N achfragefunktion p(x) (schwarz)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "p:=x->1/2*(25-3*x);\n" }{TEXT -1 20 " Erl\366sfunktion E(x)" } {MPLTEXT 1 0 15 "\nE:=x->p(x)*x;\n" }{TEXT -1 37 " Gewinnfunktion G(x ) (rot)" }{MPLTEXT 1 0 33 "\nG:=x->E(x)-K(x);\n\n \+ " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"KGf*6#%\"xG6\"6$%)operatorG %&arrowGF(,**&$\"+*p%e'\\#!#5\"\"\")9$\"\"$F1F1*&$\"+;=UY:!\"*F1)F3\" \"#F1!\"\"*&$\"+i^obTF8F1F3F1F1$\"+7cNw**F8F1F(F(F(" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"pGf*6#%\"xG6\"6$%)operatorG%&arrowGF(,&#\"#D\"\"# \"\"\"*&#\"\"$F/F09$F0!\"\"F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %\"EGf*6#%\"xG6\"6$%)operatorG%&arrowGF(*&-%\"pG6#9$\"\"\"F0F1F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"GGf*6#%\"xG6\"6$%)operatorG%&arr owGF(,&-%\"EG6#9$\"\"\"-%\"KGF/!\"\"F(F(F(" }}}{EXCHG {PARA 11 "" 1 " " {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 347 "xbereich :=x=0..6:\nybereich:=x=-10..30:\n\np1:=plot(K(x),xbereich,color=blue): \np2:=plot(E(x),xbereich,color=black):\np3:=plot(G(x),xbereich,ybereic h):\ndisplay([p1,p2,p3]);\nGewinnzone:=fsolve(G(x)=0,x);\nG1:=unapply( diff(G(x),x),x);\nStelle_maximalerGewinn:=fsolve(G1(x)=0);\nmaximalerG ewinn=G(Stelle_maximalerGewinn[2]);\nPreis:=p(Stelle_maximalerGewinn); " }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6'-%'CURVESG6$ 7S7$$\"\"!F)$\"3w+++7cNw**!#<7$$\"3%*******\\#HyI\"!#=$\"3%RKMvk&R\\5! #;7$$\"33++]([kdW#F0$\"3CaU&Gv)Q!4\"F37$$\"3++++v;\\DPF0$\"3k=s@XHGK6F 37$$\"3W+++D[X&HEq6F37$$\"3o****\\P\"*y&H'F0$\"3P*3k6S.U? \"F37$$\"3e****\\(G[W[(F0$\"3fwy*G*o]K7F37$$\"3i****\\()fB:()F0$\"3!\\ oup%4))e7F37$$\"39++](Q=\"))**F0$\"39kC5dBJ$G\"F37$$\"3(****\\P'=pD6F, $\"3;LT(=a!408F37$$\"33+++lN?c7F,$\"3EKchOD8D8F37$$\"3-++]U$e6P\"F,$\" 3!ocHg%e1T8F37$$\"36+++&>q0]\"F,$\"3w=g>i;Pd8F37$$\"3'******\\U80j\"F, $\"33\")[N')3Ks8F37$$\"35+++0ytb@F, $\"3wK/0%e>9U\"F37$$\"3'****\\(3wY_AF,$\"3z')>+\"G4WV\"F37$$\"3#)***** *HOTqBF,$\"3[te,nEJY9F37$$\"37++v3\">)*\\#F,$\"3Q)QGWf9,Y\"F37$$\"3:++ DEP/BEF,$\"3A?rxlpEu9F37$$\"3=++](o:;v#F,$\"3[.=R'f\"R!\\\"F37$$\"3=++ v$)[opGF,$\"3@&Q04e*o1:F37$$\"3%*****\\i%Qq*HF,$\"3*3'='4!3;E:F37$$\"3 &****\\(QIKHJF,$\"31SJE(\\)y[:F37$$\"3#****\\7:xWC$F,$\"3[2Khjduq:F37$ $\"37++]Zn%)oLF,$\"3=$[d*)H*4(f\"F37$$\"3y******4FL(\\$F,$\"3,KHZf<]F; F37$$\"3#)****\\d6.BOF,$\"3g!yK@pq1m\"F37$$\"3(****\\(o3lWPF,$\"3_Jw8) )3F'p\"F37$$\"3!*****\\A))ozQF,$\"3!>z*)\\Gr,u\"F37$$\"3e******Hk-,SF, $\"3KMA#3$e$Qy\"F37$$\"36+++D-eITF,$\"34Oz?*fx^$=F37$$\"3u***\\(=_(zC% F,$\"3'\\Wmbsxh)=F37$$\"3M+++b*=jP%F,$\"3eIn%)R-5Z>F37$$\"3g***\\(3/3( \\%F,$\"3`@qdLhi4?F37$$\"33++vB4JBYF,$\"3oTW()**ym!3#F37$$\"3u*****\\K Cnu%F,$\"3)e.bh7Eg:#F37$$\"3s***\\(=n#f([F,$\"39w7&F,$\"3)eB)z6tUGCF37$$\"3O++v)Q?Q D&F,$\"3J#HrrnbH`#F37$$\"3G+++5jyp`F,$\"3ue_wUqqNEF37$$\"3<++]Ujp-bF,$ \"35d$*)[!RnhFF37$$\"3++++gEd@cF,$\"3#yszH\"p.#)GF37$$\"39++v3'>$[dF,$ \"32K=Pf'o'=IF37$$\"37++D6EjpeF,$\"3y\\fR15udJF37$$\"\"'F)$\"3#****R12 ^lJ$F3-%'COLOURG6&%$RGBGF(F($\"*++++\"!\")-F$6$7S7$F(F(7$F.$\"3jmEH-.8 4;F,7$F5$\"3-e-X]\"zu'HF,7$F:$\"3Q&eU/Fv'[WF,7$F?$\"3]\")4W\"3p+*eF,7$ FD$\"3qaq\"*3?=vsF,7$FI$\"3;u5&o'eI:&)F,7$FN$\"3)Qx2'4\\ra(*F,7$FS$\"3 eEM0N5())4\"F37$FX$\"3ud0(Q]Pq@\"F37$Fgn$\"3!Q>UnMZNL\"F37$F\\o$\"3!y* Q4[m$>V\"F37$Fao$\"3J\\;B2h&z`\"F37$Ffo$\"3H:U)onb$R;F37$F[p$\"3EnSEq* zAt\"F37$F`p$\"3JldSV%)e7=F37$Fep$\"3Q$[[$zQ..>F37$Fjp$\"3#)GC%yYh`(>F 37$F_q$\"3G3tmhHaa?F37$Fdq$\"3cLl!4#z=?@F37$Fiq$\"3C`nY\\&4u=#F37$F^r$ \"3;x&R$**3vYAF37$Fcr$\"3;&e?cF6QI#F37$Fhr$\"3!G,%)[SU=N#F37$F]s$\"3mX $pi9i*)R#F37$Fbs$\"3wp(4jRaFW#F37$Fgs$\"3o-]JT;gwCF37$F\\t$\"3-,Q:t\"* o3DF37$Fat$\"3E3Y$[Zlp`#F37$Fft$\"3kJEkJd$)fDF37$F[u$\"3k!)Hhm?XxDF37$ F`u$\"3i%G5UA8=f#F37$Feu$\"3==iYj60+EF37$Fju$\"3KUe(>LrRg#F37$F_v$\"3U $QqX+vJg#F37$Fdv$\"3/chOaNd(f#F37$Fiv$\"3#*RI_!o!z(e#F37$F^w$\"3c)eP+2 ))Gd#F37$Fcw$\"3/%*zhLmp`DF37$Fhw$\"3&)yWW$>4(GDF37$F]x$\"3s$yF^)*3** \\#F37$Fbx$\"3G]3\\VAllCF37$Fgx$\"3y>2N%=\")oU#F37$F\\y$\"3!z[S_8UqQ#F 37$Fay$\"3to0Ys.UOBF37$Ffy$\"3?y5D\\Rl'G#F37$F[z$\"3dPlGiF#*GAF37$F`z$ \"3/w]S:F:p@F37$Fez$\"#@F)-Fjz6&F\\[lF)F)F)-F$6$7U7$F($!3w+++7cNw**F,7 $F.$!3Kt00th#[)))F,7$F5$!3$QG#4y$3k$zF,7$F:$!37+'H<=aT(oF,7$F?$!3:t4/k /c7eF,7$FD$!3-RQs-?&ow%F,7$FI$!3X$pF@1j(4QF,7$FN$!3,v!R,c%4MGF,7$FS$!3 fv.\\?KTW=F,7$FX$!3eCvN+QI0))F07$Fgn$\"3#Q`hl75[T)!#>7$F\\o$\"3)z6Lk?! 3(3*F07$Fao$\"3f0jN]W%e!=F,7$Ffo$\"33ULH0zMqEF,7$F[p$\"3!41EdUcfY$F,7$ F`p$\"37R74wU0aTF,7$Fep$\"3hel,'=?l#\\F,7$Fjp$\"3[g*>z$)=%RbF,7$F_q$\" 3&[@`m!oL,iF,7$Fdq$\"3)4g1*QDvQnF,7$Fiq$\"3a[OQ]&\\HF(F,7$F^r$\"3/rXiN $R[s(F,7$Fcr$\"37:yG#z'>M\")F,7$Fhr$\"3)eF'yR#G:X)F,7$F]s$\"3W\\[2`M,G ()F,7$Fbs$\"33(Hm/**e'R*)F,7$Fgs$\"3Ubz,x(e&e!*F,7$F\\t$\"3twJ'>u)*e6* F,7$Fat$\"3Gknh`rj%4*F,7$Fft$\"3/7&)4&R];**)F,7$F[u$\"3#H\\`Zy6=\"))F, 7$F`u$\"3%*G\\?#R>k^)F,7$Feu$\"3%p$)RkK`@;)F,7$Fju$\"3cg!zwKPzo(F,7$F_ v$\"3!GQR+zs*prF,7$Fdv$\"3%HD%>XJt/lF,7$Fiv$\"3a&=g%pak\"y&F,7$F^w$\"3 `q9j,oHMe())F,7$F`z$!3_N(3*4H)e))*F,7$$\"3^+]i0j\"[$fF ,$!3aaVR\\2q+6F37$Fez$!35++kq5b;7F3-Fjz6&F\\[l$\"#5!\"\"F(F(-%+AXESLAB ELSG6%Q\"x6\"Q!F`_m-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F(Fez;$!#5F)$\"#IF) " 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "C urve 2" "Curve 3" }}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+GewinnzoneG6%$ !+vf%#G1Gf*6#%\"xG6\"6$%)operatorG%&arrowGF(,(*&$\")KO%G*!\"*\"\"\"9$F1F 1$\"+Q[JW$)F0F1*&$\"+(4a(*[(!#5F1)F2\"\"#F1!\"\"F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%7Stelle_maximalerGewinnG6$$!+-YSwK!\"*$\"+caO+MF (" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%0maximalerGewinnG$\"*'[P=\"*!\" )" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&PreisG$\"+!pg9u\"!\")" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{MARK "0 1 0" 51 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }