Jb::B!b!G># #:# ####᯾(~#>:> Copyright H.Voelz Dez.1987  3000: : 15);"## ABLEI ##":  A(X)X:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: B(X)X::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::W(M30: F$(M), FS$(M), FU$(M), FV$(M), F1$(M), O(M)2Z$"+-*/^": FZ: X$(FZ), XS$(FZ), L(FZ)< I1 FZ: X$(I), XS$(I): L(I)(X$(I)): : 1190FZ0: 1032,65: "F(X) ="; F$(0): 40A: 110 P "F'(X) = "; FS$(0)?Z I1 (FS$(0)): 865I,((FS$(0),I,1)): ed 865I,0: 1032,66: 40A: : nF$F$(Z): S$F$: 1010x P1 PL 990 P0 760====== u und v ======O(Z)O: FU$(Z)(F$,P1): FV$(Z) (F$,P1)$ZZ1: F$(Z)FU$(Z1): 110: F1$(Z1)FS$(Z)EF$(Z)FV$(Z1): 110: ZZ1FU$FU$(Z): FV$FV$(Z): F1$F1$(Z): F2$FS$(Z1): OO(Z) O 210, 210, 260, 260, 450====== f=u+v usw. ======== F1$"0" F2$"0" FS$(Z)F1$(Z$,O,1)F2$:  F1$"0" FS$(Z)F1$: D F2$"0" FS$(Z)(Z$,2,O1)F2$: VFS$(Z)"0": x======== f=u*v usw. ======== F1$"0" T0: FS$F1$: 310T1: F1$"1" FS$FV$: 310S$F1$: 1010: O3 F1$"("F1$")"! "FF$FV$: S$FF$: 1010: O3 FF$"("FF$")"< ,FS$F1$"*"FF$: 310P 6 F2$"0" 390 @FF$F1$: S$F1$: 1010: O3 FF$"("FF$")" JTT1 TFS$(FS$,1(T1))(Z$,O(Z)2,1((T1) O(Z)3)) ^ F2$"1" F S$FS$FU$: 390 hS$FU$: 1010: O3 FU$"("FU$")"A rS$F2$: 1010: O3 F2$"("F2$")"Y |FS$FS$FU$"*"F2$v  FS$"0" O(Z)3 430  T2 FS$"("FS$")" S$FV$: 1010: O3 FV$"("FV$")" FS$FS$"/"FV$"^2" FS$(Z)FS$: ======= f=u^v usw. ========  F2$"0" 650>  F1$"0" FS$(Z)F1$: ]  F1$"1" FS$"": 500 S$F1$: 1010: O3 F1$"("F1$")" FS$F1$"*"  FV$"1" FS$FV$"*"FS$  (FV$,1)"(" FV$(FV$,2) F2$((FV$)): F2$" 0" 590)  (F2$,1)" " F2$(F2$,2): 530I  F2$FV$ F2$((F2$)1)^ & F2$FV$ 590 0 (F2$,1)" " F2$(F2$,2): 560 : (F2$,1)"-" 610 D (F2$,1)"-" 620 NF2$FV$: (F2$,1)")" F2$(F2$,(F2$)1) XF2$F2$"-1" bF2$"("F2$")"3 l F2$"1" FS$(Z)FS$FU$: U v F2$"0" FS$(Z)FS$"1": s FS$(Z)FS$FU$"^"F2$:  FF$FU$ S$FF$: 1010: O3 FF$"("FF$")" S$F1$: 1010: O3 F1$"("F1$")"S$FV$: 1010: O3 FV$"("FV$")"/S$F2$: 1010: O3 F2$"("F2$")"pFS$F$(Z)"*(": F1$"0" FS$FS$F1$"/"FF$"*"FV$"+"FS$FS$"LN": (FU$,1)"(" FU$"("FU$")"F$F$FU$ F2$"1" FS$(Z)FS$")": FS$(Z)FS$"*"F2$")": ====== Funktionssuche ======C I1 FZ: (F$,L(I))X$(I) : 940kIII: IFZ: : (F$,1)")" 990 ====== Berechnen von u ======O(Z)II ZZ1: F$(Z)(F$,L(II)1,LL(II)1): 110: ZZ1*F$F$(Z): FU$F$(Z1): F1$FS$(Z1)4 F1$"0" FS$(Z)"0": C>S$F1$: 1010: O3 F1$"("F1$")"\HOO(Z): O10 900|R==== f'=u'*g(u) ==========\FS$XS$(O)FU$")": F1$"1" FS$F1$"*"FS$f O5 FS$FS$"^2"pFS$(Z)FS$: z===== f'=u'/g(u) ==========%FS$XS$(O)FU$")": FS$F1$"/"FS$A O19 FS$FS$"^2)"SFS$(Z)FS$: p====== Klammern ======= (F$,1)"(" (F$,1)")" 970S$(F$,2,(F$)2): 1110: N FS$(Z)"0": F$(Z)(F$,2,(F$)2): 110  F$"X" FS$(Z)"1": FS$(Z)"0": F"? SYNTAX ERROR in":"? "F$: : 70o====== Suche Rechenzeichen ========L(S$): P0: O6: KL0 I1 L: K$(S$,I,1): KLKL(K$")"): KLKL(K$"(") KL0 : 1080  K$"+" K$"-" PI: O1(K$"-"); K$"*" K$"/" O2 PI: O3(K$"/")[$ K$"^" O4 PI: O5a.p8 KL 990vBL====== Term = Zahl ? ======V I1 (S$): K$(S$,I,1)` K$"/" K$":" : N1: j K$"-" : N1: tN0: ~===== Funktionen =======T 7, SIN(, COS(, COS(, (-1)*SIN(,EXP(,EXP(,LN(,1/( SQR(,.5/SQR(, TAN(,1/COS(,ATN(,1/1+(========= MAIN ========="1:ableiten 2:rechnen";A: A 70, 1200: 1190"X1, X2, N =";X1,X2,N : " X","F(X)","F'(X)"' XX1 X2 (X2X1)N= X, A(X), B(X)I: :  1190"X1, X2, N =";X1,X2,N : " X","F(