' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Š734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`rogramm wurde in MC 2/84 fuer einen Commodore-Rechnerveroeffentlicht. Es enthielt jedoch schwere Maengel programmtechnischer undmathematischer Natur, die vom oben genannten Autor beim Umstellen desProgramms auf einen Apple II beseitigt wurden.ehoerige f'(x)wahlweise auf Monitor oder Drucker aus.===================TECHNISCHE HINWEISE=================== -==========================ZUSAETZLICHE PROGRAMMFILES========================== Das OriginalpZEN ?============== Nach dem Start mit RUN ABLEITUNG koennen Sie optional noch einmalBedienungshinweise und die moeglichen Standardfunktionen auf dem Bildschirmerhalten. Anschliessend gibt das Programm nach Eingabe von f(x) das zug=========== Das Programm ist in der Lage, Funktionen in einer Variablen zudifferenzieren. Die abzuleitenden Funktionen koennen dabei aus Potenzen vonx und einem Satz von Standard-Funktionen aufgebaut sein.==============WIE BENUT : Gerd Neuber ** Veroeffentl.: 01.11.1984 ** ******* apple user group europe ******==============WAS MACHT ES ?===****** apple user group europe ******* ** Programm : ABLEITUNG ** Autor      HINWEISE=================== -==========================ZUSAETZLICHE PROGRAMMFILES========================== -chnen zu lassen.==============WIE BENUTZEN ?============== Nach dem Start mit RUN POLYNOM laeuft das Programm voll menuegesteuert ab.Bitte folgend Sie den Hinweisen auf dem Bildschirm. ===================TECHNISCHE =========== Das Programm is in der Lage, die reellen und komplexen Nullstellen vonquadratischen und kubischen Gleichungen zu berechnen. Ebenso ist es moeglich, ueber das Horner-Schema Funktionswerte vonPolynomen bis 50. Ordnung bere : Gerd Neuber ** Veroeffentl.: 01.11.1984 ** ******* apple user group europe ******==============WAS MACHT ES ?===****** apple user group europe ******* ** Programm : POLYNOM ** Autor     ==============ZUSAETZLICHE PROGRAMMFILES========================== -erechnet.===================TECHNISCHE HINWEISE=================== Das Programm halte ich fuer besonders kurz, die Rechengeschwindigkeit fuermehr als 6 Gleichungen sollte durch ein Compilieren erhoeht werden.============serfolgt die Eingabe wieviele Gleichungen vorliegen. Zeilenweise werden dann - einzeln mit abgetrennt - die Folge derKoeffizienten und der absoluten Gliedes abgefragt und eingegeben.Anschliessend wird die Loesung des Systemes bn,2)*X2+ ... +A(n,n)*Xn=Bn Fuer n<3 will der Computer das System nicht loesen, das kann man selbstschneller.==============WIE BENUTZEN ?============== Das Programm wird mit RUN LINEARES GLEICHUNGSSYSTEM gestartet und elineares Gleichungssystem von maximal 17 Gleichungenmit 17 Unbekannten. Die Normalform des Systemes n. Ordnung lautet: A(1,1)*X1+A(1,2)*X2+ ... +A(1,n)*Xn=B1 . . . A(n,1)*X1+A(* Veroeffentl.: 01.11.84 ** ******* apple user group europe ******==============WAS MACHT ES ?============== Das Programm loest ein ****** apple user group europe ******* ** Programm : LINEARES GL.-SYSTEM ** Autor : Andreas Bieck *NE BRUCHZAHL??":HBN17ĺ"DAS IST BEI 64 Kbyte MIR DOCH ZU HOCH !":sL"DAS SYSTEM IST NICHT TEILGUELTIG!": =================== LINEARES GL.-SYSTEM (C)-1984 BY ANDREAS BIECK AND A.U.G.E. ===================  " I(J)J110 JJ1% W S(2)A(2,1,1)A(2,2,2)A(2,2,1)A(2,1,2):230b P1N CA(N,P,L):A(N,P,L)A(0,0,P):A(0,0,P)C::  ::: N3ĺ"KANNST DU DAS NICHT SELBST RECHNEN ?":8N(N)ĺ"ANZAHL DER GLEICHUNGEN EI)1 S0 K1J1( KI(J)S1J A(J1,Z(J)1,K)A(J,Z(J),KS)P ` Z(J)J130m J3500w JJ1 100 S(J)(1)(I(J)1)A(J,1,I(J))S(J1)S(J) 2:"BERECHNUNG DER:" (N3J):I(J);". ";J;"-REIHIGEN DET. ";S(J);" A(0,1,L)S(J1)Q 0700! 2' <P >"DIE LOESUNG IHRES SYSTEMS LAUTET:"y @"=================================" B: DK1N F7)"X(";K;") = ";A(0,1,K) HK J ZJN dI(J)0:S(J)0 n sI(J)I(J)1 xZ(J)1 Z(J)Z(J1 + A(N,2)*X2 + ... + A(N,N)*XN":"= B(N)c ::"WIEVIEL GLEICHUNGEN";N:A(N,N,N),S(N),Z(N),I(N)p :J1N{ K1N "A(";J;"/";K;") = ";:A(N,J,K) ! ""B(";J;") = ";:A(0,0,J) # $:90 &QS(J1) (L1N *700 ,90 .H - PLATO LOESE IHNEN EIN GLEICHUNGS- SYSTEM DES TYP'S:"> m "A(1,1)*X1 + A(1,2)*X2 + ... + A(1,N)*XN"} "= B(1)": "A(2,1)*X2 + A(2,2)*X2 + ... + A(2,N)*XN" "= B(2)": "... ... ... ... ... ... ... ... ... ..." ) "A(N,1)*X 1000+ ***********************J *LINEARES GLEI.SYSTEM*i * NACH ANDREAS BIECK * ***********************  :"DER COMPUTER KENNT KEINEN GEIST;""ABER DER COMPUTER SETZT GEIST VORAUS!"8 "IC     HLEMANN =========================== HABEN."19:" UM DAS PROGRAMM ZU BENUTZEN, FOLGEN SIE":21:"BITTE EINFACH DEN ANWEISUNGEN AUF":23:"DEM BILDSCHIRM *"(8);:B$:::% =========================== A.U.G.E. DOCUMENTATION DUMP --------------------------- (C)-1983 BY FRANK POD":7:"'VOR-FORMATIERTE' TEXTFILES, DIE MIT":9:"DIESEM PROGRAMM AUF IHREM DRUCKER"11:"AUSGEGEBEN WERDEN KOENNEN.":13:" EIN AUSGABE AUF DEM BILDSCHIRM IST AUCH":15:"MOEGLICH, IGNORIERT ABER DIE TATSACHE,":17:"DASS SIE U.U. KEINE 80-Z. KARTE (B$M$)18:(8)" ?";:18l 216,0::A$"CLOSE":A$"PR#0":::"NOCH MEHR DUMPS ?"(8);:B$:B$"J"2t :U :" DIESES PROGRAMM HILFT IHNEN, DIE DOKU-":3:"MENTATIONSFILES ZU DEN PROGRAMMEN DIESER":5:"DISKETTE AUSZUDRUCKEN. DIESE FILES SIN11 16! A$"VERIFY"E$:17O ">>> FILE NICHT GEFUNDEN"(7)" "(7):11 216,0:::"BELIEBIGE TASTE, UM ZU STARTEN *"(8);:B$::A$"PR#"B:D$:A$"OPEN"E$:A$"READ"E$:21 B$:AB$((B$)32(B$(95))) " "B$;:EĭB$(13)ĺ(10);B$:E(B$"J")::11h :5:"HABEN SIE EINEN KLEINSCHRIFT-ADAPTER ?"(8);:B$:A(B$"N"):D$"":B0:E0 ::"BITTE FILE-NAMEN EINGEBEN:":"( 'CAT' FUER EINEN CATALOG )":"->";E$:(E$)2 E$"CAT"ė:A$"CATALOG":11 (E$,1)"A"ĺ(7);(7):P-STRING' EIN,":"FALLS IHR DRUCKER SO ETWAS BRAUCHT.":"->"::"( ERLAUBT, CTRL INVERS DARGESTELLT)":D$"":C3:10 C:B$:D(B$):D139 D32Ğ:(D64);::8 B$; D$D$B$:CC1:5 14::"BRAUCHEN SIE EXTRA-LINEFEEDS ?"(8);:&A$(4):M$:?j::10000:2:20)::15:"BRAUCHEN SIE INFORMATIONEN ?"(8);:B$:B$"J"ĺ:23:20:"BILDSCHIRM ODER AUSDRUCK (B/A) ?"(8);:B$:B$"B"10x A0::5:"SLOT DES DRUCKER-INTERFACES ->";C$:B(C$):::"GEBEN SIE DEN 'SETU    `         ʍ   ʍ      Bei allen auszugebenden Zeichen wird der ASCII-Code um $20 vermindert,falls er zuvor groesser als $E0 ist.==========================ZUSAETZLICHE PROGRAMMFILES========================== -R gestartet. Um ihn wiederabzuschalten, muss PR#0 oder Reset gegeben werden.===================TECHNISCHE HINWEISE=================== Die Routine belegt 27 Bytes ab der Adresse $030C und schaltet sich in dieCSW-Register ein.chtig, wenn Ihr Apple kein Lowercase Chipbesitzt und Sie Programme laufen lassen wollen, die z.B. auf einem Apple //eerstellt wurden.==============WIE BENUTZEN ?============== Der Kleinbuchstabenfilter wird mit RUN LC FILTE=========== Das Programm installiert eine kleine Maschinenspracherroutine, die dafuersorgt, dass etwaige von einem Programm erzeugte Kleinbuchstaben vor derAusgabe in Grossbuchstaben umgewandelt werden. Dies ist insbesondere dann wi : Frank Pohlemann ** Veroeffentl.: 01.11.84 ** ******* apple user group europe ******==============WAS MACHT ES ?===****** apple user group europe ******* ** Programm : LC FILTER ** Autor    퍍   `    ʍ   ʍ     r veroeffentlicht. Der oben genannte Autor schrieb das Programmfuer einen Apple II um und beseitgte dabei eine Reihe von grundsaetzlichenFehlern im Algorithmus.  `    퍍       ʍ  ʍ      name Name der Funktion xxx Anzahl der Eingabewerte.==========================ZUSAETZLICHE PROGRAMMFILES========================== Das Originalprogramm wurde ohne Copyrightvermerk in MC 1/84 fuer einen TRS80 RechneFKT-WERTE enthaelt die Eingabewerte name.xxx/KOEFF enthaelt die Koeffizienten der Forierreihe name.xxx/FOU-WERTE enthaelt 192 Fourierreihenwerte fuer den Plot auf dem Monitor Dabei bedeuten E HINWEISE=================== Die Routinen zur Druckeransteuerung sind fuer einen NEC 8023B-C Druckergeschrieben. Die Datenfiles, die das Programm anlegt oder laedt, haben folgendermassenaufgebaute Filenamen: name.xxx/espeichert werden.==============WIE BENUTZEN ?============== Nach dem Start mit RUN POLYNOM laeuft das Programm voll menuegesteuert ab.Bitte folgend Sie den Hinweisen auf dem Bildschirm. ===================TECHNISCH=========== Das Programm berechnet und zeichnet nach Eingabe von einer Reihe von WertenFi die zugehoerige Fourierreihe. Funktionswerte, Fourierkoeffizienten und die Werte fuer den Plot koennenzwecks spaeterem schnellen Aufruf auf Disk g : Gerd Neuber ** Veroeffentl.: 01.11.1984 ** ******* apple user group europe ******==============WAS MACHT ES ?===****** apple user group europe ******* ** Programm : FOURIER ** Autor         `    ō  ōō ҍ΍΍       ʍ eʍ   ===================TECHNISCHE HINWEISE=================== -==========================ZUSAETZLICHE PROGRAMMFILES========================== -en die Naeherung fuer die Funktion F im Intervall a,b.==============WIE BENUTZEN ?============== Nach dem Start mit RUN SPLINE laeuft das Programm voll menuegesteuert ab.Bitte folgend Sie den Hinweisen auf dem Bildschirm. durch gewisse Vorteile aus. Als Splines werden dabei diejenigen (kubischen) Abschnittspolynomedefiniert, die in den Intervallen Xi,Xi+1 definiert und stetigdifferenzierbar sind. Da alle Splines aneinander anschliessen, bilden siezusamm=========== Das Programm berechnet und zeichnet ein Interpolationspolynom, das durchvorher eingegebene Punkte (Xi,f(Xi)) laeuft. Diese Funktion besitztGueltigkeit im Intervall a,b und zeichnet sich gegenueber anderenNaeherungsfunktionendas bei Ihnen nicht der Fall sein,dann benutzen Sie bitte das LC FILTER Programm, das sich ebenfalls aufdieser Diskette befindet. So kommen Sie dann auch auf Ihre Kosten.Software-Ausschuss der AUGEes auch im Interesseder Autoren sein sollte, wurde diese Diskette nach ca. 5 MonatenProgrammflaute nun doch noch herausgegeben. Einige Programme auf dieser Diskette setzen einen Computer voraus, derKleinbuchstaben erzeugen kann. Sollte neue Diskette, AUGE 27. Thematik ist diesmalMathematik und mit den Programmen (Programmpaketen) auf dieser Diskettesollte eigentlich ein interessantes, breites Spektrum abgedeckt sein. Die Diskette hat noch etliche freie Sektoren, aber da Vorwort zur AUGE 27--------------------- Hiermit mal wieder eine  : Gerd Neuber ** Veroeffentl.: 01.11.1984 ** ******* apple user group europe ******==============WAS MACHT ES ?===****** apple user group europe ******* ** Programm : SPLINE ** Autor            ŭŭŭŭ   ŭŭ        ŭŭ   ɭŰŠӍΠàҠңŠō堤à׭笠®堯ŠΠ堪ꍍӠԠӠ嬠ꍪ堪àҠ򠠠쮺     2:55,3:1002i F141,38,3,24,233,224,16,6,173,38,3,76,240,253,173,38,3,72,132,53,56,233,32,76,249,253,0 ================ LOWERCASE FILTER (C)-1984 BY FRANK POHLEMANN AND A.U.G.E. ================   :@:" LOWERCASE FILTER":" ------------------"::"KLEINBUCHSTABEN WERDEN VOR DER"::"AUSGABE IN GROSSBUCHSTABEN UMGEWANDELT,"::"UND ZWAR";(A$"AB JETZT. ":I30101:I:A$;:J115:J,I:2I78078026:J:I,J:I <54,1ɠ槨󮍍ŠōŠӍàŠΠΠǠ堪ꍍӠԠӠ嬠ꍪ堪Ǡ򠠠򠠠쮺ŠōŠӍƠ⮍ŠΠΠŠ⮠󮍍髱䮠堪ꍍӠԠӠ堨驩ꍪ堪Š򠠠򠠠쮺    ŠōŠӍ󠵰ŠΠΠ͠⮠堪ꍍӠԠӠ嬠謠ꍪ堪͠򠠠򠠠쮺ɠ宍ŠӍàӠ占Ơ占խŠ占򍍠堠Šōà­àԭŠŠΠΠ͠⮠堪ꍍӠԠӠ宍嬠ꍪ堪Ҡ򠠠򠠠쮺  F2$FV$1 (F2$,1)")"F2$(F2$,(F2$)1)B F2$F2$"-1"V F2$"("F2$")"\ (FS$(0),I,4)"^(1)"FS$(0)(FS$(0),I1)(FS$(0),I4)<BTXF2$((FV$))fbF2$"0"7060l(F2$,1)" "F2$(F2$,2):7020vF2$FV$F2$((F2$)1):7040{7060(F2$,1)" "F2$(F2$,2):7040(F2$,1)"-"ī70907100"arcoth(x)"::1:"ln(x)":"Falls eingegebenes f(x) nicht aus Poten-":"zen von x und/oder den o.a. f(x) zu-"::"sammengesetzt ist,treten Fehler auf."13:24::"TASTE DRUECKEN";::" ";:A$::pFS$(0)FS$(0)" "zI1(FS$(0))466:"sinh(x)"::1:"cosh(x)";:13:"exp(x)";:26:"sqr(x)"::1:"tan(x)";:13:"cot(x)";:26:"tanh(x)"::1:"coth(x)";:13:"arcsin(x)";:26:"arcos(x)":1:"arctan(x)";:13:"arccot(x)";:26:"arsinh(x)"::1:"arcosh(x)";:13:"artanh(x)";:26:(x) einfuegen."::"-Nicht mehr als 255 Zeichen eingeben."::"-Bei Eingabefehler automatisch Neustart.":"-Das Programm 'kennt' folgende Funk-34,0:"tionen:"13:24::"TASTE DRUECKEN";::" ";:A$:4:1:"sin(x)";:13:"cos(x)";:2z#?~Ǡ̠Ӡ̮̠͠ àҠ̠ Р      ԠΠ̠ Ҡ̠ ̠͠ Š̠ !ǠӠ͠àҠ ˮƠ ˮխŠ ˮԭŠ͠5 Š  Ҡ,ˮƠˮխŠ ˮԭŠ ήƠ ήխŠ ήԭŠ ǠԠ  ǠĠǠ٠ǠڠЮΠ ŠԠ  ǠՠǠ  ǠŠǠР ǠϠǠ֠Ǡ٠ Š    ԠΠԠĠǠ ǠԠ m ` 18)`8`HHH n  V H$hb V W X Y m [ l \ ] S ^ T _  ' hhh`HHV ' b i-c ihh`HH$Hȱhhh` LHHHHHHV W L m m  뭒 L   m   (m , r0+p  LJ  LJ -  ȱ  LJ ȱ  LJ s tL m JJJJl ȱm n   ,L, L%" n  :, " +, S l L\DЪ m L\        s t   ަL !8 HȑnhmȑstLS g ^ m  ` ^LLg L@A8m  @0 /@   q@8 @8e@@AiAP`L2Ġ JJJJHȱH ȩȩȩȑhhȩȩȑ /"& &  "  gLS) LSȩȩȩ ȩȩȩ gȭM2866,18:M2867,5:D vM2868,14:M2869,9:M2870,5:M2871,18:U vM1369,160:f vM1376,170:l x;1441,AE:2 vM1341,234:M1342,234:M1343,234:Z vM1324,14:M1325,189:M1326,172: vM2852,212:M2853,201:M2854,193:M2855,194:M2856,211:M2857,18:M2858,5:M2859,14: vM2860,11:M2861,3:M2862,29:M2863,18:M2864,2:M2865,32:84 BY REINER BRUECKNER AND A.U.G.E. ================== M1398,32:M1399,237:M1400,253: uM1403,32:M1404,237:M1405,253: uM1416,32:M1417,66:M1418,AE: uM1421,32:M1422,237:M1423,253: vM1428,29: vM1439,32:M1440,47:MBOOT":520:ADRS(0),"HRCG":ADRS0ADRSADRS65536 xCSADRS768A:CS:CH(CS256):CLCS256CH:ADRS7,CL:ADRS8,CH:(4);"BLOAD REG SET *,A";CS(I1)768:ADRS:1:"": (4)"RUN REG MENU *"8 ================== REGRESSIONSANALYSE (C)-199d::1012,0e10:8::" ":D1119:D:8:" ":D:31:" ":D:20:8:" ":i12:10:"R E G R E S S I O N":14:15:"VERSION 3.0":17:12:"(";::"C";::") R. BRUECKNER"4 nADRS0:(4);"BLOAD R   0 <I2311:I:1:A$(I):/ FI13000:F P::(4)"CATALOG" =============== TITLE (C)-1984 BY FRANK POHLEMANN AND A.U.G.E. ===============  A$(24) :>:I123:40);::39);:2039,32:}I124:A$(I)" ":(A$(10)" AUGE 27 ":A$(12)" MATHEMATIK " 224:1:39);:2039,16 !-3>">""w"""""""""""?"  "??""r""w"">""w>**>c  g"?c6**""w#&*2""w"""""""!!!)."""w1 #Iw"""""w""""c""**6"c""cw"">""> "$$$< (#21*>*>> "2*&" >" ">"  ">" """">"""""""< "00>> " &<]gjnA 'FNVry);@CQZ`cfiknAq%svz} !A%u)A-:=h ,5>BFIKMOQSUY[]_acegikmoqsuwy{} <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$$! $%%#,fp% "Lp"% $`"H Β*+)hi#"H Β!*0+i+idH#d hd`"%$$%H hi#`$% Βc,d*+Me,dPMc*!0 +i+`%J) b+je *`PPPP򠥹,r0tL"$!e (' !!%##`f`" e$$ ",r0st(!#L"L $b . % `L a,gPgA[8 & & &mh)mi ̒e$*+Me$(Mc,dp ,cpP!pA* +i+Mebrs"t`,Tb@0,U`* L" {LB$!$$"% %L"c`g`g`,,Lҩc`@a`de` qLXde`s$t%L$td`e`g`f`Yd`e`L$e (' 8!$!$%"{LȎ !%# "LȎ5 )5`)aW L| JHIHa`G~ҏ#+@HPXs{ɐG֐G+R$a`1  emhi` b` ,r0rbj$s%t`@b`s$$hLde`,rSjd LL LHLH C `u8967 ,R,W U ,P`ɭӠҠΠΠ Р̺((*)  b+*HN OI*P,h*,H,`0ɛ` ɍ $h`ɐ 6+` qLȎ LȎ      X Y Z [ \ ] hhh`HH ' hh^ `HHHV  V ` Lhhh`,n àϠȥ𬠄𠠠ŠϠÊәĠ̠DT$:D$;"WRITE";H$;"DATENPAARE "DT$:N_I1N:X(I):Y(I):I:D$;"CLOSE"H$"DATENPAARE "DT$:j800:r  INPUT MIT GET H(36)1:V(37)1:L$"":L256HA$:A$(13)(L$)1ıA$(13)āK1(R$):" ";::H:GC(0):0W40WNİ700:S1:820:DUDU1' @W/ | C  ABSPEICHERNK  800:8:3:" Name der Datei : ";DT$:279,0279,159:D$(4):(DT$)0410&H$"":D$;"OPEN";H$;"DATENPAARE "DT$:D$;"DELETE";H$;"DATENPAARE "DT$:D$;"OPEN";H$;"DATENPAARE ":A$:A$:800:A$"N"410* A$"J"270^ "3:5:D1$:22,12220,12220,2622,2622,12:S0w ,W1N:SS1:6S:5 -W9303 ."X( ";W;")=";X(W):6S:22:"Y( ";W;")=";Y(W):310 /"X(";W;")=";X(W):6S:22:"Y(";W;")=";Y(W) 6W10W20W3";:14:11:480:(L$)0NN1:260j X(N)(L$):14:22:"Y(";N;")= ";:14:28:480:Y(N)(L$){ (L$)0200 180 DATENKONTROLLE 800:8:8:D1$"D a t e n k o n t r o l l e ":D1$ 10:15:"< J / N >";ARE "DT$:800 z + EINGABE2 y 3:8:"E i n g a b e der Werte":30,12230,12230,2630,2630,12 7:11:" fuer das":8:12:"Ende der Eingabe":65,42200,42200,6865,6865,42 NN1# 14:5:"X(";N;")= :900:(4);"RUN REG MENU *"$ P 9 Z DATENEINLADENA d n800:7:3:" NAME DER DATEI : ";DT$:(DT$)122:279,0279,159:H$"":D$(4):D$"OPEN"H$"DATENPAARE "DT$ xD$;"READ"H$"DATENPAARE "DT$:N:I1N:X(I):Y(I):I:D$"CLOSE"H$"DATENPA  X(100),Y(100)4:10:"Dateneingabe":9:9:"<1> Daten neu":11:9:"<2> Daten ergaenzen":13:9:"<3> Daten aendern":15:9:"<4> Menu"18:7:"-->":18:11:"<--":18:10(A$:A(A$):A1A4402800<A160,620,660,70 F800   ANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ================== EG MULT *" R$"REG EVOL *"7 750:R$"REG END *"_ 0:20,5259,5259,2020,2020,5:3 D218:D:3:" ":: 3:A,AB,AB,CD,CD,A: L0:A,AB,AB,CD,CD,A:F ================== REGRESSIONS"420( 6A$"Z"İ750:R$"P.FUNKTIONEN"I @A$"D"İ750:R$"REG DATA *"b JA(A$):A1A6300k M750 TA350,360,370,380,390,400,410,420 ^R$"REG LINE *" hR$"REG EXP *" rR$"REG GEO *" |R$"REG INV *" R$"REG POLY *" R$"R6:"<1> Lineare Regression":10:6:"<2> Exponentielle Regression":11:6:"<3> Geometrische Regression":12:6:"<4> Inverse Regression" "14:6:"<5> Polynomregression":15:6:"<6> Multiple Lineare Regression" ,18:6:"< >":18:7:A$:A$:A$"XG!:255::D$(4):R$D$"RUN"'EA0:B279:C159:D0:1000g20,5259,5259,2020,2020,5sP$(11)2:5:"R e g r e s s i o n s - m e n u":5:6:" Daten eingeben":6:6:" Kurve zeichnen":7:6:" Programm verlassen" 9:    &"&""` ,2"2l"><,22, &""w  0 "2 # ***+&""#"""&&l22, `&< g""2lg""c***6ccg""< >$> A$"J"150 :D12; D:4:"X=";X$:X(X$):X$""220h D:20:"Y=";ABX:DD1:D17D12:180q 180 :(7);(7);(7);"ERROR - FALSCHER DATEINAME":D$"DELETE"H$"DATENPAARE "DT$:D12000::: :(4)"RUN REG MENU *" 0:20,5259,25)"":p B(NR2SYSX)(NS1SX2):A(SYS1SXR2)(NS1SX2):J100(R2SYSXN)((S1SX2N)(S2SY2N)) 6:8:"Y= ";A" * ";B" ^ X":8:8:"Genauigkeit= ";J;" %" 10:8:"Einzelwerte ?";:A$:A$"N"220 10:8:" " paare:";:"";DT$:(DT$)220:D$"OPEN"H$"DATENPAARE "DT$:D$"READ"H$"DATENPAARE "DT$:210 xN:D1N:X(D),Y(D)::D$"CLOSE"H$"DATENPAARE "DT$:216,0::2000:D1N:XX(D):Y(Y(D)):SXSXX:SYSYY:S1S1X2:S2S2Y2:R2R2XY: }D518:D:2:""fcA1(44514):A2(44515)dX(100),Y(100):800:3:8:"Exponentielle Regeression":"":34,5:32,1:33,37:34,4:35,19:44514,48:44515,65:D$(4):44611,1:D$"CATALOG":e44514,A1:44515,A2i35,12240,12240,2635,2635,12[ n17:7:"Daten20,5:3F *D218:D:2:" "::h 4D518:D:3:"";30);"":: 0,0279,0279,1590,1590,0: ================== REGRESSIONSANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ================== 2 :D120 D:4:"X=";X$:X(X$):X$""220] D:20:"Y=";ABX:DD1:D17D12:180f 180 :(7);(7);(7);"ERROR - FALSCHER DATEINAME":D$"DELETE DATENPAARE "DT$:D12000::: :(4)"RUN REG MENU *" 0:20,5259,5259,2020,20B(NR2SYSX)(NS1SX2):A(SYS1SXR2)(NS1SX2):J100(R2SYSXN)((S1SX2N)(S2SY2N)) 6:8:"Y= ";A" + ";B" * X":8:8:"Genauigkeit= ";J;" %" 10:8:"Einzelwerte ?";:A$:A$"N"220 10:8:" " A$"J"150aare:";:"";DT$:(DT$)220:D$"OPEN"H$"DATENPAARE "DT$:D$"READ"H$"DATENPAARE "DT$:210 xN:D1N:X(D),Y(D)::D$"CLOSE"H$"DATENPAARE "DT$:216,0:D1N:XX(D):YY(D):SXSXX:SYSYY:S1S1X2:S2S2Y2:R2R2XY: }D518:D:2:""25)"":e cA1(44514):A2(44515)dX(100),Y(100):800:3:8:"Lineare Regeression":"":34,5:32,1:33,37:34,4:35,19:44514,48:44515,65:D$(4):44611,1:D$"CATALOG":::e44514,A1:44515,A2i35,12200,12200,2635,2635,12Z n17:7:"Datenp D:2:" "::R4D518:D:3:"";30);""::u0,0279,0279,1590,1590,0: ================== REGRESSIONSANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ================== P6)(L$):DU0:S0:P:2:" ":290.710UA$(21)PP1:P17ĢP:2:A2$:sP1:P1:A2$:P:P1:A1$DU10P6NıA$(8)PP1:P7P7: P1:P1:A2$:P:P1:A1$710 0:20,5259,5259,2020,2020,5:30*D218:12190,2635,2635,1243:8:"Aendern der Daten"=300jA1$"-->":A2$" ":P7:P12:P:P1:A1$P:P19:A$:A$(21)A$(8)740%A$(13)ĢP:P19:" ":P:P19:480:X(DU10P6)(L$):P:P126:" ":P:P126:480:Y(DU10$(57)A$"":HH1-NA$(47)A$"":HH1]X(L$)L8ĺ(7);:(L$)(A$Lĺ(7);:490bA$;:HH1:V:H:L$L$A$:R$(R$,2):490l:110v35,12190,12190,2635,2635,123:8:"Ergaenzen der Daten"170:11035,12190,?A$(8)R$"X"(L$,1)R$:L$""HH1:L$(L$,1,(L$)1)gA$(21)R$""HH1:L$L$(R$,1)A$(24)HH(L$):R$"X"L$R$:L$""A$(3)HH(R$):L$L$R$:R$""&A$"E"6000A$(11)A$(91):A$(45)A$"":HH1DA========= REGRESSIONSANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ================== =20,2020,5:3K *D218:D:2:" "::m 4D518:D:3:"";30);"":: 0,0279,0279,1590,1590,0: 2200  800 15:"REGRESSION UNGEEIGNET":D13000::D$"RUN REG MENU *"[ ========="150 :D125 D:4:"X=";X$:X(X$):X$""220b D:20:"Y=";ABX:DD1:D17D12:180k 180 :(7);(7);(7);"ERROR - FALSCHER DATEINAME":D$"DELETE DATENPAARE "DT$:D12000::: :(4)"RUN REG MENU *" 0:20,5259,5259,20j B(NR2SYSX)(NS1SX2):A(SYS1SXR2)(NS1SX2):J100(R2SYSXN)((S1SX2N)(S2SY2N)) 6:8:"Y= ";A" + ";B" / X":8:8:"Genauigkeit= ";J;" %" 10:8:"Einzelwerte ?";:A$:A$"N"220 10:8:" " A$"Je:";:"";DT$:(DT$)220:D$"OPEN"H$"DATENPAARE "DT$:D$"READ"H$"DATENPAARE "DT$:210 xN:D1N:X(D),Y(D)::D$"CLOSE"H$"DATENPAARE "DT$:216,0:2000:D1N:X1X(D):YY(D):SXSXX:SYSYY:S1S1X2:S2S2Y2:R2R2XY: }D518:D:2:""25)"":\cA1(44514):A2(44515)dX(100),Y(100):800:3:8:"Inverse Regeression":"":34,5:32,1:33,37:34,4:35,19:44514,48:44515,65:D$(4):44611,1:D$"CATALOG"::e44514,A1:44515,A2i35,12230,12230,2635,2635,12W n17:7:"Datenpaar================ REGRESSIONSANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ================== 259,2020,2020,5:3R *D218:D:2:" "::t 4D518:D:3:"";30);"":: 0,0279,0279,1590,1590,0: 2200  800 15:"REGRESSION UNGEEIGNET":D13000::D$"RUN REG MENU *"b ==A$"J"150 :D12< D:4:"X=";X$:X(X$):X$""220i D:20:"Y=";ABX:DD1:D17D12:180r 180 :(7);(7);(7);"ERROR - FALSCHER DATEINAME":D$"DELETE DATENPAARE "DT$:D12000::: :(4)"RUN REG MENU *" 0:20,5259,5""25)"":s B(NR2SYSX)(NS1SX2):A(SYS1SXR2)(NS1SX2):J100(R2SYSXN)((S1SX2N)(S2SY2N)) 6:8:"Y= ";A" * X ^ ";B:8:8:"Genauigkeit= ";J;" %" 10:8:"Einzelwerte ?";:A$:A$"N"220 10:8:" " npaare:";:"";DT$:(DT$)220:D$"OPEN"H$"DATENPAARE "DT$:D$"READ"H$"DATENPAARE "DT$:210 xN:D1N:X(D),Y(D)::D$"CLOSE"H$"DATENPAARE "DT$:216,0:2000:D1N:X(X(D)):Y(Y(D)):SXSXX:SYSYY:S1S1X2:S2S2Y2:R2R2XY: }D518:D:2:ccA1(44514):A2(44515)dX(100),Y(100):800:3:8:"Geometrische Regeression":"":34,5:32,1:33,37:34,4:35,19:44514,48:44515,65:D$(4):44611,1:D$"CATALOG"::e44514,A1:44515,A2i35,12240,12240,2635,2635,12\ n17:7:"Date    ================== REGRESSIONSANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ================== I5259,2020,2020,5:3T *D218:D:2:" "::v 4D518:D:3:"";30);"":: 0,0279,0279,1590,1590,0: 2200  800 15:"REGRESSION UNGEEIGNET":D13000::D$"RUN REG MENU *"d :9:1:"";37);"":J:K1V1:L1V2 PE(K,L)E(K,L)Z(K)Z(L):S(K)E(K,V2):L:K:S(V2)S(V2)Z(V2)2:I:I2V1:T(I)E(1,I):I:I1V1:JIV1:E(J,I)0100 ZI:9:1:" KEINE EINDEUTIGE LOESUNG ":A$:30F dK1V2:BE(I,K):E(I,K)E(J,K;33);"":6:6:"Anzahl an Datenpaaren : ";N:f 26:"";30);"":6:6:N;" Datenpaare":Z(1)1:I1N <9:3:" Abhaengige Variable Y(";I;")= ";:200:Z(V2)(L$):9:2:"";30);""' FJ1V:9:" Unabhaenige Variable A(";J;")= ";:200:Z(J1)(L$)% Z(20),S(20),E(20,20),T(20):35A:(4)"RUN REG MENU *"~#32,1:33,37:34,4:35,19::0,0279,0279,1590,1590,0$3:5:"Multiple lineare Regression"&15,12240,12240,2615,2615,12- (6:2:" Anzahl an unabh. Variablen:";V:6:""    D518:D:3:"";30);""::C0,0279,0279,1590,1590,0: ================== REGRESSIONSANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ================== R(K):INII1:875spK:V(N)R(N)E(N,N):IN111:Q0:JI1N:QQE(I,J)V(J):V(I)(R(I)Q)E(I,I):J:I:35,12200,12200,2635,2635,120:20,5259,5259,2020,2020,5:3D618:D:2:" ":: )R(1)E(1,1):&MK1N1:IK1:LKCR(E(I,K))(E(L,K))LIWWINII1:850d\LK870aJKN:QE(K,J):E(K,J)E(L,J):E(L,J)Q:J:QR(K):R(K)R(L):R(L)QfIK1kQE(I,K)E(K,K):E(I,K)0:JK1N:E(I,J)E(I,J)QE(K,J):J:R(I)R(I)Q9203408:2:"E i n z e l b e s t i m m u n g"B=0,0250,0>15:2:" ":15:2:" X=";X$:XV(X$):(X$)0350A0,050,0CYV0:K1N:YVYVV(K)XV(K1):K:15:20:" ":15:20:" Y =";YV:829HN1V(1  J1D11*!H1:(V(J))1E6V(J)03"VJH#J5H20:VJ5c$H:"A(";J1;")=";V(J)j%J&279,0279,159:A$:""'D1019:D:1:320:*15:" Wuenschen Sie Einzelwerte ?";:A$:"":279,0279,159:A$"N"350/A$"J"81030:K1N:QQV(K)X(J)(K1):K:OO(Y(J)Q)2:GG(Y(J)M)2:J] 13:320:G0O100:785p O100(1OG) OO1000:O(O):OO1000 8:2:"Reicht die Genauigkeit":9:2:"von ";O;" % aus ?";:A$:"" A$"N"735 A$"J"785 V10NP:A(J)A(J)X(K)J:K:J:A(0)NP:R(1)0:J1NP:R(1)R(1)Y(J):J:N1760 J2N:R(J)0:K1NP:R(J)R(J)Y(K)X(K)(J1):K:J 0,0279,0 J1N:K1N:E(J,K)A(JK2):K:J:840:  @ Q0:J1NP:QQY(J):J:MQNP:O0:G0:J1NP:Q920! 5:" "( 1W 6:" Grad des Polynoms (2";:PG2ĺ") :";p PG2ĺ"-";PG;") :"; 279,0279,159 D1$:D1$ D1$(13)735 D1(D1$):D12D1PG735 0,0279,0 1K D22D1:ND11:J1D2:A(J)0:K1ARE "DT$:310d N:D1N:X(D),Y(D)::(4)"CLOSE"H$" DATENPAARE "DT$:216,0:44514,A1:44515,A2w 279,0279,159 NPN PG(N2)1:PG9PG9 N3İ920:10:2:"KEINE POLYNOMREGRESSION MOEGLICH":(4)"RUN REG MENU *" 0,0279,0 l y n o m r e g r e s s i o n":32,1:33,39:34,4:35,19:A1(44514):A2(44515) 44514,48:44515,65:44611,1:(4)"CATALOG":::7:"DATENPAARE:";DT$:H$"":(DT$)1ĺ(4)"RUN REG MENU *": :(4)"OPEN "H$"DATENPAARE ";DT$:(4)"READ "H$"DATENPA /X(100),Y(100),E(18,18),R(18),V(18),A(18)8,7146920:D13:(7);:::(4)"DELETE"H$"DATENPAARE "DT$:10:"FALSCHER DATEINAME!!":D15000:::@"";37);"":^:(4)"RUN REG MENU *"9,12255,12255,269,269,12Q :3:3:"P o     ~ 4:2:"Diese Option ist noch nicht vorhanden":6:2:"Sie erscheint auf einer der naechsten":8:12:"Vereinsdisketten"12:2:"Bitte druecken Sie eine Taste ...";TA$::(4)"RUN REG MENU *"ȩ HH0HH@@ HH 66 99 @@`HH@PP PP@VV VV HH PP ```ll VV0``VV `` HH `` HH`99@@@ @@@HH HH LL HH @@`HH HH0HH@@ HH 66 99 @@@HH ++@00 00@66 99 @@ 99`66 ( HH0HH@@ HH 66 99 @@`HH@PP PP@VV VV `` ll ```VV HH0HH@@ HH 66 99 @@`HH@PP PP@VV VV HH PP ```ll VV0``VV `` HH `` HH`99@@@ @@@HH HH LL HH @@`HH HH0HH@@ HH 66 99 @@@HH ++@00 00@66 99 @@ 99`66 HH0HH@@ HH 66 99 @@`HH@PP PP@VV VV `` ll ```VV HHHȱ ȱi hhhIȱ` - J| -Jhhh,00,0N,0I@$NPp 0 00O P,0HHHL(IpP L9LA$(13)A$"J":50 -401 2A$"J"ĺD$"PR#6"Q <A$"N"ĺD$"RUN REG MENU *" ================== REGRESSIONSANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ==================  D$(13)(4)2 D$"BLOAD REG PLAY *,A768"S D$"BLOAD REG PLAZ *,A24576"d 30,0:31,96m768w32,210:" Bitte legen Sie eine andere Diskette"::"in Laufwerk 1 ein."(14:10:"Fertig J/N J";(8);:A$::A$"J"A$"N"50 ) $(47)A$"":HH1C@(L$)L8ĺ(7);:(L$)(A$Lĺ(7);:210rJA$;:HH1:V1:H:L$L$A$:R$(R$,2):210B619:B:2:"";33);"":: ================== REGRESSIONSANALYSE (C)-1984 BY REINER BRUECKNER AND A.U.G.E. ================== R$:L$""HH1:L$(L$,1,(L$)1)KA$(21)R$""HH1:L$L$(R$,1)vA$(24)HH(L$):R$"X"L$R$:L$""A$(3)HH(R$):L$L$R$:R$""A$(11)A$(91)A$(45)320"A$(46)A$"":HH1,A$(57)A$"":HH16A500:J1V:7:6:" Unabhaengige Variable A(";J;")=";:200:M(L$):PPE(J1,V2)M:Js 11:8:"Y = ";P:160 H(36)1:V1(37)1:L$"":L256H A$:A$(13)(L$)1ı A$(13)āK1(R$):" ";::H:GC(0):#A$(8)R$"X"(L$,1)2)(S(I)T(I)S(1)N):I RS(V2)S(1)2N:ZRP:LNV1:IPR:II100000:I(I):II1000:15:1:"Genauigkeit=";I;" %":L0160 16:" Standardabweichung=";((ZL)): 18:2:"Einzelbestimmung ";:A$:A$"N"30 A$"J"160X PE(1,V2):):E(J,K)B:K:F1E(I,I):K1V2:E(I,K)FE(I,K):K:J1V1:JI120w nFE(J,I):K1V2:E(J,K)E(J,K)FE(I,K):K xJ:I:6:10:"E r g e b n i s ":I1V1:13:2:"";35);"" 7I:" A(";I1;")=";E(I,V2):I:P0:I2V1:PPE(I,VӠŠӠԠΧԧħǧǠԠ讠ŠŠ򠍠묠ʩΩ򠍠򠍠䠹򠍠󠨲宠堍򠰠蠰젍堍蠍󠭭堍䠼䠳䠫Š讠򠍠堍ľ報墠ھ堠笠ΠԠΠ󠍠堍ώ堍ŠΠ򠠠쮺堪ӠԠӠ堪堠򠠠     (I)S(L)!LL2N1:LMLLM:KK2N1:KMKKMA"IQ,LN1:KPN1^6I1P2@A2A2SS(I)S(K):B1B1DD(I)S(L)JLL2N1:LMLLMTKK2N1:KMKKM^IhA(N1)(A1A2)N:A(NN1)(A1A2)N rB(N1)(B1B2)N:B(NN1)ЭLMLLM: erzeugt mod 2*NHKK2N1:KMKKM: erzeugt mod 2*NOIuA(N1)(A1A2)N:A(NN1)(A1A2)NB(N1)(B1B2)N:B(NN1)(B1B2)NN1N12P2A10:A20:B10:B20L0:KPI0P2A1A1SS(I)S(K):B2B2DDA10:A20:B10:B20FL0:KP,PI0P2RZA1A1DS(I)S(K):B2B2SD(I)S(L)}dLL2N1:LMLLM: erzeugt mod 2*NnKK2N1:KMKKM: erzeugt mod 2*NxILN1:KPN1I1P2A2A2DS(I)S(K):B1B1SD(I)S(L)LL2N1:)2:D(P)D(P)2I0PFSS(I)S1(I)S1(NI):DS(I)S1(I)S1(NI)nSD(I)D(I)D(NI):DD(I)D(I)D(NI)uIA10:A20I0P2A1A1SS(I)I I1P2A2A2SS(I)I(A(0)(A1A2)M:A(N)(A1A2)M2N11P2<İ1120:$]IN$"W"FLAG3:1745:4^(7):1112H`DX3.14159265NSjI0PtS(I)(IDX):S(NI)S(I):S(NI)S(I):S(MI)S(NI)~IY(0)Y(0)2:Y(M)Y(0):Y(N)Y(N)2I0NS1(I)Y(I)Y(MI):D(I)Y(I)Y(MI)IS1(P)S1(P15:1:"Welches ? ";:IN$6 YIN$"D"ė:6240:1665:K ZIN$"A"İ1665: [IN$"B"FLAG1Ė1:17:"Berechnung der Koeffizienten ohne"::"Eingabe von F(X)-Werten nicht moeglich."::"Druecken sie eine beliebige Taste.";:IN$:FLAG0:1000\IN$"B"(7):1070 8PN2:M2N( BI0M1P L"Y(";I;") = ";:"";Y(I):YM(I)Y(I)W QI] V W5:1:"Fourierkoeffizienten :":7:1:"(D)isketteneingabe":9:1:"(A)ktuelle Werte":11:1:"(B)erechnung der Fourierkoeffizienten":13:1:"(W)eiter" X 11:"Eingabe der F(X) von (D)iskette":13:"oder (T)astatur oder (W)eiter ";Y IN$r IN$"D"İ6160:1110 IN$"W"FLAG1:1110 $IN$"T"ĺ(7):1035 .15:40):15:1:"Halbe Anzahl der Werte (0 beliebige Taste !"& I102790 SA(0): I21ND SSA(I2)(I2OMI1280)B(I2)(I2OMI1280) N Ienten.":@ 6:"Eingabe von (D)iskette oder (T)astatur";:IN$Y IN$"D"İ6240:3100s IN$"T"ĺ(7):3020 8:40):8:1:"Grad der Fourierreihe ? (0 UNZULAESSIG!":::" TASTE DRUECKEN ";:A$:FLAG10:\HcM7R0,00,191:0,95279,95\I6927970fI,96pz1,0:1,48:1,144:1,191{138,106138,100137,100141,100140,100140,106'|276,10674[IN$"3"ė:6420:1874=\IN$"4"ė:NFN:6080:1874N]IN$"5"ė:^^(7):1880lYO0:YU0y I0279*Y1(I)YOYOY1(I)4Y1(I)YUYUY1(I)>C(YO)(YU)MS(YO)D(YO)(YU)MS(YU)VEMS0ė::(7);:"KEIN W1::"4";::" Eingegebene F(X) speichern"UV13:1::"5";::" Zurueck zum Menue"W15:1:"Wenn mehreres gewuenscht,dann hinter-":17:1:"einander abarbeiten"X19:1:"Welches ? (1-5) ";:IN$YIN$"1"ė:7000:1874ZIN$"2"ė:6000:18AG10FLAG0:1000:I02798DI,95(95Y1(I)MS)?NIHPIN$R::3:1:"Sie moechten :":5:1::"1";::" Hardcopy des Plots"S7:1::"2";::" Fourierkoeffizienten speichern"T9:1::"3";::" Berechnete Yi speichern"*U11:FLAG3FLAG0:1840f21:14::"BITTE WARTEN"::23:1:"Nach Plot weiter => beliebige Taste !";zOM23.14159265I10279SA(0)I21NSSA(I2)(I2OMI1280)B(I2)(I2OMI1280)I2Y1(I1)S020705FLen"q:"Funktionswerte stark an.Sind die Yi"::"schon auf Floppy gespeichert,dann jetzt"::"eingeben.Also:"19:1:"Eingabe von (D)isk oder (B)erechnung ";:IN$IN$"D"İ6320:1840IN$"B"ĺ(7):1742FLAG3İ8000:IN$"M"ı:"Weiter?=>beliebige Taste druecken. ";:IN$:"Zur Vorbereitung des Plots der Fourier-"::"reihe muessen im Bereich 0 bis 2*Pi"::"280 Werte Yi berechnet werden.Dabei"::"steigt die benoetigte Rechenzeit mit"::"wachsender Anzahl der eingegeben(B1B2)N|N1c3:1:"Ausgabe der A(I),B(I) auf":5:1:"(D)rucker oder (M)onitor ";:lIN$IN$"D"ė:2330:1740IN$"M"ĺ(7):1670::"Ergebnis:":I0N"A(";I;")=";A(I);:1:20:"B(";I;")=";B(I)I.N$" "ĺ(7):80700von (D)isk"::"einlesen oder zurueck zum (M)enue."Q/J5:1:"Welches ? ";:IN$j/TIN$"D"İ6320:8050y/^IN$"M"ı/h(7):8010/r7:1:"Beginn des Plots => Taste "/|9:1:"Nach Plot weiter => beliebige Taste"/8:37:IN$0I;DN$.7D$;"WRITE";DN$%.<I02790.FY1(I)7.PIK.ZD$;"CLOSE";DN$Q.dg.X HARDCOPYROUTINEn.Z1.]FLAG2İ4110:FLAG0:7100.b2070:I0279:I,95(95Y1(I)MS):I.(9);"GED2".0.:.3/@:"Werte fuer Funktionsplot :"Filename ? ";DN$: lese FourierreihenwerteB-D$;"OPEN";DN$U-D$;"READ";DN$b-I0279m-Y1(I)t-I-D$;"CLOSE";DN$--::"Filename ? ";DN$: speichere Fourierreihenwerte-D$;"OPEN";DN$-(D$;"DELETE";DN$.2D$;"OPEN"2:M2N,.I0M1),8Y(I):YM(I)Y(I)0,BID,LD$;"CLOSE";DN$J,V,`::"Filename ? ";DN$: lese Fourierkoeffizienten,jD$;"OPEN";DN$,oD$;"READ";DN$,tN,yA(0),~I1N,A(I),B(I),I,D$;"CLOSE";DN$,/-:ionswerte+D$;"OPEN";DN$1+D$;"DELETE";DN$D+D$;"OPEN";DN$X+D$;"WRITE";DN$`+NFp+I02NF1{+YM(I)+I+D$;"CLOSE";DN$++::"Filename ? ";DN$: lese Funktionswerte+D$;"OPEN";DN$+D$;"READ";DN$,$N:PNFilename ? ";DN$: speichere FourierkoeffizientenE*zD$;"OPEN";DN$Z*{D$;"DELETE";DN$m*|D$;"OPEN";DN$*D$;"WRITE";DN$*N*A(0)*I1N*A(I)*B(I)*I*D$;"CLOSE";DN$* +::"Filename ? ";DN$: speichere Funkt3,160>)m115,166:116,165:117,164117,162:116,161:115,160T)n120,162:120,164c)oI123143q)pI,163:I)qFLAG2ı)rIN$)|):3:"Plot ausdrucken ? ";:IN$)IN$"N"ı)IN$"J"ĺ(7):4225)FLAG2:7000:2*p::"174:116,170"(f120,173:120,1713(gI1231432>(hI,172E(iI(j100,166100,162:104,166104,162:101,164103,164:101,161:103,161:102,160(k107,164107,162:108,161:109,160:108,165:109,166)l111,166113,166112,166112,160111,16011,154e'b100,175100,169103,169:100,175103,175:104,170104,171:104,174104,173:101,172103,172'c107,173107,171:108,174:109,175:108,170:109,169'd111,175113,175112,175112,169111,169113,169 (e115,169:115,175:117,173117,171:116,6))YO)2&YI1,K&^K,IA&_2,1502,150(150(A(0))YO){&`276,147:277,148:278,149:278,151:277,152:276,153'a260,154:259,155259,157:260,158:261,159:262,159:263,158:264,157:265,158:266,159:267,159:268,158:269,157269,155:268;:A$:4000%@(%A0,00,150279,150D%B1,38:1,76:1,114:1,0S%CI62406y%DI1,151I1,151:I1,152I1,152%EI%F2,150(150(A(0))YO)%GN40N40%JI66N6%OI1,150I1,150(150(A(I6))YO) &TK150150(150(B(I"********************"F$5:"Nach Plot weiter => beliebige Taste !"T$YO0:YU0_$I0Nz$"(A(I))YOYO(A(I))$,(B(I))YOYO(B(I))$6I %;YO0ė::(7);:"KEIN WERT UNGLEICH NULL => UNZULAESSIG!":::" TASTE DRUECKEN "6240:4100#IN$"A"41007#IN$"T"ĺ(7):4007_#8:1:"Grad der Fourierreihe ? ";N#N0N(N)Ģ8:1:40):(7):4050#:"A(0) = ";A(0)#I1N#:"A(";I;"),B(";I;") ";:A(I),B(I)#I$:10:"Bereite den Plot vor":10:Koeffizienten A(i) ein :"::&234,4;<12:1:"n = ";NSF21:1:40):14:1PN0(N)NĢ21:1:(7);"Nur n>0 und ganzzahlig zulaessig !":12:1:20):12:1:1340ZN50Ģ21:1:(7);"Nur n =< 50 zulaessig !":12:1:20):1340dI0NZ$:Z$""1240+Z$"1"PP$"4":3390<Z$"2"ī590LZ$"3"ī60V1240 :11::"POLYNOMBERECHNUNGEN"::3:33:"n":6:"P(X)=A(0)+A(1)*X+...+A(n)*X"6:"Geben sie die Ordnung n"8:"(nicht groesser als 50) und die"(10:"";(XD)9:1:"X3 = ";XE;-XF01210LXF0ĺ" - i*";(XF):1210_" + i*";(XF)15:1::"1";::" Ergebnisse drucken":17::"2";::" Weitere Gleichungen":19::"3";::" Zurueck zum MENUE"PP$""21:"Welches ? (1-3) ";B:YEDBYDIMDA:YFYD/$XAYAB3:XBYBC.XCYCB3:XDYDW8XEYEB3:XFYFnB5:1:"X1 = ";XA;}LXB01130VXB0ĺ" - i*";(XB):1130`" + i*";(XB)j7:1:"X2 = ";XC;tXD01170~XD0ĺ" - i*";(XD):1170" + i*(PHI3)$Y22R(PHI32PI3)@Y32R(PHI34PI3)J4200VZZ(0)bW(DI)pEUQ2W~EVQ2WEU0U(EUDR)EU0UEUDREV0V(EVDR)EV0VEVDRYAUV:YB0DAUV:DB(UV)2YCD"+"/*P(3CBB)3:Q(2BBB27)(BC3)DI4DI(PPP27)(QQ4)X>DI0ī850hHDI0ī940}RR(Q)((P)3)\A(X)(X(XX1))PI2fR0PHIA(Q(2(R3)))pR0PHIA(Q(2R3))zR0Ā: DUMMES GESICHTY12R40):11:"D = ";D5I12142:I:1:40):NI5112:I:40):nA1BBA:CCA:DDA:A1B0P1$"-"B0P1$""B0P1$"+"C0P2$"-"C0P2$""C0P2$"+" D0P3$"-"D0P3$"" D0P3$31:"2"XZZ(0)'b5:1:"A = ";ABlI1214:I:1:40):vA0Ģ12:(7):2:"A=0 ist eine unzulaessige Eingabe !":14:2:"Wiederholen sie die Eingabe .":6107:"B = ";BI1214:I:1:40):9:"C = ";CI12142:I:1:"C0X10:X2B:3050)RBB4C6R0570PB0X10.5(B(R))oB0X1(C):X2X1:3050B0X10.5(B(R))&X2CX103050:Y10.5(R)D3220N:2:2:"Nullstellen von P(X)=A*X +B*X +C*X +D":1:26:"3":1::"C = ";C" I592:I:40): C0B0ė:"Fuer Trivialitaeten braucht man keinen"::"Computer !":(7):I14000:I:330 A1BBA:CCA:A1 B0P1$"-" B0P1$"" B0P1$"+" C0P2$"" C0P2$"-"C0P2$"+2:"Nullstellen von P(X) = A*X + B*X + C":1:28:"2":C TZZ(0)c ^5:1:40):5:1:"A = ";A hI12142:I:1:40): rA0Ģ12:(7):4:"0 ist eine unzulaessige Eingabe !":14:4:"Wiederholen sie die Eingabe .":350 |7:"B = ";B 9Horner" 14:24:"(n)"= 17:3::"5";::" Anleitung"[ 19:3::"6";::" Ende"{ 21:3:"Welches ? (1-6) "; B$ B$"1"330 B$"2"590 B$"3"1290 "B$"4"2480 ,B$"5"2220 6B$"6"ė: @(7):2407 J:2:3:9::"1";::" P(X) = A*X +B*X + C"8 15:8:"2"L 3:11::"2":w 5:11:"P(X) = A*X + B*X + C*X + D" 10:15:"3";:22:"2" 3:13::"3";::" Berechnung von P(X) nach Horner" 3:15::"4";::" Berechnung von P(X) nach 13,27,43,45,46,48,49,50,51,52,53,54,55,56,57,69Y PW3(3):DR13:PI3.141592653:IMW32c ZA$"" d:I523:1:I:" ";::I523:I:40:" ";:: nI140:I:5:" ";::I140:I:23:" ";: x5:17:"MENUE": 3:7:"Nullstellen von"( 3\ 768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96bA(50),B(50),C(16),D(50)(I116:C(I):I2RR.434294482<:11::"POLYNOMBERECHNUNGEN"::2:33:"n":6:"P(X)=A(0)+A(1)*X+...+A(n)*X"/ F                   oeffizienten des Polynoms.":8:"Beispiel: P(X) = -3*X + 2*X -7":7:22:"2"s& 10:"Dann ist A=-3 , B=2 , C=-7"& 24:6::"IRGENDEINE TASTE DRUECKEN";::" ";& A$:A$""2460& :60' :11::"POLYNOMBERECHNUNGEN"::3:33:"n":6:"P(X)=rogramm ignoriert,da das System sonst":19:"eine Ueberlaufmeldung geben wuerde.":22:"Sie koennen die Eingabe wiederholen."%j 24:6::"IRGENDEINE TASTE DRUECKEN";::" ";%t A$:A$""2420M&~ :3:"Achten sie auch auf korrekte Eingabe der":5:"K :14::"ALLGEMEINES":$L 4:"Zahlen mit Betrag groesser 1*10 oder":7:"kleiner 1*10 fuehren zu Problemen.":10:"Im ersten Fall wird zu 0 abgerundet,":13:"im zweiten Fall wird die Eingabe vom":16$V 3:32:"+38":6:13:"-38":}%` 16:"P + A(1)*X +...+ A(n)*X":7:36:"n"]# 12::"4";::" Wie 3 , aber fuer k =< 32 wird auch"# 14:3:"noch die k-te Ableitung von P(X) an"#$ 16:3:"der Stelle X berechnet."#. 24:6::"IRGENDEINE TASTE DRUECKEN";::" ";#8 A$:A$""2360$Ber sind X1,X2,X3 reell oder":3:"X1 reell und X2,X3 konjugiert komplex."|"24:6::"IRGENDEINE TASTE DRUECKEN";::" ";"A$:A$""2290":3::"3";::3:"Fuer gegebene X,A(i) und n=<50 Be-":3:"rechnung des Polynoms"## 8:3:"P(X) = A(0)= 0":6:6:"2"V!10:3:"X1,X2 sind entweder reell oder":3:"konjugiert komplex."!13::"2";:3::"Berechnung der Loesungen X1,X2,X3":3:"der kubischen Gleichung"!17:3:"A*X + B*X + C*X + D = 0":16:6:"3";:13:"2"I"20:3:"Entwed:21:1:40):1960o FF2Ģ21:1:(7);"Zahl zu gross!Eingabe wiederholen.":I12000:I:21:1:40):1960u  :15::"ANLEITUNG":!3::"1";::3:"Berechnung der Loesungen X1,X2 der":3:"quadratischen Gleichung":7:3:"A*X + B*X + C R2180F\(BB$,I1,1)"+"(BB$,I1,1)"-"BB$(BB$,I3):2160YfBB$(BB$,I2)pRR((((BB$,I1))))((BB$,I1,3))38FF2zFF0X(BB$):JJJJ1: FF1Ģ21:1:(7);"Erst Zahl,dann eingeben!Nochmal":I12000:IKL1 "KL16AA$"":19806AA$(13)2060LBB$BB$AA$:1980U FF0t(BB$,1)(13)FF1:2180 I1(BB$)*(BB$,I,2)"EE"BB$(BB$,I)(BB$,I2,3)4(BB$,I,1)"E"İ2140>(BB$,I,2)".."BB$(BB$,I)(BB$,I2)H ein.Es muss":5:"IXI < 1*10 sein.":4:11:"+38":7:"Eingabe in der Form Zahl.":9:"Aussteigen mit ."JJ115:1:35)BB$""15:1:"X";JJ;" = ";BB$;:AA$AA$(27)ıKL0I116:(AA$)C(I)KL&14:1:40):14:1:"s = ";SW1021:1:40):SW0SWIOIUĢ21:1:"Es muss 0a sein!Eingabe wiederholen.":1800 te s mit 0 < s < (b-a)"H9:"Ausdruck P(X) mit X=a+ks (k=0,1,...,n)"11::"3";::" Ausdruck von P(X) fuer speziell vor-"13:"gegebene X"15:"Welches ? (1-3) ";XX$XX$"1"3390XX$"2"3390XX$"3"33901710PP$"5":34,0:1630%6A$"3"ī1290;@A$"4"Ĺ34,0:60EJ1550KTg^:15::"DRUCKMENUE":h3::"1";::" Zuletzt berechnetes P(X) ausdrucken"r5::"2";::" Im Intervall ";(91);"a,b";(93);" und fuer eine"|7:"feste Schrittwei0) PP$""14:13::"1";::" Weitere X":16:13::"2";::" Ausdruck von P(X)":18:13::"3";::" Anderes Polynom"20:13::"4";::" Zurueck zum MENUE"22:13:"Welches ? (1-4) ";A$"A$"1"Ģ8:13:26):1440,A$"2"n"A(";I;") =";:"";A(I)::&xI,\6:1:"Geben sie nun das Argument X ein :"m8:15:40)8:15:"X = ";XIN101B(N)A(N)B(I)A(I)XB(I1)XX$"2"XX$"3"ı10:15:25)10:15:"P(X) = ";B(6XD03890,6XD0ĺ" - i*";(XD):3890?6(" + i*";(XD)W629:15:"X3 = ";XE;f6<XF039306FXF0ĺ" - i*";(XF):39306P" + i*";(XF)6Z6d6nXX$"1"İ4130:"P(";X;") = ";B(0):40107xXX$"2"İ1760:4130:G0GG:XIUSWG:145:"P(X) = X ";15B0ĺP1$;" ";(B);"*X ";P5C0ĺP2$;" ";(C);"*X ";i5D0ĺP3$;" ";(D);q5:53:1:"Nullstellen : ";55:15:"X1 = ";XA;5XB038505XB0ĺ" - i*";(XB):38505" + i*";(XB)5 :15:"X2 = ";XC; "*X ";&4BC0ĺP2$;" ";(C);"*X ";?4LD0ĺP3$;" ";(D);G4V:k4`1:"Nullstellen : X1 = ";X14j" ";"X2 = ";X24t" ";"X3 = ";X34~4413044:14:"3";4B0DD(((B))):4:20DD:"2"50ĺ(C):3580(3 C0ĺ(B);"*X":3580G3 (B);"*X ";P2$;(C):35803 :7:"X1 = ";B2;" + i * ";Y1:9:"X2 = ";B2;" - i * ";Y133413034:14:"3";3$B0DD(((B))):4:20DD:"2"3.5:"P(X) = X ";48B0ĺP1$;" ";(B);"2"!2 5:"P(X) = X ";P1$;" ";62 B0ĺ(C):3500P2 C0ĺ(B);"*X":3500r2 (B);"*X ";P2$;"";(C):35002 :1:7:"Nullstellen : X1 = ";X1:" ";"X2 = ";X22 2 41302 4:14:"2"2 5:"P(X) = X ";P1$;" ";3 BE"1 19:"Welches ? (1-3) ";*1 PP$""21 R$L1 R$"1"PP$"2":3390\1 R$"2"330k1 R$"3"60u1* 3330{14 1> 1H (PP$)3440,3520,3600,3720,3940,40201R 0:XX$""1\ 1f (PP$)3050,3220,4210,2690,1530,29301p 41302z 4:14::9:"2":3270D0 P1$;" ";(B);"*X ";P2$;" ";(C):4:9:"2":32700 7:"X1 = ";B2;" + i * ";Y1:9:"X2 = ";B2;" - i * ";Y10 13::"1";::" Ergebnisse ausdrucken"0 15::"2";::" Weitere Gleichungen"1 17::"3";::" Zurueck zum MENUm MENUE"%/D 19:"Welches ? (1-3) ";0/N PP$""D/X A$:A$""3160^/b A$"1"PP$"1":3390n/l A$"2"330}/v A$"3"60/ 3160/ / I1023:40)::/ 5:"P(X) = X ";/ B0ĺP2$;" ";(C):4:9:"2":32700 C0ĺP1$;" ";(B);"*X":4ĺP1$;" ";(B);"*X":4:9:"2":3100P. P1$;(B);"*X ";P2$;" ";(C):4:9:"2". 1:7:"Nullstellen : X1 = ";X1:9:18:"X2 = ";X2.& 13::"1";::" Ergebnisse ausdrucken".0 15::"2";::" Weitere Gleichungen"/: 17::"3";::" Zurueck zu:2630!- A$"2"ė:1:14:25709- A$"3"Ĺ34,0:2480`- A$"4"PP$"6":A$"1":34,0:1630v- A$"5"Ĺ34,0:60- 2970- I0N:A(I)D(I)::- I1023:I:1:40):- 5:"P(X) = X ";- B0C0ĺP2$;" ";(C):4:9:"2":3100$. C03::"1";::" Weitere X":16:13::"2";::" Neues k":18:13::"3";::" Anderes Polynom",| 20:13::"4";::" P(X) drucken":22:13::"5";::" Zurueck zum MENUE", 24:13:"Welches ? (1-5) ";, PP$"", A$- A$"1"Ģ7:13:26):7:13)XB(I1)+ I+ L0J1.+ A(L)B(L1)5+" L<+, JM+6 B(0)B(0)KKj+@ XX$"2"XX$"3"İ3040:+J I523:I:1:40):+T 7:13:"X = ";X+^ K0Ģ10:13:"P(X) = ";B(0):2930+h K0Ģ10:13:"P(X) =";B(0):9:17:"(";K;")"],r 14:1$"1"A$"2"İ3040:2710#*d I0NB*n "A(";I;") =";:"";A(I)::P*x D(I)A(I)W* I]* c* l* KK1w* I1K* KKKKI* * KNXX$"2"B(0)KKA(N):* KNB(0)KKA(N):2890* JNNK1* IJ101* B(J)A(J) + B(I)A(I2570Q)( KNĺ(7);"Ableitungsordnung>Polynomgrad => P(X)=0":I12500:I:2480)2 K32Ģ21:1:(7);"Keine k>32 eingeben!Eingabe wiederholen.":14:1:20):14:1:2570)< A$"2"İ3040)F "X =";X::)P (XX$"2"XX$"3")A$"1"İ3040:2720*Z A n>0 und ganzzahlig zulaessig !":12:1:20):12:1:2530~( N50Ģ21:1:(7);"Nur n =< 50 zulaessig !":12:1:20):2530( "k =";K::( 21:1:40):16:1) K0(K)Kĺ(7):21:1:"Nur k>=0 und ganzzahlig zulaessig !":14:1:20):14:1:A(0)+A(1)*X+...+A(n)*X"!' 34,4R' 6:"Geben sie den Polynomgrad n (=<50) und"' 8:"die Ableitungsordnung k (=<33) sowie das"' 10:1:"Argument X und die A(i) ein :"::' "n =";N::' 21:1:40):14:1:( N0(N)NĢ21:1:(7);"Nur <4>"O11:1:"Ausgabe der Spline-Parameter <5>"13:1:"Ende <6>"17:1:"Welches ? ";:A$A$"1"ė:3:14:"BITTE WARTEN":AH1:2000:1220A$"6"ė:A$"2"FLAG1::3M(I1)M(I))(6H(I1)):J34,0:::10:(7);"SPLINE IST BERECHNET":~3:1:"Monitorplot des Splines in [a,b] <1>"5:1:"Ausgabe von S([a,b]) auf Drucker <2>"7:1:"Fuer X aus [a,b] Berechnung S(X) <3>"9:1:"Neuer Spline (1)2:U(1)D(1)2tI2N1g~P(I)MU(I)Q(I1)2:Q(I)LA(I)P(I):U(I)(D(I)MU(I)U(I1))P(I):yM(N1)U(N1)IN211M(I)Q(I)M(I1)U(I):M(0)0:M(N)0I0N1:B(I)((F(I1)F(I))H(I1))H(I1)(M(I1)2M(I))6:D(I)(N/$:"X";I;" , F(X";I;") = ";:"";X(I),F(I)T.I1ĭX(I)X(I1)ĺ(7);:1060Z8xLI1N:H(I)X(I)X(I1):VI1N1`LA(I)H(I1)(H(I)H(I1)):MU(I)1LA(I):D(I)((F(I1)F(I))H(I1)(F(I)F(I1))H(I))6(H(I)H(I1)):jQ(1)LAin"0 23:12::"TASTE DRUECKEN";::" ";:A$T ::14:"WERTEEINGABE"::34,2} 3:1:"Wieviele Stuetzstellen ? ";N N(N)N3ĺ(7);:3:1:40):1010 NN1 B(N),D(N),M(N),MU(N),H(N),X(N),F(N),LA(N),U(N),P(N),Q(N),S(280)I0en Stelle ge-"::" druckt,sonst wird sie willkuerlich"::" ans untere Intervallende a gesetzt." :" Masstab Y-Achse:ABS(MAX(F(X)) := MS"::" Masstab X-Achse:b-a" :"Wichtig:Fuer i<>j muss Xi<>Xj sein,und"::"und fuer i0 ist,wird die"::" Y-Achse an der korrekt12::"KUBISCHE SPLINES": :"Zum Programmablauf:"::"1. Anzahl N der Stuetzstellen ein-"::" geben.Es muss N>2 und ganzzahlig"::" sein.Bei Fehler Piepton Und Wieder-"::" holung der Eingabe."e :"2. Danach Eingabe der Xi,F(Xi)) und Bionswerte zwischen"::"den Stuetzstellen."::"Hierbei ist die Naeherung umso besser,":::"je dichter die Xi gelegt werden." :"Andererseits steigt mit der Zahl der"::"Xi auch die Rechenzeit." 23:12::"TASTE DRUECKEN";::" ";:A$   d245760n:::12:"KUBISCHE SPLINES":x:"Dieses Programm berechnet aus gegebenen"::"Stuetzstellen Xi und den Funktionswer-"::"ten F(Xi)) den kubischen Spline S(X)"::"im Intervall [a,b] = [Xo,Xn] als Nae-"~ :"herung fuer die Funkt         !!! ! ! ! ! !!!!sse drucken":15::"2";::" Weitere Gleichungen":17::"3";::" Zurueck zum MENUE"a;PP$""~;19:"Welches ? (1-3) ";;Z$:Z$""4250;Z$"1"PP$"3":3390;Z$"2"ī590;Z$"3"ī60;4250:1960:4090:%:"1:(9);"80N"2:,Y$(27)?:6Y$;"N";L:@Y$;""";Y:JY$;"A";l:TY$;"L";"010";r:^:hX1Y1B3:X2Y2B3:X3Y3B3:r5:1:"Nullstellen : X1 = ";X1:7:18:"X2 = ";X2:9:18:"X3 = ";X3:V;|13::"1";::" ErgebniG:41209XX$"3"İ1930.9XX$"3"İ1950J9XX$"3"AA$(27)41209XX$"3"K0İ2640:4130:"P(";X;") = ";B(0):0:1960:4090 :XX$"3"K0İ2640:CC((X))3:VV$"":VV1CC:VV$VV$" ":VV:4130:VV$;"(";K;")":1:"P(";X;") = ";B(0):0";K;")":1:"P(";X;") =";B(0):4120w8XX$"2"K0İ1760:4130:G0GG:XIUGSW:2640:"P(";X;")= ";B(0):G:41209XX$"2"K0İ1760:4130:G0GG:XIUGSW:2640:CC((X))3:VV$"":VV1CC:VV$VV$" ":VV:VV$;"(";K;")":"P(";X;") = ";B(0):50:"P(";X;") = ";B(0):G:401027XX$"3"İ1930E7XX$"3"İ1950a7XX$"3"AA$(27)40107XX$"3"İ1450:4130:"P(";X;") = ";B(0):0:1960:3990777XX$"1"K0İ4130:"P(";X;") = ";B(0):4120&8XX$"1"K0İ4130:((X))4:"(A$(32)103 j584 n ABLEITUNGSUNTERPROGRAMM\ x EINGABE : Z VERSCHACHTELUNGSTIEFE{ F$(Z) FUNKTION AUSGABE : FS$(Z) ABLEITUNG F$F$(Z) S$F$:2010 P1PL1000: ZEICHEN AM ANFANG BZW. AM ENDE UNZULAESSIG P(27):A$;"L";"010";:(9);"80N": ["f(x) = ";F$(0)::S _"f'(x) = ";FS$(0):j dA$;"L000";:0:60 e"f'(x) = ";FS$(0) f21:1:"Weiter ==> druecken !":23:1:"Ende ==> druecken !" g22:35:A$ hA$(27)Ĺ34,0:: iLEITUNGSPROGRAMM"::34,2 :' <Z01 A5000L F3:1:"f(x) = ";F$(0) H21:1:"Ausgabe : (D)rucker oder (M)onitor ? ";:A$ IA$"M"FLAG1:75 JA$"D"ĺ(7):72 K21:1:40):5:1 P170 Q6000 RFLAG1FLAG0:101 Z1:A$]: PROGRAMM ABLEITUNG (EINGABE:F(X) ; AUSGABE:F'(X) )d(M16: HOECHSTE VERSCHACHTELUNGSTIEFE2F$(M),FS$(M),FU$(M),FV$(M),F1$(M),O(M):Z$"+-*/^"3FZ:X$(FZ),XS$(FZ),L(FZ)4I1FZ5X$(I),XS$(I)6L(I)(X$(I))7 9:11::"AB!!!!""" " " " " """""""""   c FLAG3ĺ:::I0N2:Fd FLAG3INĺ"X(";I;") = ";X(I):3178e FLAG3ĺ"X(";I;") = ";X(I):(27);"r";::;:VR$;"X(";I1;") = ";X(I1);:(27);"f"j FLAG3ĂIl FLAG3FLAG0:0n ::12:"TASTE DRUECKEN ";:A$p v A";I;"=";F(I);:20:"B";I;"=";B(I):"C";I;"=";.5M(I);:20:"D";I;"=";D(I)Q: I[? ::jD I0N12N FLAG3ĺ"M(";I;") = ";M(I):(27);"r";::;:VR$;"M(";I1;") = ";M(I1);:(27);"f"X FLAG3ĺ"M";I;"=";M(I);:20:"M";I1;"=";M(I1)b IX-Xi) + Di(X-Xi)":::% I0N1C FLAG3ĺ(27);"L";"005"; FLAG3ĺ"A(";I;") = ";F(I):(27);"r";::;:VR$;"B(";I;") = ";B(I);:(27);"f"! FLAG3ĺ"C(";I;") = ";.5M(I):(27);"r";::;:VR$;"D(";I;") = ";D(I);:(27);"f"J0 FLAG3ĺ" (D)ruckerausgabe"1 11:14:"Welches ? ";:A$J A$"D"FLAG3:3060c A$"M"ĺ(7):3030 V3$" ":V4$" "  FLAG3Ċ1:(9);"80N":(27);"L";"020";:V3$;"2";V4$;"3":"S(X) = Ai + Bi(X-Xi) + Ci(0:8,1018,104:7,1025,102:7,1045,104:4,103AFLAG1İ2500I A$Z FLAG0:::` y 1:(9);"GED2":0: :3:"Waehlen sie :" VR$" " 5:14:"Nur (M)onitorausgabe" 7:14:"Parallele))279,191:279,92279,98:0,920,98:2240NX(0)0X(N)0ē0,00,191:2240vX(0)0X(N)0ē279,0279,191:22400,00,191I0279:I,95(95S(I)MS):270,100270,106:271,102273,102:271,106273,106:274,105274,103/5,1007,10MS GLEICH NULL"::3:12:"TASTE DRUECKEN ";:A$:8ahf3:1:"Nach Plot weiter => Taste druecken"p5:1:"Beginn des Plots => Taste druecken"z7:1:A$:30,95279,95*X(0)0X(N)0ē(X(0)(X(N)X(0)))279,0(X(0)(X(N)X(0)X(J1)2050JQS(I)F(J)B(J)(XX(J)).5M(J)(XX(J))2D(J)(XX(J))3X IaAK1oYO0:YU0| I0279*S(I)YOYOS(I)4S(I)YUYUS(I)>H(YO)(YU)MS(YO):2140RMS(YU)2\MS0ė:(7)::"FEHLER ! ES WAR 7);"L000";:014:1:10)R21:1:"Weiter => ;Ende => ";:A$uA$(27)FLAG0:34,0::1220A$(32)14501365FLAG1AH12150AK12150I0280XX(0)I(X(N)X(0))280J0N1 XX(J)X"M"ĺ(7):1330P34,9!U6Z12:1:"X = ";XCdI0N1_nXX(I)XX(I1)1410exSF(I)B(I)(XX(I)).5M(I)(XX(I))2D(I)(XX(I))3FLAG2Ċ1:(27);"L";"020";:FLAG2ĺ:"X = ";X:"S(X) = ";S FLAG2ĺ(2:14:2000:1220A$"4"Ĭ6A$"5"İ3000:1220O A$"3"ĺ(7):1255Up3:1:"Waehlen sie :"14:5:"Ausgabe nur auf (M)onitor"(14:7:"Parallele (D)ruckerausgabe"214:9:"Welches ? ";:A$<A$"D"FLAG2:1360FA$ ? ";:A$A$"N"ė:1A$"J"5010:4:"Dieses Programm berechnet die Ableitung"::"einer vom Benutzer eingegebenen Funk-"::"tion f(x).":"Beachten sie folgendes:"::"-Nur X als Variable benutzen."::"-Keine Leerzeichen in f COTH(,(-1/SINH(," ARCSIN(,SQR(1-(H, ARCCOS(,(-1)*SQR(1-([6 ARCTAN(,(1+(t@ ARCCOT(,(-1)*(1+(J ARSINH(,SQR(1+(T ARCOSH(,SQR(-1+(^ ARTANH(,(1-(h ARCOTH(,(1-(r LN(,(4:1:"Wollen sie eine Anleitung"ĭK$":"Ă:N1:% K$"-"Ă:N1:/ N0:I ERLAUBTE FUNKTIONENR 19b SIN(,COS(w COS(,(-1)*SIN( SINH(,COSH( COSH(,SINH( EXP(,EXP( SQR(,.5/SQR( TAN(,1/COS( COT(,(-1/SINH( TANH(,(-1/SINH(*(K$"^")(O4)PI:O5 4K>KL1000: ZAHL DER '('<> ZAHL DER ')'QRs TESTE,OB TERM EINE ZAHL IST EINGABE : S$ : TERM AUSGABE : N -1 FUER ZAHLEN , 0 FUER ZUSAMMENGESETZTE AUSDRUECKE I1(S$) K$(S$,I,1) K$"/4 /,5 ^,6 KEINS)6 L LAENGE DES STRINGSOL(S$):P0:O6:KL0ZI1LkK$(S$,I,1)KLKL(K$"("):KLKL(K$")") KL0ī2100K$"+"K$"-"PI:O1(K$"-") K$"*"K$"/"OH1%OH1O2PI:O3(K$"/"):OH0in formula":F$97:1:"Taste druecken ! ";:A$C:60x SUCHE RECHENZEICHEN MIT NIEDRIGSTER PRIORITAET EINGABE : S$ SUCHSTRING AUSGABE : P INDEX DES RECHENZEICHENS IN S$ O ART DES RECHENZEICHENS (1 +,2 -,3 *,$"^2)"fFS$(Z)FS$:L BEHANDLE KLAMMERAUSDRUECKE , X UND KONSTANTENo(F$,1)"("(F$,1)")"930S$(F$,2,(F$)2):3000:NFS$(Z)"0":F$(Z)(F$,2,(F$)2):170F$"X"FS$(Z)"1":FS$(Z)"0": :(7);"syntax error "0"FS$(Z)"0":7S$F1$:2000:O3F1$"("F1$")"LOO(Z):O10850]  F'=U'*G(U)*FS$XS$(O)FU$")":F1$"1"FS$F1$"*"FS$4O6FS$FS$"^2)">FS$(Z)FS$:H F'=U'/G(U)RFS$XS$(O)FU$")":FS$F1$"/"FS$\O19FS$FS$"*"F2$")":3 F=F(U) , SUCHE FUNKTIONSNAMEN?I1FZ](F$,L(I))X$(I)Ă:910III:IFZ::(F$,1)")"1000 BERECHNE U'O(Z)IIZZ1:F$(Z)(F$,L(II)1,LL(II)1):170:ZZ1F$F$(Z):FU$F$(Z1):F1$FS$(Z1)F1$F1$")"-S$FV$:2000:O3FV$"("FV$")"SS$F2$:2000:O3F2$"("F2$")"FS$F$(Z)"*(":F1$"0"FS$FS$F1$"/"FF$"*"FV$"+"FS$FS$"LN"(FU$,1)"("FU$"("FU$")"FS$FS$FU$F2$"1"FS$(Z)FS$")":FS$(Z)FS"*"!NFV$"1"FS$FV$"*"FS$@S(FV$,1)"("FV$(FV$,2)JT7000PUVVtWF2$"1"FS$(Z)FS$FU$:XF2$"0"FS$(Z)FS$"1":]FS$(Z)FS$FU$"^"F2$:bFF$FU$lS$FF$:2000:O3FF$"("FF$")"vS$F1$:2000:O3F1$"("FV$:2000:O3FV$"("FV$")"8FS$FS$"/"FV$"^2"GFS$(Z)FS$M F=U^V , F'=V*U'*U^(V-1) BZW F'=U^V*(U'/U*V+LN(U)*V')F2$"0"610&F1$"0"FS$(Z)F1$:0F1$"1"FS$"":590:S$F1$:2000:O3F1$"("F1$")"DFS$F1$452#FS$(FS$,1)(Z$,O(Z)2,1)F(FS$,2)"+-"(FS$)2FS$""dF2$"1"FS$FS$FU$:480S$FU$:2000:O3FU$"("FU$")"S$F2$:2000:O3F2$"("F2$")"FS$FS$FU$"*"F2$FS$"0"O(Z)3510T2FS$"("FS$")"S$T1!F1$"1"FS$FV$:440GS$F1$:2000:O3F1$"("F1$")"uFF$FV$:S$FF$:2000:O3FF$"("FF$")"FS$F1$"*"FF$:440F2$"0"480FF$F1$:S$F1$:2000:O3FF$"("FF$")"TT1:T1FS$(Z$,O(Z)2,1((T1)O(Z)3)):W F=U-V , F'=U'+V' BZW F'=U'-V'R ^F1$"0"ĭF2$"0"FS$(Z)F1$(Z$,O,1)F2$:m hF1$"0"FS$(Z)F1$: rF2$"0"FS$(Z)(Z$,2,O1)F2$: |FS$(Z)"0":  F=U*V BZW F=U/V , F'=U'*V+U*V' BZW F'=(U'*V-U*V')/V^2 F1$"0"T0:FS$F1$:4400700$  F=U#V,BERECHNE U' UND V'Q "O(Z)O:FU$(Z)(F$,P1):FV$(Z)(F$,P1) ,ZZ1:F$(Z)FU$(Z1):170:F1$(Z1)FS$(Z) 6F$(Z)FV$(Z1):170:ZZ1 @FU$FU$(Z):FV$FV$(Z):F1$F1$(Z):F2$FS$(Z1):OO(Z) JO350,350,400,400,540 T F=U+V BZ