' +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()?(hl8HIHHHHhHH݌hHhHh݌H6  }]ЯۑӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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`17:" H = ";H;" SEC"Y 21:"<7> KEINE AENDERUNG <";::"8";::"> ";::"MENU";: 23:1:"< > ";::"IHRE WAHL !"::23:2:HV$:(HV$)1(HV$)8252 US0:BS0:(HV$)260,270,280,290,300,310,500,400; 5:5::TA$::18:5:868:"E)LE0 = ";X0;" M":17:"Y0 = ";Y0;" M"n :"<3> STARTGESCHW.":11:17:"VX = ";XP;" M/S":17:"VY = ";YP;" M/S" :"ELEKTR. UND MAGNET. FELD:":"<4> FELDSTAERKE":15:17:"E0 = ";E0;" V/M" :"<5> FELDSTAERKE B0 =";B0;" T"::"<6> ZEITSCHRITT":19:S$"S)top S)tart D)ruck A)enderung"B 1:3:958:TA$"TEILCHEN"i M1.67E27Q1.6E19TA$"PROTON" M9.11E31Q1.6E19TA$"ELEKTRON" 1:5:"<1> ";TA$;" MIT :":5:17:" M = ";M;" KG":17:" Q = ";Q;" CB"" :"<2> STARTORT":8:17:"XMUNGSFAKTOR F = 10":10:24:"";F$:F(F$):F$""F10:10:24:Fx :"VERGROESSERUNGSFAKTOR V = 900":12:27:"";V1$ V1(V1$):V1$""V1900:12:27:V1 20:"KORREKT ? (J/N)":HV$:HV$"N"227 3:958 OMEGAQB0FM H5E10# UW 163848000!::M:5:" VERSTIMMTES ZYKLOTRON ":u5:"-----------------------------"P32783:M1.67E27:Q1.6E19:B0.787:XM.05:XX0.05:XP0:H5E9:YP0:X00:Y00:E01E6BX0:BY0:VX0:VY0A 10:958:"VERSTIM       "" VY = ";(YP$);" M/S"L "STARTORT X0 = ";(X0$);" M"y " Y0 = ";(Y0$);" M" "MAGNET. FELD MIT B0 = ";B0;" T" " AM ORT XMIN = ";XM;" M" " XMAX = ";XX;" M"!(4);""N"8140N:5:"DRUCKER JUSTIEREN!"::"WENN FERTIG, BITTE TASTE DRUECKEN"^HV$:(13)o(4);"PR#1""TEILCHEN MIT: MASSE M = ";M;" KG"" LADUNG Q = ";Q;" CB""ANFANGSGESCHW. VX = ";(XP$);" M/S" " 11:29:HV$:HV$"N"HV$"G"8076.D2@HV$"G"D66g(13);(4);"PR#1":1913,D:(145)x(4);"PR#0"::::"WOLLEN SIE AUCH DIE DAZUGEHOERIGEN DATEN":"AUSGEDRUCKT HABEN (J/N) ?"19:28:HV$:HV$"N"HV$"J"8101HV$T$135,160: P:Q$135,145:6P:"TH"143,150:MP:"SIM"143,165:`P:US$0,180:u0:0,0279,0:3US1968150::5::"AUSDRUCK"::" (EPSON-DRUCKER)"::" NORMAL- (N) "::"ODER GROSSDRUCK (G) ?"&)" CM":P:Q$135,145:+pP:"TH"143,150:AqP:"SIM"143,165:ZrP:"TASTE !"30,170:sUS(49152):49168,1:US1268060tI1250:I:P:"TASTE !"30,170:uI1100:I:8050|US2158043}P:"TASTE !"30,170:~P:B$P1,5: P:LER AUFGETAUCHT !"H^20:"ICH STARTE NEU !?!":::"FEHLERCODE = ";FCZhI11000::di8050kT$"R = "((YG1E5)1000)" CM":lP:T$135,160:mT1(XXXM)(.37XX):T2Q(XXXM):T3MV0:YT(T1T2)B0T3nQ$"R = "((YT1E5)1000US196ī8070'US193HV$"J":8155-FUS(49152):49168,0XUS196ī8070rUS193HV$"J":8155US211ı7100@ ******A FEHLERB ******JFC(222):FC53FC908041T::10::"ES IST LEIDER EIN FEHU"Q$23:1::"SIE HABEN LEIDER EINEN FEHLER GEMACHT !":I11200:I::iX ***************Y TASTATURABFRAGEZ ***************bUS(49152)l49168,0vUS128ıUS211İ7100:US155ĺ(13);(4);"RUN MENU" 400X0131:FS400Y0962 X0.35X0.375YGY0F Y00ēES,FS:R ES,FSX h *******x ABBRUCH *******X0(X0$):Y0(Y0$):XP(XP$):YP(YP$):::5:"HOMOGENES MAGNETISCHES FELD"::240(13);(4);"RUN MENX0XXBX0: BXQB0VYM:E ******************************j FUNKTION BY=F(X,X',Y,Y',T)=Y'' ******************************X0XMX0XXBY0:BYQB0VXM: ********** * GRAFIK * ********** 3 ESHXP(X(2,1)X(2,2)X(2,3))HH6NY0Y0HYP(Y(2,1)Y(2,2)Y(2,3))HH6i7000:BS1BS0:4000|3000: GRAFIK 1000x ******************************y FUNKTION BX=F(X,X',Y,Y',T)=X''z ****************************** X0XM1,4)XPX(2,3)H:Y(0,4)Y0Y(1,3)H:Y(1,4)YPY(2,3)HfXNX(0,4):VXX(1,4):YNY(0,4):VYY(1,4)~TTH2:1400:1450X(2,4)BX:Y(2,4)BYXPXP(X(2,1)X(2,2)2X(2,3)2X(2,4))H6YPYP(Y(2,1)Y(2,2)2Y(2,3)2Y(2,4))H6"X0X0Y(1,2)`TTH2:1400:14506jX(2,2)BX:Y(2,2)BYdtX(0,3)X0X(1,2)H2:X(1,3)XPX(2,2)H2~Y(0,3)Y0Y(1,2)H2:Y(1,3)YPY(2,2)H2XNX(0,3):VXX(1,3):YNY(0,3):VYY(1,3)1400:1450X(2,3)BX:Y(2,3)BYX(0,4)X0X(1,3)H:X(Y0:Y(1,1)YP9$XNX(0,1):VXX(1,1):YNY(0,1):VYY(1,1)f.1400:1450: BERECHNUNG VON X'' UND Y''~8X(2,1)BX:Y(2,1)BYBX(0,2)X0X(1,1)H2:X(1,2)XPX(2,1)H2LY(0,2)Y0Y(1,1)H2:Y(1,2)YPY(2,1)H2VXNX(0,2):VXX(1,2):YNY(0,2):VY 1000I14000:I:; ***********************Z * RUNGE-KUTTA - VERF. *y ***********************1050X0X0XPH:Y0Y0YPHXPXPBXH:YPYPBYHVXXP:VYYP1400:14501280 X(0,1)X0:X(1,1)XP:Y(0,1)X400XM131HV$"J"510*:P:23:<P:US$0,180:TP$"X":B00P$"."I0N:K06:P1MX20I:P23620K:P:P$P1,P2:K:I:P1MX20:P:B$P1,5:400X0131,400Y096:P:B$P1,5:16304,1:16297,1:16299,1:P:AW$0,185:(H$) 824093;XM.3XX.35XMXXBS1:9<W(13);(4);"RUN BZ.MENU"3::"SOLL DAS ALTE BILD STEHEN BLEIBEN ?"::"(J/N)";:HV$V0(XP2YP2):HV$"N"HV$"J"500 N((400XX131)(400XM131))20:B$"B0 = "(B0)" T":M14:21:" ";XM$:15:21:" ";XX$7#XM$""XM(XM$)N$XX$""XX(XX$)h'315:BS1İ4900:290q+240,17:5::"FELDSTAERKE";::17:21:" ";B0$-B0$""B0(B0$).240619:5::"ZEITSCHRITT";::19:21:" ";H$7H$""HY0$""Y0(Y0$)1312:US1İ4900:270:240|11:5::"STARTGESCHW.";::11:21:" ";XP$:12:21:" ";YP$XP$""XP(XP$)YP$""YP(YP$)240 "BS0:22:958:::" -0.3 < XMIN < XMAX < 0.35 "::14:5::"ORT";::6:17:"Q = ";Q;" CB":7:17:868:5:20:" ";M$:6:20:" ";Q$T M$""M(M$)h Q$""Q(Q$)q 240 22:958:::"-0.3 < X0 <0.35 UND -0.22 < Y0 < 0.25"::8:5::"STARTORT"::US0:8:22:"";X0$:9:22:"";Y0$X0$""X0(X0$)0,500,400k 5:5::TA$::18:5:868:"E)LEKTRON":18:6:868:"P)ROTON":7:18:"B)ELIEB. TEILCHEN"; HV$:HV$"E"HV$"B"HV$"P"261 HV$"E"M9.11E31:Q1.6E19:240 HV$"P"M1.67E27:Q1.6E19:240@ 5:17:"M = ";M;" KG"::"B0 = ";B0;" T"D :"<6> ZEITSCHRITT":19:17:" H = ";H;" SEC" 21:"<7> KEINE AENDERUNG <";::"8";::"> ";::"MENU";: 23:1:"< > ";::"IHRE WAHL !"::23:2:HV$:(HV$)1(HV$)8252 US0:BS0:(HV$)260,270,280,290,300,31B"E :"<2> STARTORT":8:17:"X0 = ";X0;" M":17:"Y0 = ";Y0;" M" :"<3> STARTGESCHW.":11:17:"VX = ";XP;" M/S":17:"VY = ";YP;" M/S" "MAGNET. FELD:":"<4> ORT":14:15:"XMIN = ";XM;" M":15:"XMAX = ";XX;" M"::"<5> FELDSTAERKE":17:17op S)tart D)ruck A)enderung"F X00:Y0.15:B0.1:H1E8:XM.3:XX.3e 1:3:958:TA$"TEILCHEN" M1.67E27Q1.6E19TA$"PROTON" M9.11E31Q1.6E19TA$"ELEKTRON" 1:5:"<1> ";TA$;" MIT :":5:17:" M = ";M;" KG":17:" Q = ";Q;" CC 16384 8000!::K:5:"HOMOGENES MAGNETISCHES FELD":q5:"---------------------------"B0.03:P32783:M1.67E27:Q1.6E19:XM.2:XX.1:H5E9:NN1XP1E6:YP0:X0.3:Y00:X0$"-.3":Y0$"0":XP$"1E6":YP$"0" US$"S)t          "TEN-MENU":22:1:"< > IHRE WAHL"=22:2:H:H1H21672bH2ĉ::(13);(4);"RUN HELLO"s15:1:958" ANZAHL DER MESSWERTE : ";AM:5:10O"*************"%S10:T"* F I T *"BX10WY"*************"a^::h" PROGRAMM ZUR MESSWERTERFASSUNG"r" DARSTELLUNG UND AUFSUCHEN"|" FUNKTIONALER ZUSAMMENHAENGE"::!"<1> AUSWERTUNG"::"<2> DISKETE NUN DIE NUMMER DES FALSCHEN WERTES,SOWIE X-WERT UND Y-WERT ERNEUT EIN !"b:"NUMMER ";NRv:"X-WERT ";XK:"Y-WERT ";YKX(NR1)XK:Y(NR1)YK:"NOCH MEHR FEHLER ?":A$A$"J"1500"1410@ UNTERPROGRAMM TITEL J4);"RUN HELLO"x(:"KONTROLLE:"\"NUMMER ";"X-WERT";" ";"Y-WERT"l:I0AM1I1;10);X(I);30);Y(I)I19I39ľA$:IA$:"ALLES KORREKT ?"::A$A$"J"ĺ:"MOMENT BITTE !":N:"GEBEN SI0((L$,I1,1))79İ1280$U((L$,I2,1))71Ĺ2075P,220:II2:F21F2[ pII1:PP1:980(L$)100İ1330(13802F20LL(L$)2F2:1350<LL(L$)FI1100LLP2075LLI,58Z:d430n::(13);(180 t((L$,I1,1))73İ1160&~W((L$,I2,1))78Ĺ2075P,223:II2:F21F2]x((L$,I,1))67İ12001240((L$,I1,1))79İ1220((L$,I2,1))83Ĺ2075P,222:II2:F21F2((L$,I,1))76İ12601305P,202J43Ĺ2075P,2003J45Ĺ2075P,201IJ47Ĺ2075P,203_J94Ĺ2075P,204z$((L$,I,1))69İ1080.11208((L$,I1,1))88İ1100BL((L$,I2,1))80Ĺ2075P,221:II2:F21F2V`((L$,I,1))83İ1140j1IONEN VON 1-4"$:"EINGABE ";A1$_(A1$"1")(A1$"2")(A1$"3")(A1$"4")(A1$"5")960:"EINGABEFEHLER/NEUEINGABE":880 ABSPEICHERN V.F(X):"F(X)= ";L$I1:P1I(L$)1310J((L$,I,1))2075P,JJ42Ĺ2073903f:"VERMUTETER FUNKTIONALER ZUSAMMENHANG ?"p:"(1) ELEMENTARE FUNKTIONEN "z:"(2) EXPONENTIALFUNKTION":"(3) SINUS BZW.COSINUS FUNKTIONEN":"(4) LOGARITHMUS FUNKTION:"(5) KOMBINATB20B2153790  K3,B25KK1:K151760P 216,0: ERRFLAG RESETZ*:214"1 SKT(X-ACHSE) = ";XM10;30);AN$>"1 SKT(Y-ACHSE) = ";YM10;30);BN$H:A$::RF11ĺ"MOECHTEN SIE IHRE VERMUTUNG AENDERN?"::A2$\A2$"N"1)I! MESSKURVE ZEICHNEN/I0AM1GXX(I)X(I)XM1503aYY(I)153Y(I)YM150XX(I)1,YY(I)XX(I)1,YY(I):XX(I),YY(I)1XX(I),YY(I)1I HYPO.F(X)F10810SWXM150:30K1:790B2153A(KSW)YM150ON NICHT FUNKTIONIE- ":"REN, SO ]BERPR]FEN SIE BITTE DIE ZEILEN ":"8000-8200, IN DENEN SICH DIE DRUCKROU-":"TINE BEFINDET.)"23:15:" ";:HV$:5:1:958::"WENN SIE WAEHREND DER SIMULATION DIE "::"ESC";::" - TASTE DRUVERNUENFTIGE SIMULATION ZU- ":"STANDE KOMMT."^23:15:" ";:HV$:5:1:958::"ODER SIE KOENNEN DAS MOMENTANE BILD AUS-":"DRUCKEN LASSEN (UND DIE VERWENDETEN ":"DATEN. SOLLTE DIES MIT IHRER RECHNER/ "l"DRUCKER - KOMBINATITERLAUFEN ":"LASSEN, ETWA UM VERMUTUNGEN UEBER DEN ":"WEITEREN VERLAUF ANSTELLEN ZU LASSEN. ""WEITERHIN KOENNEN SIE SOFORT ZUR AENDE- ":"RUNGSTABELLE SPRINGEN, ETWA WENN SIE ":"FESTSTELLEN, DASS MIT DEN EINGEGEBENEN "."DATEN KEINE ABEN SIE VERSCHIEDENE EINGRIFFSMOEG- ":"LICHKEITEN, DIE IN FORM EINER FUNKTIONS-":"LEISTE AM UNTEREN BILDSCHIRMRAND ANGE- ""ZEIGT WERDEN. SO KOENNEN SIE Z.B. DIE"23:15:" ";:HV$:5:1:958::e"SIMULATION ANHALTEN ODER WEIH DRUECKEN DER ";::"ESC";::" - TASTE GELANGEN "Y"SIE SOFORT INS DISKETTEN-MENU!"23:" TASTE !";:HV$P:41:P:"ES GEHT GLEICH LOS ..."100,160:(13);(4);"RUN VZYK.MENU"P:AA$A1,A2::" (RUECKSPRUNG)"D 24:15:" ";:HV$:5:1:958:: "DIE EINZELNEN PROGRAMME WERDEN AUS DEM ":"DISKETTEN-MENU AUFGERUFEN. VON DORT GE- ":"LANGEN SIE IN DAS OBEN BESCHRIEBENE PRO-""GRAMM-MENU. WAEHREND EINER SIMULATION ":"HDEN.)" d::"<3> PARAMETERLISTE";::" (ERKLAERT DIE EIN-":" ZUGEBENDEN PARAMETER UND GIBT":" HINWEISE ZU DEN GRENZEN.)" n::"<4> SIMULATION";::" (DAS EIGENTLICHE SIMU-":" LATIONSPROGRAMM.)" x::"<5> DISKETTEN-MENU";:958::i P:"<1> INFORMATIONEN";::" (ENTHAELT SPEZIELLE":" HINWEISE ZUM LAUFENDEN PROGRAMM)" Z::"<2> DEMONSTRATION";::" (ZEIGT EIN BLOCK- ":" SCHALTBILD ZU DIESEM FALL; IST":" NICHT BEI JEDEM PROGRAMM VOR-":" HANH DIE ANGEGEBENEN FAELLE AUF DIESER ":"DISKETTE."::"DER AUFBAU DER PROGRAMME IST EINHEITLICH" <"SIE GELANGEN ALS ERSTES IN EIN SPEZIEL- ":"LES MENUE-PROGRAMM, DAS DIE FOLGENDEN ":"MOEGLICHKEITEN BIETET:" F23:15:" ";:HV$:5:1: " "FELDERN. DABEI WERDEN AUCH DIE GANZ EIN-":"FACHEN FAELLE, NAEMLICH HOMOGENES ELEK- ":"TRISCHES BZW. MAGNETISCHES FELD BEHAN- ":"DELT." (:"AUS DEN ZAHLREICHEN ANWENDUNGEN BEFINDEN" -23:15:" ";:HV$:5:1:958::a 2"SIC u :::"TEILCHEN IN ELEKTROMAGNETISCHEN FELDERN "::" INFORMATIONEN":" -------------" 7:1:"DIESES PROGRAMMPAKET BESCHAEFTIGT SICH ":"MIT DEN BEWEGUNGEN VON GELADENEN TEIL- ":"CHEN IN ELEKTRISCHEN UND MAGNETISCHEN     NTEREN BILDSCHIRM- ":"RAND ANGEZEIGT WERDEN. SIE KOENNEN Z.B. ""DIE SIMULATION ANHALTEN BZW. WEITERLAU- ":"FEN LASSEN ODER DIE MOMENTANE GRAFIK AUS":"DRUCKEN LASSEN ODER ABER DIREKT INS AEN-"3"DERUNGSMENU ZURUECKSPRINGEN. ":"DURCMIT IHREN AENDERUNGEN FERTIG, SO BEGINNT""DIE EIGENTLICHE SIMULATION. WAEHREND ":"DIESER HABEN SIE VERSCHIEDENE EINGRIFFS-":"MOEGLICHKEITEN, WELCHE IN FORM EINER "23:" TASTE !";:HV$A:3:958::"FUNKTIONSLEISTE AM U";:HV$ :1:3:958:::"DIE VERWENDETEN PARAMETER WERDEN IN DER ":"PARAMETERLISTE ERKLAERT. BEI DER SIMU- ":"LATION GELANGEN SIE ZUERST IN DAS AEN-"):"DERUNGSMENU, WO SIE DIE PARAMETER NACH ":"IHRER WAHL VERAENDERN KOENNEN. SIND SIE ":":"MAN ERST DEN ZEITSCHRITT UND DIE NORMIE-":"RUNG AENDERN MUSS, UM EINE SIMULATION ZU" "ERHALTEN. NACH EINGABE DES VERSTIMMUNGS-":"FAKTORS MUESSEN SIE DEN VERGROESSERUNGS-":"FAKTOR EINGEBEN (1 < V < CA. 1000) " 23:" TASTE !I1200:I:P:"TASTE !"200,185:6 I1100:I:170 :1:3:958:::"ES KANN BEI DIESEM PROGRAMM VORKOMMEN, ":"DASS AUF DEM BILDSCHIRM SCHEINBAR NICHTS":"PASSIERT. DIE VORGAENGE SPIELEN SICH SO "X "SCHNELL UND AUF SO KLEINEM RAUM AB, DASS" dP32783:P:80:O nAA$"Das sind die verwendeten Formeln !":A10:A270:1000_ sP:810,30: xAA$"Sie koennen den Faktor F variieren":A2140:1000 I13:0,150I279,150I:I P:"TASTE !"200,185: US(49152):US127Ĺ49168,0:210! E, PERIODISCHE BAHNEN, DEREN "{ 2"FORM DURCH DAS VERHAELTNIS DER BEIDEN ":"FREQUENZEN BESTIMMT WIRD. DAHER WERDEN " <"SIE ALS ERSTES NACH DEM VERSTIMMUNGSFAK-":"TOR GEFRAGT, DER SICH WIE FOLGT ERGIBT:" F23:17:"";:HV$ Z:34 ::" ";::" VERSTIMMTES ZYKLOTRON ":h::"DIESES PROGRAMM SIMULIERT EIN ZYKLOTRON,""WOBEI DIE FREQUENZ DES ELEKTRISCHEN HF- ":"FELDES GEGEN DIE UMLAUFFREQUENZ DES " (:"TEILCHENS VERSTIMMT IST. ES ERGEBEN SICH":"VERWICKELT     ) :P:41:5 P:"ES GEHT GLEICH LOS !"100,160:O (4);"RUN VZYK.MENU"PK " (EINGABE IN S; GIBT DIE SCHRITTWEITE":" FUER DIE RECHNUNG AN)" ::"6. NORMIERUNG"::" (GIBT DIE VERGROESSERUNG ODER VER-":" DES MASSSTABES BZW. KOORDINATEN-":" KREUZES AN)" 23:12::"TASTE !";::HV$::5:958 (13GABE IN M/S;KEINE RELATIVISTISCHE";:" RECHNUNG!)" ::"4. DAS ELEKTRISCHE UND MAGNETISCHE FELD"::" (SIE BRAUCHEN NUR DIE FELDSTAERKE IN":" V/M BZW. T ANZUGEBEN)" 23:12::"TASTE !";::HV$::5:958 :7:1::"5. ZEITSCHRITT":ND PROTON":" SIND VORBESETZT, ANSONSTEN MUESSEN"b " MASSE UND LADUNG ANGEGEBEN WERDEN)" ::"2. DER STARTORT DES TEILCHENS "::" (EINGABE IN M; DIE GRENZEN WERDEN AN":" GEZEIGT.)" ::"3. DIE STARTGESCHWINDIGKEIT":5 " (EINRN."::"ALLE WERTE SIND BEREITS MIT LAUFFAEHIGEN"b "DATEN VORBESETZT, SO DASS SIE AUCH OHNE " "EINE AENDERUNG EINE SIMULATION ERHALTEN." 23:12::"TASTE !";::HV$::6:9584 1::"1. ART DES TEILCHENS"::" (DIE DATEN VON ELEKTRON UP!115,(43634):116,(43635)- P32783Z:::7:"RELATIVISTISCHES ZYKLOTRON":w3:13:"PARAMETERLISTE"4:13:"--------------"::"BEI DIESEM PROGRAMM KOENNEN SIE DIE NACH":"FOLGEND AUFGEFUEHRTEN PARAMETER EINZELN "2 "AENDEH:" BEI DRUECKEN DER ";::"ESC";::"-TASTE GELANGEN"iT:"SIE INS DISKETTEN-MENU ZURUECK ";::"!":h23:12::"TASTE !";::HV$::6:958(13):P:41: P:"ES GEHT GLEICH LOS !"100,160: (4);"RUNMASS.MENU"ILD AUS- ":"DRUCKEN LASSEN ODER ZUM AENDERUNGSMENU "O 6"ZURUECKSPRINGEN. "{ J23:12::"TASTE !";::HV$::6:958 N1:"ZUR BESSEREN KONTROLLE LAEUFT WAEHREND ":"DER SIMULATION EIN PUNKT AM OBEREN BILD-":"SCHIRMRAND MIT.":6O1::"!";:MULATION. BEI DIESER HABEN"K "SIE VERSCHIEDENE EINGRIFFSMOEGLICHKEITEN"~ 1:"WELCHE IN FORM EINER FUNKTIONSLEISTE AM" ""UNTEREN BILDSCHIRMRAND ANGEZEIGT WERDEN.":"SIE KOENNEN DIE SIMULATION ANHALTEN BZW"6 ,"WEITERLAUFEN LASSEN ODER DAS B EIGENTLICHEN PROGRAMM GELANGEN SIE ":"ALS ERSTES ZUM AENDERUNGS-MENU. DIE PARA" "METER SIND ALLE MIT LAUFFAEHIGEN DATEN ":"VORBESETZT." 23:12::"TASTE !";::HV$::6:958 1:"IST KEINE AENDERUNG MEHR VORZUNEHMEN, ":"BEGINNT DIE SI- "/ 23:12::"TASTE !";::HV$::6:958 1:"FILTER NACHGESCHALTET. DER DEMO - LAUF ":"ZEIGT EIN VEREINFACHTES BLOCKSCHALTBILD ":"ZU DIESEM FALL." :"DIE EINZUGEBENDEN PARAMETER WERDEN IN ":"DER PARAMETERLISTE ERKLAERT."Q :"BEIM ANORDNUNG BESTEHT AUS DER":"HINTEREINANDERSCHALTUNG EINES HOMOGENEN "w "ELEKTRISCHEN MIT EINEM MAGNETISCHEN FELD" "(MASSENSP. NACH THOMSON).DIESES PROGRAMM":"BENUTZT EINE EINFACHERE ANORDNUNG. HIER " "WIRD EIN MAGNETISCHES FELD EINEM WIEN !115,(43634):116,(43635)- P32783S:::11:"MASSENSPEKTROGRAPH":o3:13:"INFORMATIONEN"4:13:"-------------"::"ES GIBT VERSCHIEDENE MOEGLICHKEITEN EI- ":"NEN MASSENSPEKTROGRAPHEN ZU REALISIEREN."G "EINE GEEIGNETE     : KOORDINATENACHSEN>F31Ĺ16297,0:16304,0:F30:540G:3V3,33,153f&I315315s01,I5,I:I,152I,154:IDI01502N3I,153:X MAX.BEST.bXMX(0):YMY(0)lI1AM1vX(I)XMXMX(I)Y(I)YMYMY(I&X(AM1),Y(AM1),XX(AM1),YY(AM1)S:"SOLL DAS ALTE BILD STEHEN BLEIBEN ?"_:A$:pA$"J"F31xI0X$:X(I)(X$):X$:Y(I)(X$)II1:IAM490X$,AN$L1(X$):AN$(AN$,L1)X$,BN$L1(X$):BN$(BN$,L1) VY = ";(YP$);" M/S"B"STARTORT X0 = ";(X0$);" M"o" Y0 = ";(Y0$);" M""ELEKTR. FELD MIT E0 = ";E0;" V/M"" AM ORT XMIN = ";XM;" M"" XMAX = ";XX;" M"(4);"PR#0":5:"DRUCKER JUSTIEREN!"::"WENN FERTIG, BITTE TASTE DRUECKEN"THV$:(13)e(4);"PR#1""TEILCHEN MIT: MASSE M = ";M;" KG"" LADUNG Q = ";Q;" CB""ANFANGSGESCHW. VX = ";(XP$);" M/S"" HV$:HV$"N"HV$"G"8076$D26HV$"G"D66](13);(4);"PR#1":1913,D:(145)n(4);"PR#0"::::"WOLLEN SIE AUCH DIE DAZUGEHOERIGEN DATEN":"AUSGEDRUCKT HABEN (J/N) ?"19:28:HV$:HV$"N"HV$"J"8101HV$"N"8140D,1:US12680605tI1250:I:P:"TASTE !"30,170:KuI1100:I:8050Q|k}P:"TASTE !"30,170:}US1968150::5::"AUSDRUCK"::" (EPSON-DRUCKER)"::" NORMAL- (N) "::"ODER GROSSDRUCK (G) ?"11:29:*A FEHLER!B ******AJFC(222):FC53FC908041yT::10::"ES IST LEIDER EIN FEHLER AUFGETAUCHT !"^20:"ICH STARTE NEU !?!":::"FEHLERCODE = ";FChI11000::iVV0:8050rP:"TASTE !"30,170:sUS(49152):49168bUS(49152)l49168,0+vUS128ı?US211İ7100:bUS155ĺ(13);(4);"RUN MENU"tUS196ī8070US193HV$"J":8155US(49152):49168,0US196ī8070US193HV$"J":8155US211ı7100@ *****$):XP(XP$):YP(YP$)NVV0::::5:" RELATIVISTISCHES ZYKLOTRON"::240i(13);(4);"RUN MENU"o$23:1::"SIE HABEN LEIDER EINEN FEHLER GEMACHT !":I11200:I::X ***************Y TASTATURABFRAGEZ ******************BYQB0VXM:) **********; * GRAFIK *M **********T 3z ESV1400X0131:FSV1400Y096 X0.35X0.375YGY0 Y00ēES,FS: ES,FS  ******* ABBRUCH *******X0(X0$):Y0(Y0NGABE IN S; GIBT DIE SCHRITTWEITE":" FUER DIE RECHNUNG AN)"k 23:12::"TASTE !";::HV$::5:958v (13) :P:41: P:"ES GEHT GLEICH LOS !"100,160: (4);"RUN ZYK.MENU"KEINE RELATIVISTISCHE";:" RECHNUNG!)" ::"4. DAS ELEKTRISCHE UND MAGNETISCHE FELD"::" (SIE BRAUCHEN NUR DIE FELDSTAERKE IN":" V/M BZW. T ANZUGEBEN)" 23:12::"TASTE !";::HV$::5:958 :7:1::"5. ZEITSCHRITT":? " (EI" SIND VORBESETZT, ANSONSTEN MUESSEN"V " MASSE UND LADUNG ANGEGEBEN WERDEN)" ::"2. DER STARTORT DES TEILCHENS "::" (EINGABE IN M; DIE GRENZEN WERDEN AN":" GEZEIGT.)" ::"3. DIE STARTGESCHWINDIGKEIT":) " (EINGABE IN M/S;E WERTE SIND BEREITS MIT LAUFFAEHIGEN"V "DATEN VORBESETZT, SO DASS SIE AUCH OHNE " "EINE AENDERUNG EINE SIMULATION ERHALTEN." 23:12::"TASTE !";::HV$::6:958( 1::"1. ART DES TEILCHENS"::" (DIE DATEN VON ELEKTRON UND PROTON":!115,(43634):116,(43635)- P32783N:::14:"DAS ZYKLOTRON":k3:13:"PARAMETERLISTE"4:13:"--------------"::"BEI DIESEM PROGRAMM KOENNEN SIE DIE NACH":"FOLGEND AUFGEFUEHRTEN PARAMETER EINZELN "& "AENDERN."::"ALL     ******************************Fy FUNKTION BX=F(X,X',Y,Y',T)=X''kz ******************************BXQE0(OMEGAT)MQB0VYM ****************************** FUNKTION BY=F(X,X',Y,Y',T)=Y'' ***************************BX:Y(2,4)BY<XPXP(X(2,1)X(2,2)2X(2,3)2X(2,4))H6lYPYP(Y(2,1)Y(2,2)2Y(2,3)2Y(2,4))H6X0X0HXP(X(2,1)X(2,2)X(2,3))HH6Y0Y0HYP(Y(2,1)Y(2,2)Y(2,3))HH67000:BS1BS0:80503000: GRAFIK 1000!x2,2)H24XNX(0,3):VXX(1,3):YNY(0,3):VYY(1,3)D1400:1450\X(2,3)BX:Y(2,3)BYX(0,4)X0X(1,3)H:X(1,4)XPX(2,3)HY(0,4)Y0Y(1,3)H:Y(1,4)YPY(2,3)HXNX(0,4):VXX(1,4):YNY(0,4):VYY(1,4)TTH2:1400:1450 X(2,4)X0X(1,1)H2:X(1,2)XPX(2,1)H2PLY(0,2)Y0Y(1,1)H2:Y(1,2)YPY(2,1)H2|VXNX(0,2):VXX(1,2):YNY(0,2):VYY(1,2)`TTH2:1400:1450jX(2,2)BX:Y(2,2)BYtX(0,3)X0X(1,2)H2:X(1,3)XPX(2,2)H2~Y(0,3)Y0Y(1,2)H2:Y(1,3)YPY( VERF. *' ***********************SX(0,1)X0:X(1,1)XP:Y(0,1)Y0:Y(1,1)YP$XNX(0,1):VXX(1,1):YNY(0,1):VYY(1,1))VV(VXVXVYVY)+MM0(1VVVV3E82).1400:1450: BERECHNUNG VON X'' UND Y''8X(2,1)BX:Y(2,1)BY"BX(0,2)13);(4);"RUN MENU"A13:5::"NORMIERUNG"::13:21:" ";V1$XV1$""V1(V1$)a240sOMEGAQB0M0:3:P:23:400X0131,400Y096P:US$0,180:1000I14:I: *********************** * RUNGE-KUTTA -XX;" M" (4);"PR#0"  K X0(X0$):Y0(Y0$):XP(XP$):YP(YP$)U 4050P"0" VY = ";(YP$);" M/S"]"STARTORT X0 = ";(X0$);" M"" Y0 = ";(Y0$);" M""ELEKTR. FELD MIT E0 = ";E0;" V/M"" AM ORT XMIN = ";XM;" M" " XMAX = ";$::5:958(13)$:P:41:K P:"ES GEHT GLEICH LOS !"100,160:c (4);"RUN BZ.MENU"tP:A$A1,A2:zX TASTATURABFRAGEYUS(49152):49168,0ZUS127380[US155ī400\P: ^P:36114,117:. hP:"TASTE !"200,130:C rI1500::7000^ |P:"TASTE !"200,130:r I1300::360 :7:1::"5. ZEITSCHRITT": " (EINGABE IN S; GIBT DIE SCHRITTWEITE":" FUER DIE RECHNUNG AN)" 23:12::"TASTE !";::HVinaten-":A10:A20:1000@ ,A$"system vorgegeben!":A210:1000 6I15:K15:4510I2,6310K24510I2,6310K2:4510I2,6310K24510I2,6310K2:K:I @100,96110,115:50,9640,115:P:"X"30,115: JP:"X"105,115: TP:2938,117NGABE IN M/S;KEINE RELATIVISTISCHE";:" RECHNUNG!)" ::"4. DAS MAGNETISCHE FELD"::" (EINGABE VON ORT (IN M) UND FELD-":" STAERKE IN (T) VGL. BILD ->)" 23:12::"TASTE !";::HV$::5:958 :P:23: "A$"Sie haben dieses KoordUND PROTON":" SIND VORBESETZT, ANSONSTEN MUESSEN"c " MASSE UND LADUNG ANGEGEBEN WERDEN)" ::"2. DER STARTORT DES TEILCHENS "::" (EINGABE IN M; DIE GRENZEN WERDEN AN":" GEZEIGT.)" ::"3. DIE STARTGESCHWINDIGKEIT":6 " (EIERN."::"ALLE WERTE SIND BEREITS MIT LAUFFAEHIGEN"c "DATEN VORBESETZT, SO DASS SIE AUCH OHNE " "EINE AENDERUNG EINE SIMULATION ERHALTEN." 23:12::"TASTE !";::HV$::6:9585 1::"1. ART DES TEILCHENS"::" (DIE DATEN VON ELEKTRON !115,(43634):116,(43635)- P32783[:::7:"HOMOGENES MAGNETISCHES FELD":x3:13:"PARAMETERLISTE"4:13:"--------------"::"BEI DIESEM PROGRAMM KOENNEN SIE DIE NACH":"FOLGEND AUFGEFUEHRTEN PARAMETER EINZELN "3 "AEND  J"8101HV$"N"8140_:5:"DRUCKER JUSTIEREN!"::"WENN FERTIG, BITTE TASTE DRUECKEN"oHV$:(13)(4);"PR#1""TEILCHEN MIT: MASSE M = ";M;" KG"" LADUNG Q = ";Q;" CB""ANFANGSGESCHW. VX = ";(XP$);" M/SDRUCK (G) ?"711:29:HV$:HV$"N"HV$"G"8076?D2QHV$"G"D66x(13);(4);"PR#1":1913,D:(145)(4);"PR#0"::::"WOLLEN SIE AUCH DIE DAZUGEHOERIGEN DATEN":"AUSGEDRUCKT HABEN (J/N) ?"19:28:HV$:HV$"N"HV$"58043 }P:"TASTE !"30,170:1~P:E$0,10:EP:T$135,170:YP:Q$135,155:oP:"TH"143,150:P:"SIM"143,165:US1968150::5::"AUSDRUCK"::" (EPSON-DRUCKER)"::" NORMAL- (N) "::"ODER GROSS00)" CM":P:Q$135,145:OoQ$"R = "((YT1E5)1000)" CM":P:Q$135,145:dpP:"TH"143,150:zqP:"SIM"143,165:rP:"TASTE !"30,170:sUS(49152):49168,1:US1268060tI1250:I:P:"TASTE !"30,170:uI1100:I:8050|US21ETAUCHT !"@^20:"ICH STARTE NEU !?!":::"FEHLERCODE = ";FCRhI11000::\i8050kT$"R = "((YG1E5)1000)" CM":lP:T$135,160:mT1Q(XXXM)2(.37XX):T2Q(XXXM)2:T32MXPXP:YT(T1T2)E0T3nQ$"R = "((YT1E5)108070US193HV$"J":8155%>US(49152):49168,0PUS196ī8070jUS193HV$"J":8155xUS211ı7100@ ******A FEHLERB ******JFC(222):FC53FC908041 T::10::"ES IST LEIDER EIN FEHLER AUFGI$23:1::"SIE HABEN LEIDER EINEN FEHLER GEMACHT !":I11200:I::aX ***************yY TASTATURABFRAGEZ ***************bUS(49152)l49168,0vUS128ıUS211İ7100:US155ĺ(13);(4);"RUN MENU"US19658 (13):P:41:A P:"ES GEHT GLEICH LOS !"100,160:Y (4);"RUN BZ.MENU":"WENN DIE SIMULATION FERTIG IST, KOENNEN ":"SIE DURCH DRUECKEN DER TASTE ";::"W";::" DIE"::"WERTE FUER DIE ABLENKUNG ERHALTEN."c:"ZUR BESSEREN KONTROLLE LAEUFT AM OBEREN ":"BILDRAND EIN PUNKT MIT."h23:12::"TASTE !";::HV$::6:9 DAS BILD AUS- ":"DRUCKEN LASSEN ODER ZUM AENDERUNGSMENU "U 6"ZURUECKSPRINGEN. " J23:12::"TASTE !";::HV$::6:958 O1::"!";::" BEI DRUECKEN DER ";::"ESC";::"-TASTE GELANGEN" T:"SIE INS DISKETTEN-MENU ZURUECK ";::"!":^DIE SIMULATION. BEI DIESER HABEN"Q "SIE VERSCHIEDENE EINGRIFFSMOEGLICHKEITEN" 1:"WELCHE IN FORM EINER FUNKTIONSLEISTE AM" ""UNTEREN BILDSCHIRMRAND ANGEZEIGT WERDEN.":"SIE KOENNEN DIE SIMULATION ANHALTEN BZW"< ,"WEITERLAUFEN LASSEN ODER"BEIM EIGENTLICHEN PROGRAMM GELANGEN SIE ":"ALS ERSTES ZUM AENDERUNGS-MENU. DIE PARA" "METER SIND ALLE MIT LAUFFAEHIGEN DATEN ":"VORBESETZT." 23:12::"TASTE !";::HV$::6:958! 1:"IST KEINE AENDERUNG MEHR VORZUNEHMEN, ":"BEGINNT EINEM SOLCHEN FELD BEFINDET."I 24:12::"TASTE !";::HV$::6:958 1:"DER DEMONSTRATIONSLAUF ZEIGT EIN VEREIN-":"FACHTES BLOCKSCHALTBILD ZU DIESEM FALL." :"DIE EINZUGEBENDEN PARAMETER WERDEN IN ":"DER PARAMETERLISTE ERKLAERT."W :CHEN, DASS SICH IN SO EINEM FELD":"BEWEGT, WIRD JE NACH LADUNGSVORZEICHEN " "SENKRECHT ZUM FELD UND ZUR BEWEGUNGSRICH":"TUNG BESCHLEUNIGT!" :"DIESES PROGRAMM SIMULIERT NUN DIE BEWE- ":"GUNG EINES BELIEBIGEN TEILCHENS, DASS " "SICH IN Z!115,(43634):116,(43635)- P32783[:::7:"HOMOGENES MAGNETISCHES FELD":w3:13:"INFORMATIONEN"4:13:"-------------"::"DAS HOMOGENE MAGNETISCHE FELD WIRD DURCH":"EIN HELMHOLTZSPULEN-PAAR REALISIERT."M :"EIN TEIL   15:5::"FELDSTAERKE E0";::15:21:" ";E0$D#E0$""E0(E0$)M+240,17:5::"FELDSTAERKE B0";::17:21:" ";B0$-B0$""B0(B0$).240619:5::"ZEITSCHRITT";::19:21:" ";H$7H$""H(H$)82409<(31:FS400Y096* X0.35X0.375YGY0> Y00ēES,FS:J ES,FSP ` *******p ABBRUCH *******X0(X0$):Y0(Y0$):XP(XP$):YP(YP$):::5:" D A S Z Y K L O T R O N "::240(13);(4);"RUN MENU"********BXQE0(OMEGAT)MQB0VYM0U ******************************z FUNKTION BY=F(X,X',Y,Y',T)=Y'' ******************************BYQB0VXM: ********** * GRAFIK * ********** 3 ES400X01,4))H64X0X0HXP(X(2,1)X(2,2)X(2,3))HH6`Y0Y0HYP(Y(2,1)Y(2,2)Y(2,3))HH6{7000:BS1BS0:40003000: GRAFIK 1000x ******************************y FUNKTION BX=F(X,X',Y,Y',T)=X''z ***********************,4)X0X(1,3)H:X(1,4)XPX(2,3)HLY(0,4)Y0Y(1,3)H:Y(1,4)YPY(2,3)HxXNX(0,4):VXX(1,4):YNY(0,4):VYY(1,4)TTH2:1400:1450X(2,4)BX:Y(2,4)BYXPXP(X(2,1)X(2,2)2X(2,3)2X(2,4))H6YPYP(Y(2,1)Y(2,2)2Y(2,3)2Y(21,2):YNY(0,2):VYY(1,2)0`TTH2:1400:1450HjX(2,2)BX:Y(2,2)BYvtX(0,3)X0X(1,2)H2:X(1,3)XPX(2,2)H2~Y(0,3)Y0Y(1,2)H2:Y(1,3)YPY(2,2)H2XNX(0,3):VXX(1,3):YNY(0,3):VYY(1,3)1400:1450X(2,3)BX:Y(2,3)BY"X(00:X(1,1)XP:Y(0,1)Y0:Y(1,1)YPK$XNX(0,1):VXX(1,1):YNY(0,1):VYY(1,1)x.1400:1450: BERECHNUNG VON X'' UND Y''8X(2,1)BX:Y(2,1)BYBX(0,2)X0X(1,1)H2:X(1,2)XPX(2,1)H2LY(0,2)Y0Y(1,1)H2:Y(1,2)YPY(2,1)H2VXNX(0,2):VXX(US$0,180:1000$I14:I:C ***********************b * RUNGE-KUTTA - VERF. * ***********************1050X0X0XPH:Y0Y0YPHXPXPBXH:YPYPBYHTTHVXXP:VYYP1400:14501280X(0,1)XP:"TASTE !"30,178:#BI1250:I<LUS(49152):49168,0JVUS128ıdjP:"TASTE !"30,178:ztI1100:I:1080~C155:1000= A$"Ablenkung bestimmen koennen !":A2165:1000O P:15240,94:` P:0241,62:r P:1241,122:| 1080 :1:2:958 20:12:"... ZURUECK ZUM MENU" (13);(4);"RUN BZ.MENU" I11000:I: P:A$A1,A2: 81116:K7I:J80(I11):P:"."K,J:7 L1100:L:I_ I1838:K7I:J552I:P:"."K,J:w L1100:L:I:999 0:I134:6,140I259,140I:I:3 A$"Der Rechner benutzt als Schirm":A2145:1000 A$"einen Masstab, auf dem Sie die":A2"und wird mit B-Feld je nach La-":A2145:1000e A$"dungsvorzeichen in Y - Richtung":A2155:1000 A$"abgelenkt !":A2165:1000 5,175260,175:5,1555,175:260,155260,175 P:5335,45: P:5030,40: I110:K7I:P:"."K,80:$ I:P:"."K,80: }L1100:L:I@ ~I1016:K7I:P:"."K,80:S L1100:L:Is I1838:K7I:P:"."K,80: L1100:L:I 999:0 I115:189,6I206,6I:I:I125:6,140I259,140I:I 3:P:"B"191,10: P:"Z"199,13:/ A$N:"* p23:"";:H$: x:3:P:57: y5,140260,140260,1655,1655,140:188,6207,6207,22188,22188,6:P:"0"195,10: zA$"Das Teilchen fliegt ohne B-Feld":A110:A2145:1000 {A$"geradeaus !":A2155:1000 |I18:K7I 16384Id:::"TEILCHEN IM HOMOGENEN MAGNETISCHEN FELD":P32783n:5:"EIN HOMOGENES MAGNETISCHES FELD WIRD AM ":"EINFACHSTEN DURCH EIN HELMHOLTZSPULEN- " o"PAAR REALISIERT!"::"MAN KOENNTE SICH FOLGENDEN VERSUCHSAUF- ":"BAU VORSTELLE  "(E0)" V/M":B$"B0 = "(B0)" T":P:US$0,180:CHV$"J"511P:P:23:w400X0131,400Y096:P:B$0,20:P:E$0,10:P:US$0,180:1000400X0131,400Y096:P:E$0,10:16304,1:16297,1:16299,1:P:B$0,20: P:";B0$-B0$""B0(B0$)%.240T619:5::"ZEITSCHRITT";::19:21:" ";H$h7H$""H(H$)q8240w9(13);(4);"RUN ZYK.MENU"3::"SOLL DAS ALTE BILD STEHEN BLEIBEN ?"::"(J/N)";:HV$HV$"N"HV$"J"5002E$"E0 = 240H11:5::"STARTGESCHW.";::11:21:" ";XP$:12:21:" ";YP$_XP$""XP(XP$)vYP$""YP(YP$)240"15:5::"FELDSTAERKE E0";::14:21:" ";E0$#E0$""E0(E0$)+240,17:5::"FELDSTAERKE B0";::17:21:" :20:" ";Q$ M$""M(M$)4 Q$""Q(Q$)= 240 22:958:::"-0.3 < X0 <0.35 UND -0.22 < Y0 < 0.25"::8:5::"STARTORT"::US0:8:22:"";X0$:9:22:"";Y0$ X0$""X0(X0$) Y0$""Y0(Y0$) 312:US1İ4900:270N":18:6:868:"P)ROTON":7:18:"B)ELIEB. TEILCHEN";` HV$:HV$"E"HV$"B"HV$"P"261 HV$"E"M9.11E31:Q1.6E19:240 HV$"P"M1.67E27:Q1.6E19:240 5:17:"M = ";M;" KG":6:17:"Q = ";Q;" CB":7:17:868:5:20:" ";M$:6" H = ";H;" SEC"U 21:"<7> KEINE AENDERUNG <";::"8";::"> ";::"MENU";: 23:1:"< > ";::"IHRE WAHL !"::23:2:HV$:(HV$)1(HV$)8252 US0:BS0:(HV$)260,270,280,290,300,310,500,4007 5:5::TA$::18:5:868:"E)LEKTRO7:"Y0 = ";Y0;" M"^ :"<3> STARTGESCHW.":11:17:"VX = ";XP;" M/S":17:"VY = ";YP;" M/S" "ELEKTR. UND MAGNET. FELD:"::"<4> FELDSTAERKE":15:17:"E0 = ";E0;" V/M" :"<5> FELDSTAERKE":17:17:"B0 = ";B0;" T"::"<6> ZEITSCHRITT":19:17: D)ruck A)enderung"2 1:3:958:TA$"TEILCHEN"Y M1.67E27Q1.6E19TA$"PROTON" M9.11E31Q1.6E19TA$"ELEKTRON" 1:5:"<1> ";TA$;" MIT :":5:17:" M = ";M;" KG":17:" Q = ";Q;" CB" :"<2> STARTORT":8:17:"X0 = ";X0;" M":1V 163848000!::I:5:"D A S Z Y K L O T R O N":m5:"-------------------------"P32783:M1.67E27:Q1.6E19:E01E6XP0:H5E9:YP0:X00:Y00:X0$"0":Y0$"0":XP$"0":YP$"0":B00.787:OMEGAQB0M US$"S)top S)tart                       (49152):49168,0! US1261901 I1500:IJ P:"TASTE !"10,50:_ I1200:I:180s 200::3:958~ (13) :P:41: P:"ES GEHT GLEICH LOS !"100,160: (4);"RUN WIEN.MENU" I14000:I:,J: L1100:L:I:999= I124:6,165I274,165I:Iq P:"UND TEILCHEN MIT KLEINERER GESCHW."10,168: P:"WERDEN NACH UNTEN ABGELENKT !"10,178: I1838:K7I:J502I:P:"."K,J: L1100:L:I:999 P:"TASTE !"10,50: USRDEN DURCHGELASSEN"10,178:: }I138:K7I:P:"."K,85:M L1100:L:IY 999:0{ I124:6,165I274,165I:I P:"TEILCHEN MIT GROESSERER GESCHW."10,168: P:"WERDEN NACH OBEN ABGELENKT !"10,178: I2038:K7I:J1152I:P:"."K 16384Gd:::"GESCHWINDIGKEITSFILTER NACH W I E N":P32783n10::"ES WIRD FOLGENDER VERSUCHSAUFBAU BENUTZT:":999x:3:P:58:y5,165275,165275,1905,1905,165zP:"NUR TEILCHEN MIT EINER BESTIMMTEN"10,168: {P:"GESCHW. WE ' P:"ES GEHT GLEICH LOS !"100,160:? (4);"RUN EY.MENU"P"STARTORT"::US0:8:22:"";X0$:9:22:"";Y0$GX0$""X0(X0$)^Y0$""Y0(Y0$)x312:US1İ4900:27024011:5::"STARTGESCHW.";::11:21:" ";XP$:12:21:" ";YP$XP$""XP(XP$)YP$""YP(YP$)240-"HV$"P"M01.67E27:Q1.6E19:240 5:17:"M = ";M0;" KG":6:17:"Q = ";Q;" CB":7:17:868:5:20:" ";M0$:6:20:" ";Q$ M0$""M0(M0$) Q$""Q(Q$) 240022:958:::"-0.3 < X0 <0.35 UND -0.22 < Y0 < 0.25"::8:5::1(HV$)9252I US0:BS0:(HV$)260,270,280,450,290,300,310,500,400 5:5::TA$::18:5:868:"E)LEKTRON":18:6:868:"P)ROTON":7:18:"B)ELIEB. TEILCHEN"; HV$:HV$"E"HV$"B"HV$"P"261 HV$"E"M09.11E31:Q1.6E19:240% DSTAERKE":15:17:"E0 = ";E0;" V/M"::"<6> FELDSTAERKE B0 = ";B0;" T"z :"<7> ZEITSCHRITT":19:17:" H = ";H;" SEC" 21:"<8> KEINE AENDERUNG <";::"9";::"> ";::"DISKETTEN-MENU";: 23:1:"< > ";::"IHRE WAHL !"::23:2:HV$:(HV$)";TA$;" MIT :":5:17:" M = ";M0;" KG":17:" Q = ";Q;" CB" :"<2> STARTORT":8:17:"X0 = ";X0;" M":17:"Y0 = ";Y0;" M" :"<3> STARTGESCHW.":11:17:"VX = ";XP;" M/S":17:"VY = ";YP;" M/S"G "<4> NORMIERUNG":13:18:"N = ";V1::"<5> FELUS$"S)top S)tart D)ruck A)enderung"t E0(E0$):B0(B0$):M0(M0$):V1(V1$):Q(Q$):1:3:958:TA$"TEILCHEN" X0(X0$):Y0(Y0$):XP(XP$):YP(YP$):M01.67E27Q1.6E19TA$"PROTON" M09.11E31Q1.6E19TA$"ELEKTRON"< 1:5:"<1> ; 163848000!::J:5:"RELATIVISTISCHES ZYKLOTRON":o5:"--------------------------"V1$"2":P32783:M0$"9.11E - 31":Q$"- 1.6E - 19":E0$"1000":B0$"1E - 3"XP0:H1E8:YP0:X00:Y00:X0$"0":Y0$"0":XP$"0":YP$"0"%             "PPYP(YP$)4050P4050P X0 = ";(X0$);" M"I" Y0 = ";(Y0$);" M"t"ELEKTR. FELD MIT E0 = ";E0;" V/M"" AM ORT XMIN = ";XM;" M"" XMAX = ";XX;" M"(4);"PR#0" X0(X0$):Y0(Y0$):XP(XP$): FERTIG, BITTE TASTE DRUECKEN".HV$:(13)?(4);"PR#1"h"TEILCHEN MIT: MASSE M = ";M;" KG"" LADUNG Q = ";Q;" CB""ANFANGSGESCHW. VX = ";(XP$);" M/S"" VY = ";(YP$);" M/S""STARTORT HV$"G"D667(13);(4);"PR#1":1913,D:(145)H(4);"PR#0"::::"WOLLEN SIE AUCH DIE DAZUGEHOERIGEN DATEN":"AUSGEDRUCKT HABEN (J/N) ?"19:28:HV$:HV$"N"HV$"J"8101HV$"N"8140:5:"DRUCKER JUSTIEREN!"::"WENN3,150:P:"SIM"143,165:0P:US$0,180:E0:0,0279,0:3WUS1968150::5::"AUSDRUCK"::" (EPSON-DRUCKER)"::" NORMAL- (N) "::"ODER GROSSDRUCK (G) ?"11:29:HV$:HV$"N"HV$"G"8076D2P:"SIM"143,165:*rP:"TASTE !"30,170:PsUS(49152):49168,1:US1268060vtI1250:I:P:"TASTE !"30,170:uI1100:I:8050|US2158043}P:"TASTE !"30,170:~P:E$0,10:P:T$135,160:P:Q$135,145:P:"TH"14LERCODE = ";FC hI11000::*i8050SkT$"R = "((YG1E5)1000)" CM":flP:T$135,160:mT1Q(XXXM)2(.37XX):T2Q(XXXM)2:T32MXPXP:YT(T1T2)E0T3nQ$"R = "((YT1E5)1000)" CM":P:Q$135,145:pP:"TH"143,150:q49152):49168,0!US196ī8070;US193HV$"J":8155IUS211ıS7100b@ ******qA FEHLERB ******JFC(222):FC53FC908041T::10::"ES IST LEIDER EIN FEHLER AUFGETAUCHT !"^20:"ICH STARTE NEU !?!":::"FEHR GEMACHT !":I11200:I::4X ***************KY TASTATURABFRAGEbZ ***************rbUS(49152)l49168,0vUS128ıUS211İ7100:US155ĺ(13);(4);"RUN MENU"US196ī8070US193HV$"J":8155US(35X0.375YGY0! ES,0:ES,FS' 6 *******E ABBRUCHT *******X0(X0$):Y0(Y0$):XP(XP$):YP(YP$):::5:"HOMOGENES ELEKTRISCHES FELD"::240(13);(4);"RUN MENU"$23:1::"SIE HABEN LEIDER EINEN FEHLEION BY=F(X,X',Y,Y',T)=Y''> ******************************VX0XMX0XXBY0:fBYQE0M:x ********** * GRAFIK * ********** 3 ES400X0131:FS400Y096 X0XMX0XX3035 FSY115FSY115ī8050 X0.400:14501280.7000:BS1BS0:4000A3000: GRAFIKK 1000px ******************************y HOMOGENES ELEKTR. FELD IN Y-RICHTUNGz ******************************BX0 ****************************** FUNKT15IX2,Y115I:X1,Y118IX2,Y118I:I;P:US$0,180:V400X0131,400Y096fP:E$0,10:p1000400X0131,400Y096:P:E$0,10:16304,1:16297,1:16299,1:1000X0X0XPH:Y0Y0YPHXPXPBXH:YPYPBYH 1XXBS1:<-(13);(4);"RUN EY.MENU"n3::"SOLL DAS ALTE BILD STEHEN BLEIBEN ?"::"(J/N)";:HV$HV$"N"HV$"J"500E$"E0 = "(E0)" V/M"HV$"J"510:P:23:)Y1400Y096:X1400XM131:X2400XX131:I13:X1,Y1""XM(XM$)$$XX$""XX(XX$)>'315:BS1İ4900:290G+240w,17:5::"FELDSTAERKE";::17:21:" ";E0$-E0$""E0(E0$).240619:5::"ZEITSCHRITT";::19:21:" ";H$7H$""H(H$)82409 ;XM.3XX.35XM00:270240R11:5::"STARTGESCHW.";::11:21:" ";XP$:12:21:" ";YP$iXP$""XP(XP$)YP$""YP(YP$)240"BS0:22:958:::" -0.3 < XMIN < XMAX < 0.35 "::14:5::"ORT";::14:21:" ";XM$:15:21:" ";XX$ #XM$ф" ";M$:6:20:" ";Q$* M$""M(M$)> Q$""Q(Q$)G 240 22:958:::"-0.3 < X0 <0.35 UND -0.22 < Y0 < 0.25"::8:5::"STARTORT"::US0:8:22:"";X0$:9:22:"";Y0$ X0$""X0(X0$) Y0$""Y0(Y0$)312:US1İ49"E)LEKTRON":18:6:868:"P)ROTON":7:18:"B)ELIEB. TEILCHEN";j HV$:HV$"E"HV$"B"HV$"P"261 HV$"E"M9.11E31:Q1.6E19:240 HV$"P"M1.67E27:Q1.6E19:240 5:17:"M = ";M;" KG":6:17:"Q = ";Q;" CB":7:17:868:5:20:19:17:" H = ";H;" SEC"_ 21:"<7> KEINE AENDERUNG <";::"8";::"> ";::"MENU";: 23:1:"< > ";::"IHRE WAHL !"::23:2:HV$:(HV$)1(HV$)8252 US0:BS0:(HV$)260,270,280,290,300,310,500,400A 5:5::TA$::18:5:868:M":17:"Y0 = ";Y0;" M"c :"<3> STARTGESCHW.":11:17:"VX = ";XP;" M/S":17:"VY = ";YP;" M/S" "ELEKTR. FELD:":"<4> ORT":14:15:"XMIN = ";XM;" M":15:"XMAX = ";XX;" M"::"<5> FELDSTAERKE":17:17:"E0 = ";E0;" V/M" :"<6> ZEITSCHRITT":)tart D)ruck A)enderung"7 1:3:958:TA$"TEILCHEN"^ M1.67E27Q1.6E19TA$"PROTON" M9.11E31Q1.6E19TA$"ELEKTRON" 1:5:"<1> ";TA$;" MIT :":5:17:" M = ";M;" KG":17:" Q = ";Q;" CB" :"<2> STARTORT":8:17:"X0 = ";X0;"  16384 8000!::K:5:"HOMOGENES ELEKTRISCHES FELD":q5:"---------------------------"P32783:M1.67E27:Q1.6E19:XM.2:XX.1:E05000XP1E6:H1E8:YP0:X0.3:Y00:X0$"-.3":Y0$"0":XP$"1E6":YP$"0" US$"S)top S        4H3212X$((AN$)):P1(X$):J((X$,P,1))AH1P,J:PaP1(AN$):J((AN$,P,1))pPH2,J:PX$((BN$)):P1(X$):J((X$,P,1))H3P,J:PP1(BN$):J((BN$,P,1))PH4,J:P510F11:F20:AM$:AM(AM$)I"I0AM1#,X$(2I)(X(I))96X$(2I1)(Y(I))@@INJAM$(AM)^TI1(AM$)r^J((AM$,I,1))h2187I,J:IrI02AM1|P1(X$(I))J((X$(I),P,1))2208P21I,JP:IH122082AM21:H2H121:H3H221:HDER Y-WERTE IN EINHEITEN VON "::" ";BN$H:"GEBEN SIE NUN DIE"i"EINZELNEN MESSWERTE EIN !"y:I0AM1"NUMMER:";I1:"X-WERT:";X(I):"Y-WERT:";Y(I):I1410I053P1152187I21P,46P:.........." `1600: PROGR.TITELT nX(AM1),Y(AM1),XX(AM1),YY(AM1),X$(2AM1)u x:" MESSWERTERFASSUNG" :" (X ,Y = F(X ))" " I I I" :"EINGABE DER X-WERTE IN EINHEITEN VON "::" ";AN$-:"EINGABE ..............# T...............8 U...............M V...............b W...............w X............... Y............... Z............... [............... \............... ]............... ^............... _.....G...............' H...............< I...............Q J...............f K...............{ L............... M............... N............... O............... P............... Q............... R............... S.. ;...............+ <...............@ =...............U >...............j ?............... @............... A............... B............... C............... D............... E............... F............... ..... /3............../ 01..............D 1M..............Y 21..............n 3V.............. 4............... 5............... 6............... 7............... 8............... 9............... :..............  :96A(X)X2:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::()3..............*1..............+1..............,2..............-2.............. .3.........  ECKEN GELANGEN SIE SOFORT">"INS DISKETTEN-MENUE ZURUECK."n23:15:" ";:HV$:5:1:958::"(13);(4);"RUN MENU" ":7 L::"ANSONSTEN GILT FUER DIESES PROGRAMM " M"GENAU DASSELBE WIE FUER DAS (NORMALE) ":"ZYKLOTRON. "G N"DIE VORGEGEBENEN PARAMETER ZEIGEN EIN ":"ELEKTRON, DAS AUFGRUND DER RELATIVIS- ":"TISCHEN MASSENN ERSTER EINSTIEG IN DIE RELATI- "~ 2"VITAETSTHEORIE VORGENOMMEN WERDEN. DAZU ":"WERDEN BAHNEN MIT DENEN DES NICHTRELATI-" <"VISTISCHEN ZYKLOTRONS VERGLICHEN." F23:" TASTE !";:HV$ K::" ";::"RELATIVISTISCHES ZYKLOTRON 6 ::" ";::"RELATIVISTISCHES ZYKLOTRON ":j::"DAS PROGRAMM SIMULIERT EIN ZYKLOTRON, ""WOBEI HIER DIE RELATIVISTISCHE RECHNUNG ":"BENUTZT WIRD. (RELATIVISTISCHE MASSEN- "" ("ZUNAHME) MIT HILFE DIESES PROGRAMMES ":"KANN EI   NFORMATIONEN"9 US200,210,220,230,240,250,260,290,280W (13);(4);"RUN";PR$(US) 4:5::"HOMOGENES ELEKTR. FELD"::140 6:5::"HOMOGENES MAGNET. FELD"::140 8:5::"WIEN - FILTER"::140 10:5::"MASSENSPEKTROGRAPH"::140****A FEHLER"B ******BJFC(222):FC53FC908041zT::10::"ES IST LEIDER EIN FEHLER AUFGETAUCHT !"^20:"ICH STARTE NEU !?!":::"FEHLERCODE = ";FCh999:irP:"TASTE !"30,140:sUS(49152):49168,1:US1268060GY0 (FS)96ēES,FS:( ES,FS. = *******L ABBRUCH[ *******e8041kX ***************Y TASTATURABFRAGEZ ***************bUS(49152)l49168,0vUS128ıUS155BS1@ **M:) ******************************N FUNKTION BY=F(X,X',Y,Y',T)=Y''s ******************************BYQE0MQB0VXM: ********** * GRAFIK * ********** 3 ES400X0131:FS400Y096 X0.35X0.375YZUNAHME EINE MAXIMALGE- ":"SCHWINDIGKEIT NICHT UEBERSCHREITEN KANN."n 23:" TASTE !";:HV$ (13);(4);"RUN RZYK.MENU"H::"7. VERGROESSERUNGSFAKTOR"::" (GIBT DIE VERGROESSERUNG DES MASS-":" STABES BZW. KOORDINATENKREUZES AN)" 23:12::"TASTE !";::HV$::5:958 (13) :P:41: P:"ES GEHT GLEICH LOS !"100,160: (4);"RUN VZYK.MENU"" (EINGABE IN S; GIBT DIE SCHRITTWEITE":" FUER DIE RECHNUNG AN)" ::"6. VERSTIMMUNGSFAKTOR"::" (ENTSPRICHT DEM VERHAELTNIS VON ":" UMLAUFFREQUENZ ZUR FREQUENZ DES " " ELEKTRISCHEN HF-FELDES; SIEHE AUCH":" INFORMATIONEN)"v IN M/S;KEINE RELATIVISTISCHE";:" RECHNUNG!)" ::"4. DAS ELEKTRISCHE UND MAGNETISCHE FELD"::" (SIE BRAUCHEN NUR DIE FELDSTAERKE IN":" V/M BZW. T ANZUGEBEN)" 23:12::"TASTE !";::HV$::5:958 :7:1::"5. ZEITSCHRITT":G ROTON":" SIND VORBESETZT, ANSONSTEN MUESSEN"^ " MASSE UND LADUNG ANGEGEBEN WERDEN)" ::"2. DER STARTORT DES TEILCHENS "::" (EINGABE IN M; DIE GRENZEN WERDEN AN":" GEZEIGT.)" ::"3. DIE STARTGESCHWINDIGKEIT":1 " (EINGABE::"ALLE WERTE SIND BEREITS MIT LAUFFAEHIGEN"^ "DATEN VORBESETZT, SO DASS SIE AUCH OHNE " "EINE AENDERUNG EINE SIMULATION ERHALTEN." 23:12::"TASTE !";::HV$::6:9580 1::"1. ART DES TEILCHENS"::" (DIE DATEN VON ELEKTRON UND P!115,(43634):116,(43635)- P32783V:::10:"VERSTIMMTES ZYKLOTRON":s3:13:"PARAMETERLISTE"4:13:"--------------"::"BEI DIESEM PROGRAMM KOENNEN SIE DIE NACH":"FOLGEND AUFGEFUEHRTEN PARAMETER EINZELN ". "AENDERN." ZYK.MENU,RZYK.MENU,EXO.MENU,INFORMATION N 12:5::"ZYKLOTRON"::140M 14:5::"VERSTIMMTES ZYKLOTRON"::140 16:5::"RELATIVISTISCHES ZYKLOTRON"::140 140 "18:5::"UEBERLAGERUNG VON E- UND B-FELD"::140  EY.MENU,BZ.MENU,WIEN.MENU,MASS.MENU,ZYK.MENU'  VZYK.M"<6> VERSTIMMTES ZYKLOTRON":E _"<7> RELATIVISTISCHES ZYKLOTRON":r `"<8> UEBERLAGERUNG VON E- UND B-FELD": i:"<9> INFORMATIONEN": n23:1:"< > IHRE WAHL":23:2:US$:US$; x(US$)1(US$)9110 US(US$) US9Ģ20:1:"<9> I)  ::3% HV19:PR$(HV):HVV:"TEILCHEN IN ELEKTROMAGNETISCHEN FELDERN"`::("<1> HOMOGENES ELEKTR. FELD":2"<2> HOMOGENES MAGNET. FELD":<"<3> WIEN - FILTER":F"<4> MASSENSPEKTROGRAPH":P"<5> ZYKLOTRON": Z  z#|Ա ˮ͠ ˮˮϠ ˮ͠ˮΠ ˮ͠ ӮϠӮϠ ˮ͠Ӯ ˮϠ ˮˮϠ  ڮڮ͠ ή ήϠ!ή͠ՠӮ͠ ɨٮϠٮϠ ٮٮ͠ ڮϠ ڮϠ  Ϡήՠˮՠ ˮՠ ˮՠǠР!ٮՠ ڮՠӮՠ ծԠ ήϠ ЮΠ Š+!115,(43634):116,(43635)[d:::"M A S S E N S P E K T R O G R A P H ":P32783n:5:"ZUR SIMULATION DES MASSENSPEKTROGRAPHEN WIRD FOLGENDER VERSUCHSAUFBAU BENUTZT : " p23:" DEMONSTRATION"::D$;"RUN MASS.DEMO"| X17:1::"<5> DISKETTEN-MENU"::D$;"RUN MENU"HL"* Z22:2:H$:H$:H(H$):H1H590M _H4Ģ15:1:"<4> SIMULATION"h dH200,500,300,400,600 9:1::"<1> INFORMATIONEN"::D$;"RUN MASS.INFO" ,13:1::"<3> PARAMETERLISTE"::D$;"RUN MASS.PARA" 15:1::"<4> SIMULATION": D~D$(13)(4) :=12::"MASSENSPEKTROGRAPH":]::19:"MENU":19:"----"|(:::"<1> INFORMATIONEN"-:"<2> DEMONSTRATION"2:"<3> PARAMETERLISTE"<:"<4> SIMULATION"F:"<5> DISKETTEN-MENU" P22:1:"< > IHRE WA"RUN BZ.SIM"B 11:1::"<2> DEMONSTRATION"::D$;"RUN BZ.DEMO"v X17:1::"<5> DISKETTEN-MENU"::D$;"RUN MENU"WAHL", Z22:2:H$:H$:H(H$):H1H590O _H4Ģ15:1:"<4> SIMULATION"j dH200,500,300,400,600 9:1::"<1> INFORMATIONEN"::D$;"RUN BZ.INFO" ,13:1::"<3> PARAMETERLISTE"::D$;"RUN BZ.PARA" 15:1::"<4> SIMULATION": D$;xD$(13)(4) :?12::"HOMOGENES MAGNETFELD":_::19:"MENU":19:"----"~(:::"<1> INFORMATIONEN"-:"<2> DEMONSTRATION"2:"<3> PARAMETERLISTE"<:"<4> SIMULATION"F:"<5> DISKETTEN-MENU" P22:1:"< > IHRE   D$;"RUN EY.SIM"H 11:1::"<2> DEMONSTRATION"::D$;"RUN EY.DEMO"| X17:1::"<5> DISKETTEN-MENU"::D$;"RUN MENU" IHRE WAHL"2 Z22:2:H$:H$:H(H$):H1H590U _H4Ė1:15:"<4> SIMULATION"p dH200,500,300,400,600 9:1::"<1> INFORMATIONEN"::D$;"RUN EY.INFO" ,13:1::"<3> PARAMETERLISTE"::D$;"RUN EY.PARA" 15:1::"<4> SIMULATION": ~D$(13)(4) :E8::"HOMOGENES ELEKTRISCHES FELD":e::19:"MENU":19:"----"(:::"<1> INFORMATIONEN"-:"<2> DEMONSTRATION"2:"<3> PARAMETERLISTE"7:"<4> SIMULATION"F:"<5> DISKETTEN-MENU" P22:1:"< >  ...............x/(o(ox?xx [~@`px|~@`px|~ p U* U*p|x ... #*U*U**U*U* c......hirM BPP@@@ ((   TWWWWWWWWWWWWWWWWWw?U*/U* b6?7UDUg U 5 5f 5D?L@P~A"#/&E - Feld und B - Feld gekreuztf105*2_(2WsH<8h?j?87X>s=64L> ] (%*)+ '' /  '%/)+ @ *U*P*U*hthP   /_/ MAILP= JiMsIP|〻x = E cos( t) + y = - x , = 'q. . . 'm ?. q% @`0 4x = E + B Q q P m x m 6nTFT3y = E + B P q P m y m nTFT152Ā z = €ƀ xx@5Lmr = qE(r,t) + qvxB(r,t1.0N0.u1'R'V elektrischeIWechselfeld micE = E cos( teaĀ . dI2#0'&!#'/ ROC' =a _ 1;<;(>H Platten#Gkondensato/r1+2x5t2 %`KWIEN-Filte r9rrQQQQQQZQ2Q 8tt R cTcCr`ttttttHtt0{bc=???d?B? F >, >( >`>E>->7V><>D 6>@?\?z????`??????7>7>nb#12n5e2Q Q QB Qd Q Q Q Q rr9rYrrrQQQQQQZQ2Q `ttt8ttyr R`tL8$ 1 cTcI05c퀚Q Q QB Qd Q Q Q Q r        113,130:y I12500:I:::10:"DIE SIMULATION HOERT AUTOMATISCH NACH ":"DURCHLAUFEN EINES HALBKREISES AUF. " "ANSCHLIESSEND KANN DAS NAECHSTE TEILCHEN":"LOSGESCHICKT WERDEN." 23:1:" ":HV$:16304,1:16299,1:16297,1* "141,88:( L1100:L:P:"."142,95:H L1100:L:P:"."141,102:h L1100:L:P:"."138,108: L1100:L:P:"."134,115: L1100:L:P:"."130,121: L1100:L:P:"."125,125: L1100:L:P:"."119,128: L1100:L:P:"."Ź16304,1:16299,1:16297,1< |I116:K7I:P:"."K,60:O }L1100:L:In ~L1100:L:P:"."119,62: L1100:L:P:"."125,65: L1100:L:P:"."130,69: L1100:L:P:"."134,75: L1100:L:P:"."138,82: L1100:L:P:".!>"; qH$ x:3:P:85: yI12500:I:::10:"TEILCHEN MIT DER RICHTIGEN GESCHWINDIG- ":"KEIT PASSIEREN UNGEHINDERT DEN WIEN - " z"FILTER UND WERDEN DANN IM MAGNETISCHEN ":"FELD AUF EINE KREISBAHN GELENKT." {23:1:" ":HV$:*U*U**U*U**U*U* NT*UT*UT*U||@`0 @`0||T*UT*UT*U|| A? ?/ok;__Ww5 *U*U**U*U**U*U* 8`px|~@`px|~@`p@`p8@`p8?? @`?p?8@`p: ML3^??3L3L?L03L??3L >3^ ? ^ggggggggg V8 D  *U*U* 333 Esg sg 0` paO0`Npgpg 3?7?3??73 3?? 3;03 3;?3 ?33  Esg sg 0` paO0`Npgpg 3?7?3??73 3?? 3;03 3;?3   C  D @ @  @ " (&(&(&(!!_!?!$!"#/ G @@@ @@  @@@@     U*U*U J@@(P"P"@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ D !!_!?!$!"#/ % ƀP@ Pc 0c 0@ P0$- U= P@ Pc 0c 0@ P0$- U= B= E=(0, ,0ـ SCHIRo PLATTEN{ KONDENSATOC%hC%y.&y &y&f'F'&' '&/& (((&( &#/ 22 ȀP@ Pc 0c 0@ P0$- U= P@ Pc 0c 0@ P0$- U= B= E=(0, ,0ـ SCHIRo PLATTEN{ KONDENSATOC%hC%y.&y &y&f'F'&' '&/& (((&( &(&(&(&(P@ Pc 0c 0@ P0$- U= P@ Pc 0c 0@ P0$- U= B= E=(0, ,0ـ SCHIRo PLATTEN{ KONDENSATOC%hC%y.&y &y&f'F'&' '&/& (((&( &(&(&(&(!!_!?!$!"P*P*@*@*     K@@@@@@@@@@@@ @"@"  "@"@@@@@@@@@@@@@@ `pp p(%p*)p+p pp'p' p/ p ppp'%p/)p+p ppppp|lX 0`@NsNsNsNsNNNwNswNswNs?wNs?_Os?GsSp|sq|ss|sGsp@sp@sp@Gsp@qp@pp@qp@Gsp@sp@Gsp@sp@qp@pp@    `0`0`0  ` `0`0T*UT*U T*UT*T*T*T*T* T* T*UT*UT*UT* @G*)+)8,)]-)~. >D"(>"("D "b"""=`````````````S?xgxgygwaagaagaagaawaa`a?`a?`aw`aw`agaaGaaGaaS?N?N?NWWWWWWWWWWWWWWWWWWWWWWWWWw?U*U*/U*U* q (*U@U@W~WGW@ OpGhgS|cWzGW@>O`Pxt~}@? pxHp C@C !#"/׀ Schir! B=(0,0, JE= D TWWWWWWWWWWWWWWWWWw?U*U/U*U ox.U*U*+U*U*WWWWWWWWWWWWWWWWWWWWWWWWWW oW.............. o........................../*U*o*U*o? TU^@_@?@ L<6L^7l<? )8 ;&&ii@A bii,BFFB𭬀6`M ΖL% )Ζ@,L',LPL^jJ@@m@B.C)$,6p 0 L I1L QL'@*Τ^@mB.C)$,6p 0 L``9=8>:?7 mm(iȱ`8`@ȱA 6)6) ?>34= Lł@Lł85DLEL2))       (((((( (( (( (( (( (( PPPPPP PP PP PP PP PP 84.53*(4Lځm4m4.5`3N0m1jn2L LPLKLLL|LLLLLLLԌL5L@L((֠蠠̪۠ઠҠŠ~ ӥ -> PDA SYNTAX ERROR-> PDA OVERFLOW ERRORIN~        L+ UlK:&@HN $ 5ax|=XX5 Plattenkondensato7   *` ` @@` ` 00%XX5 Plattenkondensator GOCq5#` 0+2DMn ~ !a%htw V 9h ]GD$(13)(4) :815::"DAS ZYKLOTRON":X::19:"MENU":19:"----"w(:::"<1> INFORMATIONEN"2:"<2> PARAMETERLISTE"<:"<3> SIMULATION"F:"<4> DISKETTEN-MENU"P22:1:"< > IHRE WAHL" Z22:2:H$:H$:H(H$):WIEN.SIM"A 11:1::"<2> DEMONSTRATION"::D$;"RUN WIEN.DEMO"u X17:1::"<5> DISKETTEN-MENU"::D$;"RUN MENU"22:2:H$:H$:H(H$):H1H590F _H4Ģ15:1:"<4> SIMULATION"a dH200,500,300,400,600 9:1::"<1> INFORMATIONEN"::D$;"RUN WIEN.INFO" ,13:1::"<3> PARAMETERLISTE"::D$;"RUN WIEN.PARA" 15:1::"<4> SIMULATION": D$;"RUN wD$(13)(4) :615::"WIEN-FILTER":V::19:"MENU":19:"----"u(:::"<1> INFORMATIONEN"-:"<2> DEMONSTRATION"2:"<3> PARAMETERLISTE"<:"<4> SIMULATION"F:"<5> DISKETTEN-MENU"P22:1:"< > IHRE WAHL"# ZT 16384 8000!::>:10:"UEBERLAGERUNG":W10:"-------------"P32783:M1.67E27:Q1.6E19:XM.3:XX.3:E0200:B0.02YP1.3E5:H1E7:XP0:X0.3:Y00:X0$"-.3":Y0$"0":YP$"1.3E5":XP$"0" US$"S)top S)tart D)ruck A)e     0?3>3333300>333>3?>633>0?333 00000633 wkcc;?333333333>333>0:>>>0  3333>333 cck63? ?3333>0? ?     6 33?3333333>??>?333????????;3?333?333 >0000063;;3??wkcccc377?;;3?333?33333+.333?0??? 33333?33333 cccck633 3333 ?? ?? 0 <00000< 3 66$6666663333#3 31>A]EE]A>    -?- ??   0 33333<>30000?08 ???00? ???0? 33??0 ?33?33>0    ????  0< =? P2>=? P` F@`px|A||||||@|||||||||||| I@`pxxxxxxxAp`@ >@`pxAxxxxxxp`@àɠ踥8``STqq)ii`mT:ȱmS8ȱ)i96)6) 660ȱ7 iiL3i i 98: KqiL3 8S:T `6=>? Pd>ɠɀw`0: A[8``Lmɀ,:(,$% $Lm`s st t 8` )Lm [`QT Ѕ Nj  Nj ً LQT Nj  Nj ً L 0 `uJvK \ Nj `v30d1 灪zmrm2`s  t ijs tk lLiiL9,t,sRLn)Lr0\ uvst.v.u.t.srstLruur 8`` TGESCHW.";::11:21:" ";XP$:12:21:" ";YP$EXP$""XP(XP$)\YP$""YP(YP$)e240"BS0:22:958:::" -0.3 < XMIN < XMAX < 0.35 "::14:5::"ORT";::14:21:" ";XM$:15:21:" ";XX$#XM$""XM(XM$)$XX$""XX(XX$)(M$) Q$""Q(Q$)# 240 22:958:::"-0.3 < X0 <0.35 UND -0.22 < Y0 < 0.25"::8:5::"STARTORT"::US0:8:22:"";X0$:9:22:"";Y0$ X0$""X0(X0$) Y0$""Y0(Y0$) 312:US1İ4900:270 240.11:5::"STAR:7:18:"B)ELIEB. TEILCHEN";F HV$:HV$"E"HV$"B"HV$"P"261n HV$"E"M9.11E31:Q1.6E19:240 HV$"P"M1.67E27:Q1.6E19:240 5:17:"M = ";M;" KG":6:17:"Q = ";Q;" CB":7:17:868:5:20:" ";M$:6:20:" ";Q$ M$""M21:"<6> KEINE AENDERUNG <";::"7";::"> ";::"MENU";: 23:1:"< > ";::"IHRE WAHL !"::23:2:HV$:(HV$)1(HV$)7252 US0:BS0:(HV$)260,270,280,300,310,500,400 5:5::TA$::18:5:868:"E)LEKTRON":18:6:868:"P)ROTON"Y0;" M"S :"<3> STARTGESCHW.":11:17:"VX = ";XP;" M/S":17:"VY = ";YP;" M/S" ::"ELEKTR. UND MAGNET. FELD:":::"<4> FELDSTAERKE":16:17:"E0 = ";E0;" V/M" 17:17:"B0 = ";B0;" T" :"<5> ZEITSCHRITT":19:17:" H = ";H;" SEC"? nderung"' 1:3:958:TA$"TEILCHEN"N M1.67E27Q1.6E19TA$"PROTON"x M9.11E31Q1.6E19TA$"ELEKTRON" 1:5:"<1> ";TA$;" MIT :":5:17:" M = ";M;" KG":17:" Q = ";Q;" CB" :"<2> STARTORT":8:17:"X0 = ";X0;" M":17:"Y0 = ";:1::"<4> DISKETTEN-MENU"::D$;"RUN MENU"H$:H(H$):H1H4909 _H3Ģ13:1:"<3> SIMULATION"P dH200,300,400,600 9:1::"<1> INFORMATIONEN"::D$;"RUN RZYK.INFO" ,11:1::"<2> PARAMETERLISTE"::D$;"RUN RZYK.PARA" 13:1::"<3> SIMULATION": D$;"RUN RZYK.SIM", X15.D$(13)(4) :D8::"RELATIVISTISCHES ZYKLOTRON":d::19:"MENU":19:"----"(:::"<1> INFORMATIONEN"2:"<2> PARAMETERLISTE"<:"<3> SIMULATION"F:"<4> DISKETTEN-MENU"P22:1:"< > IHRE WAHL" Z22:2:H$::"<4> DISKETTEN-MENU"::D$;"RUN MENU"D(H$):H1H4905 _H3Ģ13:1:"<3> SIMULATION"L dH200,300,400,600 9:1::"<1> INFORMATIONEN"::D$;"RUN VZYK.INFO" ,11:1::"<2> PARAMETERLISTE"::D$;"RUN VZYK.PARA" 13:1::"<3> SIMULATION": D$;"RUN VZYK.SIM"( X15:1:*D$(13)(4) :@10::"VERSTIMMTES ZYKLOTRON":`::19:"MENU":19:"----"(:::"<1> INFORMATIONEN"2:"<2> PARAMETERLISTE"<:"<3> SIMULATION"F:"<4> DISKETTEN-MENU"P22:1:"< > IHRE WAHL" Z22:2:H$:H$:H   KETTEN-MENU"::D$;"RUN MENU"H1H490- _H3Ģ13:1:"<3> SIMULATION"D dH200,300,400,600z 9:1::"<1> INFORMATIONEN"::D$;"RUN ZYK.INFO" ,11:1::"<2> PARAMETERLISTE"::D$;"RUN ZYK.PARA" 13:1::"<3> SIMULATION": D$;"RUN ZYK.SIM" X15:1::"<5> DIS$);" M/S"6"STARTORT X0 = ";(X0$);" M"c" Y0 = ";(Y0$);" M""WIEN - FILTER MIT E0 = ";E0;" V/M":" B0 = ";B0;" T"" AM ORT XMIN = ";XM;" M"" XMAX = ";XXUCKER JUSTIEREN!"::"WENN FERTIG, BITTE TASTE DRUECKEN"HHV$:(13)Y(4);"PR#1""TEILCHEN MIT: MASSE M = ";M;" KG"" LADUNG Q = ";Q;" CB""ANFANGSGESCHW. VX = ";(XP$);" M/S" " VY = ";(YPN"HV$"G"8076D2*HV$"G"D66Q(13);(4);"PR#1":1913,D:(145)b(4);"PR#0"::::"WOLLEN SIE AUCH DIE DAZUGEHOERIGEN DATEN":"AUSGEDRUCKT HABEN (J/N) ?"19:28:HV$:HV$"N"HV$"J"8101HV$"N"81408:5:"DR:E$0,10:P:T$135,170:2P:Q$135,155:HP:"TH"143,150:_P:"SIM"143,165:qUS1968150::5::"AUSDRUCK"::" (EPSON-DRUCKER)"::" NORMAL- (N) "::"ODER GROSSDRUCK (G) ?"11:29:HV$:HV$""((YT1E5)1000)" CM":P:Q$135,145:=pP:"TH"143,150:SqP:"SIM"143,165:lrP:"TASTE !"30,170:sUS(49152):49168,1:US1268060tI1250:I:P:"TASTE !"30,170:uI1100:I:8050|US2158043}P:"TASTE !"30,170: ~P":::"FEHLERCODE = ";FC+hI11000::5i8050^kT$"R = "((YG1E5)1000)" CM":qlP:T$135,160:mT1Q(XXXM)2(.37XX):T2Q(XXXM)2:T32MXPXP:YT(T1T2)E0T3nQ$"R = "((YT1E5)1000)" CM":P:Q$135,145:(oQ$"R = 0US193HV$"J":8155!:US(49152):49168,0LUS196ī8070fUS193HV$"J":8155tUS211ı~7100@ FEHLERJFC(222):FC53FC908041T::10::"ES IST LEIDER EIN FEHLER AUFGETAUCHT !"^20:"ICH STARTE NEU !?! I L T E R "::240/(13);(4);"RUN MENU"5~$23:1::"SIE HABEN LEIDER EINEN FEHLER GEMACHT !":I11200:I::X TASTATURbUS(49152)l49168,0vUS128ıUS211İ7100:US155ĺ(13);(4);"RUN MENU"US196ī807BYQM(E0B0VX):+ GRAFIKK ES400X0131:FS400Y096a ESP1ESP23040} FSY115FSY1158045 (FS)96ēES,FS: ES,FS  ABBRUCHX0(X0$):Y0(Y0$):XP(XP$):YP(YP$):::5:" W I E N - FP(X(2,1)X(2,2)2X(2,3)2X(2,4))H6WYPYP(Y(2,1)Y(2,2)2Y(2,3)2Y(2,4))H6X0X0HXP(X(2,1)X(2,2)X(2,3))HH6Y0Y0HYP(Y(2,1)Y(2,2)Y(2,3))HH67000:BS1BS0:80453000: GRAFIK 1000xBXQB0VYM:):VXX(1,3):YNY(0,3):VYY(1,3)/1400:1450GX(2,3)BX:Y(2,3)BYqX(0,4)X0X(1,3)H:X(1,4)XPX(2,3)HY(0,4)Y0Y(1,3)H:Y(1,4)YPY(2,3)HXNX(0,4):VXX(1,4):YNY(0,4):VYY(1,4)TTH2:1400:1450X(2,4)BX:Y(2,4)BY'XPXXPX(2,1)H2;LY(0,2)Y0Y(1,1)H2:Y(1,2)YPY(2,1)H2gVXNX(0,2):VXX(1,2):YNY(0,2):VYY(1,2)`TTH2:1400:1450jX(2,2)BX:Y(2,2)BYtX(0,3)X0X(1,2)H2:X(1,3)XPX(2,2)H2~Y(0,3)Y0Y(1,2)H2:Y(1,3)YPY(2,2)H2XNX(0,3096,16304,1:16297,1:16299,1:1000<I14:I:BnX(0,1)X0:X(1,1)XP:Y(0,1)Y0:Y(1,1)YP$XNX(0,1):VXX(1,1):YNY(0,1):VYY(1,1).1400:1450: BERECHNUNG VON X'' UND Y''8X(2,1)BX:Y(2,1)BY BX(0,2)X0X(1,1)H2:X(1,2)0XM131:P$".":B00P$"X"-HV$"J"5103jI0N:K06:P1MX20I3:P23620K:P:P$P1,P2:K:I:I13:0,0I250,0I:0,175I250,175I:I400X0131,400Y096:P:US$0,180:P:B$0,10:P:E$0,20:400X0131,400YXMXXBS1:<.(13);(4);"RUN MENU"V0((XPXPYPYP)100)100:3::"SOLL DAS ALTE BILD STEHEN BLEIBEN ?"::"(J/N)";:HV$HV$"N"HV$"J"500N((400XX131)(400XM131))20:E$"E0 = "(E0)" V/M":B$"B0 = "(B0)" T":MX40'315:BS1İ4900:290#+240d,16:5::"FELDSTAERKE";::16:21:" ";E0$:17:21:" ";B0${-E0$""E0(E0$).B0$""B0(B0$)/240619:5::"ZEITSCHRITT";::19:21:" ";H$7H$""H(H$)82409 ;XM.3XX.35ժժժժՂԊЪՀՂԊЪՀԊЪժժՀԪժժժժՂԊЪժժՂԊЪժժժժՂԊЪՀՂԊЪՀԊЪժժՀԪժժՀՂԊЪժժՂԊЪժժժժՂԊЪՀՂԊЪՀԊЪժժՀԪժժՀՂԊЪժժՂԊЪժժժժՂԊЪժժժժՂԊЪժժՀԪժժՀԊЪժժՀԪժժ;" M"(4);"PR#0" IX0(X0$):Y0(Y0$):XP(XP$):YP(YP$)S4050PKTRON":18:6:868:"P)ROTON":7:18:"B)ELIEB. TEILCHEN";d HV$:HV$"E"HV$"B"HV$"P"261 HV$"E"M9.11E31:Q1.6E19:240 HV$"P"M1.67E27:Q1.6E19:2405:17:"M = ";M;" KG":6:17:"Q = ";Q;" CB":7:17:868:5:20:" ";MI12500:I:(13);(4);"RUN MASS.MENU"UE":" FUER DIE RECHNUNG AN)"K23:12::"TASTE !";::HV$::5:958V(13)c:P:41: P:"ES GEHT GLEICH LOS !"100,160: (4);"RUN WIEN.MENU"P:A$A1,A2:X TASTATURABFRAGEYUS(49152):49168,0ZUS127380 [4510I2,6310K24510I2,6310K2:K:I@ TP:2938,117:S ^P:36104,117:m hP:"TASTE !"200,130: rI1500::7000 |P:"TASTE !"200,130: I1300::360 :7:1::"5. ZEITSCHRITT":" (EINGABE IN S; GIBT DIE SCHRITTWEITen dieses Koordinaten-":A10:A20:1000O ,A$"system vorgegeben!":A210:1000 6I13:54,76I94,76I:54,110I94,110I:I @95,96105,115:50,9640,115:P:"X"30,115: JP:"X"95,115:. LI15:K15:4510I2,6310K24510I2,6310K2:KEINE RELATIVISTISCHE";:" RECHNUNG!)" ::"4. DAS ELEKTRISCHE UND MAGNETISCHE FELD"::" (EINGABE VON ORT (IN M) UND FELD-":" STAERKE IN (V/M BZW. T) VGL. BILD ->)" 23:12::"TASTE !";::HV$::5:958 3::P:23:' "A$"Sie hab" SIND VORBESETZT, ANSONSTEN MUESSEN"V " MASSE UND LADUNG ANGEGEBEN WERDEN)" ::"2. DER STARTORT DES TEILCHENS "::" (EINGABE IN M; DIE GRENZEN WERDEN AN":" GEZEIGT.)" ::"3. DIE STARTGESCHWINDIGKEIT":) " (EINGABE IN M/S;E WERTE SIND BEREITS MIT LAUFFAEHIGEN"V "DATEN VORBESETZT, SO DASS SIE AUCH OHNE " "EINE AENDERUNG EINE SIMULATION ERHALTEN." 23:12::"TASTE !";::HV$::6:958( 1::"1. ART DES TEILCHENS"::" (DIE DATEN VON ELEKTRON UND PROTON":!115,(43634):116,(43635)- P32783N:::14:"WIEN - FILTER":k3:13:"PARAMETERLISTE"4:13:"--------------"::"BEI DIESEM PROGRAMM KOENNEN SIE DIE NACH":"FOLGEND AUFGEFUEHRTEN PARAMETER EINZELN "& "AENDERN."::"ALL-((((066n88888a $IG#d  @$ D# %h((((;G ;(5E+7G;`5E;*-!$$d666@D A d6 D#$$-E--;*-$$$-66? $d-?$$$-?M2?$$E+6?o16 $d-6'9? D# ?E+(8888@+-%8??IE+(() D# @# -E+ $?v-)- ?G# -2!,(( ??-E#?$ --E#?'$--I$$$>.--p-E#g 8 $$M16 $$M166? $$$?--p-E#?G# -$$$-? $d-6m$$$-? $d-66?$$$&$$$$$$.@+0666$$$666--$$$M-E#$$)=$$$/-$$$M16?/-66 $d-w>?$$$--;7$$$?((((@#$E#V $$Hl 6A$l16>?IG#$<-'A+-? --A#$tE+@d-6>/5.!$$-?A$ 6?A#$,66 $,6n$-'$$?$$t   $$ -'$D#A#$$6-6Ad6?- <-'dA$ >-@# -$66.??A$ -:?(-E#?6$$$-$?V1.?A@--@+(p-%$$0#znid[SKA3'znaXMB6*!wpf^UMB:1( $$56.$$56.$$@c-E+ad $D#I d@(---A$M6>/5ENU,RZYK.MENU,UEBERLAGERUNG,INFORMATION H] 5:17:"M = ";M;" KG":6:17:"Q = ";Q;" CB":7:17:868:5:20:" ";M$:6:20:" ";Q$q M$""M(M$) Q$""Q(Q$) 24022:958:::"-0.3 < X0 <0.35 UND -0.22 < Y0 < 0.25"::8:5::"STARTORT"::US0:8:22:"";X0$:9:22:$)260,270,280,290,300,305,310,500,400 5:5::TA$::18:5:868:"E)LEKTRON":18:6:868:"P)ROTON":7:18:"B)ELIEB. TEILCHEN"; HV$:HV$"E"HV$"B"HV$"P"261 HV$"E"M9.11E31:Q1.6E19:240 HV$"P"M1.67E27:Q1.6E19:240 V/M"* "<6> MAGNETFELD B0 = ";B0;" T"] :"<7> ZEITSCHRITT":19:17:" H = ";H;" SEC" 21:"<8> KEINE AENDERUNG <";::"9";::"> ";::"MENU";: 23:1:"< > ";::"IHRE WAHL !"::23:2:HV$:(HV$)1(HV$)9252& US0:BS0:(HV2> STARTORT":8:17:"X0 = ";X0;" M":17:"Y0 = ";Y0;" M" :"<3> STARTGESCHW.":11:17:"VX = ";XP;" M/S":17:"VY = ";YP;" M/S" "ELEKTR. FELD:":"<4> ORT":14:15:"XMIN = ";XM;" M":15:"XMAX = ";XX;" M":"<5> FELDSTAERKE":16:17:"E0 = ";E0;"5":YP$"0":B0.01: US$"S)top S)tart D)ruck A)enderung"Y 1:3:958:TA$"TEILCHEN" M1.67E27Q1.6E19TA$"PROTON" M9.11E31Q1.6E19TA$"ELEKTRON" 1:5:"<1> ";TA$;" MIT :":5:17:" M = ";M;" KG":17:" Q = ";Q;" CB"9 :"";c qH$s x:3:P:31: y5,140260,140260,1655,1655,140:22,855,855,1822,1822,8:190,7210,7210,25190,25190,7 zA$"Das Teilchen fliegt ohne E-Feld"!115,(43634):116,(43635)^d:::"TEILCHEN IM HOMOGENEN ELEKTRISCHEN FELD":P32783n:5:"EIN HOMOGENES ELEKTRISCHES FELD WIRD AM EINFACHSTEN MIT EINEM PLATTENKONDENSATOR"7 o"REALISIERT!"::"MAN K     BY0tX(0,3)X0X(1,2)H2:X(1,3)XPX(2,2)H2^~Y(0,3)Y0Y(1,2)H2:Y(1,3)YPY(2,2)H2XNX(0,3):VXX(1,3):YNY(0,3):VYY(1,3)1400:1450X(2,3)BX:Y(2,3)BYX(0,4)X0X(1,3)H:X(1,4)XPX(2,3)HY(0,4)Y0Y(1,3)H:Y(1,4)YPY((1,1)2.1400:1450: BERECHNUNG VON X'' UND Y''J8X(2,1)BX:Y(2,1)BYxBX(0,2)X0X(1,1)H2:X(1,2)XPX(2,1)H2LY(0,2)Y0Y(1,1)H2:Y(1,2)YPY(2,1)H2VXNX(0,2):VXX(1,2):YNY(0,2):VYY(1,2)`TTH2:1400:1450jX(2,2)BX:Y(2,2)00(P:B$0,2:9016304,1:16297,1:16299,1:1000II14:I:h *********************** * RUNGE-KUTTA - VERF. * ***********************3X(0,1)X0:X(1,1)XP:Y(0,1)Y0:Y(1,1)YP$XNX(0,1):VXX(1,1):YNY(0,1):VYY0I:P23620K:P:P$P1,P2:0K:I:P:B$0,2:lI15:A1,B135IA2,B135I:A1,B132IA2,B132I:I|P:E$0,12:P:US$0,180:400X0131,400Y0961000&400X0131,400Y096:P:E$0,12:'16304,1:16297,1:16299,1:10;:HV$!HV$"N"HV$"J"500jN((400YX131)(400YM131))20:B$"B0 = "(B0)" T":MX400YM131B1400Y096:A1400XM131:A2400XX131:E$"E0 = "(E0)" V/M"HV$"J"550:P:23:P$"X":B00P$"."I0N:K06:P1MX2:21:" ";B0$$2B0$""B0(B0$)-3240\619:5::"ZEITSCHRITT";::19:21:" ";H$p7H$""H(H$)y82409;XM.3XX.35XMXXBS1:<(13);(4);"RUN MASS.MENU"3::"SOLL DAS ALTE BILD STEHEN BLEIBEN ?"::"(J/N)"0.35 "::14:5::"ORT";::14:21:" ";XM$:15:21:" ";XX$T#XM$""XM(XM$)k$XX$""XX(XX$)'315:BS1İ4900:290+240,16:5::"FELDSTAERKE";::16:21:" ";E0$-E0$""E0(E0$).240 117:5::"MAGNETFELD";::17"";Y0$X0$""X0(X0$)4Y0$""Y0(Y0$)N312:US1İ4900:270W24011:5::"STARTGESCHW.";::11:21:" ";XP$:12:21:" ";YP$XP$""XP(XP$)YP$""YP(YP$)240="BS0:22:958:::" -0.3 < XMIN < XMAX < :HV$::6:958(13)(:P:41:O P:"ES GEHT GLEICH LOS !"100,160:i (4);"RUN WIEN.MENU"PKEN LASSEN ODER ZUM AENDERUNGSMENU "> 6"ZURUECKSPRINGEN. "j J23:12::"TASTE !";::HV$::6:958 O1::"!";::" BEI DRUECKEN DER ";::"ESC";::"-TASTE GELANGEN" T:"SIE INS DISKETTEN-MENU ZURUECK ";::"!":h23:12::"TASTE !";:SER HABEN": "SIE VERSCHIEDENE EINGRIFFSMOEGLICHKEITEN"m 1:"WELCHE IN FORM EINER FUNKTIONSLEISTE AM" ""UNTEREN BILDSCHIRMRAND ANGEZEIGT WERDEN.":"SIE KOENNEN DIE SIMULATION ANHALTEN BZW"% ,"WEITERLAUFEN LASSEN ODER DAS BILD AUS- ":"DRUCGRAMM GELANGEN SIE ":"ALS ERSTES ZUM AENDERUNGS-MENU. DIE PARA" "METER SIND ALLE MIT LAUFFAEHIGEN DATEN ":"VORBESETZT." 23:12::"TASTE !";::HV$::6:958 1:"IST KEINE AENDERUNG MEHR VORZUNEHMEN, ":"BEGINNT DIE SIMULATION. BEI DIEIERT."2 23:12::"TASTE !";::HV$::6:958 1:"DER DEMONSTRATIONSLAUF ZEIGT EIN VEREIN-":"FACHTES BLOCKSCHALTBILD ZU DIESEM FALL." :"DIE EINZUGEBENDEN PARAMETER WERDEN IN ":"DER PARAMETERLISTE ERKLAERT."@ :"BEIM EIGENTLICHEN PROFELD. IN FOLGE DER ":"UNTERSCHIEDLICHEN KRAEFTE BEWEGEN SICH " "TEILCHEN NUR DANN KRAEFTEFREI, D.H. SIE ":"WERDEN NICHT ABGELENKT, WENN SIE EINE " "BESTIMMTE GESCHWINDIGKEIT BESITZEN. " :"DIESER FALL WIRD IN DIESEM PROGRAMM SIMU":"Lj!115,(43634):116,(43635)- P32783N:::13:"WIEN - FILTER":j3:13:"INFORMATIONEN"4:13:"-------------"::"EIN WIEN-FILTER BESTEHT AUS DER UEBERLA-":"GERUNG EINES HOMOGENEN ELEKTRISCHEN MIT "B "EINEM MAGNETISCHEN      CK (G) ?"411:29:HV$:HV$"N"HV$"G"8076<D2NHV$"G"D66u(13);(4);"PR#1":1913,D:(145)(4);"PR#0"::::"WOLLEN SIE AUCH DIE DAZUGEHOERIGEN DATEN":"AUSGEDRUCKT HABEN (J/N) ?"19:28:HV$:HV$"N"HV$"J"1100:I:8050|US21580439}P:"TASTE !"30,170:J~P:E$0,12:ZP:B$0,2:o0:0,0279,0:3P:M$140,165:US1968150::5::"AUSDRUCK"::" (EPSON-DRUCKER)" ::" NORMAL- (N) "::"ODER GROSSDRUEIN FEHLER AUFGETAUCHT !"O^20:"ICH STARTE NEU !?!":::"FEHLERCODE = ";FCahI11000::ki8049qM$"M = "(M)" KG":P:M$140,165:rP:"TASTE !"30,170:sUS(49152):49168,1:US1268060tI1250:I:P:"TASTE !"30,170:uIU"US196ī8070.US193HV$"J":81554MUS(49152):49168,0_US196ī8070yUS193HV$"J":8155US211ı7100@ ******A FEHLERB ******JFC(222):FC53FC908041T::10::"ES IST LEIDER "SIE HABEN LEIDER EINEN FEHLER GEMACHT !":I11200:I::RX ***************jY TASTATURABFRAGEZ ***************[X0.01Y0(Y0$)ī8049bUS(49152)l49168,0vUS128ıUS211İ7100:US155ĺ(13);(4);"RUN MENX0.375YGY0% (FS)96ēES,FS:6 ES,0:ES,FS< L *******\ ABBRUCHl *******X0(X0$):Y0(Y0$):XP(XP$):YP(YP$):::"M A S S E N S P E K T R O G R A P H"::240(13);(4);"RUN MENU":$23:1::FUNKTION BY=F(X,X',Y,Y',T)=Y''C ******************************jX0XMX0XXBYQE0MQB0VXM:X0YMX0YXBYQB0VXM:BY0: ********** * GRAFIK * ********** 3 ES400X0131:FS400Y096  X0.35(2,1)Y(2,2)Y(2,3))HH657000:BS1BS0:4000H3000: GRAFIKR 1000wx ******************************y FUNKTION BX=F(X,X',Y,Y',T)=X''z ******************************BXQB0VYM: ****************************** 2,3)H2XNX(0,4):VXX(1,4):YNY(0,4):VYY(1,4)JTTH2:1400:1450bX(2,4)BX:Y(2,4)BYXPXP(X(2,1)X(2,2)2X(2,3)2X(2,4))H6YPYP(Y(2,1)Y(2,2)2Y(2,3)2Y(2,4))H6X0X0HXP(X(2,1)X(2,2)X(2,3))HH6Y0Y0HYP(Y LASSEN ODER ZUM AENDERUNGSMENU "; 6"ZURUECKSPRINGEN. "g J23:12::"TASTE !";::HV$::6:958 O1::"!";::" BEI DRUECKEN DER ";::"ESC";::"-TASTE GELANGEN" T:"SIE INS DISKETTEN-MENU ZURUECK ";::"!":o^:"WENN DIE SIMULATION FE HABEN"7 "SIE VERSCHIEDENE EINGRIFFSMOEGLICHKEITEN"j 1:"WELCHE IN FORM EINER FUNKTIONSLEISTE AM" ""UNTEREN BILDSCHIRMRAND ANGEZEIGT WERDEN.":"SIE KOENNEN DIE SIMULATION ANHALTEN BZW"" ,"WEITERLAUFEN LASSEN ODER DAS BILD AUS- ":"DRUCKENMM GELANGEN SIE ":"ALS ERSTES ZUM AENDERUNGS-MENU. DIE PARA"| "METER SIND ALLE MIT LAUFFAEHIGEN DATEN ":"VORBESETZT." 23:12::"TASTE !";::HV$::6:958 1:"IST KEINE AENDERUNG MEHR VORZUNEHMEN, ":"BEGINNT DIE SIMULATION. BEI DIESERT."/ 23:12::"TASTE !";::HV$::6:958 1:"DER DEMONSTRATIONSLAUF ZEIGT EIN VEREIN-":"FACHTES BLOCKSCHALTBILD ZU DIESEM FALL." :"DIE EINZUGEBENDEN PARAMETER WERDEN IN ":"DER PARAMETERLISTE ERKLAERT."= :"BEIM EIGENTLICHEN PROGRACHEN, DASS SICH IN SO EINEM FELD":"BEWEGT, WIRD JE NACH LADUNGSVORZEICHEN "} "IN RICHTUNG AUF EINE PLATTE BESCHLEUNIGT" "DIESES PROGRAMM SIMULIERT NUN DIE BEWE- ":"GUNG EINES BELIEBIGEN TEILCHENS, DASS " "SICH IN EINEM SOLCHEN FELD BEWEG@!115,(43634):116,(43635)- P32783[:::7:"HOMOGENES ELEKTRISCHES FELD":w3:13:"INFORMATIONEN"4:13:"-------------"::"DAS HOMOGENE ELEKTRISCHE FELD WIRD DURCH":"EINEN PLATTENKONDENSATOR REALISIERT."M :"EIN TEIL      0 240L11:5::"STARTGESCHW.";::11:21:" ";XP$:12:21:" ";YP$cXP$""XP(XP$)zYP$""YP(YP$)240"15:5::"FELDSTAERKE E0";::15:21:" ";E0$#E0$""E0(E0$)+240 ,17:5::"FELDSTAERKE B0";::17:21$:6:20:" ";Q$$ M$""M(M$)8 Q$""Q(Q$)A 24022:958:::"-0.3 < X0 <0.35 UND -0.22 < Y0 < 0.25"::8:5::"STARTORT"::US0:8:22:"";X0$:9:22:"";Y0$X0$""X0(X0$)Y0$""Y0(Y0$)312:US1İ4900:27P" M"(!"MAGNETFELD (GANZE EBENE) MIT"Q!" B0 = ";B0;" T"b!(4);"PR#0"i! !X0(X0$):Y0(Y0$):XP(XP$):YP(YP$)!4050 " VY = ";(YP$);" M/S"Z "STARTORT X0 = ";(X0$);" M" " Y0 = ";(Y0$);" M" "ELEKTR. FELD MIT E0 = ";E0;" V/M" " AM ORT XMIN = ";XM;" M"!" XMAX = ";XX;8101HV$"N"8140\:5:"DRUCKER JUSTIEREN!"::"WENN FERTIG, BITTE TASTE DRUECKEN"lHV$:(13)}(4);"PR#1""TEILCHEN MIT: MASSE M = ";M;" KG"" LADUNG Q = ";Q;" CB""ANFANGSGESCHW. VX = ";(XP$);" M/S"-500::7000& |P:"TASTE !"200,130:: I1300::360\ :7:1::"5. ZEITSCHRITT": " (EINGABE IN S; GIBT DIE SCHRITTWEITE":" FUER DIE RECHNUNG AN)" 23:12::"TASTE !";::HV$::5:958 (13) :P:41: P:"ES GEHT GLErdinaten-":A10:A20:1000B ,A$"system vorgegeben!":A210:1000t 6I13:54,76I94,76I:54,110I94,110I:I @95,96105,115:50,9640,115:P:"X"30,115: JP:"X"95,115: TP:2938,117: ^P:36104,117: hP:"TASTE !"200,130: rI1NGABE IN M/S;KEINE RELATIVISTISCHE";:" RECHNUNG!)" ::"4. DAS ELEKTRISCHE FELD"::" (EINGABE VON ORT (IN M) UND FELD-":" STAERKE IN (V/M) VGL. BILD ->)" 23:12::"TASTE !";::HV$::5:958 :P:23: "A$"Sie haben dieses KooUND PROTON":" SIND VORBESETZT, ANSONSTEN MUESSEN"c " MASSE UND LADUNG ANGEGEBEN WERDEN)" ::"2. DER STARTORT DES TEILCHENS "::" (EINGABE IN M; DIE GRENZEN WERDEN AN":" GEZEIGT.)" ::"3. DIE STARTGESCHWINDIGKEIT":6 " (EIERN."::"ALLE WERTE SIND BEREITS MIT LAUFFAEHIGEN"c "DATEN VORBESETZT, SO DASS SIE AUCH OHNE " "EINE AENDERUNG EINE SIMULATION ERHALTEN." 23:12::"TASTE !";::HV$::6:9585 1::"1. ART DES TEILCHENS"::" (DIE DATEN VON ELEKTRON !115,(43634):116,(43635)- P32783[:::7:"HOMOGENES ELEKTRISCHES FELD":x3:13:"PARAMETERLISTE"4:13:"--------------"::"BEI DIESEM PROGRAMM KOENNEN SIE DIE NACH":"FOLGEND AUFGEFUEHRTEN PARAMETER EINZELN "3 "AEND     1000)x ******************************Ny FUNKTION BX=F(X,X',Y,Y',T)=X''sz ******************************BXQE0(OMEGAT)MQB0VYM ****************************** FUNKTION BY=F(X,X',Y,Y',T)=Y''  *******************X(2,4)BX:Y(2,4)BYDXPXP(X(2,1)X(2,2)2X(2,3)2X(2,4))H6tYPYP(Y(2,1)Y(2,2)2Y(2,3)2Y(2,4))H6X0X0HXP(X(2,1)X(2,2)X(2,3))HH6Y0Y0HYP(Y(2,1)Y(2,2)Y(2,3))HH67000:BS1BS0:80503000: GRAFIK 3)YPY(2,2)H2<XNX(0,3):VXX(1,3):YNY(0,3):VYY(1,3)L1400:1450dX(2,3)BX:Y(2,3)BYX(0,4)X0X(1,3)H:X(1,4)XPX(2,3)HY(0,4)Y0Y(1,3)H:Y(1,4)YPY(2,3)HXNX(0,4):VXX(1,4):YNY(0,4):VYY(1,4)TTH2:1400:1450X(0,2)X0X(1,1)H2:X(1,2)XPX(2,1)H2XLY(0,2)Y0Y(1,1)H2:Y(1,2)YPY(2,1)H2VXNX(0,2):VXX(1,2):YNY(0,2):VYY(1,2)`TTH2:1400:1450jX(2,2)BX:Y(2,2)BYtX(0,3)X0X(1,2)H2:X(1,3)XPX(2,2)H2~Y(0,3)Y0Y(1,2)H2:Y(1,:! ***********************@ * RUNGE-KUTTA - VERF. *_ ***********************X(0,1)X0:X(1,1)XP:Y(0,1)Y0:Y(1,1)YP$XNX(0,1):VXX(1,1):YNY(0,1):VYY(1,1).1400:1450: BERECHNUNG VON X'' UND Y''8X(2,1)BX:Y(2,1)BY*B:" ";B0$ -B0$""B0(B0$)).240X619:5::"ZEITSCHRITT";::19:21:" ";H$l7H$""H(H$)u8240{9(13);(4);"RUN VZYK.MENU"OMEGAQFB0M:P:23:400X0131,400Y096P:US$0,180:1000I14:IA2: X TASTATURABFRAGE8YUS(49152):49168,0HZUS127380Y[US155ī400_\PRKT)":!:"6. ZEITSCHRITT":m" (EINGABE IN S; GIBT DIE SCHRITTWEITE":" FUER DIE RECHNUNG AN)"23:12::"TASTE !";::HV$::5:958(13):P:41: P:"ES GEHT GLEICH LOS !"100,160: (4);"RUN MASS.MENU"P:A$A1, TP:2938,117:$ ^P:36104,117:> hP:"TASTE !"200,130:S rI1500::7000n |P:"TASTE !"200,130: I1300::360 :7:1::"5. MAGNETFELD":" (NUR EINGABE DER FELDSTAERKE IN T, DA DAS MAGNETFELD IN DER GANZEN EBENE WI17:I120I:K125K:P:AA$I1,K1:+ K:Ib "A$"Sie haben dieses Koordinaten-":A10:A20:1000 ,A$"system vorgegeben!":A210:1000 6I13:54,76I94,76I:54,110I94,110I:I @95,96105,115:50,9640,115:P:"X"30,115: JP:"X"95,115: (EINGABE IN M/S;KEINE RELATIVISTISCHE";:" RECHNUNG!)" ::"4. DAS ELEKTRISCHE FELD"::" (EINGABE VON ORT (IN M) UND FELD-":" STAERKE IN (V/M) VGL. BILD ->)" 23:12::"TASTE !";::HV$::5:958 :P:23:! AA$"x":I013:KTRON UND PROTON":" SIND VORBESETZT, ANSONSTEN MUESSEN"h " MASSE UND LADUNG ANGEGEBEN WERDEN)" ::"2. DER STARTORT DES TEILCHENS "::" (EINGABE IN M; DIE GRENZEN WERDEN AN":" GEZEIGT.)" ::"3. DIE STARTGESCHWINDIGKEIT":; " "AENDERN."::"ALLE WERTE SIND BEREITS MIT LAUFFAEHIGEN"h "DATEN VORBESETZT, SO DASS SIE AUCH OHNE " "EINE AENDERUNG EINE SIMULATION ERHALTEN." 23:12::"TASTE !";::HV$::6:958: 1::"1. ART DES TEILCHENS"::" (DIE DATEN VON ELEK`!115,(43634):116,(43635)- P32783`:::"M A S S E N S P E K T R O G R A P H":}3:13:"PARAMETERLISTE"4:13:"--------------"::"BEI DIESEM PROGRAMM KOENNEN SIE DIE NACH":"FOLGEND AUFGEFUEHRTEN PARAMETER EINZELN "8      RTIG IST, KOENNEN ":"SIE DURCH DRUECKEN DER TASTE ";::"W";::" DIE"::"WERTE FUER DIE ABLENKUNG ERHALTEN."c:"ZUR BESSEREN KONTROLLE LAEUFT AM OBEREN ":"BILDRAND EIN PUNKT MIT."h23:12::"TASTE !";::HV$::6:958(13):P:41:"J"8101HV$"N"8140`:5:"DRUCKER JUSTIEREN!"::"WENN FERTIG, BITTE TASTE DRUECKEN"pHV$:(13)(4);"PR#1""TEILCHEN MIT: MASSE M = ";M;" KG"" LADUNG Q = ";Q;" CB""ANFANGSGESCHW. VX = ";(XP$);" M/SDRUCK (G) ?"811:29:HV$:HV$"N"HV$"G"8076@D2RHV$"G"D66y(13);(4);"PR#1":1913,D:(145)(4);"PR#0"::::"WOLLEN SIE AUCH DIE DAZUGEHOERIGEN DATEN":"AUSGEDRUCKT HABEN (J/N) ?"19:28:HV$:HV$"N"HV$:US12680603tI1250:I:P:"TASTE !"30,170:IuI1100:I:8050Z|US2158043t}P:"TASTE !"30,170:~P:US$0,180:US1968150::5::"AUSDRUCK"::" (EPSON-DRUCKER)"::" NORMAL- (N) "::"ODER GROSA FEHLERB ******>JFC(222):FC53FC908041vT::10::"ES IST LEIDER EIN FEHLER AUFGETAUCHT !"^20:"ICH STARTE NEU !?!":::"FEHLERCODE = ";FChI11000::i8050krP:"TASTE !"30,170: sUS(49152):49168,1bUS(49152)l49168,0(vUS128ı<US211İ7100:_US155ĺ(13);(4);"RUN MENU"qUS196ī8070US193HV$"J":8155US(49152):49168,0US196ī8070US193HV$"J":8155US211ı7100@ ******:Y0(Y0$):XP(XP$):YP(YP$)K:::5:"VERSTIMMTES ZYKLOTRON"::240f(13);(4);"RUN MENU"l$23:1::"SIE HABEN LEIDER EINEN FEHLER GEMACHT !":I11200:I::X ***************Y TASTATURABFRAGEZ *************** ***********BYQB0VXM:1 **********C * GRAFIK *U **********\ 3 ESV1400X0131:FSV1400Y096 X0.35X0.375YGY0 Y00ēES,FS: ES,FS  ******* ABBRUCH *******X0(X0$)NGSMENU ZURUECKSPRINGEN. ":"DURCH DRUECKEN DER ";::"ESC";::" - TASTE GELANGEN ""SIE SOFORT INS DISKETTEN-MENU!"23:" TASTE !";:HV$P:41:P:"ES GEHT GLEICH LOS ..."100,160:(13);(4);"RUN ZYK.MENU"HV$m :3:958::"FUNKTIONSLEISTE AM UNTEREN BILDSCHIRM- ":"RAND ANGEZEIGT WERDEN. SIE KOENNEN Z.B. " "DIE SIMULATION ANHALTEN BZW. WEITERLAU- ":"FEN LASSEN ODER DIE MOMENTANE GRAFIK AUS":"DRUCKEN LASSEN ODER ABER DIREKT INS AEN-"_"DERUIHRER WAHL VERAENDERN KOENNEN. SIND SIE ":"MIT IHREN AENDERUNGEN FERTIG, SO BEGINNT" "DIE EIGENTLICHE SIMULATION. WAEHREND ":"DIESER HABEN SIE VERSCHIEDENE EINGRIFFS-":"MOEGLICHKEITEN, WELCHE IN FORM EINER " 23:" TASTE !";:200:I:P:"TASTE !"200,185:3 I1100:I:170 :1:3:958:::"DIE VERWENDETEN PARAMETER WERDEN IN DER ":"PARAMETERLISTE ERKLAERT. BEI DER SIMU- ":"LATION GELANGEN SIE ZUERST IN DAS AEN-"U :"DERUNGSMENU, WO SIE DIE PARAMETER NACH ":" !"0,70:: xP:"ZU VERAENDERN SIND DIE UEBLICHEN"0,100:m P:"PARAMETER, WIE Z.B. E-FELD, B-FELD"0,115: P:"MASSE UND LADUNG."0,130: 3 I13:0,150I279,150I:I P:"TASTE !"200,185: US(49152):US127Ĺ49168,0:210 I1ELD AUF EINER KREISBAHN GEHALTEN "~ 2"UND VON DEM HF-FELD BESCHLEUNIGT WIRD. ":"DAS HF-FELD WIRKT WIE DAS MAGNETFELD IN " <"DER GANZEN EBENE." U23:" TASTE !";:HV$ Z dP32783:P:80: nP:"DAS SIND DIE VERWENDETEN FORMELN6 ::" ";::" D A S Z Y K L O T R O N ":j::"DAS PROGRAMM SIMULIERT EIN ZYKLOTRON. ""EINEM MAGNETISCHEN FELD WIRD EIN ELEKTR.":"HF-FELD UEBERLAGERT. SOMIT BESCHREIBT "" ("EIN TEILCHEN EINE SPIRALE, DA ES VON DEM":"MAGNETF  ICH LOS !"100,160:+ (4);"RUN EY.MENU"<P:A$A1,A2:BXX TASTATURABFRAGEqYUS(49152):49168,0ZUS127380[US155ī400\,Y0Y0HYP(Y(2,1)Y(2,2)Y(2,3))HH6G7000:BS1BS0:8045Z3000: GRAFIKd 1000jxX0XMX0XXBX0:BXQB0VYM:X0XMX0XXBY0:BYQM(E0B0VX): GRAFIK ES400X0131:FS400Y096 ES,3)H:Y(1,4)YPY(2,3)HDXNX(0,4):VXX(1,4):YNY(0,4):VYY(1,4)\TTH2:1400:1450tX(2,4)BX:Y(2,4)BYXPXP(X(2,1)X(2,2)2X(2,3)2X(2,4))H6YPYP(Y(2,1)Y(2,2)2Y(2,3)2Y(2,4))H6X0X0HXP(X(2,1)X(2,2)X(2,3))HH6X(2,2)BX:Y(2,2)BYBtX(0,3)X0X(1,2)H2:X(1,3)XPX(2,2)H2p~Y(0,3)Y0Y(1,2)H2:Y(1,3)YPY(2,2)H2XNX(0,3):VXX(1,3):YNY(0,3):VYY(1,3)1400:1450X(2,3)BX:Y(2,3)BYX(0,4)X0X(1,3)H:X(1,4)XPX(2,3)HY(0,4)Y0Y(1,1):YNY(0,1):VYY(1,1)D.1400:1450: BERECHNUNG VON X'' UND Y''\8X(2,1)BX:Y(2,1)BYBX(0,2)X0X(1,1)H2:X(1,2)XPX(2,1)H2LY(0,2)Y0Y(1,1)H2:Y(1,2)YPY(2,1)H2VXNX(0,2):VXX(1,2):YNY(0,2):VYY(1,2)`TTH2:1400:1450j5I:P1,Y118IP2,Y118I:IF400X0131,400Y096:P:US$0,180:VP:B$0,10:fP:E$0,20:400X0131,400Y09616304,1:16297,1:16299,1:1000I14:I:X(0,1)X0:X(1,1)XP:Y(0,1)Y0:Y(1,1)YP$XNX(0,1):VXX(1XM131))20:E$"E0 = "(E0)" V/M":B$"B0 = "(B0)" T":MX400XM131:P$".":B00P$"X"mHV$"J"510z:P:23:I0N:KO6:P1MX20I3:P23620K:P:P$P1,P2:K:I:P1400XM131:P2400XX131:Y1400Y096:I13:P1,Y115IP2,Y11 ";H$7H$""H(H$)"8240(9H;XM.3XX.35XMXXBS1:N<n(13);(4);"RUN WIEN.MENU"V0((XPXPYPYP)100)100:3::"SOLL DAS ALTE BILD STEHEN BLEIBEN ?"::"(J/N)";:HV$HV$"N"HV$"J"500\N((400XX131)(400:21:" ";XX$$#XM$""XM(XM$);$XX$""XX(XX$)U'315:BS1İ4900:290^+240,16:5::"FELDSTAERKE";::16:21:" ";E0$:17:21:" ";B0$-E0$""E0(E0$).B0$""B0(B0$)/240619:5::"ZEITSCHRITT";::19:21:"Y0$)312:US1İ4900:270'240i11:5::"STARTGESCHW.";::11:21:" ";XP$:12:21:" ";YP$XP$""XP(XP$)YP$""YP(YP$)240 "BS0:22:958:::" -0.3 < XMIN < XMAX < 0.35 "::14:5::"ORT";::14:21:" ";XM$:15B":7:17:868:5:20:" ";M$:6:20:" ";Q$A M$""M(M$)U Q$""Q(Q$)^ 240 22:958:::"-0.3 < X0 <0.35 UND -0.22 < Y0 < 0.25"::8:5::"STARTORT"::US0:8:22:"";X0$:9:22:"";Y0$ X0$""X0(X0$)Y0$""Y0(::TA$::18:5:868:"E)LEKTRON":18:6:868:"P)ROTON":7:18:"B)ELIEB. TEILCHEN"; HV$:HV$"E"HV$"B"HV$"P"261 HV$"E"M9.11E31:Q1.6E19:240 HV$"P"M1.67E27:Q1.6E19:240- 5:17:"M = ";M;" KG":6:17:"Q = ";Q;" C :"<6> ZEITSCHRITT":19:17:" H = ";H;" SEC"v 21:"<7> KEINE AENDERUNG <";::"8";::"> ";::"MENU";: 23:1:"< > ";::"IHRE WAHL !"::23:2:HV$:(HV$)1(HV$)8252 US0:BS0:(HV$)260,270,280,290,300,310,500,400X 5:5;" M"Q :"<3> STARTGESCHW.":11:17:"VX = ";XP;" M/S":17:"VY = ";YP;" M/S" :"ELEKTR. UND MAGNET. FELD:"::"<4> ORT":14:15:"XMIN = ";XM;" M":15:"XMAX = ";XX;" M":"<5> FELDSTAERKE":16:17:"E0 = ";E0;" V/M" 17:17:"B0 = ";B0;" T"1erung"% 1:3:958:TA$"TEILCHEN"L M1.67E27Q1.6E19TA$"PROTON"v M9.11E31Q1.6E19TA$"ELEKTRON" 1:5:"<1> ";TA$;" MIT :":5:17:" M = ";M;" KG":17:" Q = ";Q;" CB" :"<2> STARTORT":8:17:"X0 = ";X0;" M":17:"Y0 = ";Y0 16384 8000!::>:10:"WIEN - FILTER":W10:"-------------"P32783:M1.67E27:Q1.6E19:XM.2:XX.1:E050000:B0.05XP1E6:H1E8:YP0:X0.3:Y00:X0$"-.3":Y0$"0":XP$"1E6":YP$"0" US$"S)top S)tart D)ruck A)end!! ! ! ! ! !!!!!!!!!""" " " " " "" P(X(2,1)X(2,2)X(2,3))HH6JY0Y0HYP(Y(2,1)Y(2,2)Y(2,3))HH6e7000:BS1BS0:4000x3000: GRAFIK 1000x ******************************y FUNKTION BX=F(X,X',Y,Y',T)=X''z ******************************BXQB0VYXPX(2,3)H6Y(0,4)Y0Y(1,3)H:Y(1,4)YPY(2,3)HbXNX(0,4):VXX(1,4):YNY(0,4):VYY(1,4)zTTH2:1400:1450X(2,4)BX:Y(2,4)BYXPXP(X(2,1)X(2,2)2X(2,3)2X(2,4))H6YPYP(Y(2,1)Y(2,2)2Y(2,3)2Y(2,4))H6X0X0HX2)`TTH2:1400:14502jX(2,2)BX:Y(2,2)BY`tX(0,3)X0X(1,2)H2:X(1,3)XPX(2,2)H2~Y(0,3)Y0Y(1,2)H2:Y(1,3)YPY(2,2)H2XNX(0,3):VXX(1,3):YNY(0,3):VYY(1,3)1400:1450X(2,3)BX:Y(2,3)BY X(0,4)X0X(1,3)H:X(1,4) 0X0(X0$):Y0(Y0$):XP(XP$):YP(YP$):4050V;XX;" M"(4);"PR#0"  LX0(X0$):Y0(Y0$):XP(XP$):YP(YP$)V4050S"1" VY = ";(YP$);" M/S"^"STARTORT X0 = ";(X0$);" M"" Y0 = ";(Y0$);" M""ELEKTR. FELD MIT E0 = ";E0;" V/M"" AM ORT XMIN = ";XM;" M"" XMAX = "PR#0" ! 8!X0(X0$):Y0(Y0$):XP(XP$):YP(YP$)B!4050050= ";(Y0$);" M"_"WIEN - FILTER MIT E0 = ";E0;" V/M":" B0 = ";B0;" T"" AM ORT XMIN = ";XM;" M"" XMAX = ";XX;" M"(4);"PR#0" X0(X0$):Y0(Y0$):XP(XP$):YP(YP$)4050PR#1"."TEILCHEN MIT: MASSE M = ";M;" KG"W" LADUNG Q = ";Q;" CB""ANFANGSGESCHW. VX = ";(XP$);" M/S"" VY = ";(YP$);" M/S""STARTORT X0 = ";(X0$);" M"" Y0 (4);"PR#0"c::::"WOLLEN SIE AUCH DIE DAZUGEHOERIGEN DATEN":"AUSGEDRUCKT HABEN (J/N) ?"19:28:HV$:HV$"N"HV$"J"8101HV$"N"8140:5:"DRUCKER JUSTIEREN!"::"WENN FERTIG, BITTE TASTE DRUECKEN"HV$:(13)(4);"M"143,165:US1968150L::5::"AUSDRUCK"::" (EPSON-DRUCKER)"::" NORMAL- (N) "::"ODER GROSSDRUCK (G) ?"11:29:HV$:HV$"N"HV$"G"8076D2HV$"G"D66(13);(4);"PR#1":1913,D:(145)rP:"TASTE !"30,170:>sUS(49152):49168,1:US1268060dtI1250:I:P:"TASTE !"30,170:zuI1100:I:8050|US2158043}P:"TASTE !"30,170:~P:E$0,10:P:T$135,170:P:Q$135,155:P:"TH"143,150: P:"SI00)" CM":lP:T$135,160:fmT1Q(XXXM)2(.37XX):T2Q(XXXM)2:T32MXPXP:YT(T1T2)E0T3nQ$"R = "((YT1E5)1000)" CM":P:Q$135,145:oQ$"R = "((YT1E5)1000)" CM":P:Q$135,145:pP:"TH"143,150:qP:"SIM"143,165:193HV$"J":8155 US211ı*71007@ FEHLERWJFC(222):FC53FC908041T::10::"ES IST LEIDER EIN FEHLER AUFGETAUCHT !"^20:"ICH STARTE NEU !?!":::"FEHLERCODE = ";FChI11000::i8050 kT$"R = "((YG1E5)10R EINEN FEHLER GEMACHT !":I11200:I::9X TASTATURIbUS(49152)Vl49168,0dvUS128ıxUS211İ7100:US155ĺ(13);(4);"RUN MENU"US196ī8070US193HV$"J":8155US(49152):49168,0US196ī8070USP1ESP23040* FSY115FSY1158045B (FS)96ēES,FS:M ES,FSS a ABBRUCHX0(X0$):Y0(Y0$):XP(XP$):YP(YP$):::5:" W I E N - F I L T E R "::240(13);(4);"RUN MENU"*$23:1::"SIE HABEN LEIDE