' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `\`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>? 24?949:4<  %%&&'''))*++++,,----...////23334556667777999:::;;;;<<====>>>????,,(8,01,(8,01,(8,,1*( ,,1*( 1,,*" 1,,*" 11,,"&&'(((())***,,.000011112223444556 88889 : << >Q@@ACOAHBIC#"02r21213002023#BBS cRWȴLIﵩWL ˵i̵igggLhhL L̾ Lb`ȱLꢍȱHH񷩷 hhLhh `H()?(hl80HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `WLqf L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`MODLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!ppp p p p p`" t""#x"p0p@@@@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-(0 @Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (LV) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0JL ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-`Ơĭ쳩>?<=>B&Be<<e==إ= ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# ʮĮ  ɭ٠ ͠ ± u`"INSERT DISK AND PRESS RETURN ";;G$:G$(13)1100A[D$"INIT HELLO":1100 &3F:G$::G$*PG$"A"G$"I"T1:<ZG$"B"T2:NdG$"T"T3:Xn3900p:D$"DELETE NAMES"D$"OPEN NAMES"D$"WRITE NAMES"I025:B%(I);",";B$(I)I09:Z%(I);",";Z$(I)D$"CLOSE NAMES"1100#(N2):HN2V:H20H$ V5:H2- TX08 B$(N)K B$(N)""TX1U I2Va V5:1x (I65);":";B$(I) V5:21 (I66);":";B$(I1) 3900 $B%(N)T:3000 <TXT0:A1:1:"FILE TYPE (A,I,B,T) : ";:20 G$"0"G$"9"3000(  N(G$)48D & V(N2):HN2V:H20HS 0 V19:H2\ : TX0g D Z$(N)z N Z$(N)""TX1 X I2V b V19:1 l (I48);":";Z$(I) v V19:21 (I49);":";Z$(I1) 3900 Z%(N)T:3000 N(G$)65 V Z%(N)3R$"EXEC" / :D$;R$;Z$(N)5 J ::D$"CATALOG"c :"PRESS ANY KEY ";o :G$:y 1100 1:1:"A-Z,0-9:EDIT; #:SAVE CHANGES ";:30 :G$::G$ G$(13)1100 G$"#"4000 G$"A"G$"Z"350 "G$"A"G$"Z"16005 ,G$"0"G$"9"1700? 61500N @N(G$)65` JB%(N)01500m TR$"RUN" ^B%(N)2R$"BRUN" hB%(N)3R$"EXEC" m r:D$;R$;B$(N) | N(G$)48 Z%(N)01500 R$"RUN" Z%(N)2R$"BRUN" t(I65);":";B$(I); ~I( I09D V(I2):HI2V:H20HS V19:H1k (I48);":";Z$(I);r I| 1:1 "A-Z,0-9:RUN; !:EDIT; *:CATALOG; @:INIT "; :G$::G$ G$"*"2000 G$"!"3000 G$"@"5000 G$(13)ė:] :(B$(25),B%(25),Z$(9),Z%(9)4D$(4)?4000SD$"OPEN NAMES"gD$"READ NAMES"I025:B%(I),B$(I):$I09:Z%(I),Z$(I):.3216,08D$"CLOSE NAMES"LVI025`V(I2):HI2V:H20HjV5:H1     = ";E;F1ĺ" IND. "1F1ĺ" KAP. "EF0ĺ" "KQi COPYRIGHT: J.HEIL~ 12.JULI 1980K TASTE "9l"MENU ---> TASTE uv"ENDE ---> TASTE ";:Q$:Q(Q$)Q$"N"1490Q$"M"140Q$"E"120Q3120"":1880 UPGM.WINKELANGABE:B;" GRAD = ","COS PHI KTASTE:D(16287)'D127178011600980K STROMKURVE:`Y8060(KTC)i100zT2791800&800 LEISTUNGSKURVE::Y8050(((KT))((KTC)))D100NT2791850X1980 b"NEUE DARSTELLUNG: ---> INKEL:TK11.41666666665^ FAKTOR FUER RADIANT:HhK281.16902097Vr WINKEL:j|B(AK1.5)90 VORZEICH.DES WINKELS:F(B) RADIANT:CAK21.570796327 COS PHI:E(C)100:E(E.5):EE10023:1980 DRUC===========================".I13000::51Iq Y(N)(N0)150!v X,159Y' - u :23:"WEITERE BEARBEITUNG GEWUENSCHT? J/N => ";:A$:A$"N"ĉ:: :200X(N0)T40,9150(4)(N0)T40,159d& T60279ē0,9150(8)(N0)T60,9150(8)(N0)T60,1590 T80279ē0,9150(16)(N0)T80,9150(16)(N0)T80,159: 3D NN0:P1PN X1279X I1N:SS((1)P):b NS:S0l N13220:21:"EINHEIT DER X-ACHSE: 1 MIN":"EINHEIT DER Y-ACHSE: FUER "N0" ATOME":" ... N0/16, N0/8, N0/4, N0/2, N0":"HALBWERTSZEIT:"T" MIN"; 2 1,910,9 T20279ē0,9150(2)(N0)T20,9150(2)(N0)T20,159# T40279ē0,9150(4),158:? 1:22:958:"WIEVIEL ATOME ZU BEGINN?";:" => ";N0 N05Ė1:21:(7):"STATISTIK FUER "N0" ATOME ??? WIEDERHOLUNG!";:I13000::3040 :22:"EINHEIT DER X-ACHSE: 1 MIN" 23:"WELCHE HALBWERTSZEIT? => ";:"";T::P.05(2)T *NN0:P1P4X127959I1N:SS((1)P):A>NS:S0PCYN150N0]HX,159YkMN02140qRw\ :23:"WEITERE BEARBEITUNG GEWUENSCHT? J/N => ";:A$:A$"N"ĉ:: :200  :3:0,00,159279,159 X2027020:X1:22:" "NA;20)N;34)NB:2056 A(X,Y)0B(X,Y)1NN1:A(X,Y)1:B(X,Y)0:9:X,Y:0:X20,Y:NANA1:NBNB1:22:" "NA;20)N;34)NB:2056 2056I2- B(I20,J)1:I,J:23:" "NA;34)K:\ (7)::22:"AUSGANGSSITUATION ERREICHT."s " "NA;34)NB; I04000: :N0 X((1)18)1:Y((1)38)1# A(X,Y)1B(X,Y)0NN1:B(X,Y)1:A(X,Y)0:9:X20,Y:0:X,Y:NBNB1:NANA 0,390:0,3939 71 1,3819:1,38209 13H NA02040T K1NAv I((1)181):J((1)381) A(I,J)02032 A(I,J)1:I,J:23:" "K: NB02048 K1NB I((1)1821):J((1)381) B(I20,J)0204IMULIERT."::"DIE ANZAHL DER TEILCHEN IST VORZUGEBEN."::{ "(HOECHSTENS 684 TEILCHEN PRO KAMMER"::"EINGEBEN! )":: "TEILCHEN FUER DIE LINKE KAMMER => ";NA::"TEILCHEN FUER DIE RECHTE KAMMER => ";NB NNANB :3 0,390:0,3939 ::10510)::"--------------------"::j:12)"SIMULATION EINER"::16)"DIFFUSION"::10)::"--------------------"::I14000::::A(20,40),B(20,40); "ES WIRD DIE DIFFUSION VON TEILCHEN "::"ZWISCHEN ZWEI KAMMERN S    NOETIGE LADEVORGAENGE ZU VERMEIDEN. (SIEHE ZEILE 480!)p. 'SAVE' MUSS DESHALB VOR 'RUN' DURCHGEFUEHRT WERDEN! VERSION: DEZ.1980 COPYRIGHT: J.HEIL Q3470"":21703UPGM.WINKELANGABE:IB;" GRAD = ",^"COS PHI = ";E;sF1ĺ" IND. "F1ĺ" KAP. " F0ĺ" "  HINWEIS: 7$ NACH DEM 1.PGM-LAUF WERDEN DIE ZEILEN 20,30 UND 40 GELOESCHT, UM UN(KT))((KTC)))f450-pT27921407z2270e"NEUE DARSTELLUNG: ---> TASTE ""MENU ---> TASTE "ENDE ---> TASTE ";:Q$:Q(Q$)Q$"N"1780Q$"M"490Q$"E"470E(E.5):EE10023:22700DRUCKTASTE:@D(16287)PD1272080Z 1890kSTROMKURVE: 5:T0:T10:Y18060(C):T1,Y1*Y8060(KTC)4450>T2792090HLEISTUNGSKURVE:R1:T0:T10:Y180:T1,Y1\Y8050((TI, DANN TASTE !"bA(0)5lFAKTOR FUER WINKEL:IvK11.4166666666cFAKTOR FUER RADIANT:vK281.16902097WINKEL:B(AK1.5)90VORZEICH.DES WINKELS:F(B)RADIANT:CAK21.570796327COS PHI:E(C)100:Q321780Q3470*"":17302:D60:130:250\PUNKTDICHTE,FARBE:gP3:3|SPANNUNGSKURVE:&6:T0:T10:Y180:T1,Y10Y8070(KT):450DT2791840NEINGABE UEBER REGLER:X21:" : ERST POENSCHTE PHASEN- VERSCHIEBUNG EINGEBEN.":{"SCHLIESSLICH WIRD DAS PROGRAMM UEBER DIETASTE DES GESTARTET.":"DARGESTELLT WERDEN DANN DIE STROM- UND DIE LEISTUNGS-KURVE."23:"FORTSETZUNG: ---> LEERTASTE! ";Q$:Q(Q$)HEIL 1.7.80 *"4|7:"* *"X7:"*************************"`:"ALS BEZUGSKURVE WIRD ZUNAECHST EINE SI- NUSFOERMIGE SPANNUNGSKURVE DARGESTELLT.":)"DANN KANN MAN UEBER DAS POTENTIOMETER DES DIE GEWU/N => ";:A$:A$"N"300#V::I1A ]"X = X0 * SIN( "K1"*T )":"Y = Y0 * SIN( "K2"*T + "PHI" )"J :1n 67,0211,0211,14367,14368,0u 3 X070:Y070:P3.14159262 T0P.01 XX0(K1T):YY0(K2TPP) 140X,72Y  $L24:"WEITERE BEARBEITUNG? J"::"Y = Y0 * SIN( K2*T + PHI )":: "FUER K1 UND K2 SIND NAT. ZAHLEN EINZU-"::"GEBEN; DIE PHASENVERSCHIEBUNG PHI IST"::"IN GRAD ANZUGEBEN.":: "K1 = ";K1::"K2 = ";K2::"PHI = ";PHI:PPPHI1803.141592653 &:600 01100 X21:721):PPPHI1803.141592653L h:24:">ESC< TASTE, UM ABZUBRECHEN";:600] iI13000:Iy jA(16384):A155350 k16368,0 r1100  :"DIE AMPLITUDEN WERDEN NACH DEN FOL-"::"GENDEN FORMELN BERECHNET:":% "X = X0 * SIN( K1*T )GEBEN ALS AUCH"::"DURCH ZUFALL ERMITTELT WERDEN."j x24:"TASTE DRUECKEN, UM FORTZUSETZEN ... ";:A$:r ,: 6"WIRD EINE ZUFAELLIGE PARAMETERAUSWAHL "::"GEWUENSCHT? J/N => ";:A$:A$"J"400 ^K1((1)2101):K2((1)2101):PHI5((1)BEI DER UEBERLAGERUNG ZWEIER"::"HARMONISCHER SCHWINGUNGEN BEI SENKRECHT"::"ZUEINANDER STEHENDEN SCHWINGUNGS-"::"RICHTUNGEN ERGEBEN."3 n::"ES KOENNEN WAHLWEISE DIE NOTWENDIGEN"::"PARAMETER (FUER KREISFREQUENZ UND "::"PHASENVERSCHIEBUNG) VORGE%  ::10:"=======================================":::"MATHEMATIK-PROGRAMM:"::"L I S S A J O U S - F I G U R E N":::"======================================="I13000:( d"DAS PROGRAMM BERECHNET KURVEN, WIE SIE"::"SICH      "> > &"> " " >""""> >"  > ""*"">"">"> "">"2""> " >"">"">"> 2" &""**"**EN ZAHLEN) "::"GEWUENSCHT? J/N => ";:A$?&A$"N"ė:800G':M'IIIIH:IT9900AGFR3:PPGX:QQGY:XXPH:YYQHK2150S&:&"SOLL DIE BERECHNUNG DER FLUGBAHN FORT-"::"GESETZT WERDEN? J/N => ";:I712000:I7:16299,0:16304,0:A$:A$"N"I0:2150&:+&"WIEDERHOLUNG (MIT ANDER:3:FF265+0,95279,95:140,0140,191;@R1(R0FF)JH140R1,95JIR1R1:140I,95(R1R1II)::IR1R11:139I,95(R1R1II)::140R1,954FAH:I0fR(XXYY):IN(IN)ĭ(X)FF139(Y)FF94ē140XFF,95YFFEWEILIGE"::"POSITION DES SATELLITEN GEPLOTTET "::"WERDEN?":eb"PLOT-ZEIT (IN MIN) => ";PT::tjN(PT60)t"NACH WIEVIEL PLOT-ZEIT-EINHEITEN SOLL"::"DAS PROGRAMM BEENDET WERDEN?":v"ANZ. DER PLOT-EINHEITEN => ";TT:TT(TT):TNTT EN "::"(VX,VY) SIND EINZUGEBEN (IN KM/S).":T"VX .. => ";P::"VY .. => ";Q:ZLV"WIE GROSS SOLL DIE FUER DIE BERECHNUNG"::"ZUGRUNDE GELEGTE ZEITEINHEIT SEIN?":X"DELTA T (IN S) ... => ";H:H(H)::@`"NACH WELCHER ZEIT SOLL DIE JR0:. '"BESCHLEUNIGUNG (IN M/S^2) => ";G0:B *AG0R0R01000H  "DIE KOORDINATEN (X,Y) DES SATELLITEN "::"BZGL. DES ZENTRALKOERPERS SIND EINZU-"::"GEBEN (IN KM)."::"X ... => ";X::"Y ... => ";Y:::."DIE GESCHWINDIGKEITSKOMPONENTLLITEN "::"BENOETIGTE ZEITQUANTUM ANZUGEBEN."e 24:"TASTE DRUECKEN, UM ZU BEGINNEN ... ";:A$: :"RADIUS DES ZENTRALKOERPERS UND DIE "::"SCHWEREBESCHLEUNIGUNG AN DER OBER-"::"FLAECHE SIND EINZUGEBEN.": %"RADIUS (IN KM) .......... => ";:"SEINER OBERFLAECHE. AUS DIESEN BEIDEN":X y"GROESSEN BERECHNET DAS PROGRAMM ZU-": z"NAECHST DAS PRODUKT AUS MASSE UND "::"GRAVITATIONSKONSTANTE: G*R^2 = GAMMA*M.":/ }"FERNER IST DAS FUER DIE BERECHNUNG DER"::"DISKRETEN ZUSTAENDE DES SATET) ) SEINE"::"LAGE UND ( VX(T) , VY(T) ) SEINE "::"GESCHWINDIGKEIT." n24:"TASTE DRUECKEN, UM FORTZUSETZEN ... ";:A$:+ x"FUER DIE BERECHNUNG WERDEN WEITER BE-"::"NOETIGT: RADIUS DES ZENTRALKOERPERS"::"SOWIE DIE SCHWEREBESCHLEUNIGUNG AN ":OGRAMM BERECHNET DIE SATELLITEN-"::"BEWEGUNG UM EINEN ZENTRALKOERPER, WIE "::"SIE SICH AUS DEM GRAVITATIONSGESETZ"::"ERGIBT.":H h"S(T) = ( X(T) , Y(T) , VX(T) , VY(T) )"::"GIBT DEN ZUSTAND DES SATELLITEN ZUR ZEIT":"T AN; DABEI SIND ( X(T) , Y(O  :?8:"======================================="::n"S A T E L L I T E N B E W E G U N G"::("P. GOLDKUHLE"::"19.09.1980"::2"======================================="<I13500:I:d"ERLAEUTERUNGEN:":: f"DAS PR     IT DER X-ACHSE: 1 MIN":"EINHEIT DER Y-ACHSE: "N010" ATOME":"HALBWERTSZEIT: "T" MIN";^ 2!T20279ē0,84T20,84T20,159"T40279ē0,122T40,122T40,159#T60279ē0,141T60,141T60,159$T80279ē0,150T80,150T80,159%3:22:958:"WIEVIEL ATOME ZU BEGINN?";:" => ";N0N05Ė1:21:(7):"STATISTIK FUER "N0" ATOME ??? WIEDERHOLUNG!";:I13000::2061:22:"EINHEIT DER X-ACHSE: 1 MIN"23:"WELCHE HALBWERTSZEIT? => ";:"";T::P.05(2)TW:22:"EINHERITH-"::"MISCHE DARSTELLUNG Y=LOG(N(T)) ERGIBT"::"EINE GERADE."::"WIRD DIE LOGARITHMISCHE DARSTELLUNG"::"GEWUENSCHT? J/N => ";:A$A$"J"3000:3:0,00,159279,159 Y015015:1,159Y: X2027020:X,158:2 11,159AGX1,158AGX,158AG"e24:"FORTSETZUNG DES GRAPHEN? J/N => ";:A$:A$"N"ė:1710:24:"WEITERE BEARBEITUNG? J/N => ";:A$:A$"N"ĉ::200E:"BEI DER DARSTELLUNG Y=N(T) ERHAELT MAN"::"EINE EXPONENTIALKURVE. DIE LOGAD22:"EINHEIT DER X-ACHSE: "XE" MIN":"EINHEIT DER Y-ACHSE: ---"[Y914910:1,Y:uX1027010:X,158:X1279AG0I1K:M(I)M(I)DT(L(I1)M(I1)L(I)M(I)):A(I)LL(I)M(I):AGAGA(I):I1K:X,159A(I)::X,159AGXAPHEN? J/N => ";:A$:A$"N"ė:1510n;:24:"AKTIVITAETSKURVE GEWUENSCHT? J/N => ";:A$:A$"J"ė:1700@:24:"WEITERE BEARBEITUNG? J/N => ";:A$:A$"N"ĉ::J200I1K:LL(I)L(I)LMAX:M(I)M(I)150N0::3:0,00,159279,159159X22:"EINHEIT DER X-ACHSE: "XE" MIN":"EINHEIT DER Y-ACHSE: "(YE10)10" ATOME"oY914910:1,Y:X1027010:X,158:X1279I1K:N(I)N(I)DT(L(I1)N(I1)L(I)N(I))X,159N(I)Y0:,&624:"FORTSETZUNG DES GRGABE DER HALBWERTSZEITEN (IN MIN):"::2VI1Ku`4:1:"HALBWERTSZEIT T1/2 ("I") => ";:868:"";T:L(I)(2)TeL(I)LMAXLMAXL(I)joTMIN(2)LMAXDTTMIN20:XETMIN2:I1K:N0N0N(I)::Y0150N0:YE10Y0:3:0,00,159279,"VORHANDEN SEIN? J/N => ";:A$:A$"J"ĺ"JA":::"ANZAHL DER KERNE DER MUTTERSUBSTANZ "::22)"=> ";:"";N(1):M(1)N(1):1100 :"AUSGANGSSITUATION:":I1K4:1:"GENERATION NR."I19)" => ";:868:"";N(I)M(I)N(I)'L:"EINA$"2"2000P A$:(7)::"FALSCHE EINGABE! WIEDERHOLUNG.":I12000::220Z :: "WIEVIELE GENERATIONEN SOLLEN BERUECK-"::"SICHTIGT WERDEN? ANZAHL => ";:"";K N(K),L(K),M(K),A(K),LL(K):"SOLL ANFANGS NUR DIE MUTTERSUBSTANZ"::$e :::"BERECHNUNG VON MUTTER-TOCHTER-GENERA-"::"TIONEN ................. >1< EINGEBEN"::: "SIMULATION DES RADIOAKTIVEN ZERFALLS"::"MITTELS RND-FUNKTION ... >2< EINGEBEN": 13:958::"GEWUENSCHTE ZAHL => ";:A$ A$"1"1000 OMIT UM EINE ECHTE "::"SIMULATION DES NATUERLICHEN RADIOAKTIVEN":"ZERFALLS.": "BEI GROSSEN VORGEGEBENEN TEILCHENZAHLEN ":"VERBESSERT SICH DIE STATISTIK - DIE "::"RECHENZEIT ERHOEHT SICH ABER!" 24:"TASTE DRUECKEN, UM FORTZUSETZEN ... ";:A"MIT HILFE DER RND-FUNKTION. ":X 24:"TASTE DRUECKEN, UM FORTZUSETZEN ... ";:A$: "DABEI ZERFALLEN DIE ATOME EINZELN"::"GEMAESS IHRER AUS DER VORZUGEBENDEN"::"HALBWERTSZEIT BERECHNETEN MITTLEREN "::"LEBENSDAUER.":Q "ES HANDELT SICH S"AKTIVITAETSKURVEN RADIOAKTIVER SUB-"::"STANZEN. DABEI SIND MEHRERE MUTTER-": "TOCHTER-GENERATIONEN MIT VERSCHIEDENEN"::"ANFANGSBEDINGUNGEN MOEGLICH.":! "DARUEBERHINAUS BESTEHT DIE MOEGLICHKEIT"::"ZUR SIMULATION DES RADIOAKTIVEN ZERFALLS":  ::d7:"=======================================":::"RADIOAKTIVER ZERFALL":::"P. GOLDKUHLE, 21.12.1980":::"======================================="nI13000:I:P x"ERLAEUTERUNG:":::"DAS PROGRAMM BERECHNET ZERFALLS- UND"::      ER SEK. IN MM: ";J:0"WINDUNGEN SEK.: ";L:6?480G:Q::7:"=======================================":::"TRANSFORMATOR-BERECHNUNGEN":::"AUTOR UNBEKANNT"::"MODIFIZIERT AM 06.01.1981, P. GOLDKUHLE"::"============NG IN VOLT: ";C:5"PRIMAERSTROM IN AMPERE: ";H:X"PRIMAERLEISTUNG IN VA: ";G:"DRAHTDURCHMESSER PRIM.IN MM: ";I:"WINDUNGEN PRIM.: ";K:"SEKUNDAERSPANNUNG IN VOLT: ";D:"SEKUNDAERSTROM IN AMPERE: ";E:"DRAHTDURCHMESSKERN M 85 A":KC4:LD4.4:900I\B$"KERN M 85 B":KC3.4:LD3.6:900tfB$"KERN M 102 A":KC3.2:LD3.5:900pB$"KERN M 102 B":KC2.4:LD2.6:900:"DIE DATEN DES ERRECHNETEN TRAFOS SIND:":P01000:PB$:"PRIMAERSPANNU ZU GROSS !":::105 K=WDG PRIM. / L=WDG. SEK.[ B$"KERN M 42":KC21:LD23:900*B$"KERN M 55":KC11:LD13:9004B$"KERN M 65 A":KC7:LD7.5:900>B$"KERN M 65 B":KC5:LD5.5:900HB$"KERN M 74":KC5:LD5.5:900RB$".5)(100.5): DRAHT 0 PRIM.]NJ(4E(3.142.55)):J(J100.5)(100.5): DRAHT 0 SEK.lG4ī800|G10ī810G22ī820G40ī830G45ī840G60ī850G100ī860G110ī870 G160ī880:"LEISTUNGTE DER STABILISIERUNG1!E(E100.5)(100.5)O&FED: SEKUNDAERLEISTUNGk+F(F100.5)(100.5)0G1.1F: PRIMAERLEISTUNG 5G(G100.5)(100.5):HGC: PRIMAERSTROM?H(H100.5)(100.5)DI(4H(3.142.55)):I(I100UNGS-":7"SCHALTUNG MIT TRANSISTOREN BZW. IC'S ":R"BERUECKSICHTIGT !":~::"GEWUENSCHTE GLEICHSPANNUNG: ";A:"GLEICHSTROM: ";B:"NETZSPANNUNG: ";C::DA1.4(2):D(D)1: U EFF SEK.E1.1B: SEKUNDAERSTROM + VERLUS SEK.: ";G:E"NEUE BERECHNUNG ERFORDERLICH (J/N) => ";:N$Ka(N$,1,1)"J"ī9x(N$,1,1)"N"ė:"BITTE MIT J ODER N ANTWORTEN !"::480:"BEI DER NACHFOLGENDEN BERECHNUNG SIND ":"DIE VERLUSTE FUER EINE STABILISIERIN AMPERE: ";H:3"PRIMAERLEISTUNG IN VA: ";E:]"DRAHTDURCHMESSER PRIM. IN MM: ";K:z"WINDUNGEN PRIM.: ";F:"SEKUNDAERSPANNUNG IN VOLT: ";A:"SEKUNDAERSTROM IN AMPERE: ";C:"DRAHTDURCHMESSER SEK. IN MM: ";L: "WINDUNGEN. / L=DRAHT 0 SEK.+ ~K(4H(3.142.55))D L(4C(3.142.55))` K(K100.5)(100.5)| L(L100.5)(100.5) :"DER BERECHNETE TRAFO HAT FOLGENDE DATEN:": P0500:P B$: "PRIMAERSPANNUNG IN V: ";B:"PRIMAERSTROM $"KERN M 65 B":F5B:G5.5A:381H TB$"KERN M 74":F5B:G5.5A:381p ^B$"KERN M 85 A":F4B:G4.4A:381 hB$"KERN M 85 B":F3.4B:G3.6A:381 rB$"KERN M 102 A":F3.2B:G3.5A:381 |B$"KERN M 102 B":F2.4B:G2.6A } K=DRAHT 0 PRIME40ī330 E45ī340- E60ī350> E100ī360O E110ī370` E160ī380 E160ĺ"LEISTUNG ZU GROSS !":10 ,B$"KERM M 42":F21B:G23A:381 6B$"KERN M 55":F11B:G13A:381 @B$"KERN M 65 A":F7B:G7.5A:381" JB ";B:% F"SEKUNDAER - STROM: ";C:/ K::M PDAC: SEKUNDAERLEISTUNGi UD(D100.5)(100.5) ZE1.1D: PRIMAERLEISTUNG _E(E100.5)(100.5) `HEB:H(H100.5)(100.5) d190 E4ī300 E10ī310 E22ī320 EL- ODER "::"GLEICHSPANNUNG VORHANDEN?"::">W< ODER >G< EINGEBEN ... ";:A$T k (A$,1,1)"W"ī50 (A$,1,1)"G"ī500 "BITTE MIT W ODER G ANTWORTEN !":(7):I12000:I:10 2"SEKUNDAER - WECHSELSPANNUNG: ";A: <"PRIMAERSPANNUNG:7 1000?:"****** BERECHNUNG VON NETZTRAFOS *******":"DIESES PROGRAMM ERRECHNET ALLE WICHTIGEN":"DATEN ZUM SELBERWICKELN EINES NETZTRAFOS":24:"TASTE DRUECKEN, UM FORTZUSETZEN ... ";:A$: ::N :"IST EINE SEKUNDAERE WECHS     DD(38)D(38)D$bDD(39)D(39)D2cD(DZ)D:hf" F;(HZ) D;(DB) F;(HZ) D;(DB)":885:pF(F.5):F$(F):F1E10F1ĺ:"FREQUENZ AUSSER BEREICH, BEENDET !":A130:(7);:A:2100q(F$)9F$" "F$:881rF$(F$,3)" "(F$,>">">"">""""<"">>>"">"">"">">"">"">>>"">"""">>">"">"""">>>">""">>"">"">""0""""""""""""""""""""""""""""""""""6"""""""""""""""""""""""""""""""""2"> 2 ">222WC(N)::NRNR1;"::" + BITTE ART DES NEUEN BAUTEILS """ (L/Q),(R/L/C/K)":820:" (ALTWERT: 0) ? ";A$:A$"0"A$A$(P)"F$(A$,1):D$(A$,1):(A$)2D$"L"D$"Q"F$"R"F$"L"F$"C"F$"K"İ825:1962#:A$(P)A$:13:820:::" + EINFUEGUNG NICHT MEHR MOEGLICH"::2110!A$"E"NRNR1:NPNR:FG%(N)FG%(N1):A$(N)A$(N1):WR(N)WR(N1):WL(N)WL(N1):WC(N)WC(N1)::1975"A$"H"āNNRP1:FG%(N1)FG%(N):A$(N1)A$(N):WR(N1)WR(N):WL(N1)WL(N):WC(N1)50 820:1900 1  BAUTEILE-AENDERUNGK  ==================Q  ::" + PLATZNUMMER DER AENDERUNG":" (KEINE AENDERUNG: 0) ";:820:" ? ";P:P0ĺ:2110 ((A$"E"A$"V")(PNR))(A$"H"P(NR1))İ825:1950:!A$"H"NREXāNt820:A$:A$"P"600&vA$"T"7506xA$"N"300SzA$"A"F1F137F3:300|A$"F"ė:FF1:880:"STARTFREQUENZ "F$" HZ":FFF337:880:"ENDFREQUENZ "F$" HZ":FF3:880:"INTERVALL "F$" HZ":260~A$"B"2100 A$"E"A$"H"A$"V"19" + NEUBERECHNUNG";:24:"(N)":" + ANSCHLUSSRECHUNG ";:24:"(A)q" + FREQUENZAENDERUNG";:24:"(F)":" + BAUTEIL-TAFEL";:24:"(B)":" + BAUTEIL ENTFERNEN";:24:"(E)":" - VERAENDERN";:24:"(V)"rNREXĺ" - HINZUFUEGEN";:24:"(H) ? ";RR):MMB7:MIB8:NNW:1600:V4PP:I4PIr&MM.5:MI0:NNV1V2V3V4:NII1I2I3I4:1600:D20LG((PP2PI2)):xhi KOMANDOTAFELj ============kl::15Bn885:" + PLOT-RUECKRUF";:24:"(P)":" + TABELLEN-RUECKRUF";:24:"(T)":========?2@PPMMNNMINI:PIMMNIMINN:8K DAEMPFUNG 2^ ===========dW(RRSS):MMB1:MIB2:NNW:NI0:1600:V1PP:I1PI:W1(SSRR):MMB3:MIB4:NNW:1600:V2PP:I2PI&W1W:MMB5:MIB6:NNW:1600:V3PP:I3PI:W(SS(FFWL(N)):BCFFWC(N):BBCBL:DRG2B2:A3GDR:A4BDR:NA51WR(N):eA61(FFWL(N)):wA6FFWC(N):'RWR(N):XLFFWL(N):XC1(FFWC(N)):XXLXC:DRR2X2:A5RDR:A6XDR:<= KOMPLEXE MUTIPLIKATION> ==============B7: H$I MATRIZEN-TRANSFER=J =================CKyLB1C1:B2C2:B3C3:B4C4:B5C5:B6C6:B7C7:B8C8:tu EINZEL-MATRIZENv =============== wxA3WR(N):A4FFWL(N):A41(FFWC(N)):=G1WR(N):BL1 =======================#C1A1B1A2B2A3B5A4B6:C2A1B2A2B1A3B6A4B5:C3A1B3A2B4A3B7A4B8:C4A1B4A2B3A3B8A4B7C5A5B1A6B2A7B5A8B6:C6A5B2A6B1A7B6A8B5:C7A5B3A6B4A7B7A8B8:C8A5B4A6B3A7B8A84,3)" "(F$,3):)uA140:"-";:A:[zA(D100.5)100:D$(A):A.01D$"<0.01":t{A99.9D$">99.9":|A1D$" 0"D$:894}A10D$" "D$~A(A)D$D$"."(D$)5D$D$"0":895 MATRIZEN-MULTIPLIKATIONV1,79V1,50V11,50V11,79:V2,81V2,U2V21,Y2X21,81 180GG:X2147B:Y280BBA X2278X21Y21Y2159PL1:1510H 1m X1,Y1X2,Y2:X1,Y1147,Y1X2,Y2 3:X1,79X1,50X11,50X11,79:X2,81X2,Y2X21,Y2X21,81 ,(PPG)11510 -PPG 61502 0:U1,V1U2,V2:U1,V1147,V1V2,V2; > X1,79X1,50X11,50X11,79:X2,81X2,Y2X21,Y2X21,81R G(256(1))PDl BFG(GF):BBGGBG 22:1:"G = "(100GF.5)100"*F ";:20:"B = "(100BF.5)100"*F " 24:1:"H(B)/H(G) = "(100BBGG)100" "; X1147G:Y= ::33I027010:I,80I4,80:I7,80:TI261377:147,I147,I3:177,72177,76:178,72:179,72:178,74 117,82117,86:118,82:119,82:118,84X15:Y10:X25:Y20:GG30:F30:PD145255 0:X1,Y1X2,Y2:X1,Y1147,Y1X2,Y2  165 '\ '] EIGENTEST+'^ ========={'` :::NR4:D(39),FG%(7),A$(7),WR(7),WL(7),WC(7):SS100:RRSS:F11.1E6:EX7'j F31E5:FG%(1)4:FG%(2)7:FG%(3)2:FG%(4)8:LG(L)(L)(10)(t WR(1)1E10:WL(1)9.74E6:WC(1)1.67E9:WC(2)2.59E9:WL(3)25.;&RWR(N)ĺ7)WR(N);:2140/&W7)"******";L&\WL(N)ĺ18)WL(N);:2150_&a18)"******";{&fWC(N)ĺ29)WC(N):2160&k29)"******"&pAN10:A(A)ĺ" + LISTENFORTSETZUNG (J/N) ?":A$:A$"N"1902&u:1902'xA$"H"A$"E"A$"A"2" ? ";D:DWC(P)D%3%D$"L"ĺP;"LAENGS";:L%D$"Q"ĺP;"QUER";:m%12:"(ALTWERT: 0) ";:820:s%0%1 BAUTEIL-TAFEL%2 =============%3%4:&>885:"NR ";7)"R (OHM)";18)"L(HENRY)";29)"C(FARAD)":885:N1NR:N;" ";A$(N)FG%(N)5$A$"QL"FG%(N)65$A$"QC"FG%(N)7K$A$"QK"FG%(N)8W$:2100$1992:"WIDERSTAND (OHM)":1994:" ? ";D:DWR(P)D$$1992:"INDUKTIVITAET (HENRY)":1994:" ? ";D:DWL(P)D$%1992:"KAPAZITAET (FARAD)":1994:F$"R"WC(P)0:WL(P)0:1985>#F$"L"WR(P)0:WC(P)0:1987`#F$"C"WR(P)0:WL(P)0:1989#F$"K"ĺ:1987:1989:1985#1975#N1NR:A$A$(N):A$"LR"FG%(N)1#A$"LL"FG%(N)2#A$"LC"FG%(N)3#A$"LK"FG%(N)4 $A$"QR" 24:20("WEITER MIT 'RETURN' ";?A$:(A$)13200G30I ERREICHT MIT CA"AX"FU = UNTERE GRENZFREQUENZ ERREICHT M. CE"GYkZ:"ANFANGSKAPAZITAET CA : ";CAq[\"ENDKAPAZITAET CE : ";CE]^"UNTERE GRENZFREQUENZ : ";FU`FOFU(CECA)ab"OBERE GRENZFREQUENZ : ";FOd200TAET IN UH : ";L&LC25330((F2)L).M:NN"KAPAZITAET IN PF : ";CWP200R:4:" BERECHNUNG ABSTIMMBEREICH"S:"CA = ANFANGSKAPAZITAET DES DREHKOS":T"CE = ENDKAPAZITAET DES DREHKOS"UV"FO = OBERE GRENZFREQUENZECHNUNG"0?:::"FREQUENZ IN MHZ : ";F:R@:"KAPAZITAET IN PF : ";KhBL25330((F2)K)pC:D"INDUKTIVITAET IN UH : ";LF200H:5:" KAPAZITAETSBERECHNUNG "I:::"FREQUENZ IN MHZ : ";F:J:"INDUKTIVI<<<":(7):I11000:I:26# 2:M 4:5:" FREQUENZBERECHNUNG "u 5:::"INDUKTIVITAET IN UH : ";L: 6:"KAPAZITAET IN PF : ";K 8F159(LK) 9: :"FREQUENZ IN MHZ : ";F <200>:5:" INDUKTIVITAETSBER* $" 4. BERECHNUNG ABSTIMMBEREICH "B %::" 5. ENDE"u &:::" ZAHL EINGEBEN => ";:A$:A$""38 (A$"1"52 *A$"2"62 ,A$"3"72 .A$"4"82 /A$"5"50 0A$"1"A$"2"A$"3"A$"4"Ģ20:12:">>> NUR 1 BIS 4 "TASTE DRUECKEN, UM FORTZUSETZEN ... ";:A$:3 g :" SCHWINGKREISBERECHNUNG ":q 34,3 :5:" 1. FREQUENZBERECHNUNG ":  " 2. INDUKTIVITAETSBERECHNUNG ": ! "" 3. KAPAZITAETSBERECHNUNG ": #ERSCHIEDENEN SCHWINGKREIS-":M "WERTEN. ES BRAUCHT NUR DIE ENTSPRECHENDE"~ "ZAHL EINGEGEBEN WERDEN, DANN WERDEN DIE": "ZUR BERECHNUNG ERFORDERLICHEN ANGABEN": "ABGEFRAGT UND DANN DIE BERECHNUNG DURCH-" "GEFUEHRT !":- 255:24:WINGKREISBERECHNUNGEN1 *** AUS FUNKSCHAU 7/80U *** MODIFIZIERT FUER APPLE VONr *** HEINZ-PETER DEUTSCH *** 4.4.1980 :5 "SCHWINGKREISBERECHNUNGEN MIT DEM APPLE.": "DIESES PROGRAMM ERMOEGLICHT DIE BERECH-": "NUNG VON VH ::7:"=======================================":::"SCHWINGKREISBERECHNUNGEN":::"AUS FUNKSCHAU 7/80"::"MODIFIZIERT VON ":"H.P. DEUTSCH UND P. GOLDKUHLE":::"======================================="I14000:I: *** SCH     Q3120"":1440:&20.80G PUNKTDICHTE,FARBE:RP3:3h SPANNUNGSKURVE:{Y8070(KT)100"T2791530, EINGABE UEBER REGLER:621:" : ERST POTI, DANN TASTE !"@A(0)J FAKTOR FUER WCHIEBUNG EINGEBEN.":g"SCHLIESSLICH WIRD DAS PROGRAMM UEBER DIETASTE DES GESTARTET.":"DARGESTELLT WERDEN DANN DIE STROM- UND DIE LEISTUNGS-KURVE."23:"FORTSETZUNG: ---> LEERTASTE! ";Q$:Q(Q$)Q3214907:"* *"Dd7:"*************************"Ln:x"ALS BEZUGSKURVE WIRD ZUNAECHST EINE SI- NUSFOERMIGE SPANNUNGSKURVE DARGESTELLT.":"DANN KANN MAN UEBER DAS POTENTIOMETER DES DIE GEWUENSCHTE PHASEN- VERS24:7:"GEDAEMPFTE SCHWINGUNG":'D PROGR.PHASEN-VERSCH.:l(::7:"*************************"27:"* *"<7:"* PHASEN-VERSCHIEBUNG *"F7:"* *"P7:"* JUERGEN HEIL 1.7.80 *" ZT27911602"NEUE KURVE: ---> TASTE Y"MENU: ---> TASTE "ENDE: ---> TASTE ";:Q$:Q(Q$)Q$"N"720Q$"M"140Q$"E"120Q3120"":1280:1200 UP.TEXT-FENSTER:! :Q$"H"1080Q$"N"720,Q$"M"140<Q$"E"120I$Q3120W."":980a81280iB80L EXPONENTIAL-FUNKT.:VY8075(AT)`P3j100tT2791100~80 NEG.EXPONENT.-FUNKT.:Y8075(AT)100 ON: 3'Y8075(AT)(KFT)0100@T279930k"HUELLKURVE: ---> TASTE ""NEUE KURVE: ---> TASTE ""MENU: ---> TASTE ""ENDE: ---> TASTE ";:Q$:Q(Q$) :::* EINGABEN:E4"FREQUENZ-FAKTOR EINGEBEN (1,3,6,9,12):"S>:"";F:H:"DAEMPFUNGS-FAKTOR EINGEBEN (MAX.10):"R:"";AA\:1280f20p80z DAEMPFUNGSFAKTOR:AAA1000 PUNKTDICHTE:P6F SINUS-FUNKTI::7:"*************************"G7:"* *"k7:"* GEDAEMPFTE SCHWINGUNG *"7:"* *"7:"* JUERGEN HEIL 13.6.80 *" 7:"* *"7:"*************************"  ---> TASTE "A l"MENU: ---> TASTE "{ v"ENDE: ---> TASTE ";:Q$:Q(Q$) Q$"W"370 Q$"M"140 Q$"E"120 Q3120 "":600   PROGR.GED.SCHWINGUNG:   TITEL:#INUS-FKTN.1 Y8075(KT)' 1007 T279460? 80R  SINUS-FKTN.2g Y8075(KTV)p 100 T279510 &80 0 SINUS-FKTN.3 :Y8075(KTV2) D100 NT279560 X9:"DREI-PHASEN-DREHSTROM" b"WIEDERHOLUNG: @Q$"P"1310 JQ$"E"120+ TQ31209 ^"":290? hY r PROGRAMM DREHSTROM:_ |  120 GRAD PHASENVER- SCHIEBUNG: V2.094395103 :24:9:"DREI-PHASEN-DREHSTROM" 20 80  PUNKTDICHTE,FARBE: P3:3  STROM":, 7:"G GEDAEMPFTE SCHWINGUNG":O 7:"P PHASEN-VERSCHIEBUNG":a 7:"E ENDE" ::"BITTE GEWUENSCHTES PROGRAMM ANWAEHLEN!"  ANFANGSBEDINGUNGEN: K3.1415926541.295180 "23:Q$:Q(Q$) ,Q$"D"370 6Q$"G"700 ***************"4 7:"* *"X 7:"* SINUS-DARSTELLUNGEN *"| 7:"* *" 7:"* JUERGEN HEIL 12.7.80 *" 7:"* *" 7:"*************************" :::7:"D DREHS  140( UPGM.KOORDINATENSYSTEM:.5(2F20,80279,80U<0,00,160[FmP UPGM.RESET:ZT0:T10:Y10:d UPGM.PUNKTFOLGE:nT1,Y1:T1T:Y1Y:TTP:x UPGM.ENDE:::"BYE-BYE!": MENU: ::7:"**********           4:22:"TABELLE GEWUENSCHT? J/N => ";:A$FA$"N"3100L<A)(XOXU)273,156(YYU)(YOYU)153*BXXUXO(XOXU)50YY1(MMD)X(CCD)pY2(MMD)X(CCD)Y1YUY1YO38443(XXU)(XOXU)273,156(Y1YU)(YOYU)153Y2YUY2YO38503(XXU)(XOXU)273,156(Y2YU)(YOYU)15353276,156YU(YUYO)153$BI1NNLX(I)XOX(I)XUY(I)YOY(I)YU3700mVPX3(X(I)XU)(XOXU)273XPY156(Y(I)YU)(YOYU)153`PX,PY2PX,PY2:PX2,PYPX2,PYt~XXUXO(XOXU)274YMXCYYUYYO3750$3(XXU "HOCHACHSE:":) "YMIN = ";YU:= "YMAX = ";YO: :21:"DURCHGEHENDE LINIE: BESTE GERADE"::"PUNKTIERTE LINIEN : MITTLERE ABWEICHUNG":3$0XO0XUē3XU(XUXO)273,33XU(XUXO)273,156&0YO0YUē3,156YU(YUYO)1C / C = "((CDC1000.5)10)" %"P 23:"ZEICHNUNG GEWUENSCHT? J/N => ";:A$b A$"N"3500l 3900~ ZEICHNUNG  :"EINGABE DER INTERVALLGRENZEN FUER DIE"::"ZEICHNUNG:":: "RECHTSACHSE:": "XMIN = ";XU: "XMAX = ";XO::SSWERTE ERGIBT"::"SICH:"B: (95):"X = "XQ:(95):"Y = "YQ:cD "M = "M17)"DELTA M = "MD:N "C = "C17)"DELTA C = "CD::X "DIE RELATIVEN FEHLER VON M UND C SIND:":b M0ĺ"DELTA M / M = "((MDM1000.5)10)" %":"l C0ĺ"DELTA ( "ZEICHNUNG ...... >Z< EINGEBEN":O "TABELLE ........ >T< EINGEBEN":t :"GEWUENSCHTER BUCHSTABE => "; A$:A$"T"A$"Z"3050 A$"Z"3500 TABELLE & ::"FUER DIE BESTE GERADE Y = M*X + C "::"DURCH DIE ANGEGEBENEN ME(X(I)XQ)Y(I): MMD) CYQMXQ7` N32500@j DD0et I1N:DDDD(Y(I)MX(I)C)2:z~ MD(DD(N2)D) CD(DD(N2)(1NXQ2D))  AUSGABE-ENTSCHEIDUNG  :"WELCHE FORM DER ERGEBNISAUSGABE WIRD"::"GEWUENSCHT?"::958:"NEUE EINGABE DES "I". MESSWERTES:"::"X("I") = ";:"";X(I):23:20:"Y("I") = ";:"";Y(I):1200m RECHNUNG 4XQ0:YQ0>I1N:XQXQX(I):YQYQY(I):HXQXQN:YQYQND0I1N:DD(X(I)XQ)2:M0 I1N:MMY("I") = "Y(I) IN1220R 21:1:958:"AENDERUNG EINES WERTES? J/N => ";h A$:A$"J"1500 21:1:"NUMMER DES FALSCHEN WERTES => ";:868:"";I INāI13:(7);:::"UNGUELTIGE EINGABE. WIEDERHOLUNG!";:I12000:I:1240g21:15:5:868:17:5:8682 [10:10:868::I:F `15:5:"";X(I)Z j17:5:"";Y(I)` ~ :"TABELLE DER EINGEGEBEN WERTE:": I0 II1:I17(I17)Ģ24:"TASTE DRUECKEN, UM FORTZUSETZEN ... ";:A$:3:1:958 "X("I") = "X(I)20)"(7)"SINN DER BESTEN GERADEN BEI <2 WERTEN?":I12000:I::500P X(N),Y(N) :"EINGABE DER "N" MESSWERTE"::"(ERST X-, DANN Y-KOORDINATE EINGEBEN,"::"MIT >RETURN< TRENNEN):":: 10:"MESSWERT": .15:"X = ":17:"Y = "; LI1N V  2000: RECHNUNG # 3000[ ::"WEITERE BEARBEITUNG GEWUENSCHT? J/N => ";:A$o A$"N"Ľ:500y ::  EINGABETEIL :"FUER WIEVIELE MESSWERTE SOLL DIE RECH-"::"NUNG DURCHGEFUEHRT WERDEN?"::A "ANZAHL => ";N:N2ĺ::R BESTEN GERADEN DURCH VORGEGEBENE"::"MESSPUNKTE.": n"BEI DER AUSGABE DER ERGEBNISSE KANN "::"ZWISCHEN GRAPHISCHER UND TABELLA-"::"RISCHER DARSTELLUNG GEWAEHLT WERDEN.": 24:"TASTE DRUECKEN, UM FORTZUSETZEN ... ";:A$: 1000: EINGABEM  ::7:"=======================================":::"BESTE GERADE":::"P. GOLDKUHLE, 18.01.1981":::"======================================="I12000:I:d"ERLAEUTERUNG:"::6 i"DAS PROGRAMM GESTATTET DIE BERECHNUNG"::"DE           UP.TEXT-FENSTER:;6:24:7:"GEDAEMPFTE SCHWINGUNG":X@ PROGR.PHASEN-VERSCH.: J::7:"*************************"T7:"* *"^7:"* PHASEN-VERSCHIEBUNG *"h7:"* *"r7:"* JUERGEN 75(AT)450$T2791470K"NEUE KURVE: ---> TASTE r"MENU: ---> TASTE "ENDE: ---> TASTE ";:Q$:Q(Q$)Q$"N"1030Q$"M"490Q$"E"470Q3470""":1580:1500,30<Q$"M"490"FQ$"E"470/PQ3470>Z"":1280Md1580:430fnEXPONENTIAL-FUNKT.:x5:T0:T10:Y15:T1,Y1Y8075(AT)P3:450T2791410430NEG.EXPONENT.-FUNKT.:5:T0:T10:Y1155:T1,Y1 Y80T)(KFT)450%T2791250P"HUELLKURVE: ---> TASTE "{ "NEUE KURVE: ---> TASTE ""MENU: ---> TASTE ""ENDE: ---> TASTE ";:Q$:Q(Q$)(Q$"H"13802Q$"N"10R EINGEBEN (1,3,6,9,12):"'t:"";F:U~:"DAEMPFUNGS-FAKTOR EINGEBEN (MAX.10):"b:"";AAn:1580{60:430DAEMPFUNGSFAKTOR:AAA1000PUNKTDICHTE:P6FSINUS-FUNKTION:6:T0:T10:Y180:T1,Y1 Y8075(Aʺ"* *"@$7:"* GEDAEMPFTE SCHWINGUNG *"d.7:"* *"87:"* JUERGEN HEIL 13.6.80 *"B7:"* *"L7:"*************************"V:::`EINGABEN:j"FREQUENZ-FAKTONU: ---> TASTE "\"ENDE: ---> TASTE ";:Q$:Q(Q$)lQ$"W"710|Q$"M"490Q$"E"470Q3470"":930 PROGR.GED.SCHWINGUNG: TITEL:::7:"*************************"7::Y115.04809468:T1,Y1+RY8075(KTV)4\450DfT279850VpSINUS-FKTN.3|z5:T0:T10:Y1144.9519053:T1,Y1Y8075(KTV2)450T2799009:"DREI-PHASEN-DREHSTROM""WIEDERHOLUNG: ---> TASTE """MED PHASENVER- SCHIEBUNG:1V2.094395103W:24:9:"DREI-PHASEN-DREHSTROM"i60:130:250{PUNKTDICHTE:P3 SINUS-FKTN.11:T0:T10:Y180:T1,Y1 Y8075(KT)*4504T279800>SINUS-FKTN.2H2:T0:T102 b::"BITTE GEWUENSCHTES PROGRAMM ANWAEHLEN!"K lANFANGSBEDINGUNGEN:g vK3.1415926541.295180{ 23:Q$:Q(Q$) Q$"D"710 Q$"G"1020 Q$"P"1600 Q$"E"470 Q3470 "":640  PROGRAMM DREHSTROM: 120 GRA"* *"? 7:"* JUERGEN HEIL 12.7.80 *"c &7:"* *" 07:"*************************" ::::7:"D DREHSTROM": D7:"G GEDAEMPFTE SCHWINGUNG": N7:"P PHASEN-VERSCHIEBUNG": X7:"E ENDE"0:T10:Y10:$  UPGM.PUNKTFOLGE:E T1,Y1T,Y:T1T:Y1Y:TTP:U UPGM.ENDE:{ ::1184:22:"BYE-BYE!":20,40  MENU: ::7:"*************************" 7:"* *" 7:"* SINUS-DARSTELLUNGEN *" 7:279,83 ,70,7870,82( 671,7871,82; @208,78208,82N J209,78209,82_ T34,7934,81p ^35,7935,81 h104,79104,81 r105,79105,81 |174,79174,81 175,79175,81 244,79244,81 245,79245,81  UPGM.RESET: T 12,2012,10" 239,68255,68/ 3:1:0< 110,12H 410,5V 2253,71d 7260,71r 3267,71 6136,90 5267,90 6273,90 UPGM.UNTERTEILUNG: 138,77138,83 139,77139,83 278,77278,83 "279,77 PROGRAMM "SINUS FARBE" 2'SHAPE'LADEN:_(4);"BLOAD PHYS11 (....... ZEICHNUNG)"(115,0:116,128:232,0:233,1282490<UPGM.KOORDINATENSYSTEM:F:3P0,80279,80Z0,00,160d1,01,160nxUPG.BESCHRIFTUNG:          SEHEN MIT VIER ZEILENTEXT,AUS DENEN HERVORGEHT,WELCHER":"FREQUENZBEREICH IN WELCHEN SCHRITTEN DURCHLAUFEN WURDE UND WELCHER MASSTAB FUER DIE Y-ACHSE MIT DEN DAEMPFUNGS- WERTEN GELTEN.BEIDES-ANFANGSWERT UND$"MASSTAB-HAT DER RECHNER SO GEWAEHLTLOT','KOMMANDO- FELD' UND 'ENDE' ALS NAECHSTEN SCHRITT AN.ENTSCHEIDET MAN SICH FUER 'ENDE', LOESCHT 'WOBBEL-PLOTTER' DEN SCHIRM UND VERABSCHIEDET SICH MIT 'BYE'.WUENSCHT MAN 'PLOT',STEHT NAMCH VIER ";""SEKUNDEN DIE";#"AUSGABE-GRAPHIK,VERASTE,DIE 'WOBBEL- PLOTTER' DAS LEBENSLICHT AUSBLAEST,DANN PIEPT'S.":"NACH 45 SEKUNDEN (ODER AUCH SPAETER, WENN'S UM GROESSERE";!" NETZWERKE GEHT)":"STEHT DIE ERSTE TABELLE AUF DEM SCHIRM.!10000:1:23:"12":""DER RECHNER BIETET 'PMAN DARAUF,FOLGT DIE NETZWERK-":"EINGABE:SCHRITT UM SCHRITT ERFRAGT DAS PROGRAMM ALLE INFORMATIONEN,DIE ES FUER SEINE ARBEIT BENOETIGT.BEI OFFENSICHT-!"EINGABEFEHLERN SCHIMPFT DER COMPUTER- LAUTSPRECHER EIN WENIG.ERWISCHT MAN VER-SEHENTLICH EINE T SAGEN,WAS ER ALS NAECHSTES ZU TUN HAT,UND EIN WENIG AUFZUPASSEN,OB DAS DENN UEBERHAUPT SEIN KANN,WAS "DER MANN AND DER TASTATUR EINGIBT.":10000:1:23:"11": "KONKRET:'WOBBEL-PLOTTER' BIETET ZU":"ERTS EINMAL EINEN EIGENTEST AN.VERZICH- TET IN DER DAS PROGRAMM MIT DEMMANN AN DER KONSOLE UMGEHT,DATEN UND BEFEHLE ANFORDERT,AUF IRRTUEMER";vq" AUFMERK-";gv"SAM MACHT.EIN BETRAECHTLICHER TEIL DER UEBER 1000 BASIC-SATEMENTS VON 'WOBBEL- PLOTTER' DIEHNT DAZU,DEM BENUTZTER PRAEZISE ZU====================================== BEDIEHNUNG ======================================================tb34,5:dl"EINES DER KRITERIEN,AN DENEN MAN HEUTZU-TAGE DIE QUALITAET VON PROGRAMMEN ZU MESSEN HAT,IST SEINE BENUTZERFREUNDLICH-KEIT:DIE ART,D ER SICH DAZU,EINE AUF 'WOBBELc:"PET AUFBAUENDE SIMULATION DES BETRIEBS-":10000:1:23:"9":D"VERHALTENS PASSIVER NETZWERKE ZU":"SCHREIBEN:'WOBBEL-PLOTTER',DAS HIER VOR-GESTELLTE PROGRAMM.":10000N:1:17:"SEITE 10hX"================DEN":"ALS SICH DER AUTOR VOR EINIGER ZEIT DIE0"AUFGABE STELLTE,MIT DEM MICROCOMPUTER ITT 2020 PRAKTISCHE ERFAHRUNGEN ZU":"SAMMELN,UM DAS GERAET IN EINER SENDUNG DES SUEDWESTFUNKS UND EINEM BEITRAG DER FUNKSCHAU VORSTELLEN ZU KOENNEN,DA ENT- SCHIEHT DAS NACHTRAEGLICHE EINFUEGEN VON BAUTEILEN INS NETZWERK.":10000:1:23:"8":.&"ZEIGTE SICH,DASS DURCH VERAENDERN DER VORGEGEBENEN BAUTEILE ALLEIN DIE GEWUEN-SCHTE DURCHLASSKURVE ZU ERREICHEN WAR, MUSSTE MIT DER EINGABE VON VORNE BEGON- NEN WERECHNER-"PROGRAMM VON STEFAN HAMERLI GESTATTE IN DER VEROEFFENTLICHTEN VERSION NUR DIE UNTERSUCHUNG VON VERLUSTFREIEN KAPAZI- TAETEN UND INDUKTIVITAETEN.'WOBBEL-PET' SCHLIESSLICH GAB NUR TABELLEN,KEINE":"DAEMPFUNGSKURVEN AUS UND ERLAUBTER"NICNER VOR.!10000:1:23:"7":"ALLE DREI LOESUNGEN WIESEN PPEZIFISCHE SCHWAECHEN AUF,SO VERLANGT DIE HOHE":"LEISTUNGSFAEHIGKEIT DES PROGRAMMS VON HARTWIG HARM EINEN GROSSEN HARDWARE- AUFWAND UND EINEN KOMPLIZIERTE BEDIEH- NUNG.DAS TASCHENR INGENIEUR STEFAN HAMERLI BRACHTE DREI"JAHRE SPAETER DAS KUNSTSTUECK FERTIG, PROGRAMMIERBAREN TASCHENRECHNERN DIE NETZWERK-SIMULATION BEIZUBRINGEN,UND DERAUTOR DIESES BEITRAGS STELLTE UNLAENGST DAS PROGRAMM 'WOBBEL-PET' FUER EINEN HOBBY-RECH9E6Q(~ WR(4)1E10:WL(4)6.24E6:WC(4)1.33E9:A$(1)"LK":A$(2)"QC":A$(3)"LL"r( EP6.2831835:A$(4)"QK":300x( e*6APZ((pN )((888hR $$* M)%8? M16N`-.-m <(-6.M d 6Ǿ M6 SCHWINGKREISE.":"VERAENDERN VON BAUTEILEN IM NETZWERK, EINFUEGEN NEUER BAUTEILE(BIS ZU DREI("UEBER DIE ANFANGSZAHL HINAUS,ENTFERNEN VON BAUTEILEN AUS DEM NETZWERK,( 10000:1:24:"6":)*"FORTSETZUNG DER RECHNUNG GENAU DORT,WO MAN NACH ERWERK-BESCHAFFENHEIT.DABEI BEDIEHNT ER SICH DER GLEICHEN NOTATION,DIE AUCH FUER DIE EINGABE GILT:DIE";{'" BUCHSTABEN L_( "UND Q FUER LAENGS UND QUERGLIEDER,DIE BUCHSTABEN R,L,C UND K FUER WIDERSTAENDE,INDUKTIVITAETEN,KAPAZITAETEN UND":"KOMPLETTE"SCHLAEGT DIE BERUHIGEND-GRUENE FARBE DESBETREFFENDEN BALKENS IN EIN AUFDRING- LICHES HELLROT UM.}&10000:1:24:"5":g'"DRITTE WAHLMOEGLICH NACH DER TABLELLEN- AUSGABE:DAS 'KOMMANDO-FELD'.HIER MELDET DER RECHNER ERST EINMAL DIE AKTUELLE NETZNGS-";%" ODER"%"MASSTABSWERTEN.VERLAESST EIN WERTEPAAR DEN DEFINITIONSBEREICH (DEM RECHNER SELBST UNTERLAUFT EIN SOLCHER":"SCHOENHEITSFEHLER NIE,SO ETWAS KOMMT ALLENFALLS BEI EINGRIFFEN ZUR MASSTABS- UND STARTWERTAENDERUNG VOR) DANNd&,":10000:1:23:"13":%"DASS ER DIE BETRACHTETE KURVE MIT":"GROESSTMOEGLICHER AUFLOESUNG ZEIGT.WILL MAN DETAILS GEWISSERMASSEN VERGROESSERT ODER DIE KURVE BELIEBIG NOMINIERT SEHEN,ERFUELLT DER RECHNER AUCH WUENSCHE NACH DARSTELLUNG MIT ANDEREN ANFA96 $'I770790:J:I,J:6.'769,100:: DURATION<8'( 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666e 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''76666666661* P1806.5650& 80,100P1,100P1,15060 H P28013.125b 80,125P2,125P2,150h z P38019.685 80,138P3,138P3,150 ' : GENERATES MUSIC TONES' 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174, 0,3,76,2,3,770: :CLICK SPEAKER t8:CALC. % REMAININGNR100(D900)100tPP1: TIME PERIOD OF 100 UNITS805P,150RRR(R10)1022:RR;"% REMAINING AFTER ";T;" DAYS " PITCHPITCH1768,PITCH 770::TONE ROUTINE:10:20)"OK" Q1500:Q(:9:PLOT DECAYOPAUSE(200(1))aQ1PAUSE:Qh0sX1,Y1A(X1,Y1)1$DD1::DECAY COUNTER.381B0:326,0L16:352,26V32:326,52`48:30,26j768,40:769,3:26,0 b16:352,26' l32:326,527 v48:30,26E P29660N 510p 24:"HALF LIFE IS 656 DAYS."~ 16368,0 KY(16384) KY128680 16368,0 : 10 "DO YOU WANT TO DO THIS AGAIN? ";Q$ (Q$,1)"Y"240W,150:QW" TT1::TIME COUNTER@ (T100(T100))0İ2000b (FLAG1R50)ĪFLAG2:3100 (FLAG2R25)ĪFLAG3:3200 &(FLAG3R12.5)ĪFLAG4:3300 0X110(30(1)1) :Y110(30(1)1) DA(X1,Y1)0ī650 N1000 X0:3AW "REACTOR" hQA052) r0,QA52,QA1 |QAJ :DRAW AXES OF GRAPHd 80,5080,150250,150v QW5014010 75,QW80,QW QW 70,5080,50 70,10080,100 QW852505 QW,153QW,150 QW QW13023050 QW,156QTS WHICH HALFLIFE IS PLOTTEDF R100::THIS IS % REMAINING INITIALLYh 10000::SETS UP TONE ROUTINE PITCH15: :INITIAL TONE "A(40,40) ,:3 6D$""::CNTRL D @D$;"BLOAD PHYS12 (.......... ZEICHNUNG)" T232,128:233,17 ^: DRROGRAM REQUIRES"6 "THAT THE FOLLOWING BINARY FILE"Y "IS ALSO PRESENT ON THE DISK"_ r 17)"'RADIO'"| :: "PRESS SPACE BAR TO BEGIN" KY(16384) KY128200 16368,0 :LOAD BINARY FILES :16384 FLAG1: SE  :16384+10)"RADIOACTIVE DECAY"1I(13)"A SIMULATION"O2v<7)"H.EDELSTEIN MARCH 3,1980"|FP"DEMONSTRATES THE CONCEPT OF 'HALF LIFE'"Z"AS A MEASURE OF AN EXPONENTIAL DECAY"d"PROCESS."n x"NOTE: THIS P     >"" **"""""">*"""">"*">""""""*"""*">">"""""""*"*" *""""&"*"&&"""2*"""""""""*"""""""""""""""""*"""&""""""""""""*" &""2""""""""6"""""6""""""""6""""""""""""""""6"""""""""""""""6""""&>">>">>"""<">>>>">">>>>>>>">">>">>>"">"">>"> "">">">>>>">>">>">">>">">>          z)   ӱũӱϭΠɩ& ӱԠϩ ӱǩ"ӱ̠ҩ"ӱǩAӱԭ̩"ӱíũӱҭΩ Ӡǩ Ӡ˺έ® Ӡũ ӠӭΩ ӱŠũ ӱӭǩӱǩϠ ӠӠΩӠӭΩӠΩ ӠҠ̩ӠϭΠɩ #DZ19Ģ4&21/*F$;" ";::D$;" ":A.DZ37ġ:500G/c4D110:B(16336)::9::"EINGABEFEHLER";::" -WIEDERHOLEN BITTE !"::F13:820::>880?(F$,1)" "F$(F$,2):831@\DZ0D(38)D:D(39)D]a ZWEITDRUCK ! ==========( `:::870:DZ037:F(F1DZF3.5):DD(DZ):800:N140:"-";::N037:F$F$(N):D$D$(N):" ";F$;" ";::D$;" ";:::500 MINI-ROUTINEN ============= 880:890:DZ198102100"A$"R"F1F137F3:3002A$"T"750BA$"E"540P825:666h:"TOP: ";TP" DB ""SKALIERUNG: ";DM" DB/EINHEITEN":820" + NEUWERTE: TOP,SKALIERUNG ? ";TP,DMTP0DM0İ825:677DM0DM(1DM)610EINHEITEN/DB)";:6650"(";DM;" DB/EINHEIT)";" ";:A$::" + PLOT-AENDERUNG";:30:"(P)":" + KOMMANDO-FELD";:30:"(K)":" + RECHNUNGSFORTSETZUNG";:30:"(R)"" + TABELLE (T) ODER ENDE";:30:"(E) ? ";820:A$:A$"P"675A$"K"DM.5):A376451{A0Ġ7:0,37(N2):4:645AA,37(N2)G:"H'TAL: ";:FF1:830:F$;" BIS ";:FF37F3:830:F$" HZ10:FF3:830:"(";F$;" HZ PRO EINHEIT)""V'TAL: ";TP;" DB BIS ";TP37DM;" DB":82010:DM1ĺ"(";1DM;" 25:500 TU PLOTTEN+V =======8X::DM1dYA(D(38)D(39))DM:(DM.01)(DM4)606{ZA37DMDM2:601\A18DMDM2:601^TP(D(39))b:1:1,3838:0,381:N0355:0,N::N6365:N,39:q4:N036vA((D(N)TP)D(38)D:D(39)D:870IFFFEP:860:865:800:DZDZ1:FFFFEPF3:310Oe SCHLUSSCHLEIFE{ ==============885:820"+ PLOT (P),KOMMANDOFELD (K), ENDE (E) ?";A$:A$"P"600A$"K"2100A$"E"ĉ::"+ BYE":&8LAEUFT"::FFEPF1:DZ0|6C11:C30:C50:C71:C20:C40:C60:C80:NNR11:1100:A11:A30:A50:A71:A20:A40:A60:A80hFG%(N)1400,1425,1450,1475,1500,1525,1550,1575r1000::1100|1800 AUSDRUCKEN ==========DZ0QK"Ą"QUERKREIS (RV,L,C) ";WR(N),WL(N),WC(N):FG%(N)8;AR EINGABE 2c =========:" + STARTFREQUENZ, INTERVALL (HZ),":" (ALTWERTE: 0) ";:820:F2,F4:F2F1F2F4F3F4)* HAUPTSCHLEIFE,:::"VIERPOLRECHNUNG ):FG%(N)3N A$(N)"LK"Ą"LAENGSKREIS (RP,L,C) ";WR(N),WL(N),WC(N):FG%(N)4 A$(N)"QR"Ą"QUERWIDERSTAND, OHM ";WR(N):FP%(N)5 A$(N)"QL"Ą"QUERSPULE, HENRY ";WL(N):FG%(N)6 A$(N)"QC"Ą"QUERKONDENSATOR, FARAD ";WC(N):FG%(N)75A$(N)"F$"C"F$"K")İ825:120) A$(N)A$:I :" WERTE DER ELEMENTE:":] N1NR:N;" "; A$(N)"LR"Ą"LAENGSWIEDERSTAND, OHM ";WR(N):FG%(N)1 A$(N)"LL"Ą"LAEGNSSPULE, HENRY ";WL(N):FG%(N)2 A$(N)"LC"Ą"LAENGSKONDENSATOR, FARAD ";WC(N? ";RR:NNRF PEXN3:FG%(EX),A$(EX),WR(EX),WL(EX),WC(EX)j Z:"ELEMENT-ANORDNUNG UND -ART: d9:"(L/Q), (R/L/C/K) ?": nN1NR sN10ĺ" "; xN;". ";:" ? ";A$:D$(A$,1):F$(A$,1):(A$)2(D$"L"D$"Q")(F$"R"F$"L" ODER EIGENSTEST (E) ?";:8202 A$:A$"E"2400K :LG(L)(L)(10)c EP6.2831835:D(39)i z  EINGABE 1  ========= (:885 2" ANZAHL DER ELEMENTE ? ";NR <" GENERATORWIDERSTAND ? ";SS F" LASTWIDERSTAND GTER PASSIVER KETTEN-";@ "SCHALTUNGEN WIE FILTER,DAEMPFUNGS-` "GLIEDER UND SO FORT.-":: "DIE BEDIENUNGSVORSCHRIFT ENTNEHMEN SIE "BITTE DEM SCHRIFTLICHEN DOKUMENTATIONS- "MATERIAL ZU 'WOBBELPLOTTER'.- :885::" +++ BETRIEB (B)y ! + WOBBELPLOTTER 13.04.79+B COPYRIGHT BY H.-G. JOEPGENc --------------------------i::8:" W O B B E L P L O T T E R"::8:"=========================="7:"DIESES PROGRAMM SIMULIERT DAS BETRIEBS- "VERHALTEN UNVERZWEI                   ================================================":34,5:'"VOR FUENF JAHREN HAT HARTWIG HARM EIN BEI ROHDE&SCHWARZ ENTWICKELTES":"'SCHALTUNGSANALYSE-PROGRAMM FUER KLEIN- RECHNER' VEROEFFENTLICHT,DAS AUF EINEM MINICOMPUTER LAEUFT.DER HIRSCHMANN- BASIC-TEXT UMFASST 8394 BYTE,ZUR DATEN- SPEICHERUNG WERDEN JE NACH NETZWERK- KOMPLEXITAET NOCH 0,5...2 KBYTE SPEICHERRAUM BENOETIGT.10000:34,01:17:"SEITE 69"==================================================== VORGESCHICHTE =====ARBIGE 'NETZWERK-DURCHLASSKURVE' AUF":"DEM BILDSCHIRM.DAS PROGRAMM LAEUFT":"OHNE AENDERUNGEN AUF DEN MICROCOMPUTERN":"ITT 2020 UND APPLE ]"(219)10000:1:23:"5":"KANN ABER LEICHT AUCH AN ANDERE RECHNER MIT FARBAUSGABE ANGEPASST WERDEN.DERIEBSVERHALTEN":"BELIEBIGER,MAESSIG VERZWEIGTER PASSIVER":"NETZWERKE WIE FILTER,DAEMPFUNGS-":"GLIEDER UND SO FORT IM FREQUENZ-":"BEREICH VON 1HZ...1GHZ.DIE AUSGABE""ERFOLGT ALS BETRIEBSDAEMPFUNGSTABELLE":"MIT JEWEILS 36 WERTE-PAAREN ODER ALS":"F370|T$(27)Ĭ)34,0:1:23:"4":17:"SEITE 4":"====================================================== D A T E N =======================================================34,5::"'WOBBEL-PLOTTER' SIMULIERT DAS":"STATIONAERE BETR":"NETZWERKE UND DEN PROZESS DES":"REALEN BAUTEIL-VERAENDERNS VERZICHTET":"WERDEN.c21:"========================================h23:"HIT RETURN FOR FURTHER INFORMATIONS":"OR ESC FOR RESTART ...";rT$:(T$)(13)(T$)(27)ĺ(7)(7);:ERFAHREN EINIGES":"AN LOETARBEIT UND HERUMPROBIEREN":"VERLANGT,FUEHRT ES OFT SCHNELLER ZUM":"ZIEL ALS EINE NEUBERECHNUNG VON GRUND":"AUF.MIT HILFE DES HIER VORGESTELLTEN":"BSIC-PROGRAMMS 'WOBBEL-PLOTTER' KAU^"KANN AUF DEN AUFBAU KONKRETER VERSUCH-HILFE EINES WOBBLERS OPTIMIERT.,:"========================================":"HIT RETURN FOR FURTHER INFORMATIONS":"OR ESC FOR RESTART ...";6T$:(T$)13(T$)27ĺ(7)(7);:310@T$(27)ĬJ1:23:"3":T:"WIEWOHL EIN SOLCHES VSRECHNER""ZUR VERFUEGUNG STEHEN,GERN AUF VOR-":"PROGRAMMIERTE FILTERKATALOGE ZURUECK.":"IN VIELEN FAELLEN GEHEN PRAKTIKER DEN":"EMPIRISCHEN WEG DER PROBLEMLOESUNG :""ES WIRD EIN NETZWERK AUFGEBAUT UND":"DIESES DANN,SCHRITT UM SCHRITT,MIT":"============================================"9 34,5: "DIE BERECHNUNG AUSGEDEHNTER FILTERNETZ-":"WERKE GEHOERT ZU DEN MATHEMATISCH " "AUFWENDIGSTEN AUFGABEN IN DER":"ELEKTRONIK.":"DESHALB GREIFT MAN SELBST DORT,WO ":"LEISTUNGSFAEHIGE GROS958:130 34,0::S0,250,250,400,400,470,470,470,470,590,590,590,590,590,590,590,850,850,850,850,850,850,850,850,850,850,1375,1375,1375,1520 ::17:"SEITE 2":"========================================";- "========= E I N L E I T U N G ======ITEN "I"-"J" : ARBEITSWEISE; P"SEITEN "K"-"L" : NACHTRAG] n"SEITEN "M"-"N" : WARNUNG !! x::"========================================": "GEBEN SIE BITTE IHRE WUNSCHSEITE AN ";S$:S(S$) S0150 SASN160 S1Ĭ 19:============================== W O B B E L - P L O T T E R ============================================== :"SEITEN "A"-"B" : EINLEITUNG ("SEITEN "C"-"D" : DATEN" 2"SEITEN "E"-"F" : VORGESCHICHTE <"SEITEN "G"-"H" : BEDIENUNG F"SEFOR RESTART ...";8 T$:(T$)27(T$)13ĺ"";:5s ::12:" BITTE WARTEN SIE EINEN AUGENBLICK":34,24 (T$)27ĺ"RUN PHYS13 (... ERLAEUTERUNG)" "EXEC PHYS13 (... EXEC-ROUTINE)" 34,0::17:"SEITE 1i "===============?EA2:B3:C4:D5:E6:F9:G10:H16:I17:J26:K27:L29:M30:N31M10u"BLOAD PHYS13 (.... TEXT-FORMEL)"16304,0:16297,0:16300,0 21:"========================================":23:"HIT RETURN FOR FURTHER INFORMATIONS":"OR ESC                    - WERKES AUS LINEAREN BAUTEILEN FUER EINE EINZIGE FREQUENZ ERSCHOEPPFEND BE- SCHREIBT.D IST DIE ABSOLUTE DAEMPFUNG UNTER BETRIEBSBEDINGUNGEN.":"BEI DER SIMULATION VON WOBBEL-VORGAENGEN";9"BRAUCHT MAN ALSO NUR DIE VIER KOMPEXEN GROESSEN ZU ER PROGRAMM,SS GLEICH QUELLWIDERSTAND UND RR GLEICH LASTWIDERSTAND.DIE KOMPLEXEN GROESSEN A11,A12,A21 UND A22 SIND DIE VIER ELEMENTE EINER KETTENMATRIX,DIE ALLE RELEVANTEN ELEKTRISCHEN ";7"EIGENSCHAF-";8"TEN EINES STATIONAER BETRIEBENEN NETZIE EINEN AUGENBLICK":34,24"6t206~16368,0H6::17:"SEITE 23"6"===================================================== ARBEITSWEISE ====================================================="634,57"IN DIESER FORMEL BEDEUTEN,WIE AUCH IM - FUER DENSIND DIE FOLGENDEN ZEILEN BESTIMMT: VOR MEHR ALS 20 JAHREN HAT RICHARD FELD-KELLER EINE FORMEL ANGEGEBEN,";5B"DIE DAS BE-";5L"TRIEBSVERHALTEN REELL ABGESCHLOSSENER NETZWERKE SO BESCHRIEBT:5V100006`::12:" BITTE WARTEN SAMMEN,DIE MIT DEN EIGENHEITEN DER HIER GEWAEHLTEN BASIC- ABART 'APPLESOFT' VERTRAUT SIND,WIRD EINBLICK INS PRGRAMM-";4."LISTING UND DIEz58"TABELLEN DIESE FRAGE WOHL DETAILLIERT BEANTWORTEN.WER SICH DAGEGEN RASCH EINENUEBERBLICK BESCHAFFEN MOECHTENETZWERK SELBST VERGEBLICH NACH VER- STAERKENDEN BAUTEILEN ODER AUCH NUR UN- UEBLICHEN TRANSFORMATOREN SUCHT.310000:1:24:"1":v4$"WIE WOBBELT 'WOBBEL-PLOTTER' NUN EIGENT-LICH ?":"FUER LESER MIT EINIGER UEBUNG IM ANALY- SIEREN VON BASIC-PROGR2"NUNGEN GEEIGNET SEIN KOENNTEN,GLAUBEN ANDAS PERPETUUM-MOBILE WACHZURUFEN.ETWA DANN,WENN MAN ENTDECKEN MUSS,DASS AUS EINEM UNBELASTETEM NETZWERK AUCH SCHON MAL MEHR SPANNUNG HERAUSKOMMT,ALS MAN REINSTECKT.UND DIES,OBGLEICH ";2"MAN IMp3"MAG.ZUM":"ZWEITEN VERMEIDET DIE GEWAEHLTE DEFINI- TION IRRITIERENDE ERGEBNISSE,DIE ";g1"BEI AN-";1"DERER BETRACHTUNGSWEISE AUF DEN ERSTEN BLICK UNTER GEWISSEN BETRIEBSBEDINGUNG- EN BEIM AUFTRETEN VON RESONANZERSCHEI-110000:1:23:"20":SSUNGEN AN EIN- GANG UND AUSGANG DES BEIDSEITIG BELAS- TETEN NETZWERKES ERMITTELN WUERDE";g0",UNDW1"NICHT DIE VON HOCHSCHULLEHREREN SO GE- SCHAETZTEN 'THEORETISCHEN VERLAEUFE', DENEN DER AUTOR NICHT EINMAL AKADEMI- SCHEN WERT BEIZUMESSEN VERSYSTEM 'SPEISENDE ";S/"QUELLE/UEBERTRAGUNS- NETZWERK/VERBRAUCHER' MIT ERFASST.l/10000:1:24:"9":\0"SIMULIERT WIRD ALSO DAS AUFTRETEN VON REALEN BEDINGUNGEN.DIE ERRECHNETEN WERTESIND PRAEZISE DIE,WELCHE MAN DURCH":"SPANNUNGS- ODER STROMMEZU- EINANDER KONJUGIERT";/." KOMPLEX SIND./:"DIESE BETRACHTUNGSWEISE,DIE DEM PROGRAMM'WOBBEL-PLOTTER' ZUGRUNDE LIEGT,BRINGT ZWEI VORTEILE:SIE IST PRAXISNAH,WEIL SIEDIE DURCH FEHLANPASSUNG VERURSACHTEN UEBERTRAGUNGSEIGENSCHAFTEN IM GESAM- ERK NUR DANN,WENN,-10000:1:24:"8":."1.DAS NETZWERK SELBST KEINE VERLUSTE VERURSACHT;":"2.DIE OHMSCHE KOMPONENTE DES QUELLWIDER- STANDES GLEICH DER OHMSCHEN KOMPONENTE DES LASTWIDERSTANDES IST;":"3.QUELLWIDERSTAND UND LASTWIDERSTAND TION EINES":"BEZUGSWERTES FUER 0 DB BEDARF.VON";<,z" DEN-"VERSCHIEDENEN MOEGLICHKEITEN FUER DIE FESTSETZUNG DES BEZUGSWERTES WURDE HIER DIE DER SPEISENDEN QUELLE MAXIMAL ENT- NEHMBARE LEISTUNG GEWAEHLT.EINE":"DAEMPFUNG VON 0 DB ZEIGT DAS NETZW=====================================================A+f34,5:1,p"ZUR DARSTELLUNG DES UBERTRAGUNGS VERHAL-TENS VON VIERPOLEN IST EIN LOGARITH- MISCHER MASSTAB VON VORTEIL-DAS BEDEUTET:AUSGABE IN DEZIBEL,EINEM VERHAELTNIS- MASS,DAS NOCH DER DEFINIETRIEBSART 'BAUTEIL HINZU- FUEGEN' NICHT LAENGER AN:'WOBBEL-":"PLOTTER' VERSPROCHT IN SEINER KOMMANDO- TAFEL NICHTS,WAS ER NICHT HALTEN KANN.*H10000:34,0*R1:17:"SEITE 17"5+\"===================================================== ARBEITSWEISE HALT DER LETZTEN 38 WERTE- PAARE AUFGEHOERT HAT,NEUBERECHNEN MIT ANDERER AUFLOESUNG:DAS KOMMANDO-FELD GIBT GENAUE ANWEISUNGEN,WIE MAN'S MACHT.WURDE DIE MAXIMALE ANZAHL ";)4"WEITERER BAU-*>"TEILE BEREITS EINGEFUEGT,BIETET DER":"RECHNER DIE B          =======":23:"HIT RETURN FOR FURTHER INFORMATIONS":"OR ESC FOR RESTART ...";G'T$:(T$)(13)(T$)(27)ĺ(7)(7);:10010G$'T$(27)ĬG.' AANTWORTEN SIE MIT JA ODER NEIN ...":10:A$@F6(A$,1)"N"250WF@(A$,1)"J"1570FJ::10:"DRUECKEN SIE JETZT UND STARTEN SIE WOBBEL-PLOTTER MIT RUN."FT::"LOAD WOBBEL-PLOTTER":F'NG':21:"=================================:"DIE TASTE"::13)"< R E S E T > ,"E:"UM ZU VERMEIDEN, DASS SICH DER RECHNER"::"AN IM MASCHINENCODE LAUFENDEN"::"PROGRAMMEN 'AUFHAENGT' !"E10000E"1:24:"1":+F,::"WOLLEN SIE "::13)"WOBBEL-PLOTER"::"JETZT LADEN ?"::"BITTE TAND.D10000D::17:"SEITE 30":"====================================================";::" W A R N U N G ";::"====================================================="D34,5&E:"DRUECKEN SIE VOR JEDEM START VON"::13)"WOBBEL-PLOTTER":NN IST UND DASS IN DER BETREF-C"FENDEN DOKUMENTATION AUF DIE AUSGEZEICH-NETE ARBEIT VON STEFAN HAMERLI HINGEWIE-SEN WIRD,DIE UNMITTELBAR BEIM ENTSTEHEN"C10000C1:24:"9":D"VON 'WOBBEL-PET' UND SOMIT AUCH BEI 'WOBBEL-PLOTTER' PATE SND FREUNDLICHST EINGELADEN,IHRE ";1B"WUNSCH-C"WUNSCHLOESUNGEN ZU IMPLEMENTIEREN.":"DER VERFASSER GIBT DAS PROGRAMM":"UEBRIGENS URHEBERRECHTLICH FREI-UNTER DEN BEIDEN EINSCHRAENKUNGEN FREILICH, DASS DAS ERGEBNIS WIEDERUM FREI FUER JEDERMADER LAUFZEITEN INTERESSIERN.5A10000:1:24:"8":#B"DEN VEROEFFENTLICHUNGEN VON HARM UND HAMERLI IST ZU ENTNEHMEN,WIE MAN DIESE WERTE MIT HILFE VON ALGORITHMEN,DIE SICHAUCH IN 'WOBBEL-PLOTTER' BEFINDEN,ER- MITTELT.SOFTWARE-EXPERIMENTATOREN SIH WAEREN.HIER HANDELT ES SICH UM ";1@"EINE"A"KLEINE DIENSTLEISTUNG FUER JENE PROGRAMMBENUTZER,DIE MEHR ERFAHREN WOLLEN ALS NUR ALLEIN DIE DAEMPFUNG,DIE IHR NETZ- WERK VERURSACHT-FUER LEUTE,DIE SICH":"BEISPIELSWEISE AUCH FUER PHASENGAENGE O========================================"5?x34,5:%@"AUFMERKSAMEN LESERN WIRD SICHERLICH SICHERLICH NICHT ENTGEHEN,DAS PROGRAMM- LISTING UND TABELLEN EINIGE ROUTINEN UNDVARIABLEN NENNEN,DIE ALLEIN ZUR BERECH- NUNG DER DAEMPFUNG NICHT ERFORDERLICEN DIE REELLEN KOMPONENTEN,":"B(2),B(4),B(6) UND B(8) DIE IMAEGINAERENKOMPONENTEN DER ELEMENTE A11,A12,A21 UNDA22 DIESER MATRIX.>Z10000>_:>d17:"SEITE 27)?n"======================================================= NACHTRAG ===============THEMATIK.WAS DABEIHERAUSKOMMT,SIND DIE VIERPOL-KOEFFIZI- ENTEN DES GESAMT NETZWERKES:VIER KOM- PLEXE ZAHLEN,DIE DER RECHNER ";=2"IN DEN ACHT";=<"PLAETZEN DES FELDES B(1...8) ABLEGT :=F10000:1:24:"6":>P"B(1),B(3),B(5) UND B(7) ENTHALTETAR-VIERPOLE BETRACHTET BETRACHTET, DEREN VIERPOL-KOEFFIZIENTEN DAS PROGRAMMBERECHNET.DANN WERDEN DIESE ELEMENTAR- VIERPOLE IN REIHE GESCHALET;=("GESCHIEHT DURCH KOMPLEXE MULTIPLIKATION DIESER VIERPOL-KOEFFIZIENTEN NACH DEN REGELN DER MATRIZEN-MATER HINZU,DASS ";;"DIE; "BERECHNUNG DER JEWEILS FUER EINE FREQUENZ GELTENDEN KETTENMATRIX DES NETZWERKES EBENFALLS EINIGEN AUFWAND;10000:1:24:"5":<"VERLANGT.'WOBBEL-PLOTTER' MACHTS SO: DIE BAUTEILE IM NETZWERK WERDEN ALS ELE-MFE EINES MICROCOMPUTERS ZEIGT SICH";"ABER DADURCH ERSCHWERT,DASS DERARTIGE KLEINEN MASCHINEN NICHT,WIE IHRE":"GROESSEREN BRUEDER,UNMITTELBAR MIT KOM- PLEXEN ZAHLEN RECHNEN KOENNEN.HIERZU BE-DARF ES LAENGERER UNTERPROGRAMME.":"ERSCHWEREND KOMMT WEIMITTELN,DANN NACH OBIGER"$910000691:24:"4":#:"FORMEL DIE DAEMPFUNG BERECHNEN,VERAEN- DERT DIE FREQUENZ,UND DAS GANZE SPIEL BEGINNT VON NEUEM:SO LANGE,BIS DIE AB- BRUCHBEDINGUNG ERFUELLT IST.":"DAS KLINGT EINFACH,DIE REALISIERUNG MIT HIL> ?"*@$> ~?> ~?>   "">>>>>>>>>>>>>""$*>>>>>>>>>>>>>  "" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> "">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>$>"""""""""$"""" "" """*""" """ "" $***""*""~>>">>~~~ >>><>>""p"">">>>>"">>>>>""x?<<p<"""x@"""$"6""" ""*"$"*"*"*""*<  >>>>>>>>>>>>>> $ * >>>>>>>>>>>>>   >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>$><<<@  FEN! ":#1605$#Q3.12415951#K3040@#"K2C(K3,1)T#'K20.95Q1585c#,KK3:K340m#1K3:#6K410.42(K41):#;:::::"KERN-BZW.DRAHTDATEN ERWEITERN!"#@:"(EVTL. ANDEREN SCHNITT WAEHLEN!)":1615'$E:::"EIN AUSDRUCK ER;" WDG./PRL ";D(8)"LL(8)E"S(8);" WDG./LAGE = ";Z(8);" LAGEN"O"1795g":Y$:Y$" "ī1535"34,0:::::::""DECKISOLATION 2 X OELSEIDE 0.05":::" "WICKELAUSNUTZUNG = ";E;" %"::::#:" BEI U > 100 V WICKL.-ISOL. PRUE !34,5 !Y$:Y$" "ī1470D!" ";U(7);" V / ";I(7);" A "g!"N7= ";N(7);" WDG./PRL ";D(7)r!LL(7)!S(7);" WDG./LAGE = ";Z(7);" LAGEN"!1795!U(8)0ī1530!" 2 X P 0.05":!" ";U(8);" V / ";I(8);" A """N8= ";N(8)S(5);" WDG./LAGE = ";Z(5);" LAGEN". 1795@ U(6)0ī1530U " 2 X P 0.05":y " ";U(6);" V / ";I(6);" A " "N6= ";N(6);" WDG./PRL ";D(6) LL(6) S(6);" WDG./LAGE = ";Z(6);" LAGEN" 1795 U(7)0ī1530!" 2 X P 0.05":" 2 X P 0.1 / 1 X CU-FOLIE 0.05 2 X P 0.05"|_Y$:Y$" "ī1380d::i:"SEKUNDAERWICKLUNG:"::::n" ";U(5);" V / ";I(5);" A "s"N5= ";N(5);" WDG./PRL ";D(5)xLL(5)$ }LL(3)/-S(3);" WDG./LAGE = ";Z(3);" LAGEN"921795X7:(7):"WEITERWICKELN!":<"235 V :N4= ";N(4);" WDG./PRL ";D(3)AS(3);" WDG./LAGE = ";Z(4);" LAGEN"F1795G34,0KY$:Y$" "ī1360P:::U:"SCHIRMUNG:"::::fZ;Z(1);" LAGEN"34,4"1795A :(7):"WEITERWICKELN!":k"125 V :N2= ";N(2);" WDG./PRL ";D(1)S(1);" WDG./LAGE = ";Z(2);" LAGEN"1795:(7):"WEITERWICKELN!":Y$:Y$" "ī1315#"220 V :N3= ";N(3);" WDG./PRL ";D(3)( I (115 V) = ";I(1);" A":?" I (220 V) = ";I(3);" A"::UY$:Y$" "ī1255_:::"PRIMAERWICKLUNGEN:":::" GRUNDISOLATION: 2 X P 0.05 "::"115 V :N1= ";N(1);" WDG./PRL ";D(1)LL(1)S(1);" WDG./LAGE = " ":1225-X12ĺ"KERN MD 85 B ":1225QX13ĺ"KERN MD 102 A ":1225uX14ĺ"KERN MD 102 B ":1225:::(10)"ENTNOMMENE SEKUNDAERLEISTUNG = ";P(2);" VA.":"AUFGENOMMENE PRIMAERLEISTUNG = ";P(1);" VA."::" M 85 A ":12255X4ĺ"KERN M 85 B ":1225XX5ĺ"KERN M 102 A ":1225{X5ĺ"KERN M 102 B ":1225X8ĺ"KERN MD 55 ":1225X9ĺ"KERN MD 65 ":1225X10ĺ"KERN MD 74 ":1225 X11ĺ"KERN MD 85 A (6)!VFFZ(7)H7Z(8)H(8)0.8.[FFW(8)D`E(100FM(X,8))TeE95ī1145^jXX1qoX7X151595zt750y:::~X0ĺ"KERN M 55 ":1225X1ĺ"KERN M 65 ":1225X2ĺ"KERN M 74 ":1225X3ĺ"KERN 7))!)Z(7)(100N(7)S(7))100=.S(8)(0.9M(X,7)D(8))[3Z(8)(100N(8)S(8))100t8W(8)W(1)W(8)W(1)=W(8)W(5)W(8)W(5)BW(8)W(6)W(8)W(6)GW(8)W(7)W(8)W(7)LF(Z(1)Z(2))H(1)(Z(3)Z(4))H(3)QFFZ(5)H(5)Z(6)HZ(2)(100N(2)S(1))1007S(3)(0.9M(X,7)D(3))UZ(3)(100N(3)S(3))100s Z(4)(100N(4)S(3))100S(5)(0.9M(X,7)D(5))Z(5)(100N(5)S(5))100S(6)(0.9M(X,7)D(6))Z(6)(100N(6)S(6))100$S(7)(0.9M(X,7)D(̭ԍα SFORDERLICH (JA/NEIN) ?":(20):(38):Y$9$JY$"J"İ1640g$O:::"NEUE BERECHNUNG (JA/NEIN) ?":Y$x$TY$"J"ī255$Y:(12):(12):" AUF WIEDERSEHEN "$^(23)$c$h$m$r$w$| $ PLATZRESERVIERUNG$% FUER DRUC'*,,,,3----$????''$% #`6.-%-%$??????46.---$?-/5?->/&5>%,$,---??75-?.=7-?.=7-?.=7-?6-5666>???????'$$$,->%,$,---??75-?.=7-?.=7-?.=7-?6-5666>???????'$$$,-/=$/=$------------''''TU/T8ePT ?UeRU @QJJJ`ŴxaI1S-Q/ ?QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! &#` L# !" #`#&/TeRTUU+5&E%0Q&&S [TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,&iPII&.if&JJJJS)PIȄR-Q?eQ _$ .WS.)`*()H)&JJ&&h' &' &' f&') .'#i-|0J, i` @ &Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+- 8gh dYY fo[%h`$joPd6?eM6dKid2e?Pa(Ӡ΢ϠР)d2eqd6?e:jq.?6@r`$jd6?e`%[_Gd6?eLf UVW'Xij'kYKM6Kd6e-\oPa(Ӡ͢Ҡ̠)*]Pa(ӠâϠԠ)G[Q^-rq-rq -rq -rq-rq]Π)_UVWUV W ]נ`q81? rr81?rrbf-r_5 Lq,PqUVWX`P%qxR\q\Y-TM6oa(ޠ)GPa(Ԡ)KV@p(ŠΠҠԠ)2Xoa(ҭŠϢŠ) Zd"q@q00<q88r88@rrrqLq'>q88rr880rr@qu\9Aq.?6@r`8r8r %\h`%_B` %\D``%\F`@%\H`78 r%\ JY\q\q\]ŠU2q/UVW\Yq0q\q1\q2UVW\Y3d6?eL\^)4qdqdqqdq 5qqUVWpX"8qd ed!e:P a(٠̠)oa(ԠŠҠ)UVWY&d,eO4rN@"Hr-(qqq3qqq*M,q\L.qhqc\0qqq\I1qqpq"\q|)UVWq.?6?8rrY[d2e?o5 q88 rrP a@*#rGd2e[3"d ed!ed"ed,eM[V$qq"qqKM6o a(̠ΠŠ)Y%oq\q\qqq[/qqvq\q6q\[q(\\[/qqq\q6q\[q(\\[Nq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r _d"ed,eM[0d&ed$ed%ed'eM[#qqq\q\ qq\q\9 qq\q\qq\\q*q\qq\qq0q     K- % % ROUTINE%%%,% 2%8%>%X% *** KERNDATEN ***B& 1.9,3,84.4,3.8,4.4,9.6,12.4,30,8.5,3.5,4,134,3.3,3.6,12.1,15.2,35,10.5,3.8,5,183,3,3.3,14.2,17.9,43,12,5.6,6,230,2.9,3.3,15.1,18.6,46,11.3,7,7,270,2.6,3,16.8,20(1P)2))((12P)2PXX2))?TH(((2M)((1P)2))(PX))EdMBER ";MM;"%"A"POSITION OF CAMBER ";PP;"%";" THICKNESS ";TT;Gdp SUBROUTINE FOR FORWARD~z PORTION OF MEANLINEYC((M(PP))((2PX)X2))TH((2MP)(1XP))d SUBROUTINE FOR AFTn PORTION OF MEANLINExYC((M(DEPENDANT&pON WHETHER APPLESOFT IS=qIN ROM OR IN RAM Or(110)32đht SET COLOR TO WHITEow3x21:958:"SECTION CHARACTERISTICS OF"y"NACA WING SECTION ";zP1((PP5)10):MM;P1;:TT10ĺ"0";{TT;":" "PER CENT OF CAP$)0PP$"40"EPP(PP$)1JPP1PP995410>TPPP100HY5305`^ SET UP APPLE HIGHzh RESOLUTION GRAPHICSm(110)32PICTUREFLAG1:"PLEASE PRESS ANY KEY WHEN THRU VIEWING":I12000:I:nSELECT PAGE 1 OR PAGE 2 oHIRES BUFFER M""CAMBER, IN PERCENT OF"M"CHORD (0 TO 25) ";MM$:(MM$)0MM$"6"[MM(MM$)pMM0MM255350}MMM100MM15305":'"WHAT IS THE POSITION","OF MAXIMUM CAMBER, IN"6"PERCENT OF CHORD"@"(1 TO 99) ";PP$:(P0) ";SSdSS5SS2005200(nS1SS25350::U"WHAT IS THE MAXIMUM"r"THICKNESS, IN PERCENT""OF CHORD? (0 TO 30) ";TT$:(TT$)0TT$"12"TT(TT$)TT0TT305305TTT1005470:"WHAT IS THE MAXIMU9"STANDARD SCREEN FORMATTING? (Y OR N) ";A$:YFLAG1PA$"Y"A$""5300X :u"GIVE CHORD IN PERCENT""OF SCREEN WIDTH (10 TO 100) ";WW10W1005130(CC(W100)P:U"HOW MANY STEPS ACROSS"Z"CHORD? (FROM 5 TO 20C,YLC90XXS12304 ROUTINE TO INPUTL WING SECTION DATA[ DEFAULTSq CHORD IN SCREEN COORDINATESC279 STEPS ACROSS CHORDS15016368,0:YFLAGĺ:"ANOTHER WING SECTION? (Y OR N) ";A$:(A$,1)"N"ė:: XUXYTST YUYCYTCT- XLXYTST= YLYCYTCTY  DEPENDING ON COMPUTERq  PRINT OR PLOT THE  POINTS FOUND. XUC279XUC0YUC90159YUC9002035 XUC,YUC90 XLC279XLC0YLC90159YLC9002200 XLSECTION (YT)9 YT(T.2)(A5X5A1XA2X2A3X3A4X4)M  CHECK IF DONE\ YT0YT0t @ FIND CO-ORDINATES J OF UPPER AND LOWER T SURFACES, (XU,YU) ^ AND (XL,YL). h CALCULATE SINE m AND COSINE OF TH. rST(TH) |CT(TH)  CALCULATE POWERS OF X( X5(X)3 X2XX? X3XX2L X4X2X2b x CALCULATE THE Y|  COORDINATE (YC) AND  ANGLE (TH)  OF THE MEANLINE  FOR EACH X. XPİ6000 XPİ6500  FIND THE THICKNESS OF  HALF THE `A5.2969 jA1.126' tA2.36164 ~A3.2843B A4.1015]  SEE "THEORY OF WING"n  "SECTIONS"  BY ABBOT ET AL  *********  INPUT THE DATA PICTUREFLAGĹ16368,0:A$: 5000  STEP ALONG CHORD X0 X11200IN RESPONSE TO EACH QUESTION."& 237 K12500:KJ  A PROGRAM TO_  CALCULATE NACAp  FOUR DIGIT  WING SECTIONS  BY JEF RASKIN  AUGUST 1978 $ ********** L ********** V CONSTANTS FOR THE W THICKNESS POLYNOMIALG 216,0Z d:10:17/n"AIRFOIL":x12:9\"A HIGH-RESOLUTION GRAPHICS"g14:5"PROGRAM FOR AIRCRAFT WING SECTIONS"18:5"COPYRIGHT 1978 APPLE COMPUTER INC" 20:" FOR DEMONSTRATION, PRESS THE RETURN KEY      W(6)C(K,4)QI(7)M(X,4)'15607D(7)C(K,0)GL(7)C(K,2)WH(7)C(K,3)gW(7)C(K,4)yQI(8)M(X,4)1560D(8)C(K,0)L(8)C(K,2)H(8)C(K,3)W(8)C(K,4)S(1)(0.9M(X,7)D(1))Z(1)(100N(1)S(1))1003)M(X,3)a1560#fD(3)C(K,0)3kL(3)C(K,2)CpH(3)C(K,3)SuW(3)C(K,4)ezQI(5)M(X,4)o1560D(5)C(K,0)L(5)C(K,2)H(5)C(K,3)W(5)C(K,4)QI(6)M(X,4)1560D(6)C(K,0)L(6)C(K,2)H(6)C(K,3) )(220000A)N(1)N(2);%N(4)(235000A)N(1)N(2)N(3)S*N(5)(U(5)1000B)k/N(6)(U(6)1000B)4N(7)(U(7)1000B)9N(8)(U(8)1000B)>QI(1)M(X,3)C1560HD(1)C(K,0)ML(1)C(K,2)RH(1)C(K,3)WW(1)C(K,4) \QI(P(1)P(2)M(X,0)M(X,1)5I(1)(P(1)1.15)100CI(2)I(1)\I(3)(P(1)2.2)100jI(4)I(3)AM(X,2)0.2M(X,3)M(X,5) BM(X,2)0.2M(X,4)M(X,6) A,M(X,2),M(X,3),M(X,5) N(1)(115000A)N(2)(125000A)N(1) N(30 ]750bX1g750$lX2-q7505vX3>{750FX4O750WX5`750hX6q750yX7750X8750X9750X10750X11750X12750X13750X14 ? X(2)21610P(2)40620,P(2)52630=!P(2)90640O&P(2)100650b+P(2)160660~0P(2)6.5P(2)29015955P(2)25680:P(2)55690?P(2)80700DP(2)120710IP(2)150720NP(2)195730SP(2)290740XX MIT M-SCHNITT >1<",:(18):"ODER"::\" MT MD-SCHNITT BENUTZEN ? >2<"q::(19):"> <"(15):(20):K1::(2):(12):"ICH RECHNE,BITTE ETWAS GEDULD !"K12560P(2)4P(2)1601595 P(2)9600 P 1590I(7)K4I(7)!;:" WICKLUNG 4 "::EU(8)OI(8)WK4a1590rI(8)K4I(8)P(2)U(5)I(5)U(6)I(6)U(7)I(7)U(8)I(8)32,0:33,40:34,0 ? P(2): END::::::"WOLLEN SIE EINEN KERN632,27:33,12:34,17;6@:" WICKLUNG 1 "::@EU(5)JJI(5)ROK4\T1590mYI(5)K4I(5)s^c:" WICKLUNG 2 "::hU(6)mI(6)rK4w1590|I(6)K4I(6):" WICKLUNG 3 "::U(7)I(7)K4"BRUECKENGLEICHRICHTER >2<":D "ZWEIWEGGLEICHRICHTER >3<":i "EINWEGGLEICHRICHTER >4<":s :: ":"EINGABE DER SEKUNDAERDATEN"::: '"ENTNOMM. WECHSELSPANNUG:" ,"ENTNOMM. GLEICHSTROM :" 1"GLEICHRICHTERART (S.O.):"014 Y08 M(X,Y),# Y* X0 E Y$:Y$" "ī240Y ::::::: "PRIMAERWICKLUNGEN: 115/125/220/235 V.":::::: Y$:Y$" "ī255 ::: :"GLEICHRICHTERART :"::: "WECHSELSPANNUNG >1<": 1981 * "E "* * * * * * * * * * * * * * * * * * * * " M(14,8),U(8),I(8),D(8),N(8),L(8),W(8),Z(8),H(8),S(8),P(8) A014 B08 M(A,B) B A C(40,4) A040 B04 C(A,B) B A 235:XUNGSBEREICH 4.....290 VA."::H n" M- UND MD-SCHNITT."::Q s:: x"* * * * * * * * * * * * * * * * * * * * " }"* AUFGEARBEITET FUER APPLE II VON * " "* HEINZ-DIETER SCHNAUT * " "* KASSEL IM APRIL APPLE II PLUS *7 7* VON H.D.SCHNAUT *V <* KASSEL IM APRIL 81 *u A* * F* * * * * * * * * * * * * K P U Z _:: d:" BERECHNUNGEN VON NETZTRANSFORMATOREN "::: i" LEIST$  * * * * * * * * * * * * *?* *^* TRAFOBERECHNUNG *}* VON ** ING.HAROLD AICHNER *#* ELEKTRONIK ARBEITS- *(* BLATT 125 *-* UEBERARBEITET FUER * 2*                Ā  Հ  ĀՀ    Օժ Հ̌Ց  ĀՀ  Հ  Āհ    ĀՀ  Հ̀Հբ檪ĀՓՀՀЀ檪ЀĀճՀՀI'  Օ ՕĀ̑Օ хՕբ檪ĔĀՀՁՈ Ց Ց Ց Ձ Հ ՅPUf**" *((*LUTQEEEUU=Ё                  ԕՑ ԁUQEQDUUU""( ("(""***DDDUDDUUU ((*"*" ***QQ@DDUUU(* * (***D@TU (((  " **""***?U@ @UTTPP@EPAUf*( ( (*( (""( ("(*L UTQEEDU@U*(("" *"*3UTTQQQEUUU_]]U]_U]]Umr*""" (** ۻ;;{nksSUEETDETDADUU w7_~>jr((( "**>z.nnV^[O?[euQQPEUU}]]Z z*#**(*"* "***[_RotTDDU@@UDUUU*** *( (""***UQADUUU""*( """***"n;~o>:;?9>%UTU@@}wW}wW}Wuu* "*SՀ*n?jn{.*oj~.okeQEE)DP Խ]U]_}]u]]*"*((Ѐ*躾??k+{.;+*;;EDDQ U}}wwuuWWw+*( *"""*~n>>~.*jb]QQ@DDDU::"KEINE LAGENISOLATION!"::%,+,1,, H.D.SCHNAUT KASSEL 20.APRIL 812,1.5,1.767,3,1.77,1.3,1.6,2.011,3,1.92,1.5,1.8,2.545,3,2.13,1.9,2,3.142,3,2.34,2.2 +L0ĺ"1 X P 0.01 NACH EINER LAGE":+L1ĺ"2 X P 0.01 NACH EINER LAGE":+ L2ĺ"1 X P 0.02 NACH EINER LAGE":+L3ĺ"1 X P 0.05 NACH EINER LAGE":,318,2,0.85,0.3,0.7,0.3959,2,0.9,0.3,0.75,0.4418,2,0.97,0.3,0.8,0.5027,3,1.02,0.4,0.85,0.5675,3,1.07,0.4,0.9,0.6326,3,1.12V+0.5,0.95, 0.7088,3,1.17,0.6,1,0.7854,3,1.22,0.7,1.1,0.9852,3,1.35,0.8,1.2,1.094,3,1.45,0.9,1.3,1.368,3,1.56,1,1.4,1.539,3,1.66,1.38,0,0.28,0.06158,1,0.039,0,0.3,0.07069,1,0.41,0.1,0.32,0.07793,1,0.44,0.1,0.35,0.09898,1,0.47,0.1,0.38,0.1105,1,0.5,0.1,0.4,0.1) 0.1257,1y* 0.52,0.1,0.45,0.159,1,0.58,0.1,0.5,0.1963,1,0.63,0.2,0.55,0.2463,1,0.69,0.2,0.6,0.2827,2,0.8,0.3,0.65,0.30,0.1,0.00758,0,0.144,0,0.11,0.0098,0,0.155,0,0.125,0.01227,0,0.165,0,0.14,0.01539,0,0.193,0,0.15,0.01767,0,0.204,0,0.16,0.02011,0,0.215(0,0.18) 0.02545,0,0.253,0,0.2,0.03142,0,0.273,0,0.22,0.03941,0,0.32,0,0.25,0.04909,0,0.36,0,0.27,0.05516,0,0..4,12,375,2.6,3,16.1,20,46,11.3,3.6,15.5,402,2.4,2.8,17.1p'21.4,58,13.5,5.4,17,600,2.3,2.7,20.6,24.9,58,13.5v'' *** DRAHTDATEN ***''X6( 0.06,0.00283,0,0.095,0,0.07,0.00396,0,0.11,0,0.08,0.00503,0,0.12,0,0.09,0.00636,0,0.133,,46,11.3,8.5,8,298,2.4,2.8,17.1,21.4,58,13.5,13,9,445,2.3,2.7,20.6O&24.9,589' 13.5,0,0,0,0,0,0,0,0,0,0.65,5,115,3.8,4.3,9.6,12.4,30,8.5,1.26,7.5,183,3.3,3.6,12.1,15.2,35,10.5,1.6,9,250,3,3.3,14.2,17.9,43,12,2.6,10.5,345,2.9,3.3,15.1,18.6,46,11.3,3  Ā  Հ  ĀՀ    Օժ Հ̌Ց  ĀՀ  Հ  Āհ    ĀՀ  Հ̀Հբ檪ĀՓՀՀЀ檪ЀĀճՀՀI'  Օ ՕĀ̑Օ хՕբ檪ĔĀՀՁՈ Ց Ց Ց Ձ Հ ՅPUf**" *((*LUTQEEEUU=Ё                  ԕՑ ԁUQEQDUUU""( ("(""***DDDUDDUUU ((*"*" ***QQ@DDUUU(* * (***D@TU (((  " **""***?U@ @UTTPP@EPAUf*( ( (*( (""( ("(*L UTQEEDU@U*(("" *"*3UTTQQQEUUU_]]U]_U]]Umr*""" (** ۻ;;{nksSUEETDETDADUU w7_~>jr((( "**>z.nnV^[O?[euQQPEUU}]]Z z*#**(*"* "***[_RotTDDU@@UDUUU*** *( (""***UQADUUU""*( """***"n;~o>:;?9>%UTU@@}wW}wW}Wuu* "*SՀ*n?jn{.*oj~.okeQEE)DP Խ]U]_}]u]]*"*((Ѐ*躾??k+{.;+*;;EDDQ U}}wwuuWWw+*( *"""*~n>>~.*jb]QQ@DDDUT *(" * * *UTQQEE UPU *((("" **UPEUTQPU*(((*""* *(*f* """()( **L"UPUy$* *UUUEUPQUU  @XpH((J * *.b~c.)ADU\}U}   j:k~?+UQ]]__W!(***2aT"(*** BD*D@DA@UUU#""***ADD@DAPDUUU ***PUUU"" ***D@DTUUU" ***TPUUUPTT@ @PP@@( ***( (*(( T@@@DD@UUP@PPP@PUTRPPP@@HP_^]UUVR%d;nz~:;;;{:**LDD$@wWWWww}wUUUTUI "* .nj+.**00)T@@UU ]ݝU]]uqER"b"2**zk;;0+*+./:*($D(`UU=wWuGuE UU(  **f * >) 1+BDDUUUUUU%'(` D*WuW_u]U U"zn~?.**T D_uw_UUV@ (nz{n.zk**j(lTU_]w_]u_UU]Ud&D*(";/{>;.{:?k;JJD,QUU }wuwwWwuWwU "*" @.nn{n/innj.!3TUDpW]_P@@@@(*(((" *((""" UTQQ*U*U@ @*(( ( PTUUTTTPQUEETTQQEED*(""U*U*U'EQQQ UT UTU"*"*#UTEU* *""" "" " "" " "("**  AQQAi!QEET: 8L#l]©^ҩqi"$$&""$" <"<"" <"<><><  & $$"* """"""" <" ,    ""&**"><<>< """*> ****,? $$"""""""< " "    """"""$$><,,< 37;3""" **"$ "$$**"""""**0""&" """"""&"""<"<> ??$""""$$$$$,><<><"><? "&"<""$$" """**& """* ",<",3$$""$"""""">< ᙁ??""""$   **">< " "**""$$  <" <",><"">""""""><">$$"">< <"< &""" ><<""""J$$? " ""<<   "" "" ""**><<" " ,< ""&$$ <"<><"><><&"""*""""<$$**" " **$""$$""  <"<" """ """Є $$,<><""$$,< $$""""*" ""** <**"<><">< "$$$$ $$"**"**<><"""""& ><><">><"" """""$$"" <" "$$<","$$ "<АД<" >< <"*< 6*"** ""& ****><><<$$**""6*""&& <><">< <"<""$$ ",< <"< , >< """*""""< **<"<><"" """ $$ ""><" ** <"< $$""$"" """" $$ <"<<,,,  "**"" <"<,><,<<" ><<""&" <"<"* ><"***,"  $$ ,"""  <"<<< ""$$$$$$"< , <" <""$$" "" Є<<,  >< ""$$**  33,"$$"","" """" """"<$$"*, <"<""><  "<& , <"<**>< " &&"<" "$$><<< &&**** $$"><"<<" <,""" <"""" $$ &" $ 3?3><" <**,><""**"$$ <<""""""**33><"< <"<"""""" ""& ",""" $$,$$" """"$ ><p' ><<> ""** <"<"* """""$3?3$$,"",,><><$"""""&><"><,<,< **"""$""               SYMBOLS :CODE :ORG STORE :CODE :ORG END MAKE "$BASE (16) MAKE "CH (36) TO OPCODE :INS :MODE OP LOOKUP :MODE THING :INS END T :DOT :BYTE END E ERROR [ORG < END OF LOGO] ER SETUP END SYMBOLS BF :CODE :DOT + ( SYMS.L FIRST :CODE FIRST FIRST :CODE ) END TO ERNS :NAMES IF :NAMES = [] STOP ERNAME FIRST :NAMES ERNS BF :NAMES END TO ASSEMBLE :CODE IF THING? "LABELS ERNS :LABELS MAKE "LABELS [] ND PR :CODE MAKE "CODE BF TEXT :CODE OP SYMS.L BF :LINE FIRST BF :LINE IF LIST? :TOKEN RUN :TOKEN OP 0 IF NUMBER? :TOKEN OP 1 ERROR :TOKEN [NOT AN INSTRUCTION] END TO STORE :CODE :DOT IF :CODE = [] STOP STORE1 FIRST :CODE FIRST FIRST :CODE END TO SYMBOLS :CODE :DOT IF :CODE = [] STOP AMODE1 FIRST :ARGS BF :ARGS END TO INSLEN :MODE OP FIRST THING :MODE END TO INS? :TOKEN IF THING? :TOKEN OP LIST? THING :TOKEN OP "FALSE END TO SYMS.L :LINE :TOKEN IF INS? :TOKEN OP INSLEN AMODE :TOKEN BF :LINE IF LABEL? :TOKEN ASSIGN :TOKEN :DOT ED] MAKE :LABEL :DOT MAKE "LABELS FPUT :LABEL :LABELS END TO LABEL? :TOKEN OP ": = LAST :TOKEN END TO AMODE :TOKEN :ARGS IF RELINS? :TOKEN OP "REL IF IMPINS? :TOKEN OP "IMP IF :ARGS = [] OP "IMP IF :ARGS = [A] OP "ACC IF BF :ARGS = [] OP "ABS OPCODE :INS :MODE OP LOOKUP :MODE THING :INS END TO LO8 :N OP REMAINDER :N 256 END TO HI8 :N OP QUOTIENT :N 256 END TO ERROR :A :B ( PRINT :A :B ) TOPLEVEL END TO ASSIGN :LABEL :THING MAKE "LABEL BL :LABEL IF THING? :LABEL ERROR :LABEL [ALREADY USING :TOKEN OP "FALSE END TO RELINS? :TOKEN IF INS? :TOKEN OP "REL = FIRST THING :TOKEN OP "FALSE END TO LOOKUP :THING :PLACE IF :PLACE = [] ERROR :THING [BAD MODE] IF :THING = FIRST :PLACE OP FIRST BF :PLACE OP LOOKUP :THING BF BF :PLACE END TO OP :BYTE OP :LEN END TO AMODE1 :FPART :LPART IF :FPART = "# OP LOOKUP BF :LPART :IMMS IF :FPART = "! OP LOOKUP BF :LPART :ZPS IF :FPART = "( OP LOOKUP BF :LPART :INDIRS OP LOOKUP :LPART :INDEXES END TO IMPINS? :TOKEN IF INS? :TOKEN OP "IMP = FIRST THTORE2 :LINE :MODE :LEN :BYTE MAKE "BYTE OPCODE FIRST :LINE :MODE MAKE "LEN INSLEN :MODE EMIT :DOT :BYTE IF :LEN = 1 PRINT [] OP :LEN MAKE "BYTE OPERAND :MODE BF :LINE IF :LEN = 2 EMIT :DOT + 1 :BYTE OP :LEN EMIT :DOT + 1 LO8 :BYTE EMIT :DOT + 2 HI8* ??`c 0@?`?p  0@a@0   0@# x @0  1@W `p||@ @pp@@( x x~~~xx`T p`p@p|{ ???$`|~@`~ xx@0 x1@`@0 8F` @@0@p`p~!`!C<!` ?`  p6A`@0  X?`@32 `G `? L ` `  p`xxx ` ?@ @||pp@ fx`xx``@@x ~x |*?pb #@x|~|"xL``~`| 0`l 0@ ``x@0 |# 0@!f? @0   0@ ??@0 !! ! ! ! PUT ( .EXAMINE 79 ) > ( .EXAMINE 78 ) END MAKE "PY 239 MAKE "PX 140 MAKE "VY (5.) MAKE "VX 0. MAKE "COM " INDER :PY 240 SETXY ( :PX - 140 ) ( :PY - 119 ) END TO DYNATURTLE MOVETURTLE COMMAND DYNATURTLE END TO COMMAND MAKE "COM READKEY IF :COM = "R RIGHT 30 IF :COM = "L LEFT 30 IF :COM = "K KICK END TO READKEY IF RC? OUTPUT RC OUTPUT " END TO RC? OUT fTO START DRAW FULLSCREEN PENUP MAKE "VX 0 MAKE "VY 0 DYNATURTLE END TO KICK MAKE "VX :VX + SIN HEADING MAKE "VY :VY + COS HEADING END TO MOVETURTLE MAKE "PX XCOR + :VX + 140 MAKE "PY YCOR + :VY + 120 MAKE "PX REMAINDER :PX 280 MAKE "PY REMA"""DA [A L] [LOGO MAKE A EVAL L OUTPUT EVAL L]] MAKE "EVAL [LAMBDA [E] [LOGO EVAL E]] DA MAKE "EVAL [LAMBDA [E] [LOGO EVAL E]] FPUT EVAL FIRST :L EVLIS BF :L END MAKE "CDR [LAMBDA [L] [LOGO BF L]] MAKE "CONS [LAMBDA [L1 L2] [LOGO FPUT L1 L2]] MAKE "SET [LAMBDA [A L] [LOGO MAKE A L OUTPUT L]] MAKE "CAR [LAMBDA [L] [LOGO FIRST L]] MAKE "QUOTE [FLAMBDA [L] [CAR L]] MAKE "SETQ [FLAMBNTSPRECHUNG IN P !IM FUNKTONSRUMPF BODY END TO EVAL :S IF :S = [] OUTPUT [] IF NUMBER? :S OUTPUT :S IF LIST? :S OUTPUT EVALLIST :S IF THING? :S OUTPUT THING :S PRINT ( SE [*** CANT EVAL] :S ) TOPLEVEL END TO EVLIS :L IF :L = [] OUTPUT [] OUTPUT FNERR :F PRINT ( SE [***] :F [IS NO FUNCTION] ) TOPLEVEL END TO EXEC :BODY !FUEHRE :BODY AUS !DABEI VERWENDE DIE FUNKTION ! [LOGO S-EXPR] , DIE ZU ! ( RUN S - EXPR ) EVALUIERT. END TO MATCH :PL :P :BODY !ERSETZE ALLE ELEMENTE VON PL !DURCH IHRE EATCH :PL EVLIS :P :BODY IFF EXEC MATCH :PL :P :BODY END TO FN :F TEST THING? :F IFF FNERR :F TEST LIST? THING :F IFF FNERR :F MAKE "TYPE FIRST THING :F IF :TYPE = "LAMBDA OUTPUT THING :F IF :TYPE = "FLAMBDA OUTPUT THING :F FNERR THING :F END TO OTO EVALLIST :L TEST WORD? FIRST :L IFT OUTPUT APPLY FN FIRST :L BF :L TEST "LAMBDA = FIRST FIRST :L IFT APPLY FIRST :L BF :L END TO APPLY :L :P MAKE "TYPE FIRST :L MAKE "PL FIRST BF :L MAKE "BODY FIRST BF BF :L TEST :TYPE = "LAMBDA IFT EXEC MLE`200000000000000000000L"`]  ` z  z `