~p @_a!cAeagikmoq!sAuawy{}!Aa!Aa!Aa!Aa!Aaǁɡ!Aaׁ١!Aa!Aa/ B b  !"!B!b!!!!!!""#B"%b"'")"+"-"/#1"#3B#5b#7#9#;#=#?$A"$CB$Eb$G$$K$M/%SB%o%W%Y%[%]%_&ag&i&k&m&o'q"'sB'ub'w'y'{'}'("(B(b((((()")B)b)))))*"*B*b*****+"+B+b+++++/,_a!cAeagikmoq!sAuawy{}!Aa!Aa!Aa!Aa!Aaǁɡ!Aaׁ١!Aa!Aa/ B b  !"!B!b!!!!!!""#B"%b"'")"+"-"/#1"#3B#5b#7#9#;#=#?$A"$CB$Eb$G$$K$M/%SB%o%W%Y%[%]%_&ag&i&k&m&o'q"'sB'ub'w'y'{'}'("(B(b((((()")B)b)))))*"*B*b*****+"+B+b+++++/,A292 LEES DITt OFKTPLOT DžQTABLO 1_7N000_JBZDOC 6LESKTOP INF 9F EODESK DAT<~ ******************************************************************** Deze diskette is samengesteld door de Stichting ST, Postbus 11129, 2301 EC Leiden. Onze bibliotheek van public domain programma's omvat op dit moment (zomer 1990) al zo'n vier honderdvijftig disks. Daarop vindt u programma's op elk gebied, van tekstverwerker en database tot de leukste spelletjes, de fraaiste tekenprogramma's en de handigste utilities. Ook bevat onze bibliotheek een speciale afdeling voor public domain disks met Macintosh software, die te gebruiken zijn onder de ALADIN emulator. Deze MAC-PD serie bevat tot nu toe ongeveer vijfendertig disks. ******************************************************************** U vindt in het twee maandelijks tijdschrift "ST" (Onafhankelijk tijd- schrift van en voor gebruikers van Atari ST computers) een overzicht en een bespreking van de inhoud van de nieuwe public-domain diskettes. Dit tijdschrift bevat tevens een bestelkaart zodat U vlot over de software kunt beschikken. De Stichting ST geeft ook een speciale PD catalogus disk uit. Deze public domain disk is geproduceerd en gedistribueerd door: ************** Stichting ST afd. Software Bakkersteeg 9A 2311 RH LEIDEN ************** Ondanks onze controle komt het af en toe voor dat een diskje niet goed is gecopieerd.Mocht U dit overkomen, aarzel dan niet en stuur de defecte disk aan ons terug. U krijgt dan direct een vervangende disk toegestuurd. ************************************************************************ Teneinde het voor ons mogelijk te maken om productiefouten op te sporen en vervolgens in de toekomst te vermijden, zijn alle disks, geproduceerd door de Stichting ST, voorzien van een groen productienummer. ************************************************************************ sin(cos(x+8)/10)+tan(11/7+x) 10 -10 10 -10 -1.0E+150 1.0E+150 .1 . DžQ.. 1/X FKT F R2X^5-4X^FKT F S5X^3-6X^FKT F TCOS(4X)/FKT F UCOS(X) FKT F VCOS(X^2)FKT F WEP(-X^2)FKT F XFKTPLOT KON F YFKTPLOT MAF F [FKTPLOT PAR ]zFKTPLOT PIC e ^}FKTPLOT2PRG ~~MF FKT F SIN(X) FKT F SIN(X)SQFKT F TAN(X) FKT F READ ME [INTERPRETERSIN(COS(FKT 1/x 5 -5 3 -3 -1.0E+150 1.0E+150 0.125 2*x^5-4*x^4+8*x^3-16*x^2+32*x-6 2.75 -1.765625 190 -190 -1.0E+150 1.0E+150 .15 5*x^3-6*x^2-10*x+5 2.675 -1.6125 31.329639889 -15.108033241 -1.0E+150 1.0E+150 0.1 cos(4*x)/x 5 -5 3 -3 0.0625 cos(x) 9 -3 1 -1 .15 cos(x^2)/ep(x^2/4) 5 -5 1.3 -0.6 -1.0E+150 1.0E+150 0.0625 ep(-x^2) 2.5 -2.5 1.5 -0.5 -1.0E+150 1.0E+150 .0625 ka : 3.141592654 ; Pi kb : 2.718281828 ; e kc : 299792500 ; c [m/s^2] kd : 1.3806E-23 ; Boltzmann-K. [J/K] ke : 6.0221E+23 ; Avogadro-K. [1/mol] kf : 1.6022E-19 ; Elementarladung [C] kg : 8.8542E-12 ; Epsilon0 [As/Vm] kh : 1.25663E-06 ; mag. Feldk. [Vs/Am] ki : ; kj : ; kk : ; kl : ; km : ; kn : ; ko : ; kp : ; kq : ; kr : ; ks : ; kt : 1.2345678901E+16 ; Test ku : ; kv : ; kw : ; kx : ; ky : ; kz : ; sin(x) cos(x) ep(-x^2) 1+ma sin(x+ka) ma+mb+mc+md+me sqr(x) 14 150 2 2 0 0 13 10 -10 10 -10 0.125 4 0~`|8~f8~`~8~f8``f`f `8<><|<f<~f|f<<>8>`f~|<>f8< |8~~>~~f~~f~f~~~8~|f~~>~灁~8~~|ffffffffffff`|<f`癟~~f9`ff>ff~ff`ffffp`<`>p癏ffy`ff~f~|ff`f~ff<``~<f~q`ffff``ff`<`ff`<`ff`q`f~ff``ff`<`ff`<`ff`a~~~~`<~~`~f~<~~f`~~Áf<<~A~|>`<<>`>f><|~f`>|f<<>~|x`@`@@  @@@O@ `<`< ` 0 8~0 8~ 08~8f88f8f~<<>flf <|flf ~f|~~fl  ~~fl < ~<`f`< ff< <@<~`fp<ff<l@~`f<0~f0l<`f<00`f<00~@<8`f<08``f<0`~8@ f0~~~ f~0`~~ f~` 0 f`><|f~``>|f~` ```  @@@@@ @    ? ?|@~x  ~ ? ?????~~>`~>?`|?@@|@@y???C?@???#?@~~~'~0 ~~~'~8 D_aE?`|aEP~8`<=???????7???????~~~~~~ @ @@@@@@ @@   @ @@@     @@@ @ @@ @ @@@@D0 D8sC UQ|G mQ@1DDO88@@ `   ` @ @@    `@@@@`** (*TTUP*****@D`TTTTT@D0@*****@(@TTTTT@+  *** aPTTT  (** ~@TT >A`` A@!@  @ @@@  @ @   @ @&@*@ @20@ @0@@@@@@ @@ @  @ @ @ ``@`` @`@ @@@@@@@@ @@@@@@@ @@@@@`@ @@@@@ @@@@@@@@@@@@@ @x @@@@@ @@@@@@@     G@ @@@@@ @@@"  @$$@H H`@@``@@@@>? @>? @>}? @>}?  }? }?@` |??|>@"|??|> B>} >||߃|| ?>>~ ?>>~  @ @ @@@@@@@  @@@@@@       0`80<0>???@>@ w6  w+>  ww< @w=>~~>w>< @=?w@@7www~w@wwwpp?wwwwppwwwpppwwp@@wwpppw~p@@w>wpp~  w>w?pp?p?  ` @@ s  s@; @;@s@s8@@;@ ; ;`ûqq@@  @@  pُR%/* `aqȜ(  !> h b 'qq1;1?5511`.WKO` EfvM.v m HPHUBg?<JNA(m)m -:gS)@ -OK1PC#HNHx?<HNA@)@l/?<HNA)@h&@)@XЬl)@d)@`ARCpr Ѝ"QHNFALN"Hz6?< NA\pdAxr0XQ)K\NN 4 006ZZZN ,`NuJrBjNuHz?<&NN\N֎CAp$L Qp Nz9lrBlJpNNzpMNz9@pdAr 0Q0tr N9lNdNupealp`NuaNJHz?<&NNBWNANC2A@p222NrҌ0<NB0,rNurA9Ar`v C9Cr`rt9@9A9BNrrҌpsNB0,Nu9@N`rDҌpsNBNuC2 @ e @}bA@p222Nr,Ҍ0<NBNu pa4|a@:>< |a6RGk0Gg`a(0GVfA1G<ap??<?<NM\Nu??< NMXNu&8*:EENuHnތ 2$4BBNuAd RdQRB BbABJk 0NuJBjBBXNu 0Nu 2$NuE`B<gJEgEjCDEDF Fe( F dF8BCHC` F0bFHC8v` HD8HDkDуdQRBNuDdBDA@kgAр[SBk0NuJlJBk&Nu0g H@rB JkЀ[` BbNuJBj prtNuHPAJgPpr$< _Nup _NtNu&8*JEgJBgJjBEB:HC҅H@:|ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuNpNNuCDEJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@N?<,>CEdGH@0r`?<`JBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNuprt|=|  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dajSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`HJjDDDS4</NJFkSFk&aQN`Ha"FFaQL8Nز6.JgtBnNupr$<NuJBk4<rpAC v JBgJjv-| Bb BkH>aaNRFBdL8?Nز<JBga2SF Be BgQRB`ApdR e <rRF&0xafEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`2:HQ A dGe GbFGNu G0dFGHANu~NuAd RdQRB6Ce0 C/jC C@j C jr0H@{0DH@Nur{0Nu{0NutNuJj(:,af AfBfNu&<x*<N`Hnr$g4jDk( b4<J@`@[H@0Nu4<Ѐ[Nu4<NuNuAd RdQRBBkBjDBJjDNupNufJj fJAkNupNdRdRrxaAffBWHNuJjDBDA@JBfprJjDEDD@JEfvxNuaغBffAVHNuCDEaEf fDUHNu]HNuCDEaEffDftNuJjtNupN&NAXJ@jNNu?Hl?<6NAP0,NuNJ@g,A,BBgHQ?<=NAP FJ@k??<>NAXtNutNu ::/rI IN<,(k$/<??<?N`NA Jj ?a0NNHrO INLA NNp6`p5`p4`p3` p2`p`pN @ddAg(g@A `1||9XgBX)HJPfNu"lJQf2")IBQlk0Nv` QNu2p~?`2p~@`~?`~@St4f9G/0N(g^AA `.j>(1GRhgbHhBg?,(/?<BNA Jk@$_>g8 Z"XPf, HQH/?,(?,NA gJk p x?gp%NNu @fp7`&(* NLNBNތ NuBNN`]NNNB]NNNز]N <ڢ2,SFSGFnHGnDDDk9DBlDEk9EBlFcllGcll0,lb 0,lcNupmrtA)HA)HNpNvHHPN4 _:8><DbFEbGCHP@dʾAdBD2ƞE29|C???FF22N23BRG0@\@Nv"2)IN(* 9AJA)H@@[000][ˈN Evz`* [g" ]g |g QSz` zQSpQ][ɈN Dvx`* [g" ]g |g QSx` xQSpQ]Bp4NzHNu*( INA)H @depd ae zb QB DNA\)H @ e` ae zb \gQBA BhNpZNzA BP"`#|}NA"H0,tg"Hg \f`A\fS A ENvAR@H`2QNu@9@JpNNzr|<N @xepw2A$JBjDFHB t`0QBl9F)lVTAtp 9| N2(g"P@g2RADAH""l`r2oZAe 1@#)I`Nuk1@Nup NN"l`dpNAtrdJhk\QpaNH ld$l`"Hg0 k&@ S`g k#&@0+S@H3 Q&f)I`LNu?<?<NAXJgJgNfAH@B pNA NuApNA0pNN:$N$BS@kH2QNupC ұd"X0Pg"RA$D#Nu"X0NuNJ@gpNu _0HpN _0HpNp"_0HqNp"_0HqNE ұeHHQ0)Nv$_$ZR@H`2QNu$Y0gHR@@"D%$X0P2g# R@%NupE $ $X0dP.gRG,D%pr Y2dP.gRG,D!p4Ae4v`VfANuNZWHNuNZVHNuNZUHNuNZSHNuNZRHNuNZTHNuJhg NNfNuJhg N1NfNu Ihd*N$E$RR@H`2QˈN ENu Ihd"*N$E8*$R`"QˈN ENu2)A IJAfr4(Ae*RBBc0*SA?N$E$R`QˈN ENup`(* 0(iN$E 4R`Q$D 4R`QˈN DN ENua NuN IHPg"B  g &gNJBjt BNut`Rptr ae OgT Xgj HgSRB ae Fb$0k  c_  c b退`tSJBkNLRB0 b b瀀`RB0 fрd`2p <0N`QNu?Hl?<GNAPA"HJf SNpC 0(gFd"P$I` *N$E$R(S@jv A(Wf( ae zb Q DNur ,* N& ( EN C"Sj|AcL"2` NqR YEjrd0` SjN YQf "_Nq*eN&N *< NqbІSGfN~$_NnЀЀЈNp"X4g S`"QNuNuNJPgBP, d eЀЀ``Ѐ"ЀЁE H FN|L l ,"X2geb J"F\N" KC`e N`d \Nt l\Ӭ\ NupNd d3 d# d# # d# # # # d# # # # # # # # dB` # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # QNudd2d"d""d""""d""""""""dB` """"""""""""""""""""""""""""""""QNu0,p2,rR@RANuS@SA9@p9ArNu9@pN4, 6fprta0,2,NuA4, 6f9@9Ap rt`Blf`pBlf`p9| f|9Fd@9@hN9@^9A`9Ab~`$aJf,H@ Kg Mg Pg Hf~`BSGj>RGFc8>`4A g6 g0 g` gTlfelhgFf2pRGRFa`a,` `?~ap ap a 0NuCpE`bf`FgRGJGgRSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NMXNur9A(HNLNu0,^2,`NzEfpaRppaNAEg0PaľEfa4RE`p a2a*Efp a(NldeS@f lbfSl`9Ab9FdNupapqr`p`C l ", Ⲭ dfѬ SA 0! Nup"N<(`|HP?N<pg2JFg W"X2@e2<A`QNCpR@ 1 fA 0! "_N, HHHNup`pNu)H9@Jp4NzP'J&f H LNu P&NuQ'` J,'fJ,&gHA#ȇeC! B,&LNu-W)K20, 8k8@ gJl&f"Nu , 8g"P 8 @/, 8N  8fQ 8J,'gNupB <``L@ H)l26)z @W , Jf`CfSHj-D@Hd0H@H 0H@0`fSC\fS , @a"C]fApNNNdHP?< NA\NuH@aa/a a Nu@0 9c^Nu| PC>$Fehler # ][Abbruch]\f.B &lX)K\)ld` lp ,BQjNup(NXtHB9BL@@TAt )l g.A( f hgSASAgRB`9BJNzSAgNu)l g,vARC( g9CJ9|Lp!,Nz FPeNuNA JpBQA/)H )l gBlJpNzB Aprt0 0BBB R@ @efA000 0PB0 *00 000\0X0 *0000 0P0BX0, *@00p1| 1|QBX0 $HTH0P &0 *0,NupNSk [0NupNuHPaH8 _&X Pf/|~ K!zag @ ep 24C"2 S@ػ Td BTA3A0C4$I2a222B"0@2A\xvaRg<2#M 4B3BS@ -f ػ Td>BAAb8RGRC`3RSG5GC5C J1DcaRF F e`RG GcdNuXASF1F41R 1h4 x1EDgVA)H)H 9|J?<NNTU@g,ACg dRhdRh(gpL8Nzp>L8Np*HEAJ0?C bL000H?A/.)HpNzLrHH/>Bl/,ff.f.ffNu l /.g&, ^`D&, N`>&, R`8&, V`2&, Z`,2,/4WAARA0,/6A hfRAS@f9A/,&, Jo ? CN 0`@k Ap0(/.NuA Nup)@JphNzLtH &JKBCH .A/~0 1PP1P1PA L? &<@>AFG0000X0000X0000X0000C ~AJ0g0  pi, Nz"F QNu?S@k&8L &LeBLe,C`(A? fHa)_ 2TNuBlJ`l *bl ,bH .N0S@k@>A PC/~. 0(JgRJ)@g1@CJ2fP2HP" &" *pdNz0,r W1@AJ00 piNz9|L@NpiNz _CL""pe`9| LpiNz9|LphNzLtH 2H/`SBSC@AHH/jP 6P/^P0<rtNpapapapaL/jr`S@k6@ A 9PJg8BPpfNzpgNz9| LphNz9@JfdBlJa\Q 6BB 2`NuS@k @ A 9pJg a$Bp`NuHS&I. FV 7p&N9l/h8,:,L/d4,pĴ@cS@9@p4,rŴAcBSA9Ar`8pJ, 7fnJ/^k0 Eg$2,/h pg  qfH9A/hpjN԰`NNsinhCDNNcoshCJNNcothCVNNtanhC\NNsechCbNNcschChNNarcsinheCnNNarccosheCtNNarccscheCzNN?<d?<D?<?<[A" NHmN \FKTPLOT.KON"_NNNzNJBfN=HmN \FKTPLOT.KON"_NCNAN HmN \FKTPLOT.MAF"_NNNzNJBfN>>HmN \FKTPLOT.MAF"_NCNAN HmN \FKTPLOT.PAR"_NNNzNJBfN>HmN \FKTPLOT.PAR"_NCNA#N CA 0CA 0CA 0C*A$ 0HmN \FKTPLOT.PIC"_NNNzNJBfN?dHmN \FKTPLOT.PIC"_NHP?<NNT"_NN8C"NNJ/Hm"A "_NpJBgp$gN?nA^N NNzA?N NdBB RNC(N/-A(CHNHm(p@Nf"_NJBgSB/-NCNNR - [fANNpNX -SgN@"pr5NZpr6NZpr8NZN@:pr5NZpr6NZpr8NZ+|prNZpr?NZBAN A)JN )|A J)|AD N?<d?<D?<?<[A" NN <"<:N($g <"<;NF/ <"<N$fNA&A)jN -($VHgNA<`lN NdNNA)jN ANNAAN N)|A J)|AD NN NdpNLNrC.NpNpNpNLCNN6HPp"_NHPN Funktionplot"_NpJBgp/Hm.N/V"_NpJBgp$fNBA^N pNLCNN6HPp "_NHPN Funktion "_NpJBgp/Hm.N!F"_NpJBgp$fNB|AaN pNLCNN6HPp "_NHPN X-Intervall"_NpJBgp/Hm.N-X"_NpJBgp$fNBAdjN pNLCNN6HPp "_NHPN Y-Intervall"_NpJBgp/Hm.N,Y"_NpJBgp$fNCXAhN pNLCNN6HPp"_NHPN Definitionsbereich"_NpJBgp/Hm.N D"_NpJBgp$fNCAkLN pNLCNN6HPp"_NHPN Schrittweite"_NpJBgp/Hm.pNfHPpSNf"_N"_NpJBgp$fNDFAmN pNLCNN6HPp "_NHPN Genauigkeit"_NpJBgp/Hm.p"NfHPpGNf"_N"_NpJBgp$fNDAv&N pNLCNN6HPp"_NHPN Macro-Funktionen"_NpJBgp/Hm.N2M"_NpJBgp$fNE2AzN pNLCNN6HPp "_NHPN Konstante "_NpJBgp/Hm.N%K"_NpJBgp$fNEA|N pNLCNN6HPp"_NHPN Plot Funktion "_NpJBgp/Hm.pNfHPpPNf"_N"_NpJBgp$fNF"BApN pNLCNN6HPp"_NHPN Plot Funktion & Ableitungen"_NpJBgp/Hm.pNfHPpANf"_N"_NpJBgp$fNFAN pNLCNN6HPp"_NHPN Plot Ausschnitt"_NpJBgp/Hm.pNfHPpTNf"_N"_NpJBgp/ -NLzNpJBgp$fNGDA"N pNLCNN6HPp "_NHPN Zoom in"_NpJBgp/Hm.pNfHPpINf"_N"_NpJBgp$fNGAN pNLCNN6HPp "_NHPN Zoom out"_NpJBgp/Hm.pNfHPpONf"_N"_NpJBgp$fNH0AFN pNLCNN6HPp"_NHPN Wertetabelle"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNHBAN AbN pNLCNN6HPp "_NHPN Integral"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNI.AN pNLCNN6HPp "_NHPN Nullstellen"_NpJBgp/Hm.p1NfHPpNf"_N"_NpJBgp$fNIN NullstellenC4NBAN AN ATN pNLCNN6HPp "_NHPN Extremwerte"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNJbBAN AN pNLCNN6HPp "_NHPN Wendepunkte"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNJBAN ANN pNLCNN6HPp"_NHPN Wendetangenten"_NpJBgp/Hm.pNfHPpWNf"_N"_NpJBgp$fNKtBAN A΄N pNLCNN6HPp "_NHPN Symmetrie"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNKA|N pNLCNN6HPp "_NHPN Monotonie"_NpJBgp/Hm.p2NfHPpNf"_N"_NpJBgp$fNLdAN pNLCNN6HPp "_NHPN Parameter "_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNLARN pNLCNN6HPp"_NHPN Raster"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp/ -NLzNpJBgp$fNMlAN pNLCNN6HPp "_NHPN Koordinaten"_NpJBgp/Hm.p%NfHPp Nf"_N"_NpJBgp/ -NL&<x*<NpJBgp$fNN AN pNLCNN6HPp"_NHPN Text einbinden"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNNAN pNLCNN6HPp"_NHPN Pfeile setzen"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNOAN pNLCNN6HPp"_NHPN Zoomfaktoren"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNO~A.N pNLCNN6HPp "_NHPN manuell"_NpJBgp/Hm.p2NfHPp Nf"_N"_NpJBgp$fNOA NN pNLCNN6HPp "_NHPN automatisch"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNPnA vN pNLCNN6HPp"_NHPN CLS"_NpJBgp/Hm.p.NfHPpNf"_N"_NpJBgp/ -NL&<x*<NpJBgp$fNQN+|BBAN pNLCNN6HPp "_NHPN Hardcopy"_NpJBgp/Hm.p#NfHPpNf"_N"_NpJBgp$fNRXNN\HxN/Drucker betriebsbereit?| | Bitte einschalten!BHPN Ja | Nein 4r"_ N+@ -SgNRX -SgNR N -UgNR$A N -WgNRNZpr?NZpNLCNN6HPp"_NHPN HC-Format 1:2"_NpJBgp/Hm.pnNfHPpNf"_N"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNS+|prNZpr?NZpNLCNN6HPp"_NHPN HC-Format 3:1"_NpJBgp/Hm.poNfHPpNf"_N"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNT+|prNZpr?NZpNLCNN6HPp"_NHPN HC-Format 9:1"_NpJBgp/Hm.pjNfHPpNf"_N"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNUh+|prNZpr?NZpNLCNN6HPp"_NHPN freier Speicher"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNVA)JN pNpNpN <"<N <"<NpNpN <"<N <"<NNp r NNӪNxN Bytes frei4NN8C"NNJ/Hm"A "_NpJBgp$gA)jN pNLCNN6HPp"_NHPN Funktion speichern"_NpJBgp/Hm.p;NfHPpNf"_N"_NpJBgp$fNW&AN pNLCNN6HPp"_NHPN Funktion laden"_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fNXAdN pNLCNN6HPp"_NHPN Konstante speichern"_NpJBgp/Hm.p?NfHPpNf"_N"_NpJBgp$fNY$AN pNLCNN6HPp"_NHPN Konstante laden"_NpJBgp/Hm.p@NfHPpNf"_N"_NpJBgp$fNYAN pNLCNN6HPp"_NHPN Parameter speichern"_NpJBgp/Hm.pANfHPpNf"_N"_NpJBgp$fNZ$ALN pNLCNN6HPp"_NHPN Parameter laden"_NpJBgp/Hm.pBNfHPpNf"_N"_NpJBgp$fNZA#4N pNLCNN6HPp"_NHPN Bild speichern"_NpJBgp/Hm.pCNfHPpNf"_N"_NpJBgp$fN[&N\A%N NzpNLCNN6HPp "_NHPN Bild laden"_NpJBgp/Hm.pDNfHPpNf"_N"_NpJBgp$fN[A'N pNLCNN6HPp "_NHPN Eingabe"_NpJBgp/Hm.pNfHPpeNf"_N"_NpJBgp$fN\A)N pNLCNN6HPp"_NHPN Plot "_NpJBgp/Hm.pNfHPppNf"_N"_NpJBgp$fN\AFFN pNLCNN6HPp"_NHPN Kurvendiskussion"_NpJBgp/Hm.N%k"_NpJBgp$fN\AYN pNLCNN6HPp"_NHPN Extras"_NpJBgp/Hm.N-x"_NpJBgp$fN]bAsN pNLCNN6HPp"_NHPN Files"_NpJBgp/Hm.N!f"_NpJBgp$fN]A"N NpNLCNN6HPp"_NHPN Quit Funktionplot "_NpJBgp/Hm.pNfHPpNf"_N"_NpJBgp$fN^HxN,Wollen Sie Funktionplot|wirklich verlassen ?HPN ja |neinr"_ N+@ -SgN^+|(A)JN N NdAN HNA)JN ?<d?<DA"N8A C:N+|A NNLHANNLL8N`NތANHm:Hm A"_NHPp"-"_NpNNLH <r$<L8N\N~"_NC:NN.`NqNqpNpNp2rdN <I"<NpNpNpNp NpNp Npd"<NNFunktionplot V1.32a4N(pNpNpNp N <"<:NNvon4N(pNpNpNpN <"<NN Dirk WenteN(pNpNpNpN <@rsNNDQuelltext und neueste Version sind fr 20,- DM beim Autor erhltlichN(pNpNpNp NNp r"NNHinterstrae 1NNpr!NN4750 Unna-LnernNNprNNein Public Domain ProgrammNNprNNerstellt in GFA-Basic V2.0NN8C"NNJ/Hm"A "_NpJBgp$gA)jN N NdA)JN pNpNpNprN <g"<kNpNpNpKrNpi"<aNNprNNf(x)=4Hm@pA"_NNN <rN <"<aNNp r NN'Bitte geben Sie die neue Funktion ein :uNNp r NN9[Return wenn die alte Funktion bernommen werden soll ! ]4N <rN < "<aNNprNNf(x)=4NNpr NAFrANHmFA "_NJBfNcHm@pA"_NCFNAFC@NHmFA "_NJBfNcHxNKeine Funktion eingegeben4HPNweiterr"_ NA0NHNdXAFCLNA&N -JgNdXHxNUnzulssige EingabeeHPNweiterr"_ NA0NHA)jN N NdA6N vA)JN ANANN\zNJBfNdN10CRNA 0N-10CXNA 0AN ANANN\ANNp r%NN<-N <"<N <"<NNp rNNBildschirmpunkte / BerechnungN <"<N <"<NNprNN" - +N <"<N <"<N <"<tN <"<tNNpr'NANN <"<N <6"<gNNpr&NNzurckNpNNNNp r7NN<-N <"<N <"<NNp rNNAktuelle Schrittweite : AHPpaNf"_NpJBgp/Hm|p"_N>HPpzNf"_NpJBgp$fN}HxN,Macro-Funktion-Bezeichnung|nur von ma ... mzHPN O.K. r"_ N+@N8NprNA|NN: A킂rANHmA|"_NlJgN~ALC킈NA킂CLNA&N A킈CLN -JgN~LHxNUnzulssige Eingabe4HPNweiterr"_ NA0NHA C킂NHm|p"_N>NNNLH <r$<L8N\Nތ/A킂CBN <"<N <"<:N <rN <9"<aNAvN N8HxN7Macro-Funktionen drfen sich| nicht selbst aufrufen !4HPN OK r"_ N+@NHPpaNf"_NpJBgp/Hmp"_N>HPpzNf"_NpJBgp$fNHxN(Konstanten-Bezeichnung|nur von ka ... kzHPN O.K. r"_ N+@N&HmN : o"_NC킎NNpr%NNWert : vA킔rNA킔NN~C킔NHmp0Nf"_NJBfNTpNC킔NHmp"_NjNNNLH <r$<L8N\Nތ/HmA킔"_NHPpN"_NHPp"_NHPN ; "_NHPHmp"_NjNNNLH <r$<L8N\NތCTN6HPp"_Nj"_NCTNAHPpaNf"_NpJBgp/Hmp"_N>HPpzNf"_NpJBgp$fNHxN(Konstanten-Bezeichnung|nur von ka ... kzHPN O.K. r"_ N+@NHmN : o"_NC킎NNpr%NNBem.:rA킚rNHmA "_NJBfN`pNC킚NHmp"_NjNNNLH <r$<L8N\Nތ/Hmp"_NjNNNLH <r$<L8N\NތCTN6HPp"_NHPA킚"_NCTNA0 <`Ѝ/A*NANN\ _N <`Ѝ/AN _NC`Af 0 AN -UgNVAN C`Af 0 ArN/AxN"NANN/AfN"NNJUgNpCAZ 0 0AfN&<@x*< N2JBfN4Af 0AxNzN2pJBgp/AfN&<x*<N,pJBgp/AxN&<x*<N,pJBgp/AfNzN2pJBgp$fNCfAx 0N NdA*NANN\&<x*<NزANNBA`NA*NANN\A~NAN A*NzNPpJBgp/ANzNJpJBgp$fNA`NrNA`N"<NANANN\A~NAN ANANN\&<x*< NزHANL8NBA퀄NANzNPpJBgp/ANzNJpJBgp$fNNA퀄NrNA퀄N"<|NN NdA*NzNPpJBgp/ANzNJpJBgp/ -NLzNpJBgp$fNBCAZ 0ANHANL8NPJBfNCA~ 0NCA~ 0AN -NL&<x*<NNA~NNJpJBgp/A~NzNJpJBgp/ -NL&<x*<N&<x*<NBA~NNPpJBgp/A~NzN2pJBgp$fNSANANN\&<x*< NظA퀊N -NL&<x*<NANNزNݰH -NL&<x*<NL8NBA퀐NBA퀐NAZNNPJBfNAZNzN2pJBgp/ -NL&<x*<NAZNNPpJBgp$fNZ -JgN" <r$<A`NN\Nތ"-NA`N&<x*<N`Nތ"-NN:p"-N <|"-N -NLzNpJBgp/ -NL&<x*<NAZNNPpJBgp/ -NL&<x*<NA퀊NN`AZNN,pJBgp/ -NLzNpJBgp$fNZpNpNpNpNA`N&<x*<N`Nތ"-N -NL&<x*<NN~rN*pNp N+| <Ѝ/ -NL&<x*<N _N ANANN\A퀴NA*NANN\A퀺NA퀴NvNH -NLH <r$<L8N\L8NBH -NLL8NزANN\ANA퀴NvNH -NLH <r$<L8N\L8NBH -NLL8NزANN`ANA퀺NvNH -NLH <r$<L8N\L8NBH -NLL8NزANN\ANA퀺NvNH -NLH <r$<L8N\L8NBH -NLL8NزA*NN`A*NANANNpJBgp/A*NANNpJBgp$fN> <<Ѝ/ -NL _N <<Ѝ/ <r$< _NAAN N NdA퀴N vA퀺N vAN -JgNANANN\A퀴NA*NANN\A퀺NA퀴NvNH -NLH <r$<L8N\L8NBANN`ANA퀴NvNH -NLH <r$<L8N\L8NBANN\ANA퀺NvNH -NLH <r$<L8N\L8NBANN`ANA퀺NvNH -NLH <r$<L8N\L8NBA*NN\A*NANANNpJBgp/A*NANNpJBgp$fN <<Ѝ/ -NL _N <<Ѝ/ <r$< _NAN vADN vA(N HA,N HAJN vAPN vAVN vA\N vAbN vAN -JgN~ABNANN2JBfNCAb 0N(CBAb 0AHNANN2JBfNXCHA\ 0NdCA\ 0B0Hm4N Wendepunkte4"_NpJBgp/Hm4NWendetangenten"_NpJBgp/Hm4N Extremwerte4"_NpJBgp$fNAμN )|4 0AbNA\NN\H -NLL8NزNAJNAJNA>NN`ADNC>AZ 0 NAZNN,pJBgp/ADNAZNN2pJBgp$fN+|,+m$NANA2NN2JBfNHm4N Nullstellen4"_NJBfNvA*N NŶHm4N Extremwerte4"_NJBfNŬAN NŶAN ClA& 0+m$N.`bNqHm4N Extremwerte4"_NJBfN|A*N -DNL&<x*<NAlNN,pJBgp/ -DNL&<x*<NBAlNN2pJBgp$fN|+|, -,NL&<x*<NpJBgp/ -0NLzNpJBgp$fNːR(R Hm4NWendetangenten"_NJBfNȺAN -NL&<x*<NAlNNB&<x*<N`NH -NL&<x*<NL8NزAPNA*N AZNAPNNBAlNN\H -NL&<x*<NL8NB&<x*<N`NH -NL&<x*<NL8NزAVNN - Zr N -(NxN. NN - ZrNHm4A4NNLH <r$<L8N\Nތ"_NNNN - ZrNN : y= APNN * x + 4AVNNA͆N NːHm4N Extremwerte"_NpJBgp/Hm4N Wendepunkte4"_NpJBgp$fNʜA*N N - Zr N -(NxN. NN - ZrNHm4A4NNLH <r$<L8N\Nތ"_NHPN bei x= "_NN -NL&<x*<NAZNNB&<x*<N`NH -NL&<x*<NL8NزNNN - Zr3NN : y= -NL&<x*<NAlNNB&<x*<N`NH -NL&<x*<NL8NزNNA͆N NːN - ZrN -(NxN. NN - ZrNHm4A4NNLH <r$<L8N\Nތ"_NHPN : x= "_NN -NL&<x*<NAZNNB&<x*<N`NH -NL&<x*<NL8NزNNA͆N CDA> 0 NNPJBg" -(JgNvHm4N Nullstellen4"_NJBfNbHxN0Keine Nullstelle im gegebenen| | IntervallHPNweiterr"_ N+@NlHm4N Wendepunktel"_NpJBgp/Hm4NWendetangenten"_NpJBgp$fNHxN/Kein Wendepunkt im gegebenen| | IntervallHPNweiterr"_ N+@NlHxN/Kein Extremwert im gegebenen| | IntervallHPNweiterr"_ N+@A)jN NB N$f(x) ist symmetrisch zur Geraden y=xC킦NNfNf(x) ist nicht symmetrischC킦NpNpNpN <rxN <"<NpNpN <"<N <"<NNp rNA킦NNN8C"NNJ/Hm"A "_NpJBgp$gA)jN N NdA큆N vAN vAN vA킬N A8N HANf"_NC킲NpNpNNNpr>NpNNNpr>NNX= -NL&<x*<NA퀢NNB&<x*<N`NH -NL&<x*<NL8NزNNNpr>NNY= -NL&<x*<NA퀮NNB&<x*<N`NH -NL&<x*<NL8NزNN+mHP+mLT - UfNpr>NpNNNpr>NpNN?<BgA킾"N8N NdAN -L nN:BLANANN\&<x*< NظH -HNLL8NBANN`A퀢NA*NANN\&<x*<NظH -LNLL8NBANN\A퀮N -DNL&<x*<NA퀢NN,pJBgp/ -DNL&<x*<NBA퀢NN2pJBgp$fNLBm -DNL&<x*<NA퀮NN,pJBgp/ -DNL&<x*<NBA퀮NN2pJBgp$fNBm - $gPN NdN\pNԸ+|X+|\NbH +@H +@L +@ -XHfNNp"-XN <"-XN+mHXp"-HN <"-HN -\LfN -\rN -\"<N+mL\ -LrN -L"<N - $gRpNԸNzN NdA`N HB`A)JN pNpNpNp2rdN <J"<NpNpNpU"<Npy"<NNprNNTextart4N <"<N <"<NNp rNNTexthheN <"<N <"<NNp rNNWinkelN <"<N <,"<,NNprNNText einbindenN <"<|N <,"<NNpr3NNAusgang4Np<"<6N <"<N?<6?<NpNfNpJNpNfNNR -So:NpNfNpJNpNfNN <Ѝ/p _ѐ - {oNpNfNpANpNfNpNfNp2NN NdAN HA텈N HA텨N HA텬N HA텰N HA텴N HA텸N HA텼N HAN HAN HA텔N HA텐N HNN\NpNfNp3NpNfNBB+mԅ <Ѝ/ - _ѐ+m <Ѝ/p _ѐ+m <Ѝ/p _ѐ+m <Ѝ/p _ѐ+m <Ѝ/p _ѐ+m <Ѝ/p _ѐ+m <Ѝ/p _ѐ+m <Ѝ/p _ѐNpNfNp*NpNfN <NfNpNfNB+| <Ѝ/ -"-NNL _N <Ѝ/ -"-NNLvNNތ _ѐ <Ѝ/ -"-NNLvNNތ _ѐ <Ѝ/ -"-NNLvNNތ _ѐ <Ѝ/ -"-NNLvNNތ _ѐ <Ѝ/ -"-NNLvNNތ _ѐ <Ѝ/ -"-NЀ _ѐ <Ѝ/ -"-N _ѐN -NfNR - oNNR -UoNpNfNpJNpNfNN <Ѝ/p _ѐ - {otNpNfNpANpNfNpNfNp2NN NdA턬N HAN HHmFpr"_NpCNHmp*Nf"_Nl+@ -JfNHm -NLH <r$<L8N\Nތ"_NHPHmF -NLH -NLL8N`&<x*<N`Nތ/ - D""_Np"_NCNRHmp*Nf"_Nl+@ -JfTN Nd)|( "_NCNN NdN< gN)N N< gN)N N< gN)0N NHier kann nach Anklicken des Feldes 'Konstante' eine KonstanteNNpr NN?definiert werden. Wird das Feld 'Bemerkung' angeklickt, so kann4NNpr NN/eine Konstante mit Bemerkungen versehen werden.kNNp r NN5Konstante (ka...kz) knnen in f(x) eingesetzt werden,4NNp r NNz.B.: f(x)=sin(x+ka) .eNNJ$gA1 N N NdNpNpNpNp Np("<NNHilfe zu 'Macro-Funktion' :4N(pNpNpNp NNpr NN:Hier kann eine beliebige mathematische Funktion eingegebenNNpr NN8werden. Die Funktion darf Konstante (ka...kz) und Macro-NNpr NN:Funktionen (ma...mz) enthalten. Macro-Funktionen knnen inNNp r NN8der Funktion f(x) als Unterfunktionen eingesetzt werden,NNp r NNz.B.: f(x)=sin(x)+ma .eNpNpNpNp N <rHNN%Zulssige Funktionen und Operatoren :tN(pNpNpNp NNpr NN7^ , * , / , + , - , ( , ) , abs , atn , cos , sin , tan4NNpr NN6ep (fr exp) , int , ln , log , sgn , sqr , sec , csc NNpr NN3arcsin , sinh , cosh , arccsch , coth , tanh , sech4NNpr NNcsch , arcsinh , arccosh NNJ$gA1 N N NdA)JN AKfN N8C"NNJNL&<x*<NpJBgp/NNach Anwahl des Menpunktes 'NULLSTELLEN' werden die Nullstel-NNpr NN>len der unter 'FUNKTION' eingegebenen Funktion ber dem, unterNNpr NN@'X-INTERVALL' eingegebenen Intervall, berechnet und ausgegeben.NNJ$gAb$N N NdNpNpNpNp Np("<NNHilfe zu 'EXTREMWERTE' :N(pNpNpNp NNpr NNANach Anwahl des Menpunktes 'EXTREMWERTE' werden die rel. Extrema4NNpr NN:der unter 'FUNKTION' eingegebenen Funktion ber dem, unterNNpr NN?'X-INTERVALL' eingegebenen Intervall, berechnet und ausgegeben.4NNJ$gAb$N N NdNpNpNpNp Np("<NNHilfe zu 'WENDEPUNKTE' :N(pNpNpNp NNpr NN?Nach Anwahl des Menpunktes 'WENDEPUNKTE' werden die Wendestel-4NNpr NN>len der unter 'FUNKTION' eingegebenen Funktion ber dem, unterNNpr NN?'X-INTERVALL' eingegebenen Intervall, berechnet und ausgegeben.4NNJ$gAb$N N NdNpNpNpNp Np("<NNHilfe zu 'WENDETANGENTE' :N(pNpNpNp NNpr NNtion, Nullstellen-, Maxima-, Wendestellen- und Wendetangenten-NNp r NN/berechnung, pro Sttzpunkt, eingestellt werden.eNNJ$gAb$N N NdA)JN A|N N8C"NNJNL&<x*<NpJBgp/NDrucker. Die Auflsung sollte auf 960 Punkte/Zeile eingestelltNNpr NNsein.NNJ$gA|N N NdNpNpNpNp Np("<NNHilfe zu 'TEXT EINBINDEN' : N(pNpNpNp NNpr NN>Nach Anklicken des Menpunktes 'TEXT EINBINDEN' kann die Text-NNpr NN>art, die Texthhe und der Textwinkel eingestellt werden. DurchNNpr NNUnter 'BILD LSCHEN' kann zwischem automatischem und manuellemNNpr NN;Bildschirmlschen gewhlt werden. Automatisches Bildschirm-4NNpr NNFileselect-Box. Hier knnen die Konstanten gewhlt werden, dieNNpr NNgeladen werden soll.NNJ$gAHN N NdNpNpNpNp Np("<NN Hilfe zu 'PARAMETER SPEICHERN' :N(pNpNpNp NNpr NN;Nach Anwahl des Menpunktes 'PARAMETER SPEICHERN' erscheint4NNpr NNBeine Fileselect-Box. In der Eintragszeile kann der Name, bestehendNNpr NN@aus den ersten acht Zeichen der Parameter und dem Extender .PAR,NNp r NN>eingetragen werden. Nach Anklicken der OK-Box werden die Para-NNp r NN;meter auf Diskette geschrieben. Falls Parameter gespeichert4NNp r NN7sind, werden sie bei Programmstart automatisch geladen.4NNp r NN&Folgende Parameter werden gespeichert:NNpr NN9Bildschirmlschen (autom./manuell), Genauigkeit, Integra-4NNpr NN5tionsverfahren, Anzahl der Iterationen, Zoomfaktoren,4NNpr NN8Textart, Textwinkel, Texthoehe, X-Intervall,Y-Intervall,NNpr NN@Schrittweite (absolut u. Punkte je Berechnung), AutoschrittweiteNNpr NN(an/aus)NNJ$gAHN N NdNpNpNpNp Np("<NNHilfe zu 'PARAMETER LADEN' :N(pNpNpNp NNpr NNNN~C탊NA탊N+@/-HmA"_NC6NR/- -NLH -NLL8N`H <r$<L8N\NތC6N6C6N -NLH -NLH -NLL8N\&<x*<N`L8NPJBgh <Ѝ/ - _RBA CLNRHmL -C6N6N"_NCLN -f -m+m̅N NdBR -C6N6NHPA"_NJBfNBR -C6N6HP -CHN6"_NJBfN2+|+|N6B -Qm -JgN+m+mR -C6N6NHPA"_NpJBgp/ -C6N6HPA"_NpJBgp/ -NLH -NL&<x*<N`L8NpJBgp$gvS+mR/- -C6N6HP -C6N6"_NC6N -m+mR/- -NLH -NLL8N`H -NLL8N\NތC6N6C6N -NLH -NLH -NLL8N\H -NLL8N`L8NPJBgl <Ѝ/ - _ <Ѝ/ - _ѐ -mN NdBRB -C6N6NHPA"_NJBfN<+|NBR -C6N6HP -CHN6"_NJBfN|+|+m -m -JgN+mԅ -m\N NdBBBR -C6N6HPA"_NJBfNRR -C6N6HPA"_NJBfNS -m -JfN0BN8+|N NdBR -C6N6HPA"_NpJBgp/ -RC6N6HPA"_NpJBgp$fN+|N\ -C6N6HPA"_NpJBgp/ -RC6N6HPA"_NpJBgp/ -C6N6HPA"_NpJBgp/ -RC6N6HPA"_NpJBgp$fNTB+mԅSN\+| -NLH -NLH <r$<L8N\L8NPJBgN NdBR -C6N6HPA"_NpJBgp/ -C6N6HPA"_NpJBgp/ -C6N6NHPA"_NpJBgp$fN -RC6N6HPA"_NpJBgp/ -RC6N6NNL&<x*<N2pJBgp/ -RC6N6NHPA"_NpJBgp$fNB+mԅSN+|R -NLH -NLH <r$<L8N\L8NPJBgN NdBR -C6N6NHPA"_NpJBgp/ -RC6N6NHPA"_NpJBgp$fNB+mԅSN+| -NLH -NLH <r$<L8N\L8NPJBgNN NdBR -C6N6HPA"_NpJBgp/ -C6N6HPA"_NpJBgp/ -C6N6NHPA"_NpJBgp/ -C6N6NNL&<x*<N,pJBgp$fN -RC6N6HPA"_NJBfNB+mԅSN+|R -NLH -NLH <r$<L8N\L8NPJBgN Nd+mԅRS -C6N6NNL&<x*<N,pJBgp/ -C6N6NHPA"_NpJBgp$fN A.N +mAŶN /-AC6NR -JffA탐N )| NC탐N+mԅ -C6N6HPA탐"_NJBfNA.N ArN S -JfHmp/Nf"_NJBgB N NdAN HAN HAN H+mSBBR -C6N6HPA"_NJBfNÐR+|Nþ -C6N6HPA"_NJBfNþS+| -C6N6NHPA"_NpJBgp/ -NLzNpJBgp/ -NLzNpJBgp/ -NL&<x*<NpJBgp$g+mRAŶN -R/AC6NN NdAN HAN HAN H+mRBBS -C6N6HPA"_NJBfNS+|N -C6N6HPA"_NJBfNR+| -C6N6NHPA"_NpJBgp/ -NLzNpJBgp/ -NLzNpJBgp/ -NL&<x*<NpJBgp$g+mAŶN /-AC6NRRN NdAN H+mԆRS -R/ -C6N6C6N -lRN NdpC6N6HPp-Nf"_NJBfNJ+|AŶN HxN0@C6NR+mԅ -C6N6HPp-Nf"_NpJBgp/ -NLH <r$<L8N\NތC6N6HPA"_NpJBgp/ -NL&<x*<N,pJBgp$fN+mAŶN /-N0@C6NRS -Sn4N NdALNHPp-Nf"_NJBfN`p0NfHPAL"_NCLNALNN~NNLHALNNL&<x*<N`L8NJJBfNN0+HPAL"_NCLNA*N AN AN AN AN AN AN -SgNȖAN -SgNȖA@N -SgNȖAN -SgNȖA N -SgNȖAN AN AN N Nd+m+m +mBR/- -C6N6C"_NJBfNԊCA 0AN&<x*<NpJBgp/AN&<x*<NpJBgp$fNAN&<8<*<N`AN -NLH <r$<L8N\Nތ/ANBANNB&<x*<N`NANNزNfN~HPA"_NCV---------------------------------123456Eingabe Funktion F------------------------------- X-Intervall X Y-Intervall Y Definitionsbereich D------------------------------- Schrittweite S Genauigkeit G------------------------------- Macro-Funktionen M Konstante KPlot Plot Funktion P Plot Funktion & Ableitungen A---------------------------------------- Plot Ausschnitt T- - - - - - - - - - - - - - - - - - - - Zoom in I Zoom out OKurvendisk Wertetabelle T--------------------------- Integral I--------------------------- Nullstellen N Extremwerte E Wendepunkte W Wendetangenten W Symmetrie S Monotonie M--------------------------- Parameter PExtras Raster R Koordinaten K Text einbinden T Pfeile setzen P Zoomfaktoren Z--------Bild lschen------ manuell M automatisch A- - - - - - - - - - - - - CLS C-------------------------- Hardcopy H- - - - - - - - - - - - - HC-Format 1:1 1 HC-Format 1:2 2 HC-Format 3:1 3 HC-Format 9:1 4-------------------------- freier Speicher SFiles Funktion speichern F1 Funktion laden F2 --------------------------- Macro-Fkt speichern F3 Macro-Fkt laden F4 --------------------------- Konstante speichern F5 Konstante laden F6 --------------------------- Parameter speichern F7 Parameter laden F8 -------------------------- Bild speichern F9 Bild laden F10 Hilfe Eingabe E Plot P Kurvendiskussion K Extras X Files F-------------------------- Quit Funktionplot Esc^*/=*8*8*h`J fhhnttlhx ppt pt$ t t v rrtvvtptptĜzv|x|x|xv vpnlbb~d 8JD(D,R8L2 (,R8L,R(TB$$$~ V *ؚX> $D>NغTn̺TVDNvRRzffv"d, ZTrJ>2p>B|>RR8>RjZ^j"&:402Z "X "X x::::"*hXt @*4zv* X & 2 & & ("& & FvN0tF V~ T&\X\\B , . F *P*JF8Z *N2.*..^V$B..\V$*>&4 &"( 6vZFd 2    8 jژ\n 0&XBV  ` &P XV  & XV  & XV  V & &XBV""H &jH  Rp  |RT  p||~@@  v  hP.RxB^vbf,22&L* hʊ$f "p" Rb"  ddRDRDRDRDRDRDRD$lD$lDRD$lDdDdD^DDtDDDDD|D$D* vf"f"f"t"bx2 mf 10 -10 6 -4 -1.0E+150 1.0E+150 .25 sin(x) 9 -3 1 -1 0 6.283185 0.075 sin(x)*sqr(abs(cos(x))) 5 -5 1 -1 -1.0E+150 1.0E+150 0.0625 tan(x) 9 -3 1 -1 0.15 ANMERKUNGEN zu Funktionplot V1.32a ================================== Funktionplot V1.32a ist ein Programm zum Plotten von Funktionen, sowie zur Kurvendiskussion. Das Programm wurde in GFA-Basic V2.0 geschrieben. Fr einen Unkostenbeitrag von 20,- DM (Scheck oder Schein) ist der Quelltext sowie die neueste Version, falls schon fertiggestellt, beim Autor erhltlich. Vielleicht gibt es dann auch eine ausfhrliche Anleitung mit Beispielanwendung sowie Tips und Tricks. Funktionplot V1.32a wurde sorgfltig und lange getestet, soda zum heutigen Zeitpunkt keine Fehler mehr bekannt sind. Da man aber nie ausschlieen kann da ein Programm ganz fehlerfrei ist, bitte ich darum eventuelle Fehler zu dokumentieren und mir zu senden, damit diese durch eine berarbeitete Version behoben werden knnen. Ebenfalls freue ich mich ber alle Anregungen und Verbesserungsvorschlge zum Programm. Dirk Wente Februar 1990 Hinterstrae 1 4750 Unna-Lnern Tel.:02303/4708 . .. DžQFIP_DEMOBAS 2FINTERP2LST FQGGFABASROPRG F READ_ME IGfABASIChh**<8886.2/./0001 1t1t1|2l2l2l2lIJKZAZEZDEGZZOPAOPEEGZFOPDFZLKZS1S2STRINGOPZKAFLBKZBIBS1BS2JKB1OFFB2JOKEYZLTT1T2WXLVSWKBKCB11ARIZAHLOPDAOPTXYPRIORARILARIMARIARI1KAKBKCMLARIMRARIMMARIKLARIKRARIKMARIFUNKTIONOPERATOR VAR_FUNKTIONZNS1SINABSIKZFZS2OPZJKZAZLLEGZFOPAOPEBKZBS1BS2BIJOJKOFFB1B2KEEAMADAAASASEBKELVRKRKZROFFROLVLKLKZRZLZKZZLOLVLENLEN1IZLENK ARI_FELDINDEXKLAMMERZAEHLER FEHLERZEIGER ZAHLENZAEHLEROPERATORZAEHLERFUNKTION_FELDINDEXVAR_FUNKTION_FELDINDEXVAR_KLAMMERZAEHLERVAR_FEHLERZEIGERVAR_ZAHLZAEHLERVAR_OPERATORZAEHLERARIEGZOPDZAHLLNASNVALARIEGZOPTZAHLBARIFPKMFEINGABEZEICHENFUNKTIONBERECHNUNG_FKT VAR_FUNKTIONVAR_BERECHNUNG_FKTVAR_EINGABEZEICHENPEMEDEAESEEAMADAAASAPABEABMABDAPRIOS X_EINLESENEINLESEN LEERSTELLENZAHLENOPERATORZAHLEINGABEZEICHENTEST KLAMMERTEST DOPPELKLAMMERSTACKS BERECHNUNGDOPPELKLAMMERTESTDOPPELOPERATORKLAMMEREINGABEZEICHENEINOP EINOPKLAMMER BERECHNUNGENVARTRANSEINOPBERECHNUNGOFFSET ZWEIOPKLAMMEREINOPKLAMMERTESTPARSER DOPPELOPERAND PRIORITAET RECHTEKLAMMER LINKEKLAMMERROFFSET FKT_HOLENFEHLERMINUSLOFFSET KONSTANTE MACRO_FKT NULLPUNKTINITIALISIERUNGFIP_INITIALISIERUNG FIP_PARSER FIP_NULLPUNKT FIP_EINLESENFIP_ZAHL FIP_OPERATORFIP_EINGABEZEICHEN FIP_KLAMMERFIP_DOPPELKLAMMERFIP_DOPPELOPERATORFIP_DOPPELOPERANDFIP_EINOPKLAMMERTESTFIP_PRIORITAETFIP_RECHTEKLAMMERFIP_LINKEKLAMMER FIP_ROFFSET FIP_MINUSFIP_BERECHNUNG FIP_VARTRANS FIP_OFFSETFIP_EINOPKLAMMERFIP_EINOPBERECHNUNG FIP_FEHLERFIP_ZWEIOPKLAMMERR****************************************************************************** R* * R* DEMO-PROGRAMM * R* zu * R* * R* Funktionsinterpreter Version1.3 * R* by * R* Dirk Wente * R* Hinterstr. 1 * R* 475 Unna - Lnern * R* * R* DIWE 9/88 * R* * R******************************************************************************  * p4+++++ Reservierte Variable und Felder : +++++  +var_funktion$() var_berechnung_fkt$() var_eingabezeichen$() var_funktion_feldindex% 0var_funktion$ ( Eingabestring der Fkt ) var_klammerzaehler% var_fehlerzeiger% var_zahlzaehler% (var_operatorzaehler% h4x ( bergabewert an Procedure fip_berechnung ) 4y ( Rckgabewert von " " ) * +4+++++++++++++++++++++++++++++++++++++++++++++++++  + 4+++++++++++ Reservierte Prozedurnamen +++++++++++  +(fip_proc's : ) Ffip_initialisierung,fip_parser,fip_nullpunkt,fip_einlesen,fip_zahl *@fip_operator,fip_eingabezeichen,fip_klammer,fip_doppelklammer <fip_doppeloperator,fip_doppeloperand,fip_einopklammertest @fip_prioritaet,fip_rechteklammer,fip_linkeklammer,fip_roffset Dfip_minus,fip_berechnung,fip_vartrans,fip_offset,fip_einopklammer 4fip_einopberechnung,fip_fehler,fip_zweiopklammer f +4+++++++++++++++++++++++++++++++++++++++++++++++++  + 4++++++ erlaubte Operatoren und Funktionen +++++++  +(,),*,/,+,-,^,. 6abs,atn,cos,sin,tan,ep (fr exp),int,ln,log,sgn,sqr 0sec,csc,arcsin,sinh,cosh,tanh,sech,csch,coth +arcsinh,arccosh,arccsch  +4+++++++++++++++++++++++++++++++++++++++++++++++++  + R*************************  Demo-Prg  ***************************************  *,,$Fe +++++( Unbedingt 1.Zeile!!! )+++++ k B:"Bitte geben Sie die Funktion ein :"F+++( Fkt einlesen )+++  6,%F +++++( Prft Funktion auf Korrektheit )+++++ p |F < 9JF +++( Fehlerzeiger%=1 : korrekte Eingabe )+++ nLUnzulssige EingabeF +++++( Fehlerzeiger%=0 : falsche Eingabe )+++++ * Fu D:"Bitte geben Sie den X-Wert ein :"$F ++++( x einlesen )++++  &,5F +++++( Berechnet f(x) )+++++ r ,f(x)="Fn#+++++( f(x) ausgeben )+++++ +  F()!Neue Funktion ?!! ja |nein!#Fu #JFpF Fe #Fu-F F F!qF R***************************** Ende *******************************************  * r *< +++  Funktioninterpreter V1.3  +++  *R************************ fip_initialisierung ********************************* * * E+$F*&*  !  !  F(,),*,/,+,-,^,. ,abs,atn,cos,sin,tan,ep,int,ln,log,sgn,sqr 0sec,csc,arcsin,sinh,cosh,tanh,sech,csch,coth Farcsinh,arccosh,arccsch,@ ;EFFE4;FpQFt ; EF@F5;FE.F# # *R******************************************************************************   #.***************** Fip_parser **************  * *+%F,h! !! !! ! ! !!!!"!%!Fh#!$!+!'!(!&F,&Fi,'Fi,(Fi,)Fo,*Fo T9F,+Fo P9F,,Fo L9F,-Fd H9F,.Fd D9F,/Fd,0Fp,4Fm F F F F F.F  ,****************************************  * rR********************* folgende proc's gehren zum parser ********************* e * +&Fi EF E6 FFE E@.@ F  | F&  x?@ @ 0?@ @ 9FE;@  0?@ @ F4F4 F F  F 4 F  @.@ F.F  +'Fi 7E6 Fi  7Fo7EF FE  7FoE1-1F@7EF FE EFFE4 F  H?@ @  JFE;@  ?@ @7 F57F5 F  ^F@ E?@ @ F F  7F.F  +(FiEF EFFE4 F >  ?@ @ 0?@ @ 9?@ @ .?@ @ xF4F?  ?@ @ xF Ex@F  F  > F &  :?@ @ -?@ @ (F5 F? F  F  E F@EA5=@7  F E6 F E@FF4 FE E   F x 7 FF 17! F EFEF FE4 FFE: F@  7F F F  7F:EFl.FE E E+)Fo EFFE4 F  X< @F EFFE4 F  n  FEF EF  xFEF FE : F@  TFE FE FFE4FF$ <  @  (7F5F< E FFE4 FF E  F  F E FFE4 FF E  F  7F 17!F F  F   7F.F  +*Fo EFFE4 F 9EF  < @F9EF  F EFFE4 F   F9EF E;FF FE  ;F F 9F E7F FE  7F.F  ++Fo EF EF8EFFE4 F  b (F4 F48Fl F | )F5 F F < 7F  F)9EF F 9EF FE.FE E E+,Fo EFFE4 F   (  )F9EF TF2 F )  ( (  )F9EF E7F5 FF PF 9EF FE FE 7F.F  +-Fd EFFE4 F &  ( )< @F,   (6  <  @F9EF E7F5 FF F 9EF4 F  F  F ~ 7F.F  +.Fd EFFE4 F r< @<  @F9EF E7F5 FF |F9EF FE0 7F.F  +/Fd EFFE4 F 0  ( )< @6 F   (F9EF E7F5 FF F 9EF4 F  F  F  7F.F  +0Fp"E7F4"FFF"5"FF 6 " < " @F,1Fp%E"F,3Fp " E(F48Fl F P"F|F^,*,/ RF/FQF/"E7FFE  " F ,1Fp,2Fp F5"F "F/FFRF.F  +1Fp#E"F+5#FF$EF+EFFE4#F+ p # (F4$F+EF F  # )F5$F+EF FE FE&F#< # @+ #$+ F %E#F4%FF,3Fp # E)F.F  +2Fp'E"F+4'FF(EF+EFFE5'F+ 6 ' (F5(F+EF ZF V ' )F4(F+EF FE FE& #< ' @+ #(+ F %E'F,3Fp ' E(F 48Fl4"FE.F" " "+3Fp&E7F4&FFF&5&FF & E & F &%F47FF.F  +4Fm 6 -F%EF,3Fp E0@F4:FF F E7FFE"  -  ( F %E F ,3Fp E0@F4:FF F5 FE B F-.F R******************************************************************************  * ***************** berechnung ************  * *+5F *h!!!!!)!!!!! ! !F^,6FmF EFEFFE4 F*  (F4F Fx F <  @  )F,8Fm F,;Fe F hF E5 F .FE * *****************************************  * *R******************** folgende proc's gehren zu berechnug ******************* e * *+6FmE8FmE:FlEFFE4F*  E  F   x@F  EA$ @F F 7FEF1!F.F  +7FmEFFE  E  F4FE&F5F5F.F  +8Fm E  F  E FFE4 FF E  F  F1!F1!F5FF 6  F,9Fe F.F  +9FevL:FnE F E5  F 8  sinF  EA) @F NF  h  cosF  EA* @F JF    tanF  EA+ @F FF    absF  EA( @F BF    atnF  EA, @F >F  (  epF   EA/ @F :F  X  intF  EA% @F 6F    lnF )EF  F E[[νF FE  EA0 @FE)FA 2FA   logF)EF  F E[[νF FE  EA1 @FE)FA .FA D  sgnF  EA$ @F *F    sqrF)EF ~ F E[[νF FE  EAN @FE)FA &FA   secF  EA* @F "F    cscF  EA) @F F  ~  arcsinF)EF LFsE[νFs FE"  EA,N( @F E)FA FA   sinhF  EA#/ /  @F F    coshF  EA#/ /  @F F  <  tanhF(  EA/ #/ /  @F  F  x  sechF/  EA#/ / @F  F    cschF   EA#/ / @F F    cothF &  EA/ #/ /  @F F  8  arcsinhF  EA0(N @F F    arccoshF)EF v F E[[νF FE"  EA0(N( @FE)FA FA   arccschF*  EA0(#$ N   @FF F  F F F F F F F F F F F F F F F F F F F F F F FEF,7FmvF.FF F F+:FF F1!|=FEF FF FF FF FF FF Ԙ FEFFE FE @FE|=FFE FE.FE E E+;FevL:FnE F4FFF8   *  /  +  -  ^FE5  FE5  F   +F0!F  EA @F  F    -F1!F  EA @F  F     *F2!F  EA @F  F   b  /F  @FE// F FE3!F  EA @F  F    ^F  EA  @F F F F F FEF,7Fm5F   F 4FF F (  )  F vF.FF F F\|  |  v&t&>(4hp' ****************************************************************************** ' ' +++  Funktioninterpreter V1.3  +++ ' ' ************************ fip_initialisierung ********************************* ' ' PROCEDURE fip_initialisierung DIM var_funktion$(255),var_berechnung_fkt$(255),var_eingabezeichen$(32) DATA (,),*,/,+,-,^,. DATA abs,atn,cos,sin,tan,ep,int,ln,log,sgn,sqr DATA sec,csc,arcsin,sinh,cosh,tanh,sech,csch,coth DATA arcsinh,arccosh,arccsch,@ var_operatorzaehler%=0 REPEAT INC var_operatorzaehler% READ operator$ var_eingabezeichen$(var_operatorzaehler%)=operator$ UNTIL operator$="@" DEC var_operatorzaehler% RETURN ' ' ' ****************************************************************************** ' ' ' ***************** Fip_parser ************** ' ' PROCEDURE fip_parser LOCAL i%,j%,zn%,za%,zahl$,zl%,l%,k%,egzf%,opa%,ope%,lv%,roff%,prio$ LOCAL rk%,rkz%,kzz%,lk%,lkz%,rolv% GOSUB fip_nullpunkt GOSUB fip_einlesen GOSUB fip_zahl GOSUB fip_operator GOSUB fip_eingabezeichen IF var_fehlerzeiger%=1 GOSUB fip_klammer IF var_fehlerzeiger%=1 GOSUB fip_doppelklammer IF var_fehlerzeiger%=1 GOSUB fip_doppeloperator IF var_fehlerzeiger%=1 GOSUB fip_doppeloperand IF var_fehlerzeiger%=1 GOSUB fip_einopklammertest GOSUB fip_prioritaet GOSUB fip_minus ENDIF ENDIF ENDIF ENDIF ENDIF RETURN ' ' ' **************************************** ' ' ' ********************* folgende proc's gehren zum parser ********************* ' ' PROCEDURE fip_nullpunkt j%=0 i%=LEN(var_funktion$) REPEAT j%=INSTR(var_funktion$,".",j%) IF j%>=1 IF MID$(var_funktion$,j%-1,1)<"0" OR MID$(var_funktion$,j%-1,1)>"9" var_funktion$=LEFT$(var_funktion$,j%-1)+"0"+MID$(var_funktion$,j%,i%) INC i% INC j% ENDIF ENDIF INC j% UNTIL j%>=i% OR INSTR(var_funktion$,".",j%)=0 RETURN ' ' PROCEDURE fip_einlesen var_funktion_feldindex%=LEN(var_funktion$) IF var_funktion_feldindex%=1 var_funktion_feldindex%=3 ENDIF IF var_funktion_feldindex%=0 var_funktion$=var_funktion$+"1-1" var_funktion_feldindex%=3 ENDIF j%=0 REPEAT INC j% IF MID$(var_funktion$,j%,1)=" " THEN var_funktion$=LEFT$(var_funktion$,j%-1)+MID$(var_funktion$,j%+1,var_funktion_feldindex%) DEC var_funktion_feldindex% DEC j% ELSE var_funktion$(j%)=MID$(var_funktion$,j%,1) ENDIF UNTIL j%>=var_funktion_feldindex% RETURN ' ' PROCEDURE fip_zahl zn%=0 j%=0 REPEAT INC j% IF MID$(var_funktion$,j%,1)>="0" AND MID$(var_funktion$,j%,1)<="9" OR MID$(var_funktion$,j%,1)="." OR MID$(var_funktion$,j%,1)="x" INC zn% IF MID$(var_funktion$,j%,1)="x" var_funktion$(j%)="x@" ELSE IF j%>=3 IF MID$(var_funktion$,j%-1,1)="-" AND MID$(var_funktion$,j%-2,2)="(" DEC j% ENDIF ENDIF za%=j% zahl$=STR$(VAL(RIGHT$(var_funktion$,var_funktion_feldindex%-za%+1))) zl%=LEN(zahl$) var_funktion$(j%)=zahl$+"@" REPEAT INC za% var_funktion$(za%)=var_funktion$(za%+zl%-1) UNTIL za%>=var_funktion_feldindex%-zl%+1 SUB var_funktion_feldindex%,zl%-1 l%=0 var_funktion$="" REPEAT INC l% var_funktion$=var_funktion$+LEFT$(var_funktion$(l%)) UNTIL l%=var_funktion_feldindex% ENDIF ENDIF UNTIL j%>=var_funktion_feldindex% var_zahlzaehler%=zn% RETURN ' ' PROCEDURE fip_operator j%=0 REPEAT INC j% IF RIGHT$(var_funktion$(j%))<>"@" k%=0 REPEAT INC k% IF var_funktion$(j%)=var_eingabezeichen$(k%) egzf%=1 k%=8 ELSE egzf%=0 ENDIF UNTIL k%>=8 IF egzf%=0 opa%=j% ope%=j% REPEAT INC ope% UNTIL RIGHT$(var_funktion$(ope%))="@" OR var_funktion$(ope%)="(" OR ope%=var_funktion_feldindex%+1 DEC ope% k%=j% REPEAT INC k% var_funktion$(j%)=var_funktion$(j%)+var_funktion$(k%) UNTIL k%>=ope% k%=j% REPEAT INC k% var_funktion$(k%)=var_funktion$(k%+ope%-opa%) UNTIL k%>=var_funktion_feldindex%-ope%+opa% SUB var_funktion_feldindex%,ope%-opa% ENDIF ENDIF UNTIL j%>=var_funktion_feldindex% RETURN ' ' PROCEDURE fip_eingabezeichen j%=0 REPEAT INC j% var_fehlerzeiger%=0 IF RIGHT$(var_funktion$(j%))="@" var_fehlerzeiger%=1 ELSE l%=0 REPEAT INC l% IF var_funktion$(j%)=var_eingabezeichen$(l%) var_fehlerzeiger%=1 l%=var_operatorzaehler% ENDIF UNTIL l%>=var_operatorzaehler% ENDIF IF var_fehlerzeiger%=0 j%=var_funktion_feldindex% ENDIF UNTIL j%>=var_funktion_feldindex% RETURN ' ' PROCEDURE fip_klammer k%=0 j%=0 var_klammerzaehler%=0 REPEAT INC j% IF var_funktion$(j%)="(" INC k% INC var_klammerzaehler% ENDIF IF var_funktion$(j%)=")" DEC k% ENDIF UNTIL j%>=var_funktion_feldindex% IF k%<>0 var_fehlerzeiger%=0 ELSE var_fehlerzeiger%=1 ENDIF RETURN ' ' PROCEDURE fip_doppelklammer j%=0 REPEAT INC j% IF var_funktion$(j%)<>"(" AND var_funktion$(j%+1)<>")" var_fehlerzeiger%=1 ELSE IF var_funktion$(j%)=")" AND var_funktion$(j%+1)="(" OR var_funktion$(j%)="(" AND var_funktion$(j%+1)=")" var_fehlerzeiger%=0 j%=var_funktion_feldindex% DEC j% ELSE var_fehlerzeiger%=1 ENDIF ENDIF UNTIL j%>=var_funktion_feldindex%-1 RETURN ' ' PROCEDURE fip_doppeloperator j%=0 REPEAT INC j% IF var_funktion$(j%)<>"(" AND var_funktion$(j%)<>")" AND RIGHT$(var_funktion$(j%))<>"@" IF var_funktion$(j%+1)<>"(" AND LEN(var_funktion$(j%+1))<2 AND RIGHT$(var_funktion$(j%+1))<>"@" var_fehlerzeiger%=0 j%=var_funktion_feldindex% DEC j% ELSE var_fehlerzeiger%=1 INC j% ENDIF ENDIF UNTIL j%>=var_funktion_feldindex%-1 RETURN ' ' PROCEDURE fip_doppeloperand j%=0 REPEAT INC j% IF RIGHT$(var_funktion$(j%))="@" AND RIGHT$(var_funktion$(j%+1))="@" var_fehlerzeiger%=0 j%=var_funktion_feldindex% DEC j% ELSE var_fehlerzeiger%=1 ENDIF UNTIL j%>=var_funktion_feldindex%-1 RETURN ' ' PROCEDURE fip_einopklammertest j%=0 REPEAT INC j% IF var_funktion$(j%)<>"(" AND var_funktion$(j%)<>")" AND RIGHT$(var_funktion$(j%))<>"@" AND LEN(var_funktion$(j%))>1 IF var_funktion$(j%+1)<>"(" var_fehlerzeiger%=0 j%=var_funktion_feldindex% DEC j% ELSE var_fehlerzeiger%=1 INC j% ENDIF ENDIF UNTIL j%>=var_funktion_feldindex%-1 RETURN ' ' PROCEDURE fip_prioritaet lv%=var_funktion_feldindex% INC lv% REPEAT DEC lv% IF LEN(var_funktion$(lv%))>1 AND RIGHT$(var_funktion$(lv%))<>"@" GOSUB fip_rechteklammer roff%=lv% GOSUB fip_roffset var_funktion$(lv%)="(" INC var_klammerzaehler% ENDIF UNTIL lv%=0 prios: DATA ^,*,/ RESTORE prios REPEAT READ prio$ lv%=var_funktion_feldindex% REPEAT IF var_funktion$(lv%)=prio$ GOSUB fip_rechteklammer GOSUB fip_linkeklammer ENDIF DEC lv% UNTIL lv%=0 UNTIL prio$="/" RESTORE RETURN ' ' PROCEDURE fip_rechteklammer rk%=lv% DEC rk% rkz%=0 kzz%=0 REPEAT INC rk% IF var_funktion$(rk%)="(" INC rkz% kzz%=1 ELSE IF var_funktion$(rk%)=")" DEC rkz% kzz%=1 ENDIF ENDIF UNTIL (RIGHT$(var_funktion$(rk%))="@" AND kzz%=0) OR (rkz%=0 AND kzz%=1) roff%=rk% INC roff% GOSUB fip_roffset var_funktion$(rk%+1)=")" RETURN ' ' PROCEDURE fip_linkeklammer lk%=lv% INC lk% lkz%=0 kzz%=0 REPEAT DEC lk% IF var_funktion$(lk%)="(" DEC lkz% kzz%=1 ELSE IF var_funktion$(lk%)=")" INC lkz% kzz%=1 ENDIF ENDIF UNTIL (RIGHT$(var_funktion$(lk%))="@" AND kzz%=0) OR (lkz%=0 AND kzz%=1) roff%=lk% GOSUB fip_roffset var_funktion$(lk%)="(" INC var_klammerzaehler% INC lv% RETURN ' ' PROCEDURE fip_roffset rolv%=var_funktion_feldindex% INC rolv% REPEAT DEC rolv% var_funktion$(rolv%+1)=var_funktion$(rolv%) UNTIL rolv%1 roff%=j% GOSUB fip_roffset var_funktion$(j%)="0@" INC var_zahlzaehler% ENDIF DEC j% UNTIL j%<=1 RETURN ' ' ****************************************************************************** ' ' ' *************** berechnung ************ ' ' PROCEDURE fip_berechnung LOCAL bkz%,bs1%,bs2%,bi%,b1,b11,b2,jo%,jk%,off%,k%,j%,ke% GOSUB fip_vartrans REPEAT j%=0 ke%=0 REPEAT INC j% IF var_berechnung_fkt$(j%)="(" INC ke% ENDIF UNTIL ke%>=bkz% OR j%>=bi% IF RIGHT$(var_berechnung_fkt$(j%+1))="@" AND var_berechnung_fkt$(j%+2)=")" GOSUB fip_einopklammer ELSE GOSUB fip_zweiopklammer ENDIF UNTIL bs2%<1 y=VAL(var_berechnung_fkt$(1)) RETURN ' ' ' *************************************** ' ' ' ******************** folgende proc's gehren zu berechnug ******************* ' ' PROCEDURE fip_vartrans bkz%=var_klammerzaehler% bs1%=var_zahlzaehler% bi%=0 REPEAT INC bi% var_berechnung_fkt$(bi%)=var_funktion$(bi%) IF var_berechnung_fkt$(bi%)="x@" var_berechnung_fkt$(bi%)=STR$(x)+"@" ENDIF UNTIL bi%>=var_funktion_feldindex% bs2%=bi% SUB bs2%,bs1% RETURN ' ' PROCEDURE fip_offset jo%=jk% REPEAT var_berechnung_fkt$(jo%)=var_berechnung_fkt$(jo%+off%) INC jo% UNTIL jo%>=bi%+1 DEC bs2% DEC bi% RETURN ' ' PROCEDURE fip_einopklammer var_berechnung_fkt$(j%)=var_berechnung_fkt$(j%+1) k%=j% REPEAT INC k% var_berechnung_fkt$(k%)=var_berechnung_fkt$(k%+2) UNTIL k%+2>=bi% SUB bs2%,2 SUB bi%,2 DEC bkz% IF LEN(var_berechnung_fkt$(j%-1))>1 GOSUB fip_einopberechnung ENDIF RETURN ' ' PROCEDURE fip_einopberechnung ON ERROR GOSUB fip_fehler jk%=j% b1=VAL(var_berechnung_fkt$(jk%)) IF var_berechnung_fkt$(jk%-1)="sin" var_berechnung_fkt$(jk%-1)=STR$(SIN(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="cos" var_berechnung_fkt$(jk%-1)=STR$(COS(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="tan" var_berechnung_fkt$(jk%-1)=STR$(TAN(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="abs" var_berechnung_fkt$(jk%-1)=STR$(ABS(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="atn" var_berechnung_fkt$(jk%-1)=STR$(ATN(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="ep" var_berechnung_fkt$(jk%-1)=STR$(EXP(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="int" var_berechnung_fkt$(jk%-1)=STR$(INT(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="ln" b11=b1 IF b1<=0 b1=1.0E-10 ENDIF var_berechnung_fkt$(jk%-1)=STR$(LOG(b1))+"@" b1=b11 ELSE IF var_berechnung_fkt$(jk%-1)="log" b11=b1 IF b1<=0 b1=1.0E-10 ENDIF var_berechnung_fkt$(jk%-1)=STR$(LOG10(b1))+"@" b1=b11 ELSE IF var_berechnung_fkt$(jk%-1)="sgn" var_berechnung_fkt$(jk%-1)=STR$(SGN(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="sqr" b11=b1 IF b1<=0 b1=1.0E-10 ENDIF var_berechnung_fkt$(jk%-1)=STR$(SQR(b1))+"@" b1=b11 ELSE IF var_berechnung_fkt$(jk%-1)="sec" var_berechnung_fkt$(jk%-1)=STR$(1/COS(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="csc" var_berechnung_fkt$(jk%-1)=STR$(1/SIN(b1))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="arcsin" b11=b1 IF b1=-1 OR b1=1 b1=b1+1.0E-10 ENDIF var_berechnung_fkt$(jk%-1)=STR$(ATN(b1/SQR(ABS(-b1*b1+1))))+"@" b1=b11 ELSE IF var_berechnung_fkt$(jk%-1)="sinh" var_berechnung_fkt$(jk%-1)=STR$((EXP(b1)-EXP(-b1))-2)+"@" ELSE IF var_berechnung_fkt$(jk%-1)="cosh" var_berechnung_fkt$(jk%-1)=STR$((EXP(b1)+EXP(-b1))/2)+"@" ELSE IF var_berechnung_fkt$(jk%-1)="tanh" var_berechnung_fkt$(jk%-1)=STR$(-EXP(-b1)/(EXP(b1)+EXP(-b1))*2+1)+"@" ELSE IF var_berechnung_fkt$(jk%-1)="sech" var_berechnung_fkt$(jk%-1)=STR$(2/(EXP(b1)+EXP(-b1)))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="csch" var_berechnung_fkt$(jk%-1)=STR$(2/(EXP(b1)-EXP(-b1)))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="coth" var_berechnung_fkt$(jk%-1)=STR$(EXP(-b1)/(EXP(b1)-EXP(-b1))*2+1)+"@" ELSE IF var_berechnung_fkt$(jk%-1)="arcsinh" var_berechnung_fkt$(jk%-1)=STR$(LOG(ABS(b1+SQR(b1*b1+1))))+"@" ELSE IF var_berechnung_fkt$(jk%-1)="arccosh" b11=b1 IF b1<=0 b1=1.0E-10 ENDIF var_berechnung_fkt$(jk%-1)=STR$(LOG(ABS(b1+SQR(ABS(b1*b1-1)))))+"@" b1=b11 ELSE IF var_berechnung_fkt$(jk%-1)="arccsch" var_berechnung_fkt$(jk%-1)=STR$(LOG(ABS((SGN(b1)*SQR(b1*b1+1)+1)/b1)))+"@" ELSE ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF off%=1 GOSUB fip_offset ON ERROR RETURN ' ' PROCEDURE fip_fehler IF ERR=0 SUB b1,1.0E-15 RESUME ENDIF IF ERR=1 RESUME NEXT ENDIF IF ERR=2 RESUME NEXT ENDIF IF ERR=5 b1=0 RESUME ENDIF IF ERR=6 b1=1.0E-15 RESUME ENDIF RETURN ' ' PROCEDURE fip_zweiopklammer ON ERROR GOSUB fip_fehler jk%=j% INC jk% REPEAT IF var_berechnung_fkt$(jk%)="*" OR var_berechnung_fkt$(jk%)="/" OR var_berechnung_fkt$(jk%)="+" OR var_berechnung_fkt$(jk%)="-" OR var_berechnung_fkt$(jk%)="^" b1=VAL(var_berechnung_fkt$(jk%-1)) b2=VAL(var_berechnung_fkt$(jk%+1)) IF var_berechnung_fkt$(jk%)="+" ADD b1,b2 var_berechnung_fkt$(jk%-1)=STR$(b1)+"@" ELSE IF var_berechnung_fkt$(jk%)="-" SUB b1,b2 var_berechnung_fkt$(jk%-1)=STR$(b1)+"@" ELSE IF var_berechnung_fkt$(jk%)="*" MUL b1,b2 var_berechnung_fkt$(jk%-1)=STR$(b1)+"@" ELSE IF var_berechnung_fkt$(jk%)="/" IF b2=0 b2=1.0E-11 ENDIF DIV b1,b2 var_berechnung_fkt$(jk%-1)=STR$(b1)+"@" ELSE IF var_berechnung_fkt$(jk%)="^" var_berechnung_fkt$(jk%-1)=STR$(b1^b2)+"@" ENDIF ENDIF ENDIF ENDIF ENDIF off%=2 GOSUB fip_offset DEC bi% ELSE INC jk% ENDIF UNTIL var_berechnung_fkt$(jk%)=")" OR var_berechnung_fkt$(jk%)="" OR jk%>=bi% ON ERROR RETURN ' ' ``THGFA BASIC RUN ONLY *o#^ - ЭЭl// #^Bg?<JNA ?<NN#^>NNT3_FC^"L?H>aSHx?<HNA\@#^Y6 :fRS@g.t;ak&AA :fRS@g t;akIA??<-NAXa @a."X0gZtaZkT6gP .fJS@gFt aFk@Aga?a33 pirta?09 `Ua*??a" -Fg$@@?@a @@oa@o?@?<NN\Nup`7p`7p`7p`p`p 3a d3vgC@@@A^ p hf X ~e#TvgC@@@A^ p hfT X 4eN#R3s3s FgaJ3aL3"| z9f?:`aJaRz2TSWjT`0:2:`$@2TQ"| z9f?:`aIaR8zT2SWjT`0:2:z`$@T2Qr4:f0:^`= @a4"X0AH2`0Qppta=vp`aJBkaQ@3ZpN`=V @a"X0AH2`0Qtpoa=p`DNHv y^CC`IHv6 y^փփ`HHv y^CC 00`PHv6 y^փփ 08`Pv y^CCHp0Ra _`Hv6 y^փփHp8Ra _`Ha/A^eeeee `H@J@g`쐨g`Hd`v y^CCHp0Ra _ Nuv6 y^փփHp8Ra _ Nuv y^CJp0g*H <r$<Nuv6 y^փJp8fHtNuv y^CHp0Ra _0Nuv6 y^փHp8Ra _0NuHv 9^CCCCtNuHv6 9^փЃփЃtNua/A^eаdʐH@J@g0`v y^CC`v6 y^փփHp8Ra, _g$^@c/"@0)a _$PS@kH2QNu2(g"PRAA4DBH#"@$Y2g 1ARAA%NuBhNuvg6g"Wkg2WkR/&SEg$`LR/ bZ RbJp0@:<Jf` փSGgЃЃЃA^H H瀀 PaLaLp$4`YE PQƐFrd0` Qj`prg2A^BBB p "X2g UAk$QNuHaT`EaBPJg, BUBkg`ЀЀ`Ѐ"ЀЁE H Fa&L y^ 9^"X2geb 9^ J"F^^`a.Sk.TH@g TXVf>"~:P0.M LLLJ,>,N0D000Jn! V _0~0؎33,,$&xV83TUnb^ $#"]P#&\8"""h[zPS6xx 01,1>1n2]^6`3f3_3F RNuR@HTNu33^>p> p\j8 HxFF~AJ0pk*c`TG<;p0N`~-A*0p`G<;pN``p `$p `$@6@0@<@J@B889:.HTBB,AxAAAAAAAV22&&, ޚ @>??|>9CrCdFFABHDE4JtݜVH2hݮv0>ۊEFPNB,܀ 8ۘۦ۴ &F \LrJx:|߂>!!@&D`pxh&X?|XzXz&hT   ?Al`6A`.A`&A`A`A`Ar`AH `8a0,/JkTSGgL`NM.F`8n  f R~ NuBg` BgarRW g %g - f>NuRar`a,/JkTSGgL`NN.F`8a,/JkTSGgL`NA.F`7a@J@g6@Hz ?<&NN\NuJ9]fjNua~#1/aH _Jg/JkTSGgL`Hx1NLx.z `7a&/aD:HP1MJGgSG-JBj @aSGkL` _HV?LPN\LPNuBg -FgaxJBj @ `a7tRW - f>Nupg@ЀЀ y^ 0g(@Nup`V Fga~HA^JLpNuaBNu~G<6p N`  gNuR~G<6p N``>~? *_a 3s 2HUa fRp"Ma !g yXf pCaaVJ9]fr |pghfb "f.R 0"g 0 gR@` 0,g 0 fHp`R@ 0,g 0 fHpa _ Fg  f`pXNupR@ 0,g 0 faJBkHQ ! gRfa`X yXg yXgp`<9Xk&a(HS&|a  gf< &_Nu\F Fg Fga(ZHS&|??<NMXJkg f< &_NuHPar2  _`Q`3s 2Ra fRp"MaD !g yXf pC$a*a4J9]fApR@ 0 fa FfNu??<NMXJkNu\F Fg Fga'HS&|a "fg 9"g& ,g gf< &_Nua g`Ra ,g ga| ,g f`<9Xkva' HS&|ab "fg 9"g& ,g gf< &_Nua*  g`Ra ,g ga ,g  f`HSHx??<?NA JkSfNup`v`v??a?@NMX`3$DW?<`a?k?<NM" Af J@fH@`4vRa dd HA0Hk(HzxHx??<?NA JkLSfx:X`40\@`ah/p`"a^/RaV dd A0H<R@f|a%  baJFk(HPH/HQ/??<?NAO JkҰf tNuHSHP&I>g \SG??<NMXJkJ9]V t&_NuRa dd XA0kH?<?B?<BNA `1tNuak `1a kf`2Rar dd A0kH?<?B?<BNA Jk.,?<?B?<BNA *kBg?/?<BNA JkNu` y^t~ (g (fB7Nu#737Nu FgvgCփփֹ^ C g @~`p!`tp"`np#`hp$`b :g @|Sg`pR@ 0,g 0 faJBkHQ ! gRfa _  f z4~a8 FfNuR37 FfNup "f.R 0"g 0 g,R@` 0,g 0 fHp`R@ 0,g 0 fHpa&`~09u29uR@RANuS@SA3u3uNu3p`84:`fprta09 29Nu4:Df3 3p rt` By9h`pBy9h` p3 9h|39f@39ja39`39b39d~`&aJf,H@ Kg Mg Pg Hf~`DSGj@RGFc:>`6 | g6 g0 gd gXz`ez\gFf6pRGRFa`an` `?~aa!p a>p a80NuCpE`bf`FgRGJGgLSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0Nu?<?<NAXJ9]fJgNup Nu4:f??<?<NM\Nu3X`a!0:R2:Pa0zEfpa\ppaX |ܼEg0PaEfaHP z"XRy<g~ _g !g &g0 \g2a`Ry<f`T _"X0fCBpHa` _"X0`pR@Ry<Jg \f _"X2gAcA@H?a0at`p?a` _ar zaɖSM`tp?aFLaJ`H=B z"XRy<g _g,vxz| +g0 -g* *g $g$ #g"a`Ry<f`` `RCg _ff`d #g $g *g ,g ^g@ +gR -gL .fJxRDgB #g ^g +g, -g& _f$Jf`REg ^g +g -fLH@a'Lx# < <$2DE A,b -fEt1BQt1$0000QEJEft Q0JgEJ"f0J"ff JFj-Sg$EJEgR *5e$ -fBt0R 9c0S`EJEg vJ*g RCJ*f~ g~*Jf6`HQp%a&La* z"P _JgRy<f`EJEg*ÒEA gSAR`ÔSHQ?HjSy< zR"XPRy<gRgF _g0 ,g .g +g* -g"$_HRar`$W "0d`Ry<`p Jojp-` Sy<`0a.9X`*<`@aD @a"X0g?Ra dbTAJfHPaH @a"X>EF~r$WfFA0 _3XTNuApHPB2/ Og* Rgz Ag< Ug. Ig ogB`&p=`pNAXJ@kNu~cGVgB+B+eHk ??<>NAXQNupA` p9`p:`p;?a @a>"X0AHPBHQ?NA\ _JkTNu?<`?<Rat db A0Hk?aVJj Jof?|/?<BNA `a/a/ @"X2B1HQ ["X2B1HQBg?<VNA _a _a`p`p3G Ff #*.*`8a~S @a"X0gA @f ):f 0 *.*`QB?:Hy?<NHzL?<NA\NAP3X Fgar9H3Xa`\Jj @g @g ?aF0`NuCEAJyGg *g|*fSJyGg$ f *a8JfP|0ala  Ca?<ONAT`d'/Qa H@HaHda H aNqJfJg0P H@HNu 0*X@a:0*H@?a:0*@@` 0*@a.0*H@a.0*X@@H`haS@k ??<NAXNua?Hz?<6NAP0:`av @a"X4g,A HPBBgHQ?<=NAP _J@k??<>NAX`tNuaa @a~/? [at"X2A#`QB2"_A,# A e ` \gQBapZa aA"H09g"Hg \f`A,fS Aܐ`Ja : -Fga9Hk$3X//<??<?aNA Jk ` aa#Jaa"z9H3XaR` xp6`p5` p4`p3`p2`0ap(fgTAt3KLgJhf~X?HPa Wv- eC-00ÑyKLm y^aZ _> FWfBNup?`p@3KLaFr(fgpTAtHP0( -Fg aSk _1@RhHhBg?9X/.?<BNA JkN&_>gF2ҹ^ A"XPfHQH/?9X?:NA Jkgp y?KLgp%` Nu @fp7`Ha y^"y^`Han"y^ y^ <}aLNup=arkHQ??<>NAX"WAfSp g \g .WgJfS.BAKBHy?<ANAT//Bg?<VNA "_`VBgHQ?NA"oPJ@Nua4MX #M^#OJy}g a2Sy}f y^"y^E8` k&@p0+R@Db bPMZ y^t$z\p (g&fQMZ#Mb (f[MX:"J9MYfAx gXgJf`CJj* fANSfpAahJyY|f zxܱb` CAKfJj<-TDd0@H@H 0 0H@B`3Z#p4`&][Return]H:FHH`H:8HH` f" LWMYfp e@3M\Nu -f. FV\g LfD9\p e@3MfNuv Lgv g gh f.v RA eC0H"y^J8n0Nu@aT@aJaHAv2+&gvA020000` Lg$a3Ma3Ma3Mv`aߖ`ߒv`r0z B9MY^"o$y^X^eaP^d#^B*A`ո0z^"o.$y^X^ea^dۜ#^% *A`xB9\` ֹ^ C"nNuvgCg Yk,gL`b y^փփHPaRaXaf _` y^փփHPRaޒ _ѐiNuvgCg Yk,g`0 y^փփHPaRaa _` y^փփHPRa. _iNuvgCg Yk,g` y^փփHPa@Ra֐a _`F y^փփHP a Ralaja _ NuvgCg Yk,g` y^փփHPaRa"a _` y^փփHP aRaapa _ NuvgCg Yk4gp` y^փփHPad&<x*<a _`b y^փփRi`NuvgCg Yk4gF`\ y^փփHPa&<x*<a^ _` y^փփShp`Rֹ^aЀЀ`ֹ^aЀЀ`ֹ^aЀЀ`ֹ^a̰ЀЀ`ֹ^a̘ЀЀ`ֹ^a~ЀЀ`ֹ^afЀЀ`Pֹ^aLЀЀ`Zֹ^a4ЀЀ`ֹ^aЀЀRiNuֹ^aЀЀ`ֹ^aЀЀSiNuL88PdRBNu#Tv p arpMal3pd |r 0Q0tr a3`Bpeapp`0pAaS@fa @aBaAaN_BgNA`"|2AU@p222a"<_H0<NB09Nurt333a"<_`psNB09Nu Fg a43a"<psNBNu Fg2aC2 @ e @}bAU@p222a`"<0<NBNu A`H JA#C#B0\* BpZaHSa.09g$A"Hg \f`A\f09NuGfABASICByZ0:A fB fB @m ??<>NAXNuAa&|.BASa^g <.BASa6B^B^aCp apACelVfdCY|ptaPZA^DC^E "Ҁ f Cdb("y^D 9^aha&J9Y|fXNup `p `p ?a&`p`p?a0`Nua/a8/a o("_ _" $Id*b` QjNuQjNub`aHaa"[`a6aa"[<:HS?HQ/a.&_<k/HS/??<?NA Jk0&_fDNu\Fj.?H@ЃdHA@B@H@хk HAҁHAрSB Bb@Nup`Nu&8*LJEgJBgJjBEBQ*HE?<>0rHGGdHGGdSWDуdi\?<>0rHGGdHGGdSWDуdiN?<>0rHGGdHGGdSW2 H@`H?<,>CEdGH@0r`?<`DAр&AdRAрAрDуNuprt|PbQb  g +g -f .g20  b 0e 9b da`RF` .f 0e 9b dadSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`TJjDDDS4</a$JFkSFkLaRFBd&8*L?a><JBgaSF Be BgQRB`ApdR e <rRF&0xagZfEv+0JFjDFv-Hƌd0BFHF 0HF0A Nuprt|`HQ2:( A dHC 5e2!R 0c 9c0`<R"_`Z ar`2:C0 Ef"_Nuaa/ Cr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA" 0g` aB @e3g~NuaJBg <r4<NuaAd RdQRBABe B/dNAрQ4<`BNuaag `.azag`@Ad RdQRB>Ge GbFGNu G0dFGNu~Nua:Ad RdQRB6Ce C/jC C@j C jr0H@{0AFG0000X0000X0000X0000Gr~AZ0g0  piaR QNua?S@kF8LfBfLC`HNuaz -FgH?alah"AJWfHa #sTNu3Z`ʰzbzbHsa0S@k@> A0Pɨ"G0(JgRJ)@g1@CZ2fZ2HP"("(pda0 W091@AZ00 pia3\@^pia _C\""pe` 3 \pia3\phaLHsHtSBSC@AHHtPs PuP0<rt`pa"papapaLr`aS@k<@ A3ZgFBPpfa.pga(3 \pha3Zf8ByZa.Qs BBs`bNuXNurt`rtH`azS@k@?a @a`"X80L6BPAɨ E\GZ66&JDg DNexMQBBJyZg *gpi`NuaS@k@ A CZ3ZgaVByuByu`HS&I. FVs!p&aH3(u89":9$Lz4:Ĵ@c S@3u4:ŴAcVSA3u`JpJ9s!fJuk< Eg02: pg  qfZ3u3pjrta޼`Ba>`< d8 Vug* g gj g& fzSyujByu`j30:z"30:R@S@z3 prtaBRyu0ΰz|e$ByuRyu<SFEzbcSyuaQj&_NuByu`3H AEE1FL HHhha a2ByA0(1@hV@1@1@ `H AL a Bya LNu??<?<NM\`L3Zpka 3AL bHzL|@ASBSCHHa ByZpk` z#g.vGRC+ g3Z3\p!a܊SeNuAMhp #gByZpa`Bx`Aprt0 0BBB R@ @efA000 0PB0 00 000\0X00000 0P0BX0:@00p1| 1|QBX0 $HTH0P 00,NuSk [0NupNupNp M gz gp g g*HaarHA3\@@"TAt #zg0A9( f hgSASAgRB`3Z` SAgNu@  f/az _^&X PfR/|~ K4za0g @ ep 24C"2 S@ػDTd BTA3A0C4$I2a222B"0@2A\xvag@2#M 4B3BS@ -f ػDTd@BAb8RGRC`3RSG5GC5C J1DcaRF F eXNuRG GcdNuPNuXASF1F41R 1h4 x1EDgZA##x`3Z?<NNTU@g.AԱg dRhdRh(gp`@p>`ѪpR FgaH@*AZ0?CMtL000H?#|paLHDH}v3|AMhff$f*f*fNu y |g6( `J6(`D6(`>6(`86(`2629|WAARA09|A hfRAS@f3| CfNua@k0;` <`   FgbSaf@gS@ AHP -Fg^aF W@ -FgL Mg4a. W -Fga W HAA}20i0d R@`Ra W@H@?< NN\ -Ff,Nu0^ M / haw FgSaF}GH}I -Fgraz}}#}/f}f}#f}/ -Fg$a,}K -Fga}MH}OAxHP P0P T0T X0X?< NN\ -Ff.Nua~Jk$ Be B baS@ogRR FfNu$y^X^eN^d#^% p e@ЀЀ y^ 0gk g$(@Nup`` f /BaN"_pHq )eRXar(_Sy}Nu&y^ 9^ nN 9^ ovgC C@g,U@kBg^6BP`X^&B`D^&B6BP`*^"X0gBPr2RAA#&6&#^ Ff@NupZ`9MX#^ fJ9MZg`Nu&y^ #k g#^(@Nu0@H@@gU@k,g ^0`^ ` ^1c ` ^"X0gHR@@"D#0#"c0g! HR@#`zvgCGGA^ pp,08gH F gF g&& ^@ m& eHUKa*_Nup*`p-`p.` p/`p+`p,` fRHPa&"_HUa6RLa*_HSy}aLNuHSa - fH$_Nu y^X^oN^nn#^BRy}EHRK"y^ 9^ nN 9^ c$""" "v eC Cg\Ukxg8JBk^20"#^g  f`  f&_NuJBk^a" `JBk^"2aF`JBj^H f"HQHP0(N$W$RNH2Q  _"_$X4BPY"2gHRB]%(\$@$2g@^@e$HQ/0NB$_$RS@H2Q"_L` 1A$BHRA%L`p\B9MY`p^`#^^p]`a b6J9MZf 9ZMXg 9[MXgB9MX(yM^ Ff(yMbNuv eCֹ^ C/g y^^c> k `g& @gJf,Y^`Jf aT` ^ ^`fDJ(_B9MXNu((@((?<NN.?<NNX LA HA HNuaaav -Fga`Hp3a SN"X0 @e024EH$Jyk Bb5B5A6CC5CK5C8+:+AB0000Dk~Ekz00A<:>:SFSGFn`Gn\DDk0BhDEk1EBh Fchh Gchh0hb&0hbpmrt#v#`jNu _pNBaaaaaV/a4>+<+:+8+&DbFEbGAHP@dAdBD0ƞE03AFC&000FF22N23BRG0@\@ _NB"2#`2a @0<}NB&IaNa @&XaH`aD?<NNT @"K <}Nu @HPa( _"X0 @Jg8zf:HPEJH LppJ`$_44&b'JJBNHD'BNNuTpNup d@Tй^ @"X PfXLNupN z"zgB` zմBp( g;j `` $&( "A2;N,PX2P,(r /` f"_#Hѩ` f@"_!I` f"_#Hѩ` g`/`j f"_#Hѩ` f"_!IE#J`: f&"_#Hѩ(g|`|` f"_2(if()g AdE#JE!J`  g  ft"_E#J`  fd"_E#J/ ` g g g f /`lHz `"Hz`Hz`Hz`Hz` Hz`Hz#^x`tgB"#^x g0 g0 g0 g0 g0 g0 +g0A`.X`zHz`"Hz`Hz`Hz`HzS` Hzv`HzAa _aJf~NuH lHz``Hz`XJfHPr((( eA(ҁҁ"z:Jf# Fgpѱ`T +fX`DHzS``8r(` r(A("zJf>"ёEXJg +fp`NqEXJg +f`Hz`Hz` +gJgHz`|Hz`trHPTgAGGC>"qpJf # _` _Hz`6 zp( g -g g`~Nu (e`|vCgCֺ"C&"CgijgHPbH~t( g(  g* +g .g±e _JgBHzi`R`S`Sj`vCgCֺz"C&"CgP~t) g,  g* +g .g g`JgBHz`*R`Sj`Division durch NullberlaufZahl nicht Integer|-2147483648 .. 2147483647Zahl nicht Byte|0 .. 255Zahl nicht Wort|0 .. 65535Quadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll Funktion oder Befehl|noch nicht mglich String zu lang|max. 32767 Zeichen Kein GFA-BASIC V2.0 Programm Programm zu lang|Speicher voll|New Kein GFA-Basic Programm|File zu kurz|NewFeld zweimal dimensioniertFeld nicht dimensioniertFeld Index zu groDim Index zu groFalsche Anzahl IndizesProcedure nicht gefundenLabel nicht gefundenBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFZu viele Punkte fr|Polyline/Polyfill|maximal 128Feld mu eindimensional seinAnzahl Punkte grer als FeldMerge - Kein ASCII-FileMerge - Zeile zu lang - Abbruch ==> Syntax nicht korrekt|Programmabbruch!Marke nicht definiert"Zuwenig Data#Data nicht numerisch$Syntaxfehler in Data|""paarweise verwenden%Diskette voll&Befehl im Direktmodus nicht mglich'Programmfehler|Kein Gosub mglich(Clear nicht mglich in|For-Next-Schleifen oder|Proceduren)Cont nicht mglich*Zuwenig Parameter+Ausdruck zu komplex,Funktion nicht definiert-Zuviele Parameter.Parameter falsch|mu Zahl sein/Parameter falsch|mu String sein0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 10)2Kein "R"-File3Nur ein Field zu einem|Open "R" mglich4Fields grer als Satzlnge5Zu viele Fields (max. 19)6GET/PUT Field-String Lnge falsch7GET/PUT Satznummer falschFehlerhaftes Menu?Fehlerhaftes Reserve@Fehlerhafter PointerZFehler bei Local[Fehler bei For\Resume (next) nicht mglich |Fatal, For oder LocaldGFA-BASIC Version 2.02| Copyright 1986/1987|GFA Systemtechnik GmbHf2 Bomben - Bus Error|Vielleicht Peek oder Poke falschg3 Bomben - Adress error|Ungerade Wort-Adresse!|Bei Dpoke, Dpeek, Lpoke|oder Lpeek?h4 Bomben - Illegal Instruktion|Ausfhrung eines ungltigen|68000-Maschinenbefehlsi5 Bomben - Divide by Zero|Division durch Null in|68000-Maschinensprachej6 Bomben - CHK-Exeption|68000-Interrupt durch CHK-Befehlk7 Bomben - TRAPV-Exeption|68000-Interrupt durch TRAPV-Befehll8 Bomben - Privilege Violation|68000-Interrupt durch Ausfhrung|eines priviligierten Befehlsm9 Bomben - Trace Exeption|68000-Trace-InterruptAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Falscher BootsektorSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZuviele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS FehlerKein BinrprogrammfileSpeicherblockfehler[1][Wollen Sie den Interpreter|wirklich verlassen?][Ja|Nein][1][Programmende][Return][2][Programmstop?][Stop|Cont][2][Druckerlisting?][Ja|Nein][2][NEW - Programm Lschen?][Ja|Nein]Mll - Editor FehlerWhile ohne WendRepeat ohne UntilDo ohne LoopFor ohne nextWend ohne WhileUntil ohne RepeatLoop ohne DoNext ohne ForIf ohne EndifEndif ohne IfElse ohne IfElse ohne EndifExit ohne SchleifeProcedure ohne ReturnProcedure in SchleifeProcedure doppelt definiertReturn ohne ProcedureMarke doppelt definiertLocal nur in ProcedureLocal nicht in SchleifeFunction doppelt definiertGoto in/aus For-Next oder ProcedureResume in For-Next-SchleifeResume ohne ProcedurejH lSyntax FehlerjH lZeile zu langDl[3][\"& 6     82p\ x~D^ 4*"t:< 2X00FB^  "  < T2&$"F"* &$ L&8@h24&"* &lJ"$,(:$P f   x@& V4 j  @*JLr &:z$J( (.(F < Zt"N\"`  @*(<,8L*(j<,( @<    4^> 6 X:dH.( ` ANMERKUNGEN zu Funktioninterpreter V1.3 ======================================= Das Programm 'Funktioninterpreter V1.3' (FINTERP2.LST) und das Demo-Programm 'FIP_DEMO.BAS' sind Public Domain und drfen frei kopiert werden, solange keine nderungen an den Programmen gemacht werden. Wie der Name Funktioninterpreter schon sagt, handelt es sich bei diesem Programm um einen Interpreter, der Funktionen auf korrekte Syntax untersucht und anschlieend den Funktionswert berechnet. Hiermit ist es nun endlich mglich Funktionen in laufende Programme einzugeben und diese berechnen zu lassen. Anwendungen knnen zum Beispiel Funktionplot und Kurvendiskussion sein. Es werden folgende Operatoren und Funktionen akzeptiert: -------------------------------------------------------- (,),*,/,+,-,^,.(Dezimalpunkt) abs, atn, cos, sin, tan, ep (fr exp), int, ln, log, sgn, sqr, sec, csc, arcsin, sinh, cosh, tanh, sech, csch, coth, arcsinh, arccosh, arccsch Der Interpreter beherrscht die 'Punktrechnung vor Strichrechnung' Regel. Funktioninterpreter in eigene Programme einbinden ------------------------------------------------- Der Funktioninterpreter ist in GFA-Basic V2.0 geschrieben und kann ohne groe Mhe in alle GFA-Basic Programme eingebunden werden. 1. Man 'merget' das File 'FINTERP2.LST' ans Ende des eigenen Progamms. 2. Man fgt den Befehl 'GOSUB fip_initialisierung' als erste Zeile ein (Initialisierung der vom Programm bentigten Felder und Variablen). Diese Zeile sollte nur einmal beim Start des Programms durchlaufen werden, da es sonst zu einer Fehlermeldung kommt und das Programm abgebrochen wird. 3. Man liest im eigenen Programm die zu berechnende Funktion mit dem Befehl 'INPUT var_funktion$' ein. 4. Nachdem die Funktion eingelesen wurde ruft man den Parser mit dem Befehl 'GOSUB fip_parser' auf. Dieser berprft die Funktion auf korrekte Syntax. 5. Man berpft den Inhalt der Variable 'var_fehlerzeiger%' um zu sehen ob die Funktion korrekt eingegeben und akzeptiert wurde. Ist der Wert der Variable Null, so wurde die Funktion falsch eingegeben. Enthlt sie den Wert eins, ist die Eingabe korrekt. Z.B.: IF var_fehlerzeiger%=0 THEN PRINT "Unzulssige Eingabe" END Else . . ! { Hier geht das Programm weiter } . ! { die Eingabe war korrekt } 6. Wurde die eingegebene Funktion akzeptiert, so kann sie nun berechnet werden. Hierzu bergibt man der Variable 'x' den Wert des Arguments der Funktion, ruft den Interpreter mit dem Befehl 'GOSUB fip_berechnung' auf und erhlt das Ergebnis, als Wert der Variable 'y', zurck. Z.B.: x=5 gosub fip_berechnung ergebnis=y Mchte man die Funktion mehrmals berechnen, so gengt es Schritt 6. erneut zu durchlaufen. Das Programm 'FIP_DEMO.BAS' ist ein Demo-Programm welches einfach zeigt wie man den Funktioninterpreter in Programme einbindet und benutzt. Um berschneidungen mit Variablen und Prozeduren zu ver- meiden ist dort eine Liste aller globalen Variablen und aller Prozeduren aufgefhrt, die vom Funktioninterpreter benutzt werden. Alle Variablen, auer 'x' und 'y', beginnen mit 'var_' und alle Prozeduren beginnen mit 'fip_', soda berschneidungen leicht vermieden werden knnen. Erweiterung des Funktioninterpreters ------------------------------------ Die maximale Lnge einer Funktion betrgt 255 Zeichen, kann aber durch ndern der DIM-Anweisungen fr 'var_funktion$()' und 'var_berechnung_fkt$()' in der Prozedur 'fip_initialisierung' erweitert werden. Mchte man den Funktioninterpreter um eigene Funktionen erweitern, so ist dies leicht mglich. Man fgt den Namen (darf kein 'x' enthalten) der neuen Funktion in die DATA-Liste der Prozedur 'fip_initialisierung' ein, erhht die DIM-Anweisung fr das Feld 'var_eingabezeichen()' um 1, und fgt die Funktion in die Prozedur 'fip_einopberechnung',vor dem Block mit den 'ENDIF' Anweisungen, wie folgt ein: z.B.: (uvw sei die neue einzufgende Funktion) IF var_berechnung_fkt$(jk%-1)="uvw" var_berechnung_fkt$(jk%-1)=STR$( 'Berechnung der FKT' )+"@" ELSE ENDIF . . . Bemerkung --------- Funktioninterpreter V1.3 wurde sorgfltig und lange getestet, soda zum heutigen Zeitpunkt keine Fehler mehr bekannt sind. Da man aber nie ausschlieen kann da ein Programm ganz fehlerfrei ist, bitte ich darum eventuelle Fehler zu dokumentieren und mir zu senden, damit diese durch eine berarbeitete Version behoben werden knnen. Dirk Wente Februar 1990 Hinterstrae 1 4750 Unna-Lnern Tel.:02303/4708 . N.. TP_RSC OTEST_DATEN  bTAPLO1_7PRG |fwdINFO___V1_7 '|)TAPLO DOC *|'. O.. NTP RSC |PbTP_TIT1 PIC |Q6TP_TIT2 PIC |U1jjj$j^b7.16.25.34.43.52.61.7DoAbbruchVorNachDEZIMAL-FORMATKOPQVWXgh!;@$ ( , 0 4 8  <   @ CC 7A 1A6A2B5A3A4A 4A 3A 5E 6A 2A 1A7Aj |P`  @     05PDUPUE A*j* *T@J @UT!AUTUD Q*:&**PPPU%QBUUTE U"***TAPT5%QRUUUDEIU(** "**UTAp!ARU@UIU( *p@ (**UTJA@`ERUPUEIU* *`P@* **UP *AP@uRUPUUIU**uT*PT u@T*P@UUUPUUUAT**@U T***T@U P*@UUP*U@T *@T * (@R @(T@ U @( *?              UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUPUA@PUUT  UUUUTUQ@UTUUT  UUUUTUQ@UTUUT  UUPTTQQ@TTUUT  UUPTTUQ@TTUUT  UUPTTUQ@TTUUT  UUPUTUA@TTUUT  UUPUTP@TTUUT  UUPUTPUUTUUT  UUPTTPUUTUUT  UUPTTPUPUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUT            ?? ????g ??7??7?y ?p>?788?|~?g > ?~???~?? ???? ?~? ?>?8 ???       0ga`00fff`n` 1`ffffoa33330gfmfa 330fflg030f`lfa` 0fc`    ``````` ``cc`a񙁘ac`c `aacY`cX`aac`c 88    w<pp<w8p>p w>~w~?>?<>~>~w~>w??>?>~>??>~8wwwwwpwwwwwwpwwppwwppww w?8wwwwpwpp?w>w>pww>>www8ww?p?pwppwpww?ppwwpw w?8?w>>>>w>pwp??~>~>w>>~~>w~x~~            .  b.. NTSTDAT1 DAT |cxTSTDAT2 DAT |d0TSTDAT3 DAT |e                                              `0^0Zh*AONZNpNE5pN/NpA$<"<N^pdNNE5pN/NpAtFrxN^NNvNJ <,NNp$m$E0N$mR$m("mNzN$m("mNzp*NgN$m("mNBA텲NxNprLNpr Npr Np$m$$m"pN$mR$m roEFNRpNJNZ`NNNpN+@" -"``XNPRQ_QaNNHNVp$m$$m"pN$mR$m ropr Npr N`BNN!$m o&-Sg NNNHNNVPapr N`TNN!$m m8-Sg2NN$m RAp~NNHNNVPapr N`NN!$m o-SgNN$m RAp~N"m m"`4x$mؒ mpAH 24$m( mpAH 00$mS$m SlPatx mpAH 00NHNNVpr N`:NN!$m o-SgpJ-agpRfrN m .$mB$m N`2$m( mAH 24$m( mpAH 00$mR$m o]NHNNV`fE5pA탶NE5pNC탶N2C탶NE6p9NC탶N2C탶NE6:pNrC탶tN$m$pr N`rprLNprMNE6?p A탰N`~prMNprLNNr`fNpN N!$m ot-SgnN#&N2~-Tg\N96`TNpN N!-Sgj$m obN#&N=`TNpN N!$m oh-SgbN>`ZNpN N!$m oj-SgdN#&N4`VNpN N!$m of-Sg`N#&N3`RpJ-UgpFVU-Ug prFN`bprFN`XpJ-TgpFVT-Tg prGN`nprGN`dpN PVN!$m o-Sg N)N4QV`~NpN PWN!$m o-Sg N)N6QW`HNN!$m o~-SgxND^pJ-ggpRfNE"NHNN`nND`fNN!$m on-Sg|ND^pJ-ggpRfNE"NJNQ `TND`LNHx < 960N/N`.NB <1280N/N`0<"<@NҤNN` hNE6Hp>A탶NE6p:NC탶N2C탶NE6pNrC탶tN$m$E6pA탶NE6pNC탶N2C탶NE6pNC탶N2C탶NE7pNC탶N2C탶NE7$pNrC탶tN$m$`TNNNN0NNNNTpNӆE7,pNCN2C탼NN` HxHxN`.HxHx^N`HxHxN`HxHxxN`lHxHxhN`Z @gj @g @g @gH @g @Lg @Mg @g* @ g\ @!g @"g @#g @Fg @Gg @&g2 @'gZ @)g @*g @Bg @Cg" @g6 @gD @ g @ g` @ g& @Hgf @Qg~ @4g @5g @3g @;g0 @gt @?g @Tg^ @Ugf @Vgn @Wgv @Xg~ @Yg @Zg @[gNupNjp$m$p$m$p Nr N$m*$m("mNV$mR$m Qo$mR$m YoE5Np$m$N$m( m!H$mR$m YopN,pN ->``N(-: m 0HNN 4pBfJp:lxح: m 0HNpЭ2Np:fJx m 0HNpЭ2N`.pNpANLpNLpANLN(-: m 0HNN`N(-: m 0HNN 4pBfFp:o -2Nxح: m 0HNp:fH -2Nx m 0HN`.pNpBNLpNLpBNLN(-: m 0HNNN`ZNN/(-: m 0HS]HH/N/*-B(-: mj؅AH 24NN/(-: m 0HП^HHg@pNpCNLN`.NN/(-: m 0HlpNpDNLN`N(-: m 0HNN/N"Np NXN(-: m 0HNp NX*-B(-:"mNVt*-B(-: mj؅AH 00`( @Hgx @Pg @Mg @Kg4 @Gg^NuN*-B(-:"mN܌/*-B(-:"mN܌0(Hr D/p N"N"_N2*-B(-:"mNVN/(-: m 0Hr ЁoFN+@F*-B(-:"mN܌/(-: m 0HFDR/ m""_N mN*-B(-:"mN܌0(J@o2*-B(-:"mN܌N*-B(-: mj؅AH 00Nu mN+@> ->` N`0N`(N` N` @ g @g @g @ gNuN(-: m 0HNN 4p:fB:xح: m 0HN`xح: m 0HNNNuN(-: m 0HNN 4pBfFp:o -2Nxح: m 0HNp:fH -2Nx m 0HN`.(-: m 0HNpNpBNLpNLpBNLNNNNuN*-B(-:"mN܌CNN/(-: m 0HDAN/N/(-: m 0HDTAN"_N2CNN+@FN"-FNN/(-: m 0HDRANNNAN*-B(-: mj؅AH 00A*-B(-:"mNV -FNNuNN/(-: m 0HlN+@FNrҭFN*-B(-:"mN܌/(-: m 0HFDR _NNNpЭFN*-B(-:"mN܌CN(-: m 0HFDSAN/(-: m 0HFDRAN"_N2*-B(-:"mNV*-B(-:"mN܌N*-B(-: mj؅AH 00NuN&<:<NNt&<:<N N+@BN&<:<NNN+@:NuNA0N^A퀰NA퀴NA퀸Np $m$p$m$$mBp+@:p+@BNp$m0JgpRf$m Ap~N`$m Ap~Np$m$$m N`$m $m"NNA탰N$m( mpAH 24NزN$m( mpAH 24*-B(-: mj؅AH 00*-B(-: mj؅AH 24N*-B(-:"mNV$mR$m Ql $mTRB` p $mђp$m$$mBp+@BR:$mR$m o]NlNA퀰NA퀴NA퀸Np $m$p$m$$mBp+@:p+@Bp$m$$m N`$m $m"NNA탰N$m( mpAH 24NزN$m( mpAH 24*-B(-: mj؅AH 00*-B(-: mj؅AH 24N*-B(-:"mNV$mR$m Ql $mTRB` p $mђp$m$$mBp+@BR:$mR$m o]Nla*-B(-:"mN܌pN0< NgBp NXN(-: m 0HN*-B(-:"mN܌N(-: m 0HNNu*-B(-:"mN܌pN0< NgNp NXN(-: m 0HNNA탰N*-B(-: mj؅AH 24NزNNu$mBNE5p N$m N0< N~$m("mNzN"$mR$m r`oNNNuNAN N+@JN+@N$m r@Np NXN$m r@N*-B(-:"mN܌N -JN -NNNlNAN N+@JN+@N$m r@Np NXN$m r@N*-B(-:"mN܌/(-: m 0HFD _NNp-N -JN -NNNlpNJ$mBBmvPYp+@:p+@B*-B(-:"mN܌pN0< NgQYpJ-YgpJg$mR*-B(-: mj؅AH 24$m( mpAH 00$m( mpAH 24ApNAp 24$m( mvAH 00RBpBlHpJ-YgpJgR:p:l&zx mj؅AH4(g&$m oPS`"$m fpJ-Sgp+@6` NQSNuNA퀈NA퀰NA퀴NANNpN,pN m"m""E1cp mNp$m$$m NdN/?? <r4<N8:&N&<:<N m 00 m 24 mN mN/ mN&$m $m$"N$m &<:<NN"mNp mNT/ m4<D"N $mR$m r o6pJ-WgpJflpNpNpNpNNE9XpN4<^rPN pNpNpNpNNE9pCN4<rrPN N`npNpNpNpNNE8pN4<c2<N pNpNpNpNNE9p*N4<r2<N NNlNA퀨NA퀰NANANA,N,$m$1p2$m$$m Nd&<x:<N m, 00 m,NnNrFЁ$m$p$m$$m N`$m( mpAH 24&<:<N m$ 00 m$4(f m$ ѷX P] <r4< m$NNg <r4< m$NVg` <r4< m$N m$//NT JBnDB&<78 mH"mL"" mL//HxNA` 24N"mNp(+@ ` mNp$m$ mH 24N$m NpENf: mH 24N$m"pN"mN2"mN$mR$m Qo mH 24NpN"mN2"mN`t mHah/ <r4< mHNNg <72 mH"mL"" mL//HxNA` 24N"mNp0+@ ` mNp$m$ mH 24N$m NpENf: mH 24N$m"pN"mN2"mN$mR$m Qo mH 24NpN"mN2"mN`~ mH4(lr <r4< mHN/ <$r4< mHNNg mH 24nDB mL 00 mP0B0$m$B`$ <r4< mPak\ mP 00$m$R mP"mHapJBnDBai.&<x:<af`f mL//HxNp-N/A` 24N"_N2"mN$m$ P+@ `z <$52< ]4< mHaeg mP0$B0`$ <r4< mPaj mP 00$m$R mP"mHaoPJBnDBahp&<x:<aef mP"mHao(JBnDB mL 00 mL//HxNp-N/A` 24N"_N20 mBhpJ-SgpRf~$m agbApanA킸 00p$m$$m N`$m ѭ$mR$m o] -ag/??$m ag8:&amA 00p$m$$m N`8$m AaddAp 00$m( mpAHC킸ad2Ax 00$m af/??$m( mpAH24 ah6 mac$m agDafbA(ac$m( mpAH//$m( mpAH24 agA8acApCpagA 00AxCxagA 00A 24AacHA 24Aac6AxCpagA킀 00A킀 24Aac$mR$m o]$m aeAal*A 00$m aepAalA 00AajA 00AaiA 00ACakA킘 00AC킘afA킸abA킠 00ACakA킨 00A킸C킨afAabhA킰 00ACaf~aizAak`A 00aHNNr$m RAp~N$m THR@fP$m jR( mpAH//$m jRR( mpAH24 aaNtA` 00`@$m UHR@f0$m &<:<aa^Ntac.( mpAHC`""NuNAN,AN,AN,AN,AdN,AhN,AlN, mBh mBh mBh mBh mdBh mhBh mlBhp$m$$m N`$m acZ ma`$m( mpAH 24 ma`$m adac& mda`$m( mpAH//$m( mpAH24 ad mha`J$m ab/??$m( mpAH24 ad| mla`$mR$m o@]$m  mdadD/?? m"mad88:&a`Ah 00 md"mad/?? ml"mad8:&a_Ap 00$m  mlac/?? m"mac8:&a_Ax 00AhCpahA킠 00AhCxahpA킘 00 mC킠ac/?? mlC킘act8:&a_n/?? m"macX/??$m aa8:&ah28:&a_/?? m"mac"/??$m aaZ8:&ag mha^8:&agA타 00A타aex mAH 00NlNAN,AN,AN,AN,AdN,AhN,AlN, mBh mBh mBh mBh mdBh mhBh mlBhp$m$$m N`$m a` ma]$m( mpAHae ma]$m aa2a`P mda]$m( mpAHaeRN mha]$m a`/??$m( mpAHae"8:&aa mla]T$mR$m oT]$m  mdaa/?? m"maat8:&a]DAh 00 md"maaT/?? ml"maaB8:&a]Ap 00$m  mlaa/?? m"maa8:&a\Ax 00AhCpaeA킠 00AhCxaeA킘 00 mC킠a`/?? mlC킘a`8:&a\/?? m"ma`/??$m a^8:&aen8:&a\J/?? m"ma`^/??$m a^8:&ae8 mha\8:&ae&A타 00A타acx mAH 00NlNAN,AN,AN,AN,AdN,AhN,AlN, mBh mBh mBh mBh mdBh mhBh mlBhp$m$$m N`$m a]ab ma[$m( mpAH 24 maZ$m a]abN mdaZ$m( mpAH//$m( mpAH24 a_ mhaZ$m a]:abZ/??$m( mpAH24 a^ mlaZp$mR$m o4]$m  mda^/?? m"ma^8:&aZ`Ah 00 md"ma^p/?? ml"ma^^8:&aZ.Ap 00$m  mla^6/?? m"ma^*8:&aYAx 00AhCpabA킠 00AhCxabA킘 00 mC킠a]/?? mlC킘a]8:&aY/?? m"ma]/??$m a[8:&ab8:&aYf/?? m"ma]z/??$m a[8:&abT mhaY,8:&abBA타 00A타a`6x mAH 00NlNAN,AN,AN,AN,AdN,AhN,AlN, mBh mBh mBh mBh mdBh mhBh mlBhp$m$$m a`$m aZa_ maX0$m( mpAHa_ maX$m aZa_N mdaW$m( mpAHa_N mhaW$m aZna_/??$m( mpAHa_n8:&a\ mlaW$mR$m oH]$m  mda[/?? m"ma[8:&aWAh 00 md"ma[/?? ml"ma[8:&aW^Ap 00$m  mla[f/?? m"ma[Z8:&aW*Ax 00AhCpa`A킠 00AhCxa_A킘 00 mC킠a[/?? mlC킘aZ8:&aV/?? m"maZ/??$m aY8:&a_8:&aV/?? m"maZ/??$m aX8:&a_ mhaV\8:&a_rA타 00A타a]fx mAH 00NlNAlNAtN2ApN2A퀔NANANANAxN,A|N,Ph6<|0<ztrauj6<z0<xtrauZ6<;0<t1rEauJ6<:0<t2rFau:6<z0<@4<@rau~6<z0<B4<BraulpF$m$$m$:pP$m$pP$m$$m $m&$m$$m"au.p$mђ$m opQ$m$$m $m&$m$$m"atp$mђ$m opavzpavxpavvpavtav|E8pN4<;2<a}pavFpavDpavBp av@avHpavZE;p?Nt#$m"a}pZ$m$E<pNtG$m"a}vE<1pNte$m"a}^EEpNrC탶tapP$m$NuE=pA탶atE> p6NC탶aeRC탶atE>BpNC탶ae6C탶atE>pNrC탶tao$m$QhNuNA퀠N mN\gQbp$m$ m0(Haq`L$m"p mNN+@bp.b^HH/p9blp.p/bWHHgQb$mR$m o]NlBFprNE>QpEa`N+Aj+Bn+CJpJf n^HH/ Ąn]HHg -j`p+@F0< N4<r$mҒarpakzE>pN4<r$mҒar`\p+@F0< N4<r9$mҒarpak8E>pN4<r1$mҒarp` @"m @Fop @Tm @xoN"mar mpxad/ mpXadҀgBp+@F0< N4<r$mҒarpajE>pN4<r$mҒaq`Z mpyad/ mpYadvg@p+@F0< N4<r9$mҒaqpajZE>pN4<r1$mҒaq -FgTpaj0prNpHNXab~NuE>p A탶aqE>pNC탶abrC탶aqE>p;NC탶abVC탶aqE=pNrC탶tam$m$ m0B0pr$Np!NXaapr$N ma~$NuNALN2 mL 24nDB&<x:<aFgp+@B`| mL 24nDB&<x:<aFgp+@B`T mL 24nDB&<x:<aFzgp+@B`, mL 24nDB&<@x:< aFRgp+@B`BBNlE?pA탶apE?7pNC탶aa&C탶apE?Up=NC탶aa C탶aprE?pNrC탶tak$m$NuNA퀰NA퀴Npaua}xpagpagp($m$$m 6<$m$rPafNp $mђ$m ,op)$m$$m 6<$m$rPafp $mђ$m -opP$m$$m&0<)t($m"aep`$mђ$m opQ$m$$m&0<)t($m"aep`$mђ$m opag8pag6pag4pag2ag:p<$m$p$m$$m aGN$m$r(an|p $mђ$mR$m Qo$m$p$m$$m aGN4<J$m"an6p^$mђ$mR$m YopafpafpafpafafE?pN4<YrdamE?p N4<Y2<amE?p N4<Y2<amE?p N4<Y2<wamv<0<6t(rpaa$m rKЁj]HH/$m rdЁj^HHgHx$m/N$m/$m/N`~a~Aay:A ay2"m m"$m ae `$m nn$m Rp$mђ$m o]"m m "`~Ba~A퀴axA퀰axAayAayAay$m rЁ$m$"m m""m m"0< ma{t m+Prp ro:$mZ -r&<:<a=&<:<aANa>$mВ$m$`pro$mВ$m$`pro:p7$mђ -r&<:<a<~&<:<a@a>F$mВ$m$`@p!ro8pP$mђ -r&<:<a<<&<:<a@a>$mВ$m$$m Ȱno$m ^HH/$m $m\HHgAt$mԒ$m"a^v$m a>ta}"mNppa]pa]pa]pa]a]0< azn$m$$m"adpa] m$m$$m"adNpa]b$m/NL`|a|LAavA퀜aw6pJ-SgpRfp $m$p$m$$mB$m( mpAHCP""p$m$$m abH`R$m( mpAHCPaCAX 00pJ-XgpRf <r4<AXa?AX 00AX//HxN awC탶aSC탶ac8E@pawnrC탶ta^$m$`yaz&Aau@apJaWaxNVE@paw*N($m$$m f NNpraW:+Av -vaX$m$$m$+Cz+D~ -~,-z$m*$m(vt"-vaW@B"-vpaWP$m$p$m$$m( m 0H mvN g$m( m 0H+@$mR$m _o -$mWHH/ -$mWHHg|aVawzaao& -`E6?p A탰aa`jE@p A탰aa`XE@p A탰aa`FE@p A탰aa`zE@p A탰aat`hE@p A탰aab`VE@p A탰aaP`DE@p A탰aa>`2Jgl @gv @g @g @g @g @g @gA탰E6?p aSgprMaabprLaaZ`prLaaPprMaaH`wawA퀤as0A(ar4B?<NATJf4E@p!A탶a`E@patrC탶ta[+AB*`?<NATRfzE@pA탶a`^EA patC탶aPC탶a`PEA)patC탶aP"H maPEA;paRhC탶a`EABp atTrC탶ta[h+ApfPA(<*<|~aZbam"aLAtraX$m(?*?<!NNXNbAtraXhaL|`vpNupaWpaWpaWp aW~aWpaWNupaWpaWpraWNupaWpaW&paW$NuNu;|Bm$m Sa\`<8-H mD PAHa7/8-H mH PAHa6$p"aTRm0-koYSm0-U@mQ^;| ?-?-pJ-^gp?/-D/-H/-P/-LN8<v0<traM0-;@ $mT40- a\4`zx$mT4R؊ mP PAHa6P/x$mT4R؊ mL PAHa64/$mT8H mP PAHa6/$mT8H mL PAHa6&$"aTR$mTRR$mT0kozYNuauALaoAPanAHanADanA,aoA\aoAXanATaoA`aoAdao$m,gx mD PAH//x$mX4R؊ mD PAH24 a3a}4 m 00x mH PAH//x$mX4R؊ mH PAH24 a3a| m 00` mBh mBh$mX? m// m///-D/-8/-@/- @Ag @Bg @Cg @Dg @Eg: @FgZ @Ggz @HgaNuacAa^JAa^BAa^:Aa^2$m $m&$m$$m"aB`ct6<0<^t2rdaB6<0<`t0rbaBx6< 0<bt.r`aBh6<pUtpJ-_gpJf^ m+P.$mB$m aD`2$m( mpAH 24$m( mAH 00$mR$m o]P_NuEBpA탶aFEBp6a[,C탶a7rC탶aFEBSpa[C탶a7VC탶aFEBppaZrC탶taB$m$NuEBwpA탶aFEBp3aZC탶a7 C탶aFrEBpaZC탶a6C탶aFVEBppaZrC탶taA$m$NuaSv6<X0<^t2r2a<6<Y0<_t1r1a<6<b0<ht(r(a;v(p(t1r1a<:6<b0<h4<_2<Ya<&v(0<h4<_r1a<6<bp(t12<Ya<Nua\A퀐aXA8a_6Apa:pa:pa:p a:a: an+@pg`A aA:`Xpa9pa9pa9pa9a9pa9E4p aVt2<aA pa9pa9pa9pa9a9aXA퀰aS$m$,EC0p(aUt2$m"a@ECXp'aUt<$m"a@ECp(aUtF$m"a@ECp(aUrtP$m"a@ECp(aUZtd$m"a@vECp(aUBtn$m"a@^EDp(aU*4<$m"a@DEDGp(aU4<$m"a@*EDop(aT4<$m"a@EDp(aT4<$m"a?aT4<$m"a?EDp*aT4<$m"a?EDp%aT4<$m"a?EEpaT|4<"$m"a?`Vpa8pa8pa8pa8a8 pa8E4paTEE`p(aStF$m"a>EEp"aStP$m"a>EEp aStd$m"a>EEp"aS|tn$m"a>EEp&aSdtx$m"a>EEp(aSL4<$m"a>fEF%p%aS24<$m"a>LEFJp%aS4<$m"a>2EFopaR4<$m"a>EF}p$aR4<$m"a=EFp(aR4<$m"a=EEpaR4<$m"a=EFp'aR4<$m"a=EFp%aR|4<$m"a=EGp(aRb4<$m"a=|EG=paRH4<$m"a=b`Tpa5pa5pa5pa5a5pa5E4paRt2<a=&pa5pa5pa5pa5a5aTA퀰aO$m$,EGQp#aQt2$m"aa.FA퀰aHv$m$,ENp)aJlt2$m"a5EO p(aJTt<$m"a5pEOHp%aJjDGGe GbFGNuG GbFGNu~Nu 24HjDBaDBNuBe B/dAрQ4<`BNutNu $HkBk Bj*DBNupNuDBBkBjDBDNuf gp` " 246jDCCe0 C/jC C@j C jr0H@{0>H@Nur{0Nu{0NutNu 246j(:<DCaf AfBfNu`#a 00Nur$o, b4< J@k @[H@NuH@RBNu4<Ѐ[NuDg8k2 b4< J@k @[H@DBNuH@RBDBNu4<Ѐ[DBNu4H@Ѓdh`^HCH@:">H@`H2g&HCH@:<HC>H@Ѓd(`HCH@:H@r` gDBgkDE`HDBDEaBDBNugDBa8DBNutNua 11!Nux`xaR`aL` 24&8:HoHoEBJAgJDfr:g,|HC҅H@:ۆ<HC>H@Ѓd`vHCH@:H@`fgDBgkDE` DBDEaDBNugDBaDBNutNuHoHoEBz:g|HC҅H@:ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuJBj^tNuk(g.JBjDBAр[SBDBjNutNuAр[SBkNuJlNu0gH@rJBkB JkЀ[`DBЀ[`J.;gP:pr4<Nup`p <r4<NupNJBktNu@AB`&8:~.gNa`&8:` &8:@ABJBgJEgJAfJ@f<jDFF Fdx.HGއQJGfjHGH??UGgkte <r4<` 24HL&8*a dgHL8a`L8aTJ_ k:NuH 24kBaL8a`2BTJ_LkNuTJ_Lja&8* <r4<`dHL aJBfL aVgLJBjDBaL8a@a1DBNuLJBjDBaL8a"`1fNup` 248o6" <(<BJd@؄ЄCӁeg,e Єf`fҁecRH@hrH@NuNup`n 24?o4<&8: 3f AcDA@Aр[SBDBT`SBAрkfJAftTSWa>H&8:aBH&0rHGGdHGGdSWDуdi?<>0rHGGdHGGdSWDуdi ?<>0rHGGdHGGdSWDуd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<,>CEdGH@0r`xJCgz?<0rÐdSWЃdi?<0rÐdSWЃdid?<0ÐdSWЃd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<0riR?0i?`?<``apEhhgPh`LJg&B.C`a8aD*9hfap-I,=|p4aHz*9hg ENp9h` _a &nO:NMhIK`$<Nu[1][Error +111][Return]EW g g>Jf`Ar Hjr-D@Hd0H@H 0H@0CNuAF"H [1][fSEfNu`HQ?< NA\Nu@$g\kdHfiHNufnpNupNu"lDaDNuJnDaDNuzxeҁ؄d`ef Nup`z"_K`MhIO:HQ <-H*,`N,d d3 d# d# # d# # # # d ALH dAL H LH d AL`H L|0H>L|H>d~# # # # A`@ALH L|H>L|H>L|PH>L| H>L|H>L|H>L|H>L|`H>L|0H>L|H>QL|Nu$H$&"BA -KaXA"f B &nNuH>dd2d"d""d""""d LHC dLHLH C@d LHL|H| L|H|PCd~""""C`:LHL|H| L|H|PL|H|L|H|L|H|L|H|L|H|@L|H|pL|H|L|H|CQL|Nua`Vp?a a?<LNA``NuNu`aza`aaaHA-Hhp alpMah=@F?<NNTT@A0r p0Q`pdr ta0.F=@=@ACp,2QAp 2Qaa`\``pea>pCR2Ad0A2r22a`"<&0<NBLNurt=@:=A@=BpsNB0.Nu=@0=@=B0=@a"<psNBNuC|2 @ e$ @bA0AP2r22a"<0<NBLJNup"AJӘQNuA> NuHz(` NHz ?<&NN\Nu9|gNuW|Nu|^|  R^,T:&0D4(*<B$,>2::(   F..26"8@"PQ1!P1P!0PP`0  q#aaa a O: n*N``NuNuNupc?a0QNurdAd6Ag,B(dB(dH Ac<a!tgBAp`*rNuNu?<OA`d?<IA`Z0<H Ia+tLt Ig Og Ug Ag Rg*afNup`a+Fp`0a fHRa+">Er$Wgr STD:gr COM:g r LPT:f2FA$_0=@D~CA0< Bha)B2"pNu$_AF Ge><QBAFpNuahgzp=` a\gzpaTaRFBd&8*L?a <aSF Be BgQRB`RAdR e <rRF&0xaCձfEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`HQ2.d Aeg>r C 5e&!R 0c 9c0`<R"_`VC0 Ef"_Nuaa/ CFr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA 0g` n2:H>6Nuprt|P;Q:  g +g -f .g40  b 0e 9b da(`RF` .f 0e 9b daSF` Eg efX +g -f 0e 9oSH`00  b&Hz0  b E Do`ZJjDDDS4<.aJFkSFk4adQa`&HaFFaLQ&8*L/aF,H܆jDBJ.:gtBn:Nu @$@JfS a$\`QNu$Aa%>`QBNuHz`a`HzVa% H `HPHQ0(ika$ $I _a$IUd4Id4Id$Id `$$$$Q _Jf,a$Id4Id4Id$Id `$$$$Q @NuSa$IdIdId`Q @Nup `/ a$d$I> _a$ZG` VNuag`af`ae `ac` acpNuadpNu/ a$ $I> _a$4Ae4v` VfANuHP0(R@kBa" $I _a#IUd4Id4Id$Id `$$$$Q @JfNuNup `Pa#SAfNuag`af`ae `ac` acpNuadpNua#rSAkfJANuH HPhkJa"d $I _a#LIUd4Id4Id$Id `$$$$Q @JgSL`QNup `a#Af` VNuag`af`ae `ac` acpNuadpNua"4@m4v` Vf@Nu/HP0(X@kHa! $I _a"IUd4Id4Id$Id `$$$$Q @Jf$Nu $Nup `a"VYAfNuag`af`ae `ac` acpNuadpNua""SAkEF$p VfWANu?HP0(T@kHa! $I _a!IUd4Id4Id$Id `$$$$Q @Jf4Nu0XNup `Va!UAfQNuag`af`ae `ac` acpNuadpNua!xSAkXf SAkXfJANu|H`|i`|l@H~|`~ze`z`zd@H>|`hth`tpa ".Nutj`t@H|`Hrk` rf`rg`r5=@|0`0pM` pO`p`po`~*@-AH|` t)`t` tr`t2`t@-A=B|`v8`v(`v-` v!`v `v@-AH |`HAHBHCHDHEHFHG-HfAD-HH@-@H|p`rAD-@f-H `r6 @`z`z `z8.^n\Dn\@Hp tr=ED` n\n^HBB=CBn=D=@p rt=|D`n\n^HB=@Bnp rt=|D`n\n^n\n^A0000000000prt`xn\n^648HH`prt`Tn\n^n\n^8HH`prt`,"_A `4RB`"_A42L\A` L0GF11Q-p`prHQ`&x0<n\n^=D=@HBB=CBnp rt=AD`6AC1=@b01=@`WCk1Qrp`~Bp'rtap n2rt6(SC0(S@apaB\papava0paRG=GYfx-IC=C=C$tBft=B=B(tFJ=BBBB*Do>Eo:@l6Al2DDk =DVBnDEk =EnBn@cVo Acno,_NuAH`/=@a _a]Ak024E$ Bb5B5A6CC5CK5C:8AB0000DkxEkt00A<:d>:bSFSGFn\GnXDDk0BhDEk1EBh Fchh Gchh0hb"0hbpmrt-|H-|L`Nu-HN _a"4$FAFp_@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BAF0-H,=@p4aB2HNu 24DBaDB11!Nu 24DBa DBNu 24x6o<Ce(FC BdЄeNu B/dHDDdRdQRBNu&<:<`g BbUC BcjNu BcHDDdSkg RBAрjNuNu0ftNuB H@"jNu Lx6oFCe0FC BdЄe!Nu B/dHDDd`A*p4. g=BNuA*pBQBX".g paBNupraHP?<NNT~U@g~tb3nA~pr0 0BBB R@ @fA~0000PB0Tp`00000\0X0Tp`T@00000P0BXpnT0raVA0p1| 1AQBX0$HTH0P P0Tp`0NuH(Fa$L(FNuSk [0NupNupa`Pp>`HPaa _&X Pf/|~K>zag @ ep 2tC"2 S@HQCػR"_d BTAA3ApC~4$I2a222B"0@2A\xva@gF2#M 443BS@ -f HQCػR"_d@BAAb8RGRC`3RSG5G5C J1DcaRF Fe `RG GdNuXA~SF1F41R1h4x1EDg"<~p-A`v n"g(t( f h fpH`anLRB`Nuaa rp-@-@(-@4-@@=|LpraHPKLCDHXAB0 1PP1P1PA L?P<@>AFGH 0000X0000X0000HSG~2gtLx0a Q&_NuSAkA> A1@H<`Lp`Ha-_\NuBJAgLPDEFbGb?HXaL0S@k@> APB"G0(JgRJ)@g1@2fJ2HPL<P0ap W1@A00 piaH=|@pia4 _C""pe`,?4<6HPa _2tLx0a=n|=| pia0.2paH\P`PH|SCSDABH0`S@k@ A=pfNup?a0QLa`S@k.@ A0gBP=@apgajp aJ@fnpahQ`B\Lrt`vNuHS&I. FVa8.:.L4.RBĴ@cBnaL4.RBŴAcJSA=A`@pJ.afrJk8 Eg,2. pg  qfL=A=Apjrta`8a>`2 d. Vg" gt gZ gn fPSnjBn`D=@0.n\=@0.R@S@n^=@prtaߊRn0neBna(Q>j4&_NuBn`?<HyNM\`Rn<SFEneSn`2NuS@kD@ AC0g.?a$=_p 2.aL6Fgavp `p`p`NuBS@kl@ A=Pa=| phazL`4p-@"<$&HA-HH-HLBnpmrt`ނHz ?<&NN\Nu n2MJFo`JGo\H 8N-@-@ p-@*-@-@ H0H00(L=B=B&=CC=C=C$tBft=B=B(NuaHz ?<&NN\NuL n2M(8N-D-D x-D*-D| J@jpJAjrRBhe4(RChe6(@otAop=@=@NAXOJkpNu0< aF`0< CF2p`pp a0`p CFp`\aCF"p`NHza `Hz"J`4(g8HP b6 a^$_// Z4HQ`S@Q _Q _a, _Nua$`p`AFtЀvQBNuAFt0 9c^QBNuAFt 0QBNua`a`aCF 0gS JfS`<@a Acr `@a A cr `@a\ A cr `N$H`HafLHP?.d=hdN=_d2 "@$Y4Ad2`0Q @NuH@&g( b⸃bLHajLC 0$Ir `Q"Jr0XDQD@CtEe PA`fRشf`e"J*c j|0"cRLJgR $I.f) 5e*0!.g -g  g 9f 0b`RB`1`p `E"e aj"b BB& &6 Nu@`r ??a"P02R@H`2Q Nu <ڢ2Cx"c a&"b(K&JHP~"S>/ /?.D?<?NAO _JkѨf L"[6\`$Y4jDB`Q]CnLbNu&ZRf`Q`a`aHb"R~>Cx"c a"bj(K&JHP"[6>X L` $Y4j DB`Q`&ZRf@`Q]Cn/ /?.D?<@NAO _Jk$ѨfLbNup`p`p%Lb`TaAdgHAAHP P (R` / aAdgHAA HP$_ R2 S b`v6a2<<.D>HRa 4$_NuaaJjtNuaHPa pJk NuCg.BJ@g  g &g, $g %gNNutNuRpt`2Rpt`Rptr ae OgX Xgn HgSRB ae Fb$0k  c_  c b退`tSHkazNuRB0 b b瀀`RB0 fрd`a|A((@؆*.&|؆kD`&aJ,k.."*B(.&؅kr-K/.?<INA\/?<HNA\JgB n""n&ۮ&ۮ"$I`&bۛp0R@@b&n CXbp`8 .&/?<HNA\p=`?<%NNTNua$ZXNuHzxlJj xo`xdJjxc, EJDD`DDD Dz$X Pf-K&e "&J$IpSNup`ŒL4 fd$R$&k(*ڄNdNjRofNu.#|He(*NdN$&Rgp$(؁*Ne*(NdN(*Ro2(NdS(So&*NdB*RRNf$f$SD`S(l//"a R"mxNupЂmlNu 24JBkCkNuCktNu 24JBoSBNugRBNu2(gbc  P"H`Nu/0Ha2  _ PSAvjx E(Wf* ae zb Q @Nu 24&8:`Bnp`pBnp`p=| p|=Fn@=@b=n`raHj=Ah~`:a JfBH@ RfF.f Kg" Mg sg tg Pg Hf~`xSGjtRGFcn>`jAF gp gj g grffnnpenbfJ.fj6pRGFc$SG` J.fjpRGFcRF` Ff`> `?~ap a0p a*0Nu|``CpE`bf`FgRGJGgSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0NuagNu4.rf?HyaʔNM\Nu=|D`LjaDzEfpadppa`AFEg0PaEfaFRE`ܾEfp a@a8?nnnp a2RF`<annoS@f nhfSnl=Ah=FnNup` papq4.rf?HyaNM\Nu=|DHa LNu|A0"P2(@e2<EF`QHP=|DJ@g$abAF$HpR@ 0 f _aN`QNuHPp?ap a| _2<|0`E`EHaA`Ej`EHaAC *FNLxNuH <3Ho">3XoDFf,3XHf<3XsHL0Nug">3Xl Ff,3HXf<3HsXL0Nu>3XFGF`,.*sh'xh'x*sh'xh'xNu,.*rh%xh%x܆އ*sh'xh'x*sh'xh'xNuC&pHQ/Hy@NA NuC pa:NuHQ/Hy?NA Nu&g4 FgagJAga2< R@AdSf0Nu0ap Ce`&g4 FgazJBjagPAe CbRa R@Sf0Nu FgRaBg JBjaTAeaJAg RP0 pNu` Fg6a gJAga @eaRP Nup NHѨB?<?/?<BNAO JkLLNu&8aJBjaJAg Df*ڃkd0Nu DfրBH??/?<BNAO LJk!@NuHBHh Hx??<?NAO LJo ѨLNuk:fp`^k: g ѨNuBHPHQ/??<?NAO _JoѨfNuBHPHQS/??<@NAXLfѨNuJkp%`B9`$H EaA AerQBL@͉H Ia"H _/ aa _/ ?aAF-H AerQB2"_A&-H A e ` \gQBa9gaZe -|p[`pZaajAF"H0.g "Hg \f`A&fS !.gR EF _a`QNuHz?<&NN\ @Nu x NuA@Bh`׎A@aט n@!|}Nu _S@Gd@GHpp/0NuGNpp#hfphNup`p`#hNuHz` Hz`Hz&$A?<&NN\NuNu4Nu$Nu(a؀.dfajNu?a0` ?a2@@a` a Nu4.`Af n2LR@RANu4.`g S@SAHNutbpbr??papYa0a0`p"<a>`D@v`v??NMXJNuJ@k??<NM"UAf J@fH@Nua,j0fpNu\@`a`]@><CF Ipa<0HNua`]@><CF Ipa Nu?|`?a0R@f|0aJHJFkHPaT _Nupo`HSHP&I>g\SG??<NMXJk Q _t&_Nu&_`aJANuag `af`apNuapNuC`C``C` C`CJhfJfRRRRRRRHP? @CFH~8:E#P&<2 `b$bYEf`"RAf rЁЀ`&Ѐe "ЀeЁdp`JAkfgRer?DDЁaAa8$HX :CFE` YEjT"_$P"2trDDd0d d d` QjNu`PaDa DNu na^ K"ng42 $`gk2&Hg Af deђ$`ebѐXf&nNu AgebѐA``-Kx$ n&$n""Hg8" &Ak cѐ S`g"" k#&Acё2+SAI3 Q&f-I"&nNu-Kx$&ր n&$n""HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f-I"&nNuaP n2L6(n\n^HHHNua0 n20(n\HNua n20(n^HNua n20(HNuaF:ffNuarNua J[HHNu:nfa@ z^0NuJg6$:Pf,H?<"NNT&@p/&(ra :,ga &Lr`r??Q@(HyNM\0Nu#(Nu-Hb=hzBnfNua`ޜ nbabfp0nfc`NuaJ/ ? nb"XfRnfSnzkx _g !g &g. \g.a^`RnfSnzkN`0"_fCpH`0"_`pR@RnfSnzk \f2"_gAc@@H?ap0`p?a0H"_`ZNup?aLn`XHn nb"XfRnfSnzk _g,vxz| +g2 -g, *g $g& #g$aݖ`RnfSnzk`` `RCSnzk _f Snzj`h #g $g *g.g ^gH +g^ -gX.fXxRDSnzkL #g ^g +g4 -g. _f.RSnzj`RESnzk ^g +g -fRSnf nb? JEf0DH2HgR@?=nxvjDnxL8n@a2aH<z Ndz* I0`  fEQNdS|$Ne Jnvj|- nb XfRnf0nfc|.g8 _g>.g@ +gN -gR $f ,fHQ!a Rnf"_p$RHQa"_`Rnf`)  g *fp `Jnvjp-`Jnvkp `=_fSnfRnzNuHLn=BvjDBNLxC*E0RJCfRCR@r2HAARACd ` Efr0Sb Eg4 5e.!A*e0R 9c0`R1R@0c JEr+J@jr-D@UEoJYEc0SEnHJEf0SEH@HdREf0SEH@H 0 0REfH@C* nb XfRnf0nfcJ.g _g .g +g -g HQaڂL`Rnf`Jnvjp-`Jnvkp `=_fSnfRnzNu؄*؄؅CH`N؅X`$_  IajHR"H @`̘؄*؄؅AHNu؅X`$_ Ia6HR"H` n5d$HJf-HS Nup"` HPa _a8`QNua JH aFL0Nua`4<H`@aBL Z0De2SCkÐCo@c2`QNu$Ia Z0AcA`QS@ QNuHd0Hd0Hd` QNu$Ia Z0Ac4ASB Q`QNua!@ NuAANua1 Nut`t`t`t`t`t `t`t`t`t`a ( Nua Nu@@Nura00HNur`r`r`r`r `r`r`r`r`zQ`z ` zn`z4=A|a-IHQB0a6 _JNuz"-A=B|a-I`#/lHrYa:pYaRLaܾpY` :/rYa pYa 0.2 | Bitte ndern oder normieren | Sie den Wertebereich ! | Oha Wahrscheinlichkeitsnetzx-Achse linear, y-Achse nach dem Gau'schen Integral geteiltx-Achse logarithmisch, y-Achse nach dem Gau'schen Integral geteilty-Achse log. geteilt, x-Achse log. geteiltDem Tabellenwert '0' wurde fr | die Grafik der Wert '0.001' | zugeordnet | ach ja Zeichen statistische Funktion Wert Statistik - Tabelle Weitere KennwerteAnzahl stat. WerteMittelwert der y-Wertey - Standardabweichungkonst. TermKoeffizientKorelationskoeffizientMedian (Zentralwert)xyMittelwert der x-WerteSumme der x-WerteSumme der y-Wertey - VarianzSumme d. Quadrate von xSumme d. Quadrate von ySumme d. Werte von x*y Regressions - Rechnung Auswahl Funktion Korrel.-Koeffizient Bestimmtheitsma Schtzwert fr Eingabe fr Schtzwert f(x) = *x)*ln(x)*x^r = r = Eingabe des Wertes fr den die Rechnung durchgefhrt werden soll x-Werte > 100 werden hier aus | Plausibilittsgrnden und | wegen mglichen berlaufs | n i c h t bearbeitet ! |Siehste LOGARITHMEN - RECHNUNG ! | Zur Durchfhrung bitte den | oder die Werte '0' ndern, | je nach Bereich z.B. 0.0001 | Hmmmh Ein Wert <= '0' ist hier | natrlich n i c h t | zugelassen! |Wahl durch Anklicken von [ x ][ y ] oder Drcken einer Taste x/X y/Y x y x-Werte > 500 scheinen hier | wirklich nicht mehr sinn- | voll und werden deshalb auf | diesen Wert begrenzt ! | Wie soll aus e i n e m vor- | handenen Basiswert ein | Schtzwert durch Regression | ermittelt werden ?! |Ach soo 1 ... 8 9 ... 16 17 ... 24 25 ... 32 Index - Tabelle Auswahl der Basis-Zelle (klick) Abbruch beendet #####.######.###Wertebereichs-Streuung riesig |Rechtsbndige Darstellung mit|8 Zeichen nicht mehr mglich.|Ist Darstellung hier sinnvoll? | hmmmh D:\TP_RSC\TP.RSC#######.##.####### Drucker nicht betriebsbereit ! | o.k. Erstellen einer Hardcopy | des aktuellen Bildschirms | mit Druckbreite: Dots |jawohl|zurckAktuelles Laufwerk: Freier Lw-Speicher : kByte Bitte Laufwerks-Kennbuchstaben whlen Weiter ... beliebige Taste drcken Datei laden RSC-FILE fehlt ! |ohne Rsc-File funktioniert| dieser Menpunkt nicht !|File und Pfad berprfen ... klar Werte-Tabelle leer! |ohne Werte geht natrlich | n i c h t s | klick ==> Tabelle {Neu} Das Koordinatenraster wird berechnet ... Bitte ca 2 ... 3 sec Geduld ! Sind ... folgende Dateien vorhanden ? TAPLO(n_i).PRG, TAPLO.DOC, ggf. *.DAT, Ordner TP_RSC mit TP.RSC, TP_TIT1.DAT, TP_TIT2.DAT Ist ... Pfad = Laufwerkskennung ? Ist ... Auflsung = hoch (s/w) ? dann... sollte, wenn alles andere in Ordnung ist, eigentlich einer ver- nnftigen Funktion nichts im Wege stehen. __________________________________________ Beenden eines Hilfe - Aufrufes durch Drcken der linken Maustaste. 1.) Laufwerk Dient zur Wahl des Laufwerks, auf dem ggf. Ihre Daten-Files gespeichert sind. Benutzung gem Programmvorgaben. 2.) Laden Ein Daten-File kann direkt in die Tabelle geladen werden. Dazu 'Tabelle [neu] anwhlen, deren Eingabemodus mit oder Drcken der rechten Maus- taste beenden und [Laden] anklicken. 3.) Speichern Eine beschriebene Tabelle kann nach Auswahl eines File-Namens abgespeichert Dies geschieht entweder im 'Tabelle [neu]' - Modus oder nach bereits angewhlter Grafik-Funktion mit 'Tabelle [ndern]'. Menpunkt zum Erstellen und ndern einer Wertetabelle mit max. 32 Zahlen- werten in 8 Zeilen und 4 Spalten. Die Werte sind beliebig mit den 'ge- wohnten Tasten wie oder editierbar. Die Eingabe einer Zahl wird mit den Tasten oder bzw. abgeschlossen. Die Cursor - Steuerung innerhalb der Tabelle erfolgt mit den Cursortasten sowie . Der Cursor 'rolliert' innerhalb der Tabelle, d.h. er springt von der letzten Zelle wieder in die erste und umgekehrt. Die Gesamteingabe wird mit oder der beendet. 1.) Neu Damit wird eine Tabelle neu erstellt bzw. eine gespeicherte Tabelle ein- gelesen. 2.) ndern Nach Aufruf einer Grafikfunktion knnen von einer Tabelle einzelne Werte gendert, bzw. angepat werden. (Siehe auch Datei). Dieser Menpunkt beinhaltet eine der Hauptaufgaben des Programm, nmlich die Darstellung der tabellarischen Zahlen- werte in grafischer Form. Zustzliche Mglichkeiten zur je- weiligen Darstellung bietet der Men- punkt 'Optionen', z. B. berlagerung eines Rasters oder Einblenden einer Regressionsgerade. In der Index-Tabelle lassen sich die Werte aus der Werte-Tabelle als Indices darstellen und zwar bezogen auf den Wert '1' oder auch prozentual. Die entsprechende Wahl erfolgt im Menpunkt 'Optionen' durch ggf. Setzen von 'Index__%'. Default ist Bezug auf den Wert '1'. Die Bezugszelle fr den Bezugswert wird durch Anklicken in der Auswahlbox vorgewhlt. Die unbelegten Zellen der Werte-Tabelle werden jeweils grau dar- gestellt und sind nicht anwhlbar. Beendet wird dieser Job durch Anklicken der Box 'Abbruch'. Ist die Zahlenwert-Streuung sehr gro, z.B. 1,400,99999999,... , dann kann es vorkommen, da eine ordnungsgeme Dar- stellung des Indexwertes nicht mglich ist, da die max. darstellbare Zeichen- zahl berschritten wird.------------------------------------------ ... zur Seite 2noch Index Fr diesen Fall, der meist sowieso stat. unlogisch ist, ist das Programm ohnehin nicht konzipiert. Es wird durch eine Warnmeldung, die mehrfach autreten kann, auf diesen Sachverhalt hingewiesen. Statistik 1/2 Tabelle 1 zeigt ebenso wie Tabelle 2 einige wesentliche statistische Kenn- werte, natrlich nur unter der Vor-. aussetzung, da die Werte-Tabelle nicht leer ist. Auf Basis der Tabellenwerte lassen sich hierbei Schtzwerte durch ver- schiedene Regressionsverfahren ermit- teln. Es sind integriert die Modelle: - Lineare Regression - Exponentielle Regression - Logarithmische Regression - Potentielle RegressionBezugswert - Beste Nherung, durch Verwenden des Modells mit dem 'besten' Korrelations- koeffizienten der 4 Regressionsmodelle. Ergebnisausdruck in Form einer Hardcopy. Die Routine benutzt die GFA-Hardcopy- Funktion. Druckmglichkeiten: 960 oder 1280 Dots.Optionen 1(2) Mit diesem Menpunkt knnen diverse Dar- stellungen zustzlich beeinflut werden. 1.) Raster Damit wird verschiedenen Darstellungen ein linear geteiltes Raster berlagert. 2.) Regressionsgerade Bei bestimmten Darstellungen wird die Regressionsgerade ermittelt und einge- zeichnet. 3.) Bs invers Dient der Invertierung des Bildschirms. 4.) Index__% Die Werte der Index-Tabelle knnen als Dezimalwerte (5 Nachkommastellen) oder als Prozentangaben dargestellt werden. 5.) Default Default - Einstellung ist ein 9 - stel- liger Zahlenwert ohne Nachkommastellen. Das heit,der hchste darzustellende Wert = 999999999 .Optionen 2(2) 2.) Dezimal In der zugehrigen Dialogbox kann die Darstellung von 1 ... 7 Nachkomma- stellen durch Anklicken gewhlt werden. Unabhngig von der Darstellung werden die in die Tabelle eingegebenen Zahlen- werte natrlich mit allen Dezimalstellen (einfache Genauigkeit) gespeichert. Eine bereits 'gefllte' Tabelle kann mittels [ndern] ( zuvor unbedingt eine Grafik - Funktion aufrufen !!) in ihrer Zahlenwert - Darstellung ent- sprechend angepat werden. Achtung! Die Darstellung einer Zahl in der Werte- Tabelle erfolgt mit max. 9 Zeichen. Wird die Dezimaldarstellung unsinniger- weise so gendert, da Vorkommastellen + '.' + Nachkommastellen > 9 Zeichen, werden die Ziffern der hchsten Dezimal- stellen bei der Darstellung abgeschnit- ten.Division durch NullberlaufQuadratwurzel nur fr|positive ZahlenLogarithmen nur fr|Zahlen grer NullUnbekannter Fehler Speicher voll String zu lang|max. 32767 ZeichenFeld zweimal dimensioniertFeld nicht dimensioniertDim zu groBei Open nur erlaubt:|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFile schon geffnetFile # falschFile nicht geffnetFalsche Eingabe, keine ZahlFileende erreicht|EOFFeld mu eindimensional sein"Zu wenig Data#Data nicht numerisch%Diskette voll0Open "R" - Satzlnge falsch1Zu viele "R"-Files (max. 31)2Kein "R"-File4Fields grer als Satzlnge6GET/PUT Field-String|Lnge falsch7GET/PUT Satznummer falschMenu falsch?Reserve falsch@Pointer falschCASIN/ACOS falschEENDFUNC ohne RETURNPMatrizenoperationen nur fr|ein- oder zweidimensionale|FelderQMatrizen haben nicht die|gleiche OrdnungRVektorprodukt nicht definiertSMatrizenprodukt nicht definiertTScalarprodukt nicht definiertUTransposition nur fr|zweidimensionale MatrizenVMatrix nicht quadratischWTransposition nicht definiertXFACT/COMBIN/VARIAT|nicht definiertZFehler bei Local[Fehler bei For\Resume (next) nicht mglich|Fatal]Stapel-FehlerdGFA-BASIC Compiler 3.50 D| Copyright 1986-1989|GFA Systemtechnik GmbHf2 Bomben - Bus Errorg3 Bomben - Adress errorh4 Bomben - Illegal Instructioni5 Bomben - Divide by Zeroj6 Bomben - CHK-Exeptionk7 Bomben - TRAPV-Exeptionl8 Bomben - Privilege Violationm9 Bomben - Trace ExeptionAllgemeiner FehlerDrive not Ready|ZeitberschreitungUnbekannter BefehlCRC Fehler|Disk-Prfsumme falschBad Request|Ungltiger BefehlSeek Error|Spur nicht gefundenUnknown Media|Boot-Sector falschSektor nicht gefundenKein PapierSchreibfehlerLesefehlerAllgemeiner Fehler 12Diskette schreibgeschtztDiskette wurde gewechseltUnbekanntes GertBad Sektor (Verify)Andere Diskette einlegenUngltige FunktionsnummerDatei nicht gefundenPfadname nicht gefundenZu viele Dateien offenZugriff nicht mglichUngltiges HandleSpeicher vollUngltige SpeicherblockadresseUngltige LaufwerksbezeichnungKeine weiteren DateienGEMDOS-Bereichsfehler|Seek falsch?Interner GEMDOS-FehlerKein BinrprogrammSpeicherblockfehlerR &RD2>z8"      f    fX,BR"0  0 "0  0 `40000( pB6$:6*62(L  2"<vphh"6:<::^244d&,&.*22J*22h6$"v2l2$40H , D: <  pN ......4.....||: Z`0:*&p@v zB\>Z84("<0 `"dB@@0vDHX0h&V(((((((DP xhH,@H@H@H@HzD:4@H@H>Hz< * f`((@4""&Xb0~$8\r&z| $ ... TAPLO ... Ver- und Bearbeitung von eindimensionalen Datenmengen ==================================================================== TAPLO Version 1.7 ----------------- Neuerungen gegenber Version 1.5 -------------------------------- o Gestaltung (z. Teil) der Menleiste o Tabelle - sortieren auf- und absteigend - restaurieren o Grafik - Linie (Spline) o Rechnung -- Regression - linear - exponentiell - logarithmisch - potentiell - beste Nherung o Druck - Hardcopy 960 Dots - Hardcopy 1280 Dots o Programminterne Verbesserungen Gute Ergebnisse und viel Spa bei der Arbeit mit TAPLO Im April 1990 ... softpoint ... Helmut Phlmann Hugenottenstr. 11 D-8580 Bayreuth ---------------------------------------------------------------------------- --- T A P L O --- ---------------------------------------------------------------------------- TAPLO ... ist ein Hilfsmittel zur Auswertung von eindimensionalen Mereihen, stat. Erfassungen oder anderen Zahlenwerten die schnell analysiert werden sollen. Es soll damit ein Benutzerkreis angesprochen werden, der mit dieser Materie zu tun hat oder sich damit befassen will. Eine spezielle Anleitung ist zum momentanen Programmstand nicht vor- gesehen, da zum Einen eine Kurzanleitung im Programm integriert ist, zum Andern die Benutzung sich aus der berschaubaren Programmfhrung ergibt. Kommerzielle Nutzung des Programmes ist nicht erlaubt. Weitergabe hingegen ist erwnscht, jedoch nur in kompletter Form, d.h. mit allen zugehrigen Dateien, gestattet. Zu TAPLO gehren folgende Dateien: TAPLO(n_i).PRG TAPLO.DOC Ordner TP_RSC mit TP_TIT1.PIC TP_TIT2.PIC TP.RSC Haftung irgendwelcher Art ist natrlich ausgeschlossen. Wie bei vermutlich den meisten PUBLIC DOMAIN Programmen ist, bei Nutzung des Programmes, eine 'Aufwandsentschdigung' (nach eigenem Ermessen) beim u.g. Autor selbstverstndlich nicht unwillkommen. Ansonsten ... bleibt zu wnschen, da manches fachspezifische Problem mit TAPLO leichter und schneller gelst werden kann. ... softpoint ... Helmut Phlmann Hugenottenstr. 11 D-8580 Bayreuth