%d3i:" Zu untersuch. Fktn. bereits def ?"On"130 DEF FN Y(X)= ..."ws:" Wenn ja dann mit CONT forts.,"x" sonst noch def. und neu starten!"}:F$"(4*X*(X-2))/((X^2+1)*(X-2))":Y(X)(4X(X2))((X21)(X2))0,4,0,39:0,4:+(2,10);"ANALYSE VON FUNKTIONEN"?5,31,0,39:7:T23,31,9,39:6:|:" Extremwerte bestimmen...... 1"" Nullstellen suchen......... 2"" Nullstellen berechnen...... 3"" Numerische Differentiation. 4"" Numerische Integration..... 5":" graphische Darstellung......6"P:" Auswahl";A:f5,23,0,39:0,7:wA1A6185A210,285,400,455,520,1000 Extremwerte" Kleinstes Argument";K" Gr|~tes Argument";G" Schrittweite ";S MIY(K): Anfangswert min.AMAMI : Anfangswert max.TXKSGS2Sb MY(X)x MMIMIM:255 MMA MAM" -> Minimum=";MI " -> Maximum=";MA" Grafik (J/N)?";G$G$"J"1000:135 Nullstellen suchen%" Kleinstes Argument";KB"" Gr|~tes Argument";GY'" Schrittweite";S~," Max. Anzahl von Nullstelen";M1X1(M),X2(M): Argumente vor/hinter der Nullstelle6N0: lfd.Nr. der Nullstelle;XKGS2S @ (Y(X))(Y(XS))340 E NN1 J X1(N)X0 O X2(N)XS6 TC YN0355h ^" Keine Nullstellen vorhanden!" c" Nullstellen liegen zwischen den Argumenten:" hM$"X1(I)" mI1N r M$;X1(I);"...";X2(I) w |X1 :" Grafik (J/N)?";G$ G$"J"1000:135.  Nullstellen berechnena " Zwei Naeherungswerte f}r Nullstellen";X1,X2o Y1Y(X1)} Y2Y(X2) X(X2X1)2 YY(X) (Y)(Y1)X1X:X2X (X1X2).000001415 " Nullstelle X=";X :" Grafik (J/N)?";G$ G$"J"1000:1358  Numerische DifferentiationE " X=";XU "Y=";Y(X)v Y11: Anfangswert Ableitung H.1: Anfangswert Hoehe (halbe Differenz) Y2(Y(XH)Y(XH))2H F((Y2Y1)Y1) Y1Y2:verbesserte Ableitung HH2 F.000001475(  10);"Y'=";Y1C :" Grafik (J/N)?";G$X G"J"1000:135u  Numerische Integration " Untere Grenze";X1 " Obere Grenze" ;X2 H(X2X1)2: Hoehe 8Stuetzstellenabstand) N1: halbe Anzahl der Intervalle , RY(X1)Y(X2): Beitrag der Randpunkte] !G0: Beitrag Stuetzstellen ungerader Nummern &UY(X1H) +S(R4U)H3: Anfangswert des Integrals 0HH2 5N2N :GGU: ungerade -> geraden Stuetzstellen ?U0: Anfangswert ungerade Stuetzstellen4DXX1H: erste,ungerade Stuetzstelle?II1NON UUY(X)]S XX2HcXz]S1(R2G4U)H3bF((SS1)S1)gSS1lE.000001560q" Wert des Integrals=";Sv:" Grafik (J/N)?";G${G$"J"1000:135  FUNKTIONENLUPE.0,31,0,39:0,0::(27);"A":X(300)FY(300)]:" XA,XE:";XA,XEt(15,16);"MOMENT"S(XEXA)300 YO999999YU999999J1IXA XE S JJ1$ X(J)I) Y(J)Y(I). YOY(J)YOY(J)3 YUY(J)YUY(J)8,=Q(YUYO)2ABK30(YOYU)250VGL30(XEXA)300gL0,31,0,39:Q(5,5);"WERTE :W"V(6,5);"KURVENBILD:B"[(7,5);"MENUE :M"`A$eA$""1120jA$"W"A$"B"A$"M"1100oA$"W"1265"tA$"M":(27);"A":135(y=~5,125,315,125,1N10,5,10,250^(2,0);"Y"p(17,37);"X"I4030030 I,124,I,126,2I525530 9,I,11,II10310 X(I10)300(XEXA)XA YY(X) J30K(YYU)0 J0J255I,J,3:I,J16N(0,15);"Y(X)=";F$k30,3:"Druck (J/N)?";D$D$"J"(15):1245(4,18);">ENTER<"A$A$(13)125011001,31,0,39:(0,4);"X Y"I1300 X(I),Y(I)$ "";W:1100A$(13)125011001,31,0,39:(0,4);"X Y"I1300