H b::B!b!G># #:# ####᯾(~#>:> Copyright H.Voelz Dez.1987 _Integr.mit Simpson__A.&W.Mai_3/89_ F$(1):202 A(X)(X):::::::::::::::::::::::::::::::::::::::::::::::::::::2 B(X)2(X):::::::::::::::::::::::::::::::::::::::::::::::::::82><]dB1032: A65 66: A$""{n" FN"(A)"(X)=";:"";A$s A$"" B,A: 40A:F$(A65)A$x:_Change Copyr.___Festsetz.YXV:RSER:ESSPRP:YGYK*NU0:RK168:RG311:SK50:SG200:SC2:SU50:DI20:GN4D A(DI),Z1(DI),Z2(DI)kXK5 :XG5 :YK7.5:YG7.5:305__Berech.Koord.ER(RGRK)(XGXK):ES(SGSK)(YGYK):RMRKXKER:SMSKYKESRLRM:SLSM: RMRK RLRK: RG,SK,RG,SGRTRL1, RMRG RLRG:RTRL1: RK,SK,RK,SGN SMSK SLSK: RK,SG,RG,SGZSTSL1 SMSG SLSG:STSL1: RK,SK,RG,SK__Bei unguenstiger Teilung 0,0,0,39::REER: I0 10: RE4 RERE10: 236 (0,1);"X in 1"(I,"0") RE64 246D I0 10: RE64 RERE.1: 244Ji(0,1);"X in 1/1"(I,"0")SEES: I0 10: SE4 SESE10: 250(0,20);"Y in 1"(I,"0") SE64 262 I0 10: SE64 SESE.1: 258 (0,20);"Y in 1/1"(I,"0")A __Achsenkreuz u. Bild der Fkt.y  RK,SL,RG,SL:H((RMRK)RE): RRMHRE RG RE  R,ST:  RL,SK,RL,SG:H((SMSK)SE): SSMHSE SG SE  RT,S::SPSM.5:RPRM.5  XXK XG SCER YA(X):RXERRP: YYG YYK 2762 SYESSP: R,SP YB(X):YYG YYK 280d SYESSP: R,Sj p | ,__Main 10,7:::" Flaeche berechnen zwischen": 65);"1.FUNKTION=FNA(X)":5);"und" ;5);"2.FUNKTION=FNB(X) (!ggf.=0 setzen)":: @100: 10:_Eing.Fkt.2 E__Ausg./Eing.l J(17):31,31,0,39::" FNA(X)="F$(0)" FNB(X)="F$(1)r O T 11,0:" IM INTERVALL (!Auf Stetigkeit achten)" Y:" XK="XK:" XK=";XK::" XG="XG:" XG=";XG ^ XKXG 345 c XKXG XZXK:XKXG:XGXZ6 h:" IM BEREICH (fuer Funktionsbild)"h m:" YK="YK:" YK=";YK::" YG="YG:" YG=";YGy r YKYG 365 w YKYG YZYK:YKYG:YGYZ |:212 __Such Vorz.Wechs. :" Moment, bitte." DX(XGXK)SU:XAXK A(0)XK:I0  XXKDX XG DXJ (A(X)B(X))(A(XA)B(XA))A(I1)X:II1_ XAX::A(I1)XGn &__R.Falsi ( A(1)XG 600 * K1 I:X1A(K):X2X1DX , J1 2 0 .Y1A(X1)B(X1):Y2A(X2)B(X2):X3X1Y1(X2X1)(Y2Y1)$0Y3A(X3)B(X3): (Y3)(Y2) X2X3: X1X3C2 Y4Y3 A(K)X3: K:566Q4Y4Y3: Ji6:" INT.-GRENZEN:"8: J0 I1:A(J):X__SimpsonZ J0 I\DX(A(J1)A(J)):NN(DX)GNGN:DXDXNN:K11:K2NN1:Z1(J)0^ KK1 K2 2"`XA(J)DXK:Z1(J)Z1(J)(A(X)B(X)):4bZ1(J)Z1(J)2Vd K2NN1 K12:K2NN2:606{fZ1(J)Z1(J)(A(A(J))B(A(J)))hZ1(J)Z1(J)(A(A(J1))B(A(J1)))jZ1(J)Z1(J)DX3l::" TEIL-FLAECHEN:": nZZ0: J0 I:ZZZZZ1(J):" FL."J1"="Z1(J):p:"GES.FL.="ZZAr28,0:"NEUE EINGABE";LL$:305GtLAECHEN:": nZZ0: J0 I:ZZZZZ1(J):" FL."J1