' +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:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜ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 `@-eff 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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( N Ϡ@跻~!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 (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` # d ֠z# u`%%$%2VV]O+1,1V8]в׳؀++%*+%*+&,8VV1VVW^*$*$*++11UVVV{]Э׳m%%%***$$%$2W]*+*+++1UVWWЬѲ+%+%**%%%+2VVW+1+1PVW|в++%+%+PWVV1**%%%$$2zO*+++OUVV{]+*+%%%%%*%%+VWV^++,,22\{++%*+%++PVW22V\s*%++OP22VV{]Ь*+%%$2\|+*+++122V\{г~+%+%+*++VWdX2P\π%%%%%++P,PUV\\ѭ׳s+%*%$$$P{~++*+O1P2V\]ѳm++%%%+2V{Vy++1P2V{ѳ؀++*+%%++2]WcW22W\+%%*O,1PPVV{]Ьвy*+%*%%$%+VWW+,,1V3Wѭ؀+%+*+%*++V]XydY2VWm%*%*+,,,22P\W]^ѭ׳+*%%$$%$V]++%+11P2VW\Ѳץs*+*%$%$$%%,2VVO,+OPVV{Ьѳ++*]гѲѳ%*+%$%$$VO+++OP1VV\]+%*%%$%%$*%+VW^XsO,,2PWWѭ+%+*+%+,3cc؀2c2V{*+++OP22VV\Ѳ׳s*+*%%$$$Vc+++,,1PVV{]V\+%+*+%+1Vв,P{%*++,+P1PPVWW]вѳ*+%*%$$%Wy++O,1PPVV{]ѬѳO*+%*$*%%+2V]c؀+11P2V\вѲ؀+%+*+*+,2cz3c2W~+%%++11P22VV{$$s+1,1P22VV{׳s+*+%*$*%%+VW]+OOUUVzѬ׳؀+*++%+1VPV؀+%++,+P,P2PVz{ѳ%%*%%%c+++OP1UVV\{s+%%%%%PV]c+11PVcyV^cVV1OOO1OP1UVVWW{Э%%$$$$cs+OP,222VV{]~++%$%%$$**+2V]c,,12PV\]в֥++%*+%*+1Q^ЬyVs+,+,,,,1UVUz\вѳ+%%*$$%%$**1VW]X؀,,22P\W]~+++%+%,,WвѳcPVcPzVUP,,,1P1UVV\\ЬѲs$WOP,1P222VV{]ѭץs++*+%$%%%1VWc؀+P1PVV\|++*+%*+%,,]ѭѲ׳s%*%%$%V]VUUUUPUVVV{]+++%*%$%%+VVWyOPPUVWW^Ьy++%*+%12]вXsVY2VVUP1OP121V2Vz{$V,21PP222VV\m++%$+1\ѭ׳ץV1VW2PVUUOP1P1UVVV\ѭ+*%%VW{\UV222PVVW\в~+%+%%%%%,VWVyOUUVVV\ѳs+*+%+%OV]Э׳W,VX2VUV1P1OP21VPWW]+%%**%*$%%+,VWЬV]ɀ2UVV2VWWѳ+%+**+++P]׳VPWW22V2P1P1P1UVVWW{ЬЭѲ~++%%$$$$$%Pz{WUVPUV2VVW]ѳN+*+%%*,2V{V1UV2U\V\ѳO%+*+%+Э~+%*%$$$$%2\WVVVPV2VVV{]Э׳s+*%%%%+,VWЬвѲV\VVVVVVW\ײ؀+%*+*++,2|Э׳VtP{V22UV1P1P21V2V\]]ѳ֥+%+%%$$$%2\\\VUV2PVVV\{ѳ++2VϬЭѭV]1WWV1V2PP21P1V2VVW]ѳ+*+%$$$$%+2WV\VUVUVVVV{в+*%%$%%+PV\ЬвѲѳVW]VWUVWV\ѳ+*+*+++V]гV^tPzV22PUUP1P21V2Vz{%+2V]Ѳѳ2z{{WVWVV\]^Ѳ~++*+%*++1WЭѲѳV]yV\]V1V2221P21V2VV\Ь~*+%$,2VzVVVV2VVVW\+**%**%*%1VVѳP{]]WVVVV\\ѳ++%+%*$%$$++2VVzVV2VVVV\Э++****%*+2V\Ϭ׳2z{\zzVVz\]ץ++*+%*++1VV\VV\]V^1UV221P21V2VV{Э****+$$$,2VWVVVUVVVV\{ЬѲm+**%%%%%%%+P2\{ЭѲ׳++%*%%*2VWW\O%++++28]ѳ2WW{2z1P222UV\W+*%$+,22VzЬЭѳ**+%*$%$22VVWV{]֥~+%+*%%+22zѲ׳+++%%%%%*$$$$$22VV\W\ѭ؀+**%%%,1VzвѲ׳s++*%%*%2VWW\++++22{Э2WW2z1P222V2z]^Ь%*%$*+1PUWVѳ~***+$%$22VV\V{ѳ+**+122VWW{г~*+%%*$$$22VVz\{s%*+*%%,,2\]cЬѳ׳++*%%%$$$%2VWW]s+++O1V]Ѭ~++*+2W\2z1P22PVVVѥs%%$$%+1PVVW]Эѳ*+1P22UVV{]ץm+%%%++PPVWW{вs%%%%22VVz\؀+%*%+%OUV{]Э׳+*+***%%*$$$2VW\{O++*+OPV{y+*+*%*2W\2z1P22PVV\{Հ**%%$$$%+г׳y%+*+*%%*2\]c2{^1P22V2\\ѳ*+$%$$11V2\W{ѥm%%%%%%*$$22VWV{]ѥ~++%**++22\]Ѳm+%+%%%%%2V\\+++,+VVѭѳ*++%%+%2\\2z%$$%2V\]^ѥs+*++OPVѲ+%+%*+%2\]P{c1PPPVQV{ѥs*%%%+1PV3VЭгs***$%$22V\W\ѱO%**%%+1PV{|вѲ׳+%+%%*%$%$$$%2V\\y++%+O23W%%%%,,PWWЬ+++%$%$%2V\{؀+%++11V\y*++*%%*+2\]P{1PPPVVW]Ѳ**%$$$%*,,1VVWWЭm$2PVzW]ѥ~++****+,1V\{ЬѲ++*+*%*%$$%$2PWV{]؀+%+%*+OUV\{ѳ~+*++*%$%$%%2Vz*+++1PV]Э+%+%*+*2\{QW1PPPVV\׳m%%%$$*+,,PVVzcЬ%%%%%%%$$$$$2PVz\{s+s%*%$%+,,2PWW\Э׳m++*%*%$$2P\V{s*++,1V\{ѳץy%+++$%$$$%%2Vz++++122{Эץ+++%+*++2\QW1PPUVWW^Ѳ+%$%$%%1,22V\]]Ѳ֬Ѳץ+++%%%*++2zV\1PPVVV{Ь*%%*+OP2VV\{Ѳ++*%%%$$2PzW\++%*%%++P2WWѲ+%%%$$$$%*2V{]؀++++OPVѳ++%*++%%+2zVW1PPVU\\m+%*+%$%%%+2W\O+++12V\+%+*%*+%+12{cV]1PUVVW]ѥs%%$$$$%+1P2VV{]вѭ׳m++%%$2VV\{%+%+,1VW\Эѳץs+%***%$$$%%+2WWѥs+++,1VW$%%2VV{|؀+%++OUV\]׫+*+%%%$%,2W]++++PP\ѭץ+++%%*++2P{V]1PUVVzѳ***$$+OP1VV\{вѲѭ׳s++$%%$$2VV\ѫ++%%+,22W\UVVV{*%%O1UV8V{]гѲs*+%+%2VW\s%+*+122V{]вѭm++%%$%,2\]y+1+P2W]m+*+++%%+,QWV]1UV2\\ѥm+%%+,,PPV\{]Ьѳ~+*+%,V2z++,+PVV+*+*%*+%+UV]V1UVVW]m%*%%++1PPVV\{Ь~+%*+%$2VW]ѥ؀%+%*+11PV\{г׳s++*%$%$$%+22\؀++,+P2VѲץ++%+%%*++VVWV^12V{^++%++P2V\{вѳ+%+%%$$%*1V2{cy++,,22{ѭs+*+**+%+PV]V1UVV\~+%$$%%,,1UVV\{Эs%%**+$$$$2V\m+*+%,,1VWWѳ~++%%*%%%%%V2z{y%$$%,+PPPWV{{s%%*+$$$$$$$$2V{y*+%+&+1UVW\вѲm+****%*$%%+VQW+++122W]+*+%*+%,2^V^V1V2WWѲ+$%%++P1UVV{]%%*+$$$THE SCREEN"{x 9,78:AB{ A$"@WITH SMALL INITIAL @U@' AND @U."O{ 9,88:A{ A$" S@PHERICALLY SYMMETRICAL 3-DIMENSIONAL"{ 9,100:A{ A$"@WELLS CAN BE ANALYZED USING 'CENTRIFUGAL"{ 9,110:A| A$"@POTENTIAL.' @F@OR EXAMPLE, ENERGY LEV FORBIDDEN REGIONS."!z( 9,36:ASz2 A$" W@E USUALLY TAKE ADVANTAGE OF SYMMETRY"`z< 9,48:AzF A$"@TO DISPLAY ONLY THE RIGHT HALF OF THE"zP 9,58:AzZ A$"@WELL. @A@N ASYMMETRICAL WELL CAN BE"zd 9,68:A {n A$"@PLACED NEAR THE LEFT SIDE OF ----------------PAGE 3#y :3Wy A$" U@ CURVES TOWARD THE @X@-AXIS IN CLASSI-"jy 9,6:A6981:Ay A$"@CALLY ALLOWED REGIONS, THAT IS, REGIONS"y 9,16:Ay A$"@WHERE @E > V(X); @AND @U@ CURVES AWAY FROM"y 9,26:Az A$"@THE AXIS IN$S$:S$;Sx S$"X"X$"X"Ĺ16304,0:16299,0:T$"G":S$:16300,0:230,32:2420x S$"E"S$"L"S$"M"S$"S"S$"U"S$"X"S$(13)S$","S$" "ıx S$"T"T$"T"Ĺ16304,0:T$"G":2420x S$"T"ĉ:T$"T"x S$(27)ī10:INTROx 2420y w$ X$S$,w. LLOL(MMO)Oī1250:GRIDFw8 S$"S"ī1610:PLOT UVwB 1250:GRIDrwL ------------GET DIGITS}wV A$" "w` 16368,0wj S$"X"ī2450wt S$w~ S$(8)(A$)1A$(A$,(A$)1):S$" "S$; x S$"."S$"9"S$"/"(A$)ALA$AvA$" "ĺL;:2310"vL(A$),v2310>v","24)"M=";GvAL4]v2380:GET DIGITSsvA$" "ĺM;:2270vM(A$)vM0ī2220v2320vS$"U"ī1990vS$"L"ī2160v S$"M"ī2220v S$"E"ī1910v 16304,0:T$"G":GRAPHICS0:GET DIGITS$uA$" "ĺUO;:23101u UO(A$);u2310Nu ","10)"UA=";Wu*AL4mu42380:GET DIGITSu>A$" "ĺUA;:2130uHUA(A$)uRS$"U"L0ī2020u\S$" "S$","ī2300ufL0ī2020up","18)"L=";uzAL2v2380:GET DIGITSARAMETERS tlLOL:MOM(tv".":"E=";:tS$"X"Č7139CtAL6Yt2380:GET DIGITSotA$" "ĺE;:1970{tE(A$)tE158ĺ" >157";:1910tS$" "S$","ī2290tL0ī2080t","10)"U'=";t2090t","18)"U=";tAL3 u238s$s&S$"X"ĺ32)"U*U";:1870Bs0Y0ĺ","31)"TOP";:1870ds:YYMĺ","31)"BOTTOM";:1870xsD","31)"SIDE";sN5:0,YMEXM,YMEsXA$""ĺ".":" ADJUST ENERGY E FOR CLOSEST APPROACH":" OF WAVE TO X AXIS ON THE RIGHT"; tb------------PM5)'rDUDU(V(0)1.75LLE)UOMD23rUUODUArX1XM1brDUDU(V(X)LL(XX)E)UMDmrUUDUwrXX1rYYMEUrS$"X"YYMEUUU1r(YYC)YCī1830rKEEV(X)LL(XX)r28X(1(KE))2,YrDUDUKEUMDsUUDU'=2, U=0, M=5";:E107.5:UA2:1610Uq@"E=49.2, U'=0, U=20, M=5";:E49.2:UO20pqJ---------------PLOT UqT5:0,YMEXM,YMEq^3qhYME8ī1670qrL0Ĕ88276,YME2q|L0Ĕ82276,YME2qMDM100000rDUUA(3MD)(L2)(1(L)pVOV(0)1.75LL7p(VOYC)YCVOYC(1(VOYC))?pX1Ip5312fpS$""(L0LO0)ī1610p---------------SAMPLESp""SAMPLE VALUES OF PARAMETERS:"p,L0ĺ"E=89.2, UA=1, L="L", M="M;:E89.2:UA1:UO0:1610%q6W$"3"ĺ"E=107.5, UooVV(X)*oV0V159ēX,158V0oPoL0:M5:XM279:YC79:YM158eoV(0)2V(1)V(2)o--------------PLOT V(X)o(L)LOĺ".":" THIS INCLUDES 'CENTRIFUGAL POTENTIAL'.":" U IS A RADIAL AMPLITUDE (SEE TEXT)."oLL100000L(L1)Mвѭ2WW]2z1P222PVVW]*+%$*1,PVV\ЬЭѲѳ+*+%%$22VVVzW]ѭs**%%%**+P2\{Ь׳s++%*%%%$2VVz{]^s*++++,P]вѳ2WW]2z%$$%2VWWW{*++++,2WЭѭ2WW{2z1P222UVVz~*+$%$%+122VW]]ѲѲѳץm%**+$%%22VVVz\{O%**%%%%*122zѭײ++%*%%2VWV{]Э؀+%++++PVK);:1930"A$" "V$(K)A$1"V$(K);:1930G"A$" "W$(K)A$Y"W$(K);:1930n" -----------INFO~" :3:A6981" A$" D@OTS ARE EVENLY SPACED IN TIME @T@, AND""$ 9,7:A". A$"T @IS EQUAL TO NUMBER OF DOTS MINUS ONE.""8 9,17:A2# !\5J1!fAM10ıA!pJ2170,2190,2210,2230,2250,2270,2290W!zA$" "M$(K)A$i!M$(K);:1930!A$" "X$(K)A$!X$(K);:1930!A$" "Y$(K)A$!Y$(K);:1930!A$" "Z$(K)A$!Z$(K);:1930!A$" "U$(K)A$ "U$("9"S$"/"(A$)5A$A$S$:S$;< ((A$))AMS$(8)b S$(8)ĺS$" "S$;:(A$)1ī1980 S$(8)A$(A$,(A$)1) *S$(13)S$(27)JN8:2120 4S$(21)JNJ1:2120 >2000 H-----------PARAMETERS R(A$)0A$" 0"A$" "JNJ0K4ġ:1080,J0Ģ24::860ES$(27)Ģ24::750RJ8ĺ:]5J1hA$" "pS$S$"-"A$"-":5J1(0)5J2ī2050S$(8)JNJ1:2120S$" "(S$"-"S$"9"S$"/")ĺA$" ";:5J# S$"."S$"P"ľA$7:A$"X"PG3PG:PG16301,0:PS$"P"ī1840CDPS$"Q"~NA$(27)ĉ::28)"T="100T310T2T1".":990:M,V,R,XA$"E"ī1350:GRIDSbA$"S"Ĺ5209,48(5209):5350,48(5350)l50:CALCULATEv---------GET DIGITSJN1JT20ĔT248178,191%9038,182Y15,15318,15718,16119,16119,15722,153:"Y"h140:PLOT-----------------DRAW A$M1(A$)((A$,M,1))X,YXX7------------KEYPRESSA$&A$"P"PS$"P"0PS$6,1886A$"M3 "M$(4))@X219:Y1913J1760IT7135:P.1 TO P.2X^8938,182~h15,15321,15315,16121,161:"Z"r16302,0|230,64:16299,0:PG2A$"T= "(T1)X157:Y1911760T30ĔT348171,191:T248178,1916,15312,161"12,1536,161BA$"FOR X PLANE, PRESS X."PX3:Y182Z1760vA$"TO PAUSE, PRESS P."X3:Y1911760A$"M1 100"X219:Y1731760A$"M2 "M$(N)X219:Y1821760"N2ī1620,023p 9,179:A5z A$"@CONSTANT AND F IS FREQUENCY."C 9,189:AQ 16368,0Y A$t 16300,0:230,32:360A9:Az A$"@CONSTANT AND F IS FREQUENCY." 9,189:A 16368,0ǃ A$σ 10AA$ރ 10m 146,138169,138E* A$"T@HE PROGRAM YIELDS @E@ = 10, 30, 50,...,"S4 9,159:Ao> 78140,162:78141,162H A$"@SO WE GET THE WELL-KNOWN @E@ = 1/2, 3/2,"R 9,169:A͂\ 14186,171:14187,171f A$"@5/2,..., TIMES HF, WHERE H IS @P@LANCK'S".01" 9,123:A, 1452,125:1453,125H 78158,126:78159,126i A$"@AND @M@ = 5; WE OBTAIN"w 9,133:A A$"E = (E@ /20 (]^K/M)." 8,44:9,146:A4Ɓ 1451,148:1452,148 41120,146:41121,146 7893,149:7894,149A$"@AND MODEL ONES ON THE RIGHT."/l 9,90:A`v A$" E@XAMPLE: IN THE HARMONIC OSCILLATOR,"n 9,102:A A$"@WHERE @E = V@(X) = KX@^@/2, WE SUBSTITUTE" 9,112:Aˀ 1453,114:1454,114 A$"@X@^ = 2E@ /K AND @X^@ = 2@E /K, @WITH @K = @P@LANCK'S CONSTANT OVER"& 9,44:AC A$"2]. S@O WE MAY SET"P 9,54:Av A$"@M@E@ (X/])@^ = ME X^/200000"& 8,30:9,68:A40 1446,70:1447,70: 78134,71:78135,71N A$"@WITH REAL-WORLD QUANTITIES ON THE LEFT"X 9,80:A"b OF UNITS."'~ 8,35:9,10:A6981:A4^~ A$"T@HE QUANTITY M@E@ (X/])@^@ IS DIMENSIONLESS;"k~ 9,24:Az~ 14107,26~ 14108,26~ A$"@HERE M IS MASS, @E@ ENERGY OF NTH LEVEL,"~ 9,34:A~ 14123,36:14124,36 A$"@X POSITION, AND ] BILITY"} 9,160:AE}" A$"@OF FINDING THE PARTICLE AT RADIUS @R."S}, 9,170:A}6 A$" T@O ADJUST MASS, PRESS @M@ (DEFAULT 5)."}@ 9,182:A}J 16368,0}T A$}^ 16300,0:230,32:360}h ----------------PAGE 5}r :3 ~| A$"5: DISCUSSIONELS"| 9,120:A@| A$"@OF A SPIN-FREE HYDROGEN ATOM CAN BE"N| 9,130:A| A$"@FOUND. @P@RESS @L@ AND ENTER ANGULAR MOMEN-"| 9,140:A| A$"@TUM IN UNITS OF @P@LANCK'S CONSTANT OVER"| 9,150:A} A$"2]. U^ @BECOMES THE RELATIVE PROBA41)KP$"K"KP$"P"ī1960:&22:12)"KEYBOARD (K)"W010)"OR PADDLES (P)? ";j:16368,0:KP$DKP$(27)ĺ:2060:LISTNKP$(13)KP$"K"XKP$"K"KP$"P"ī1850b:"THE EQUATION OF THE LINE IS Y = MX + B.":lKP$"K"ī194Y,SDX0XXMY0S0SY40YM142YS150YM142ĺ(7);:1640]X(I)X:Y(I)Y:S(I)Sm2640:PLOT}II1:NN1N41ī1640--------------PROCEED2780:CALC1:41)16304,0:GRAPHICS35,24:TEXT WINDOW24:ICKS@2550:AXES,J--------------DATA8TI1:N0C^KP$""ih"INPUT X("I"),Y("I"),SD("I"): ";wr16368,0|(16384)128ī1660(16384)155ī660:INIT(16384)196NN1:2060:LIST(16384)141ī1760:PROCEED"";X,"E@VENT HORIZON")v*6,0:S$"S"Ĺ6,2112v47,04096DvH10A4u73261,173:73262,173;u77262,191:77263,191KuA$"C@LOCK"au8,167:9,97:A4hu3wuA$"\ = 1"u8,100:9,188:A4uA$"O@BSERVER TIME 0"u8,171:9,179:A4uA$"C@LOCK TIME 0"u 8,194:9,189:A4u7135v A$09,175:A%t:2417,177:2418,1773tD9,187:AMtN2517,189:2518,189ttXA$"T@O APPLY IMPULSE, PRESS @J K"tb8,90:9,182:A4tl73261,173:73262,173tv77262,191:77263,191t16368,0:S$tS$(27)ī40t0u8,90:9,182:Y6128X,Y5s " = "YL" EXP("M" X ";(H B0ĺ"+";(R B")"40);(\ 16368,0(f A$)p A$вDRAW N$'N YNYM"'X YM(YMYL),'b YIYL5'l X29F'v IYIRYL10c' Y150(IRYLYL)142YMw' Y7ēX,YX2,Y}' ' X23:YY2' RYL10RYL:YIRYL' N$(YI)' Y18Y145İ2450:DRAW A$' Y10ī3180' I1N ( XX(I):Y(Y(I)YL 21:41) & 7132:P.1 TO P.22& 62450:CLEARE& 2310:X TICKSU& 2580:AXESl& A$"SEMI-LOG PLOT"z& X180:Y6& 2480:DRAW A$& YLYM2YLYM2& RYL("1E"(((YL)(10))))&& YL(YLRYL)RYL&0 N$(YL)&: X23:Y152'D 2450:%@ X$""%J '%T -------------THPLOTB%^ MMTHXM142(YM244)W%h B150BTH142YMf%r X42404r%| YMXB% Y0Y159ēX29,Y% % 24:1% "UNCERTAINTY IN M, "(DMRM.5)RM"; IN B, "(DBRB.5)RB"."40);% % -----------LOG &SX,YS$ '$ ---------------CALCO$ RM("1E"(((XMYM)(10)2.7)))v$ RB("1E"(((1YM)(10)2.7)))$ DWXXWXWXW$ D0ĺ(7);:1650$ MTH(WXYWXWYW)D$ BTH(YWXXWXYWXW)D$" DM(WD).5$, DB(XXWD).5$6 CB9999 4829,158#F )#P --------------PLOT<#Z YSYLYLYSL#d WW1(SS)^#n XWXWX(SS)p#x YWYWY(SS)# XXWXXWXX(SS)# XYWXYWXY(SS)# X244XXM29# Y150Y142YM# SS142YM# X1,YX1,Y# YSēX,0X,YS:$ X,Y1N$N$".0"" A$(N$,4)." I(A$)11A" A((A$,I,1))L" AX,Y\" A77XX2f" XX7l" r" " ----------------AXES" 4822,152" YL9999" 8922,81" W0:XW0:YW0:XXW0:XYW0"( 28,828,150272,150"2 88150,158 #I1NHXX(I):YY(I):SS(I) R"INPUT X("I"),Y("I"),SD("I"):0#v"ADJUST SLOPE M WITH PDL(1)"K"AND Y-INTERCEPT B WITH PDL(0). ";U1960}"ADJUST SLOPE M WITH KEYS J AND K""AND Y-INTERCEPT B WITH KEYS I AND M. ";768A$A$(27)ī206021:23)"BEST SO FAR= " 23)"CH53:4817,531h4510,153:5317,153:4824,153Oh899,8:4416,8:1326,8_hY015010hh2,Ynhh------------------LOOPhKGKGTT.35hYH:1,100HhI1200hXPUTXPh XXPWIThX(I1)Xh YVTYh*Y(I1)Y7200,1030gN4993,111:48100,111:48107,111XgX50193,111:48200,111:48207,111gb88260,111:44267,111:13277,111gl50,9850,102:150,98150,102:250,98250,102gvX1027010gX,99X,101gg4,50:4,150:4,0:6,0 h5310,2-fUU1(1C.7CCKGV1TT0.0875U0)ffVV1(1C.7CC)GT2GK0.0875(U0V1V1U0)TTfXP0:X(1)0:Y(1)H:C100f-------------------GRIDf&S$"S"Ĺ16304,0:730f0f:2:0,100279,100:0,00,159:3 gD100,97100,103:200,9:360eK(Q$)eK0ī450Me"WIND SPEED = (-40 TO 40) ";::W;::Q$]eQ$""ī450~e((Q$))40ĺ(7);:23:410eW(Q$)eAA157.29578eU1(V0(A))WeV1V0(A)eU0(V0V02V0W(A)WW)eU00U0.000001fCKU0T$)100(Q$)60ĺ(7);:23:280,d6H(Q$)Vd@"ANGLE = (-90 TO 90) ";::A1;::Q$fdJQ$""ī360dT(Q$)90(Q$)90ĺ(7);:23:320d^A1(Q$)dh"DRAG COEFFICIENT = (0 TO .02) ";::K;::Q$drQ$""ī400e|(Q$)0(Q$).02ĺ(7);:23ARE IN ";::"INVERSE"::7c------------------INPUTqc"LAUNCH SPEED = (0 TO 300) ";::V0;::16368,0:Q$cQ$""ī280c(Q$)300(Q$)0ĺ(7);:23:240cV0(Q$)c"LAUNCH HEIGHT = (-60 TO 100) ";::H;::Q$c"Q$""ī320 d,(QBETWEEN GRID TICKS IS 10 M,"Eb"AND TIME BETWEEN DOTS IS 0.1 S.":pb"TYPICAL DRAG COEFFICIENTS (ACTUALLY"b"DRAG COEF/MASS) ARE:"b" BASEBALL .009"b" SKYDIVER .003"b" FOOTBALL .002 IF SPIRAL."c::"DEFAULT VALUES";::" 1982":6aZ"MODIFIED BY JF SULLIVAN AND WR HOLLON,"`ad"CINCINNATI 1982 (NOT TO MENTION RH"~an"GOOD, HAYWARD 1984).":ax"DRAG IS PROPORTIONAL TO THE SQUARE OF"a"THE VELOCITY.":a"WE USE MKS UNITS, WITH G = -9.8 M/S^2."b"DISTANCE `(104)96Č506886` --------------------INITH`28672:$7000`U0:V0:X0:Y0:O0:Q0:I0:T.1:C100:G9.8:V050:A151`(X(201),Y(201)`2------------------INTRO`<:`F9)"T R A J E C T O R Y":aP" G. JOHNSON, WALLA WALLA           ql16368,0qvA$$q20:INTRO."p9,116:AGpA$"P@RESS @K@ TO KEEP IT. @S@UCH PROPERTIES ARE"Up&9,126:Aop0A$"@EVEN CLEARER IN"}p:9,136:ApDA$" @20 COS(8X) + 40 COS(10X) + 20 COS(12X)."pN9,147:ApXA$"P@RESS @X@ TO COMPARE WITH THE PRECEDING."pb9,158:A(-1) @COS(NX)."o9,84:ARo53,8452,8545,8548,8149,8146,7752,7853,78jo1488,80:1489,80oA$" A@ WAVE HAVING SOME PROPERTIES OF A"o9,96:AoA$"@WAVE GROUP IS OBTAINED WITH"o9,106:ApA$"@ - 40 COS(9X) - 40 COS(11X)$0700:INTROA%`16368,0-jA$=t650:INTRO5461,14862,148?/A$"@D + ^D, WHERE D + 2 IS THE NUMBER OF"R/14,16319,163`/9,163:As/34,15542,155/A$"@POINTS; EITHER TOO LARGE OR TOO SMALL A"/9,173:A/A$"@VALUE OF CHI-SQUARE IS SUSPECT."/9,183:A/16368,00A,117.Z62,11370,113H.dA$"@PECTED ON THE SCALER (NOT COUNT RATE)."V.n9,131:A.xA$" I@F THE LINE FITS THE POINTS, THEN CHI-".9,143:A.A$"@SQUARE ( @^@) SHOULD BE APPROXIMATELY".9,153:A.55,14857,14860,15462,154/55,1"DO YOU WISH A PRINTED TABLE? (Y/";::"N";::")";:Q$GkQ$"Y"Ċ1Qk::\k$U1Ik."X="X(U)15)"Y="Y(U)30)"T="(U1)Tk8kB0kL910AERPOSE NEXT PLOT, PRESS ";::"S":Aj"TO ERASE, PRESS E. ";Sj16368,0:S$mjS$(27)Ĺ104,12:10jS$(13)S$"S"jS$"S"S$"E"ī50jS$"T"ī950j-----------------TABLEjU110j(49408)(49408)ī1050j8k::i4O(UUVV)i>QOKT-iHP1QQQ0.7@iRUU(PKGVO)[i\VVPGTKG(OVVO)uifX0Y59II1:900ipX279YCēX,CY:X1,CYiziU16:V(16336):i:"FOR X,Y,T TABLE, PRESS T."i"TO ESCAPE, PRESS ESC."#j"TO SUPkZ0kd37,34:36,34"kn39,360kx35,39357k1Bk31,38Pk33,3938hkHIT(HIT)1:FIRE0qk280U YOU LIKE?"j"X=35M"%j"Y=-3M"Hj "V="V"M/S"25):"ANGLE = ";A$XjA$""ī730djA(A$)j(A20A87ĺ:"NOT WITHIN RANGE OF ADJUSTMENT.":1230j2560:FIREj<----------------HITjF:35::"HIT!":jPBUZZ130:CLICK(16336):ZiA$"VTSINA-1/2GT^2"A$"VTSINA-0.5GT^2"A$"VTSINA-.5GT^2"A$"VTSINA-GT^2/2"ī1210xi::"SORRY. TRY AGAIN."iPAUSE12000:i1050i:i18:"THAT IS CORRECT."iPAUSE12000:iFIRE1i j7)"WHAT FIRING ANGLE WOULDE EXPRESSION FOR Y?"6h$10)"IF IN DOUBT, PRESS '?'"HIT1ī1050VfH"WHAT IS X IN TERMS OF VELOCITY V,"fR" TIME T, AND ANGLE A (IN THAT ORDER)?"f\" IF IN DOUBT, PRESS '?'"ff23:16368,0fp"X = ";X$fzX$""ī730gX$"?"Ĺ16299,0:16303,0:A$:16300,E11000:eFIRE1ī1250Ee:"WOULD YOU LIKE TO FIRE? (Y/N) ";MeA$neA$"N"A$(27)Ĺ104,12:10eA$"Y"ī730e"Y";eHIT2ī1240ePAUSE11000:e :" OK, BUT FIRST YOU MUST"e"ANSWER A QUESTION."f PAUSE120002dNCdXAA23.14360'dbTA(A)5dlVXV(A)AdvX339mdY34(X2)TA0.5G(X2)(X2)(VXVX)dY39āBUZZ120:CLICK(16336):BUZZ:690dX,Y)1ī1340:HITdCLICK(16336):X,Ydd----------------INPUTd ePAUSHIT0ī470&c"THIS IS A TANK...";:cPAUSE12000:Kc1:RED TANKXcJ3537ec35,39Jkcc37,34:36,34:36,38:38,38cHIT0ī690c23c"AND ITS TARGET."c&PAUSE12000:c0-----------------FIREc:CC1dDC16Cb5:15b"T A N K S"::9b13)"RH GOOD, 1983":BbV29VbPAUSE14000:\b"eb,A77mb6C2wb@G9.8bJVV4bTV13V25b^:bh8br0,3939b|2:BLUE TANKbJ3537b0,4Jbb1,34:2,34b1,38:3,38 cHE TOTAL"0aP" IS: Y = VT SIN(A) - 1/2 GT^2."8aZ:Oad"V SIN(A) V"[anN110bax3ta"'"15N)"/"zaa3a"'/ A"a3a"'- - - - - - V COS(A)"aa25)"PRESS RETURN.";a7139aa------------------INTRO r `(104)96Č506882` ----------------EXPL:`:b`"THE HORIZONTAL COMPONENT OF V IS"`(" V COS(A), SO: X = VT COS(A).":`2"THE VERTICAL COMPONENT OF V IS"`<" V SIN(A). THERE IS ALSO A CONSTANT" aF" VERTICAL ACCELERATION G. T       ITH"nh9,42:ADnrA$"@100 SIN(NX)/N = 100 SIN(X) + 50 SIN(2X)"Qn|9,52:An31,5230,5323,5326,4927,4924,4530,4631,46nA$"@+ 33 SIN(3X) + ..."n8,115:9,62:A4nA$" A@ DELTA-FUNCTION IS GIVEN BY"n9,74:AoA$" 10 -------INFOm:16302,0:3Pm"A$" T@HE SQUARE WAVE CONVERGES MORE SLOWLY"dm,9,10:A6981:Am6A$"@THAN THE TRIANGULAR ONE AND SHOWS THE"m@9,20:AmJA$"G@IBBS OVERSHOOT AT THE CORNERS."mT9,30:An^A$" A@ SAWTOOTH MAY BE OBTAINED Wlx------------------GRID'l:2Hl0,00,158272,158272,00,0Yl0,79272,79hl0,396,39yl0,1196,119l266,39272,39l266,119272,119lX6820468lX,0X,6lX,76X,82lX,152X,158ll3l m--------(A$)1ĺ(8)" 0";:%kA(A$).4=k16304,0:GRAPHICSHkT$"G"dk------------------PLOT}k S$"S"İ1400:GRIDk0,YCkX0Lk(FF(X)AS(P)k2F(X)Fk<(F)YCF(F)YCkFXX,YCFkPPPNkZPLPPL(PL)kdlnA$;.jS$"0"S$"9"(A$)4A$A$S$:S$;Hj((A$))100S$(8)njS$(8)ĺS$" "S$;:(A$)1ī1050jS$(8)A$(A$,(A$)1)jS$(27)ġ:20jS$"T"T$"T"Ĺ16304,0:T$"G":1070jS$"T"ĉ:T$"T"jS$(13)S$"S"ī1070ki.S$0i8S$"X"Ĺ16299,0:S$:16300,0:1070[iBS$"K"ĺ"K";:7132:(8);:1070:KEEPliLA$""ī1160iVS$(8)ĺ" 0";:NN(N)(P)::970i`S$"0"S$"S"S$(13)S$(21)ĺ" 0";:ijS$" "(S$"0"S$"9")A$" "itS$"-"A$"-"j~SS BACKSPACE. "Dh"TO REVIEW PREVIOUS VALUES, PRESS T";kh".":"HARMONIC #"N","15)"SINE:";shP0h1050:GET DIGITSh";"27)"COSINE:";hP34h1050:GET DIGITShN40NN1h970h------------GET DIGITSh$A$""2 gHP0gRS$6g\S$"K"ĺ"K";:7132:(8);:KEEPHgfS$(27)ī20lgpS$"X"Ĺ16299,0:S$:16300,0gzS$"S"S$(13)ī680g850g-----------3:CONSTRUCTg1400:GRIDg"INPUT RELATIVE AMPLITUDES, -100 TO 100."h"TO GO BACK, PRE---------2:TRIANGULAR=f"TRIANGULAR WAVE, "(N1)2" TERM";[fA50(1)((N1)2)(NN)xf---------------BOTH 1,2f N1ĺ"S";f"."f 1280:PLOTf*:"TO DISPLAY NEXT PLOT, PRESS RETURN."f4"TO SUPERPOSE NEXT PLOT, PRESS S. ";g>NN6384)128ī620eXeb570%elM$?eM$(27)Ĺ104,12:10WeM$"?"ī1550:INFOleM$(13)M$"1"eM$"1"M$"3"ī550e:21e(M$)700,740,910e--------------1:SQUAREe"SQUARE WAVE, "(N1)2" TERM";eA60Ne770f-0dK3.1468%dF(136):FUNCTION8dS(135):SINE DdX134QdS(KX)\dS(X)SjdS(68X)SydS(68X)SdS(LX)Sdd550dX0LdF(X)0dd&X(16336)(16336)d016368,0d:95242,172dDX120eN(1IANGULAR WAVE;"c"9,158:AIc,A$"@ 3: YOU CONSTRUCT A WAVE."Wc69,172:Arc@-----------------INITcJP0:PHASE cTF0:FUNCTIONc^X0:ABSCISSAchYC79:Y-CENTERcrL136:LENGTH c|A0:AMPLITUDEcN1:NUMBER dK0ī529,94:A8bA$" T@O SEE THE PICTURE KEPT, PRESS @X."Fb9,106:AtbA$" T@O GO BACK OR ESCAPE, PRESS @ESC."b9,118:AbA$" T@O PROCEED, PRESS @RETURN."b9,130:AbA$"C@HOOSE 1: SQUARE WAVE;"b9,144:AcA$"@ 2: TRdA$"@MONICS OF GIVEN AMPLITUDES. @A@RBITRARY"=an9,50:AjaxA$"@WAVE FORMS MAY THUS BE CREATED AND"wa9,60:AaA$"@COMPARED."a9,70:AaA$" F@OR FURTHER INFORMATION, PRESS ?."a9,82:AaA$" T@O KEEP A PICTURE, PRESS @K." b%`(104)96Č50688` 9`----------------INTROL`:16302,0:3|`(A$" F O U R I E R S Y N T H E S I Z E R"`29,12:A6981:A`<A$"R H G@OOD 1983"`F8,77:9,26:A4`PA$" T@HIS PROGRAM ADDS SINE AND COSINE HAR-"`Z9,40:A0a            ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? !""##$$%%%&&&&&&&&&&&&&%%%$$##""!  >'@&0I0 ?1&&~1&& '@&0 @&&&&`0e) i)i( }i( 00е8)8)ɛ`ɰ09ɺ5)/ 0 '&'&'i')0  0L  L  S"j9,138:ABjA$"@'FROZEN' AS IT MOVES ACROSS THE SCREEN."Pj9,148:Abj16368,0:A$|jA$(13)ī420:GRAPHj16299,0:380Z4961,989,74:AyhH7190,76:7191,76hRA$"@AND THE GROUPS GO TOWARD THE LEFT."h\9,84:AhfA$" W@HEN K = 4, THE TWO WAVELENGTHS ARE"hp9,96:A iz4960,98:ENGTH."g9,30:AHgA$" T@HE GROUP VELOCITY CORRESPONDING TO THE"Ug9,42:A|gA$"@SUM IS U = (W -W )/(K -K )."g9,52:AgA$"1 2 1"g8,125:9,54:A4g 759,54:760,54g50102,54:50103,54h A$" I@F THE WAVE LENGTH96fb16299,0:380/fl----------------INFO?fv:16302,0nfA$" T@HE SPEED OF WAVE 1 IS U = W /K ,"zf9,9:AfA$"1 1 1"f8,185:9,11:A4fA$"@WHERE W IS @2]@ TIMES FREQUENCY AND K IS"f9,20:AgA$"2] @DIVIDED BY WAVELA$" S @SINGLE STEP @ESC@ ESCAPE"6e9,189:AEeA$" @K=5"[e8,255:9,15:A4jeA$" @W=1"e8,253:9,27:A4eA$" @K=4"e8,255:9,58:A4e&A$" @W=2"e08,253:9,70:A4e:A$" SUM"eD8,253:9,120:A4eN6,5fX40h9,180:A6656,1:6672,0:NV3$(13)V3$"0"MfXV3$(8)Ē0:(V2$)201,140:(V2$)202,140:3:490gfbV3$"0"V3$"9"ī570fl(V3$)208,140:(V3$)209,140fvV$V1$V2$V3$f-------------GRAPHfA$"@V/C ="f8,210:9,189:A4fX250:Y189fM1(V$)gV2$(13)V1$"."V$V1$/eV2$(13)ī640heV2$(8)Ē0:(V1$)194,140:(V1$)195,140:3:430e(V2$"."V1$".")(V2$"."V1$".")ī490e&V2$"."(V2$"0"V2$"9")ī490e0(V2$)201,140:(V2$)202,140e:V3$eDV3$(27)ī20f)3A$"@(MUST BE LESS THAN 1)":8,40:9,150:A4>dV$".50"NdV3$"":DP0gd(6)3V1$".":480pdV1$dV1$(27)ī20dV1$(13)ī640dV1$"."(V1$"1"V1$"9")ī440d(V1$)194,140:(V1$)195,140dV2$dV2$(27)ī20eBDOPP"c--------------INPUT1c"16368,0:A$Kc,A$(27)Ĺ104,12:10\c6A$"?"ī970qc@A$(13)A$"1"cJA$"1"A$"3"ī280cT6,(A$)c^0:870:3chA$A$((6))cr9,189:Ac|A$" S@ET RELATIVE SPEED: V/C ="c9,140:A1d(6OCK WAVE RESULTS."b9,90:AMbA$" F@OR FURTHER INFORMATION, PRESS ?."[b9,102:AbA$" F@OR SINGLE STEP, PRESS @S."b9,114:AbA$" T@O GO BACK OR ESCAPE, PRESS @ESC."b9,126:Ab870c(4096)169(4857)96ĺ(4)"BLOAD :A0adA$"@MOVES RELATIVE TO AN OBSERVER, THE"=an9,48:AoaxA$"@FREQUENCY OBSERVED MAY DIFFER FROM THAT"|a9,58:AaA$"@OF THE SOURCE."a9,68:AaA$" I@F THE SPEED V OF THE SOURCE EXCEEDS"a9,80:AbA$"@THE WAVE SPEED C, A SH`(104)96Č50688*` A$"A":YX112C`--------------INTROV`:16302,0:3{`(A$"D O P P L E R E F F E C T"`28,33:9,10:A6981:A4`<A$"R H G@OOD 1984"`F8,76:9,24:A4`PA$" W@HEN A CONSTANT-FREQUENCY WAVE SOURCE"aZ9,38     1440"";XM/XM1XM9999ĺ(7);:14305\"SPECIFY MAXIMUM Y, 1 TO 9999: ";j16368,0(16384)128ī1530(16384)155ī700:INTRO(16384)141ī1520"";YM"YM1YM9999ĺ(7);:1510,16304,062180:T:1330"P57229,189:57230,1895ZPAUSE1500:;dWn-------------XM AND YMax2550i21"FOR YOUR DATA,""SPECIFY MAXIMUM X, 1 TO 9999: ";16368,0(16384)128ī1450(16384)155ī700:INTRO(16384)141E LINE"9,157:ABA$"@SO IT CONTRIBUTES 4 TO CHI-SQUARE."P9,167:A A$" T@HE RIGHT POINT IS 3 @SD@ FROM THE LINE"9,179:AA$" @SO IT ADDS WHAT TO CHI-SQUARE? "(9,189:A2A$<A$(27)ī700:INTROFA$"9"ĺ(7);1100!t---------------EXAMPLE *~:3C28,828,144272,144U38,144172,0f72,4572,85w71,6573,65122,135122,95121,115123,115A$"SD"8,59:9,78:A48,59:9,98:A4A$"T@HE LEFT POINT IS 2 @SD@ FROM THR SEMI-LOG, PRESS @X@ AFTER LINEAR PLOT."79,165:AdA$" T@O GO BACK OR ESCAPE, PRESS @ESC."r$9,177:A.A$" T@O PROCEED, PRESS @RETURN."89,189:AB16368,0LA$VA$(27)Ĺ104,12:10`A$"?"ī3570jA$(13)ĺ(7);::A7A$"@OF THE VERTICAL DISTANCES FROM THE POINTS"E9,121:AxA$"@TO THE LINE, IN TERMS OF THE CORRESPOND-"9,131:AA$"@ING EXPERIMENTAL ERRORS @SD."9,141:AA$" F@OR MORE INFORMATION, PRESS ?."9,153:A)A$" F@O\9,67:A=fA$" W@E ASSUME THAT THERE IS NO ERROR IN @X"Jp9,79:A~zA$"@AND THAT @Y@ VALUES ARE NORMALLY DISTRIB-"9,89:AA$"@UTED WITH STANDARD DEVIATION @SD."9,99:AA$" C@HI-SQUARE IS THE SUM OF THE SQUARES"9,111OGRAM PLOTS YOUR DATA AND LETS", 9,37:A`A$"@YOU DO A LEAST SQUARES FIT, BY MINIMIZING"m 9,47:A*A$"@CHI-SQUARE ( @^@), USING THE GAME PADDLES"49,57:A>81,5283,5286,5888,58H81,5887,5288,52RA$"@OR THE KEYBOARD." X(40):Y(40):S(40)&P0100:P112066,P1:7,P0BM0:B0SCH0:CM9999o-----------------INTROw::3:A6981A$" L E A S T S Q U A R E S F I T"9,9:AA$"R H G@OOD 1983"8,80:9,23:A4A$" T@HIS PR3,8,80,23,32,211,244,201,32,208,4,165,38,240,25,165,48,81,38,145,38,165,8,73,128,133,8,6,48,16,212,169,1,133,48,200,192,39,208,205,96:XLINE:I768832DD:I,DNX480b .1,.5,1,5,10,50,100,500,1000,5000lI110vA(I)THEORETICAL= ";802----------------ONERR=(7);S(218)200ī1430h(218)24ī1510~(218)164ī1640------------------INIT&A$"A"0165,7,162,29,160,0,132,8,32,17,244,165,48,81,38,145,38,165,6,73,128,24,101,8,13:410P|PK216ĺ:(7):" WON'T DO LOG PLOT; DATA GO BELOW 0.1. ";:A$:PK155jPK155ĉ:2060:LIST{PK141ī40-----------------THEOR.768:XLINE2900:THPLOTMMTH:BBTHX$"X"Ģ22:1:"Y = MX + B";:17021:23:"0)2:P1((1)P1)2$PK(16384)4PK128ī30Q"---------------KEYPRESS_,16368,0q6KP$"P"ī370@PK201P03P0P0DPJPK202P12P1P1DPTPK203P1253P1P1DP^PK205P0189P0P0DPhDP3rPK216YL.1X$"X""Y";" " = "(MRM.5)RM" X ";8 BRB.50ĺ"+";S (BRB.5)RB";"23);p X$"X"ĺ41):3010:LOGx 34 CHCMĺ"> 9999";:250 CH99CH(CH) "= "(CH10.5)10" "; CHCBCBCH:21:150KP$"P"P0(191(0).745P$ (104)96Č50688' 540:INITD -------------------LOOPM DP1i (M(128P1)YM(74.5XM) 2B(150P0)YM142 <768 F6,P1:7,P0 P768:XLINE ZCH0 dI1N nD(Y(I)MX(I)B)S(I) xCHCHDD 22 1              z#??   DZ DZ DZ DZŠ DZDZ !Ƕ"̠ Ƿ&ǸР ǹ ͠ Ǡ dzŠ Ǵ%Ҡǵ ŠϠՠŠDZŠŠ3Dz " (S@CREEN SIZE: 128X80.)":9,191:A6lP,0:A$:20210,146119,146:110,147119,147:0110,148:0118,148VkA$"@OF PERIOD 3.":9,159:AkA$" T@HE MIDDLEWEIGHT SHIP MOVES TO THE":9,170:Ak165,170174,170174,165173,165173,169165,169:0163,167:0171,163kA$"@RIGHT.":9,180:A%lA$S OUT SIX GLIDERS.":9,119:AVjA$" F@IVE FIVES PRODUCES EIGHT":9,129:AjI05012:85I,12794I,127:85I,12894I,128:jA$"@GLIDERS, WHICH CRASH IN PAIRS.":9,139:AjA$" T@HE HEPTOMINO PRODUCES A PATTERN":9,149:A5k1HE SCREEN.":9,88:AEiN087,87:089,87:091,87:091,85:089,83iXA$" T@HE 'FAUCET' OR R PENTOMINO REACHES":9,99:Aib0211,96:0213,96:0213,94:0215,94:0213,98ilA$"@STEADY STATE AFTER 1103 GENERATIONS; IT":9,109:AjvA$"@SENDAN,":9,46:AChA$"O@CTOBER 1970 THRU @F@EBRUARY 1971.":9,56:A{h&A$" T@HE TETROMINO REPEATS AFTER NINE":9,67:Ah0111,66116,66:111,67116,67:0113,64h:A$"@GENERATIONS, AT POPULATION 12.":9,77:AiDA$" T@HE GLIDER MOVES ACROSS TON GAME WITH RAMI-"::9,6:AWgA$"@FICATIONS IN CELLULAR AUTOMATA THEORY,":9,16:AgA$"@WAS CREATED BY @J@OHN @C@ONWAY, A @C@AMBRIDGE":9,26:AgA$"@MATHEMATICIAN; SEE @M@ARTIN @G@ARDNER'S":9,36:A hA$"@COLUMN IN THE @S@CIENTIFIC @A@MERICS. PRECEDING PATTERN: X.";+f7132:4096sf22:1:"GENERATION "G","21)"POPULATION "(8)(9)256". ";:GG1fP,0:A(0):A16384f(A)83ľA$f(A)88Ĺ16299,0:A$:16300,0:A$:460f(A)2720f420gA$" L@IFE, A SIMULATI27904128YX,481e6A$" "Ē0:27904128YX,0@e@0XX,YYWeJ22:34:X","Y" ";_eTA$pe^A$(27)20ehA$"I"Y1YY1erA$"J"X1XX1e|A$"K"X126XX1eA$"M"Y78YY1eA$(13)A(0):300f:24:"SINGLE STEP: 88:AdP16368:P,0:A$5dA$(27)Ĺ104,12:10EdA$"?"490XdA$(13)220gd:2::24d11)"I":"TO PLOT: J K. TO ERASE, SPACE.":11)"M"d"TO ESCAPE, ESC. TO PROCEED, RETURN.";d"0,00,159254,159254,00,0:X50:Y40e,3: , WHICH IS STABLE.":9,148:Adc2785,149:2790,149:2785,141:2790,141:2780,145:2795,145cA$" F@OR FURTHER INFORMATION, PRESS ?.":9,164:AcA$" T@O GO BACK OR ESCAPE, PRESS @ESC.":9,176:AdA$" T@O PROCEED, PRESS @RETURN.":9,1A$"@THE CELL FARTHEST LEFT DISAPPEARS. @T@HE":9,104:AYbxA$"@RESULT IS:":9,114:Ab27105,116:27110,116:27110,112:27105,120bA$"S@UBSEQUENT GENERATIONS PRODUCE":9,134:AbY1271354:27220,Y:27225,Y:cA$"@AND FINALLY S BORN IN A":9,46:ADaFA$"@SPACE WITH THREE NEIGHBORS.":9,56:AaP27100,68:27105,68:27110,68:27110,64:105,71106,71aZA$" F@OR EXAMPLE, IN THIS CASE, IN THE NEXT":9,84:AadA$"@GENERATION A CELL APPEARS AT THE DOT, AND":9,94:A:bn7 `(104)96Č50688/` (4)"BLOAD BLIFE"K`4119,13:4106::::3s`A$"L I F E":8,98:9,8:A6981:A4`(A$"R H G@OOD 1983":8,77:9,22:A4`2A$" R@ULES: A CELL SURVIVES IF IT HAS TWO OR":9,36:Aa<A$"@THREE NEIGHBORS; A NEW CELL I      m ɕ`JJJJ)0 ' # * 8      p Й Е  q` N110H(16384)217Ĕ89266,118:104,12:3072,0::(4)"RUN MENU"i(16384)155Ĺ16368,0::ox710,72:A4vA$" (T@HEY DO NOT STAND ALONE; BUT THE"A9,84:AlA$"@DISK MAY BE COPIED WITH @COPYA.)"y9,94:AA$" T@O ESCAPE, PRESS @ESC."9,106:AA$" I@S THE KEYBOARD IN @CAPS@ MODE? (@Y/N)"9,118:A95266,120GE SUBROUTINES."9,30:AG&A$" T@HEY ARE USEFUL FOR CLASSROOM"T09,42:A:A$"@DEMONSTRATION AND SUPPLEMENTARY STUDY"D9,52:ANA$"@AT VARIOUS LEVELS, IN CONJUNCTION WITH"X9,62:AbA$"@APPROPRIATE LECTURES AND TEXTS."l91(A$)A((A$,N,1))2A64LC64LC:470GA77A87XX2XA64AALCnAX,Y0:AX1,Y0yXXDX----------------INFOA$" T@HESE PROGRAMS ARE IN @BASIC@ WITH"9,20:A6981:AA$"@MACHINE-LANGUANIVERSITY, @H@AYWARD"'X0132:Y01560310AA$" 1984"RX041:Y0168[310o"PAUSE02000:x,4906----------------DRAW A$@0JYY09Y03T139X0,Y139X0,Y^h3rX149X0|Y061XX4LC0NDRAW A$, POKE9,Y:CALL 6981& n::9 x28,146:62454W A$"INTERMEDIATE PHYSICS"l X097:Y049:DX9u 310 A$" SIMULATIONS" X097:Y061 310 DX7 A$"R. H. G@OOD" X041:Y0144 310A$"C@ALIFORNIA @S@TATE @U@y) 232,0:233,28:SHAPE TABLE ADDRESS6 1:0:3^ 10,76:11,29:12,27:USR(X)=SQR(X)u ((4)"BLOAD BFILE" 2BSAVE BFILE,A$1B1D,L$4E3 <TEXT P1 TO P2, CALL 7139 FHI-RES P1 TO P2, CALL 7135 PBOTH, CALL 7132 ZONERR, CALL 7126 d     171,144,108,96,86,81 -c"769,150:DURATION 8c,N16?c6IQc@768,I:PITCH`cJ770:PLAYfcTc^-----------------PIANOch769,0crI$c|I$(27)Ĺ104,12:10cI((I$))0Ĺ768,I((I$)):770c370 794 bQbP,Qb$bI(94)b81,242,65,229,83,216,69,204,68,192,82,182,70,171,71,162,89,153,72,144,85,136,74,128,73,121,75,114,76,108,80,102,59,96,8,86,21,81:ASCII,PITCHbN119bA,IbI(A)Ibb-----------RACHMANINOFFc CORRESPONDS"ad9,56:A4anA$"@TO THE NOTE @C."Aax9,66:AdaA$" T@O ESCAPE, PRESS @ESC."qa9,78:Aa-------------------INITa 173,1,3,174,48,192,174,0,192,48,13,174,0,3,202,240,242,136,208,250,105,1,208,246,96:SUBROUTINEbP770`(104)96Č506886` ------------------INTRO ?`:3R`A$"M U S I C"n`(8,95:9,20:A6981:A4`2A$"R H G@OOD 1982"`<8,82:9,34:A4`FA$" T@HE KEYBOARD CORRESPONDS TO THE PIANO"`P9,46:A aZA$"@KEYBOARD, AND THE LETTER @S@ N$"B"N$"11"("N$"C"N$"12"<,N$"D"N$"13"P6N$"E"N$"14"d@N$"F"N$"15"vJN$(27)ĉ:TN(N$)^N1N15ī260hA$A$(N)r9,12N5:A|16300,0104,96:24576,0:4096,0:(4)"RUNG"N$ATHESIZER"#A$(11)" B. T@ANKS"BA$(12)" C. T@RAJECTORY"[A$(13)" D. L@IFE"uA$(14)" E. M@USIC"A$(15)" F. S@CREEN @T@EST"N115A$A$(N)9,12N5:A230,32:6245016368,0:N$N$"A"N$"10"ROEDINGER'S @E@QUATION"A dA$(5)" 5. T@HREE @B@ODIES IN 3-@D"j nA$(6)" 6. R@ELATIVISTIC @M@OTION" xA$(7)" 7. L@EAST @S@QUARES @F@IT" A$(8)" 8. D@OPPLER @E@FFECT" A$(9)" 9. S@UM OF @T@WO @W@AVES" A$(10)" A. F@OURIER @S@YN0 (233)28(104)12(6941)165Č50688; :3:G A$(15)i (A$" T@O ESCAPE, PRESS @ESC."~ 2A6981:9,189:A <A$(1)" 1. R@ADIATING @D@IPOLE" FA$(2)" 2. M@OVING @C@HARGE" PA$(3)" 3. F@REE @P@ARTICLE" ZA$(4)" 4. S@CH   9A12XX2elAX1,Y$evXXDX*e3eDX79e@e0Ne16368,0We768ge104,12:102203,56,O@RANGE,201,74,B@LUE,201,92,S@CREEN,201,156,@SYNC,215,166,@CHECK,208,176fd9,44,150,5,44,143md3vdDX8dN115dN13Ę48dA$,X,Yd&LC0d0M1(A$)d:A((A$,M,1))dDA64LC64:640dNA64AALCdXAX,Y ebA52,V272,Vccc02c252,123272,123Gc252,142272,142\c252,161272,161wc--------------STRINGScSCREEN TEST,46,30,R H G@OOD 1983,41,91,105,80,105,T@HIS SHOULD,56,128,@BE SQUARE.,59,138OdG@REEN,201,20,P@URPLE,201,38,W@HITE,----------BANDS bVO108719*bCC17bC4C5>bCNbVVOVO17_b252,V272,Vebkbrb5b"H2532712b,H,105H,179b6b@VO10614438bJ1bTVVOVO162b^252,V272,Vbhbr2b|VVO19VO352 c2,145,38,32,4,245,202,208,244,96.a(P768835:a2Q:P,Q@a<WaF------------LINES]aPdaZ3tadV019095an0,V279,V279,V10,V1axa 0,34,139,244,278aI15aHaH,0H,191H1,191H1,0aa7:0,191279,191b-h`(104)96Č506880` --------------SYNC`162,252,160,0,32,36,3,162,3,32,34,3,162,10,32,34,3,169,58,32,168,252,169,255,205,222,192,240,227,174,0,192,16,246a160,1,169,143,32,17,244,169,128,32,51,3,32,4,245,169,255,133,69,162,18,165,69,81,38M%@j@@6e$$ -o$,- ,-5o%<#$d-5 $$$36-6o$$< $$$M-'$$4 $$$666$$$$$$$$ -6 $$$-?$$$?M5#$JMb$$4 $$36v $$2$$4  v.$d v-' ~A!aQ1q I)iY9yE%eU5u M-m]=}C#cS3s K+k[;{G'gW7wO/o HxHZL6050.0&&x? 70&&PN 70&&(] C ؐb0HЎ0 d U  T@捽) (@?P??,̥i'&@0L_     %+*++1V^ѲQW\\ѥV]1UUUUPP1UVPWVѲ׳s+%%$%,2VVVVVVVVVV{]в׳~+*+*$%%+PVWЬ׳2\\{WV\V\\{++%++1VѲVWz\zV^1UUUUUP1UVPV\]^ѭץy%+%*$*%%%+,VW]Эѳ2WW\\WV\W\O+%+%++23вѭP{]\{]V]1UUUPPP1V2VVW{Ѳ+%%$$%+12VVVVVVVVVW\+%+%$*%&,VWЬѭ׳2\\\zzVzW\Эs+1PPPPP21V2VWWвѳ%*%$$$%,12VVVVVVVVV\{s*+%*%*%*+PVWѲ׳2WWWWVzWW]+*++%+,2]Э2z{]\V\1PPPPP21V2VVzЬѳs*+$%$$$%+P22VVVVVVVVVW]2Vzzz\WW\++%*+*+,2Wѳ2z{]]VW1PPPP221VPVz]^Э%***%%,P2P\VVVVVVV{]вѳ؀+%%%%$*%%1Uzввѳ2Vzzzz\WW{ѳy+*+*+%+1V|ѭ2z{{{VW$%+,2V2PVVVVVWVW\++%%%%+28Wѭ׳2Vz\\WWW\؀+%+*+%+1VW2\{]QW1PPP22222U\Vm%%**%,2P2PV\VV2WVV{ѳs+*+%%%++Uz{ѳ+*+12WЬ2\\]P{]1PP222222VV{]вѲѥO*%%$%%%,1VV2PVVVVV\V\{Ь~++%%%%%,1\]вѭ׳2V\\WWWW]c+%+%+%+P2ץ2\]]]{ѥQW1PP222222VV\{%%%%%\V{]Э*+*%%%++U\]Э׳2V\WWV{W{*+++*+OV]вѳ׳2\\P{]1PP22222PVW\~++%$$%+P2V2PVVVVV\V\вѳ++%*%%**,28\ѳ׳2V\WWWWW]ѥO+֥2W\{{2z1P222222VVW\Ь%*%%+PVVW22VVVVVzW\ѳy%%**%%%%+23WѲ׳2VWWVz{\y%+++12VвѲ2\\{{2z1P222222UVz{+%+%$$$$*,,PVz2PVVVVV%%%,23W2VWVzz{]++++OPWѭ׳2WW{{2z1P222222VV\{в׳s%*+$*11VVW\22VVVVVzW]*+*+1Pz{Ьвѳ2VWVzz{\s*+*+*+OU]PV\\׳22VVVVWV{]m+%**%%*%+,PzЬЭѲѳץ2VWVzz{{~++*++%O2WcвѲ׳2WW]]2z1P222222VV{]Ѳ%%$$*+1PVV{]Эѭ22VVVVWV\{+%**%2WW]]2z1P21V22VVV{ѳ%*%$$$$$%%,1UWV{ѭ׳22VVVV\V{ѳ++***%*+,P\{Эв2VWVz{\֥++++%O2VЭѲ׳2WW]]2z1P21V22PV\\s+%+1cЭ׳2VVzz{]s+++++PW2WW]]2z1P21V2PVVW]s%%*++UVVW]]Э׳~+%+%*22VVVVzW\ѥy+%*%+P2zѭѳ2VVzz{\в؀++*+++,P{Эѳ%+*%%%$$22VVVWV\ѥy+%%%%*++UW\вѲ׳2VVzz{]ѥO+*+++,2W2WW]]2z1P21V2PVV\Ѳm%%%$%$$%122VW\Ѳ׳s++$%%%$$22VVVVz\{+%**%%%%1P\]OPPWV{ЬѲѲ׳+*+%%$$22VVVWV{]ѳm+%+%%%%+,P\]Ѳ؀++%%%%2VVzz{{+++++,V]׳2WW]]2z{1P2222PVV{]ѳ%%*$$$*+,22V\{Ьѭրd11P2222VVV{Э~+%$$$$$%+P23V\ѲѲ׳%*+$%%$$$22VVV\W\+**+%$**+1P\]cвѳ+*+%%$%2VVz{\y+*++++U\2WW]2z1P2222PVz\Э׳+**%$$$                j9,189:A!j70,19182,1913j16368,0:A$Uj16299,0:230,64:290:INPUTOA$sj10:INTROFIC RADIATION (E.G. LIGHT).")i9,145:AYiA$" T@HE RADIATION IS POLARIZED WITH ITS"gi9,157:AiA$"@ELECTRIC FIELD VECTOR IN THE SAME PLANE"i9,167:AiA$"@AS THE ACCELERATION VECTOR."i9,177:AjA$" S@EE @AJP 49, 185 (1981)."LOSE TO THE CHARGE, THE LINES POINT"2hH9,103:A\hRA$"@AWAY FROM ITS CURRENT POSITION."jh\9,113:AhfA$" T@HE INTERVENING REGION OF TRANSVERSE"hp9,125:AhzA$"@FIELD MOVES OUT AT SPEED C; IT CONTAINS"h9,135:AiA$"@ELECTROMAGNET g9,51:AA$" C@THE"f9,9:ABfA$"@FIELD LINES POINT STRAIGHT OUT FROM IT."Of9,19:AfA$" I@F IT ACCELERATES, THEN AT A DISTANCE"f9,31:AfA$"@BEYOND CT (WHERE C IS SPEED OF LIGHT AND"f9,41:AgA$"@T IS TIME SINCE ACCELERATION) THE LINES"eA$(13)A$"K"`eA$"K"Ĺ143,255:A$" @V/C = @P@RESS @I@ OR @M.":490ie370oe}e9,191:Aee7135e4096e&10:INTROev-------------------INFOe:16302,0fA$" W@HEN THE CHARGE MOVES UNIFORMLY, d|N120#d(16384)128ī420)d2d370:dA$TdA$(27)Ĺ104,12:10kdA$"?"ī630:INFOdA$"0"Ĺ143,0:A$" @V/C = @U@SE @P@ADDLE(0).":490dA$"1"Ĺ143,1:A$" @V/C = @U@SE @P@ADDLE(1).":490BLOAD BMOVING".cBSAVE BMOVING,A$1000,L$900Hc"---------------INPUThc,A$"C@HOOSE: PADDLE (0)"vc69,151:Ac@A$"@PADDLE (1) (SMOOTHED)"cJ8,79:9,163:A4cTA$"@OR KEYBOARD (@K@)"c^8,29:9,175:A4ch16368,0cr95170,175A$" F@OR MORE INFORMATION, PRESS ?."4b9,101:A[bA$" F@OR SINGLE STEP, PRESS @S."ib9,113:AbA$" T@O GO BACK OR ESCAPE, PRESS @ESC."b9,125:AbA$" T@O PROCEED, PRESS @RETURN."b9,137:Ac(4096)169(6399)127ĺ(4)"GE MOVING ARBITRARILY IN"&ad9,47:AZanA$"@THE VERTICAL DIRECTION. (@N@INE PICTURES"gax9,57:A~aA$"@PER SECOND.)"a9,67:AaA$" (M@AGNETIC FIELD LINES ARE CIRCLES"a9,79:AaA$"@PERPENDICULAR TO THE SCREEN.)"a9,89:A&bV `(104)96Č506885` ------------------INTRO>`:3a`A$"M O V I N G C H A R G E"|`(8,43:9,9:A6981:A4`2A$"R H G@OOD 1983"`<8,85:9,23:A4`FA$" T@HIS PROGRAM DISPLAYS ELECTRIC FIELD"`P9,37:AaZA$"@LINES OF A CHAR     _?0` 0` 0` 0` 0`'&%$#"!  @ `P0pH(hX8xD$dT4t L,l\<|B"bR2r J*jZ:zF&fV6vN.n^>~A!aQ1q I)iY9yE%eU5u M-m]=}C#cS3s K+k[;{G'gW7wO/o  0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` 0` ?=?s=M?=Ms=T?=Ts=_?=_s=i?=is=s?=ss=~?=~s=?=s=?=s=?=sM((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                        M=s=?=s=?=s=?=~s=~?=ss=s?=is=i?=_s=_?=Ts=T?=Ms=M?=?s!/:DLT\cjqx~Ԩ +@YxNmȾmN $*06CGKNRUXZ]_bdfhikmnpqrtuvwx1ƌ&'ɍSL0ɛ`ŋL0i'Յ&&'i')0 ''>& e4F  F  报FiIɥid'Յ&&i'i')0 LL0'@&@&& &&& & kg}}PI0p'@&@&& &&& &  LP UT 榏0, &*&!iejũ*T~LP plg}}PI0p'@&@&& &&& & plg}}PI0p _0LBiUi T R R RLZVRNJFB>`n@ V< Vd V V V V= Ve V V V V@ VnX`  eieP I0pƍ     EEDS"9,177:ADA$"@WAVE VELOCITY OVER MOST OF THE PACKET."R(9,187:Ad216368,0:A$l<20DX = 1."9,133:AIA$" N@OTE THAT FOR A GIVEN @T@, WAVE LENGTH"W9,145:AA$"@DECREASES AS @X@ INCREASES; THE HIGHER-"9,155:AA$"@MOMENTUM COMPONENTS ARRIVE FIRST."9,165:A A$" I@F @P > DP@ THEN GROUP VELOCITY EXCBECOMES"t9,93:AI~A$"DP * DX = @H/4@]@ = 1/2 FOR THE @G@AUSSIAN"W9,103:AA$"@PACKET AT @T@ = 0; @DP@ AND @DX@ ARE THE"9,113:AA$"@MOMENTUM AND POSITION UNCERTAINTIES."9,123:AA$"F@OR EXAMPLE, IF @DP@ = .5, THEN @A#A$"@MOMENTUM AND @T@ TIME."0$9,49:Ac.A$" T@HE AVERAGE DE @B@ROGLIE WAVELENGTH IS"p89,61:ABA$"@H/@P@; FOR EXAMPLE, WHEN @P@ = 3 IT IS 2.1"L9,71:AVA$"@UNITS IN @X."`9,81:AjA$" T@HE @U@NCERTAINTY @P@RINCIPLE :16302,0:3@A$" I@N THIS MODEL, @P@LANCK'S CONSTANT IS"S9,7:A6981:AwA$"@H = 2@]@, AND MASS M = 1."9,17:AA$" T@HE POSITION OF THE CENTER OF THE"9,29:AA$"@PACKET IS @X = PT@ (SINCE M = 1), @P@ BEING"9,39:----------CALCH24:26)RSPP20.017\DDPDP2nfDP0ē0,79256,79:0,154256,154:21:"ANY";:350pDP2TM4:S15:920zS110P2TM7:930TM12.7P:930P2TM11.3P4096:$1000350-------------INFO)"0"19)"5"24)"X AXIS"33)"10";1X1025120BX,156:X,81H]130,157:130,82x28230,83:28230,158A0Ĕ82122,55:5129,55 A63Ĕ73120,55:13129,5531139,55 31121,130*42129,130431139,130>-----)B$"I"B$"X"B$"?"A$B$:410@DB$"0"B$"9"ĺ(7);:560MNA$A$B$XX(8);ebDP(A$)rlDP", ";v17)"T = 0 ";:T0---------------GRID:20,155256,155256,800,80330,1030,15821:1 5A$"?"ī950.A$"0"A$"6"ĺ(7);:370:P(A$)KP", DP = ";SA$A$(27)A$(8)A$"I"A$"X"A$"?"ī410A$(13)ī620A$"."(A$"0"A$"2")ĺ(7);:500A$"0"A$"2"ī610&".";0B$!:B$(27)B$(8SP20P ^--------------INPUT(hA03r24:1J|"P = ";:16368,0RA$qA$(27)D30Ĺ104,12:10A$(27)ī20A$"I"A63:26:A$;:370A$"K"Ė26:A$;:7132:370A$"X"Ĺ16299,0:A$:16300,0:370A$(13)ī490ESC."9,135:A:A$" T@O PROCEED, PRESS @RETURN."H"9,147:Al,A$" L@IMITS: @P = 6, DP = 2."z69,159:A@DT0ĺ(4)"BLOAD BFREE":A$1000,L$B00JA0:D0:D10:D20:D30:D40:DP.5:DT.05:P3:PT0:T0:TD0:TM0TS15:S250:S373: F@OR MORE INFORMATION, PRESS ?.".9,89:AUA$" F@OR SINGLE STEP, PRESS @S."c9,101:AA$" T@O KEEP A PICTURE, PRESS @K."9,113:AA$" T@O SEE THE KEPT PICTURE, PRESS @X."9,123:AA$" T@O GO BACK OR ESCAPE, PRESS @"@DENSITY AND THE REAL PART OF THE PROB-"6 n9,45:Ag xA$"@ABILITY AMPLITUDE OF A @G@AUSSIAN WAVE"t 9,55:A A$"@PACKET IN ONE DIMENSION. (7 FRAMES/SEC.)" 9,65:A A$" F@OR THE IMAGINARY PART, PRESS @I@ FIRST." 9,77:A!A$" m  (104)96Č50688* 28665:$6FF9D ---------------INTROQ :::3y (A$" F R E E P A R T I C L E" 29,7:A6981:A <A$"R H G@OOD 1983" F8,77:9,21:A4 PA$" T@HIS PROGRAM DISPLAYS THE PROBABILITY" Z9,35:A) dA$      37;??<:86420/.-,+*))(('''&&&&%%%%$$$$$$$###########"""""""""""""""""""!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ~xsmga\VPJD>81+%  $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP %+18>DJPV\agmsx~  !!"#$$%&''()*++,-./01123456789:;<=>?@ABCDEFGHIJKLMNOQRSTUVWYZ[\]_`abdefgijklnoprstvwyz{}~}{zxwusrpomkjhgedba_^\[YXVUTRQPNMLJIHFEDCB@?>=<;9876543210/.-,+**)('&%%$#"!!  ~}||{zyxwvuutsrqponmlkjihgedcba`_^\[ZYXVUTSQPOMLKIHGEDCA@>=;:976431/.,+)(&$#!  !$%')+,.01245689:<=>?@ABCDEFHHIJKLMNOPQRSTTUVWXXYZ[\\]^_``abbcdeefgghiijkllmmnoopqqrssttuvvwxxyyzz{||}}~~pH $ . H6ɛK U TLpH p3 祠pH +pV L'`E`EGfEeGjfEeGjfEeGjfEeGjfEeGjfEeGjfEeGjfEeGjfE`0Q&&JF0@0ejq5qqP&@'0Q&&qP&@'0Q&&Hejr5rr&@'0Q&&r&@'0Q&&00襋r5rr&@'0Q&&r&@'0Q&&00LL00捠e8刐 #Iip pJfEE*܈셎It 8<8刅F eFeF0E* 0JfEJfE pJfEJfEJfEJEjeF ) JJ0IiiPq5qqP&@'0Q&&qP&@' Pqrp 憏p: 憅0pH pr  憈pH p  !p]  憉 8叅 ꩓  p f !Ji@E 멓 f꩘ ƝE pk p + e L     #n 7139:16301,0:P.1 TO P.21n9415,10>n858,10gn(18,20:1415,20:422,20:6936,20vn2Y11549n<0,Y0,Y41,Y41,YnFnPS$""ī1480nZ---------------NEW V(X)ndW$"4"Č5120:1470nnX1279nxUSER'S V(X)o"A":X1:KE3394:DU0:E0:Y0:LL0:M5:MD0rmS1157:S2100:U0:U120:V0:VO0:C1144:XM279:H1200:YC79:YM158mW$((38399)):95FFmV(XM)mW$". HERE IS THE RIGHT HALF OF THE WELL.":m----------------GRIDm3mS$"X"đ:1310nAN EVEN FUNCTION (INITIAL @U@' = 0) THEN"7lV9,136:Ael`A$"@THE WELLS ATTRACT EACH OTHER, SINCE"slj9,146:AltA$"E@ INCREASES WITH SEPARATION @2S."l~9,156:Al149,158:1410,158ll-----------------INITl34816:$8800+mA$L):"k9,84:A0kA$"1411 V(X) = 80:S = 60"=k9,95:AjkA$"1412 IF ABS(X-S) < 40 THEN V(X) = 0"xk9,105:Ak$A$"@WHICH IS THE RIGHT HALF OF A PAIR OF"k.9,116:Ak8A$"@WELLS SHARING ONE PARTICLE. @I@F @U@ IS"kB9,126:A)lLA$"@A0jA$" X@ IS AN INTEGER BETWEEN 0 AND 279."=j9,42:AnjA$"V(X)@ IS 0 AT THE BOTTOM AND 158 AT THE"{j9,52:AjA$"@TOP OF THE PICTURE; BUT IT MAY EXCEED"j9,62:AjA$"@THESE VALUES."j9,72:AkA$" E@XAMPLE (MOLECULAR MODEī770i4A$"4"ī11801i>A$"5"ī2920:PAGE 5NiH-----------------PAGE 4WiR:3yi\A$"4: YOU CONSTRUCT A WELL."if8,35:9,6:A6981:A4ipA$"P@ROGRAM YOUR @V(X)@ ON LINES 1410-1420."iz9,20:AiA$"T@HEN TYPE @'RUN 1180'."j9,30:4 - 3394/X;"h9,165:A=hA$"4: Y@OU CONSTRUCT A WELL;"Kh9,178:AmhA$"5: D@ISCUSSION OF UNITS."{h9,191:Ah16368,0::A$h A$(27)Ĺ16300,0:230,32:360hA$"?"ī2510:PAGE 3h A$(13)A$"1":38399,49i*A$"1"A$"5"4:AgvA$" C@HOOSE:"&g9,116:AYgA$"1: S@QUARE WELL, @V(X)@ = 0 FOR @X < 157,"gg9,129:AgA$"@100 FOR @X >= 157;"g8,150:9,139:A4gA$"2: H@ARMONIC OSCILLATOR, @V(X) = X^/200;"g9,152:A hA$"3: C@OULOMB WELL, @V(X) = 14PPROXIMATION."f9,56:AEf&A$" T@O SUPERPOSE PLOTS, PRESS @S."Rf09,68:Af:A$" T@O REVIEW PREVIOUS VALUES, PRESS @T."fD9,80:AfNA$" F@OR MORE INFORMATION, PRESS ?."fX9,92:AfbA$" T@O ESCAPE OR GO BACK, PRESS @ESC."gl9,10DEL"e9,16:ACeA$"@CANNOT ACHIEVE PERFECT ACCURACY, SO OUR"Pe9,26:AeA$"U@ ULTIMATELY DIVERGES UP OR DOWN. @W@E"e9,36:AeA$"@BRACKET THE EXACT NTH ENERGY LEVEL @E "e9,46:Ae14250,48:14251,48fA$"@BY SUCCESSIVE A(4)"BLOAD BSCHR"dh:21.dr16368,0:A$Hd|A$(27)Ĺ104,12:10bdA$"?"ī2510:PAGE 3d-----------------PAGE 2d:3dA$" F@OR A BOUND PARTICLE @U@ SHOULD APPROACH"d9,6:A6981:AeA$"@THE @X@-AXIS ASYMPTOTICALLY. @T@HE MO9,140:AN$"2"N$"3"ī7904HN(N$)>RN"."Y\-----------------P,G,_fpK0ĺ"THE FORCE IS PROPORTIONAL TO R^P."z"DEFAULT P="P$"."18)"SET P=";AM10:J51990:GET DIGITS A$" "P$A$P(P$)P$"."A$A$(27)Ĺ104,12:107A$"?"ī2310:INFOKA$(13)ī710h-----------------SET N,::"CHOOSE 2: TWO BODIES;"11)"3: THREE BODIES: "; 16368,0N$ N$(27)ī370:INIT*N$"?"ī2310:INFO4N$(13)"FOR FURTHER INFORMATION, PRESS ?.":C"TO ERASE, PRESS E.":c"(FOR SILENCE PRESS S.)":"TO GO BACK OR ESCAPE, PRESS ESC.":"TO DEFAULT OR PROCEED, PRESS RETURN.";(4096)160(5476)234ĺ:(4)"BLOAD BTHREE"16368,0":W$(4)" 0"&0---------------INTRO1:::3^D"T H R E E B O D I E S I N 3 - D"xN:12)"RH GOOD 1983"X:b"THIS PROGRAM PLOTS ORBITS OF TWO OR"l"THREE BODIES MOVING UNDER THEIR"v"MUTUAL GRAVITATIONAL ATTRACTION.":'(2)" 40"1X$(2)" 70":Y$(2)"-70":Z$(2)" 10"VU$(2)" 4":V$(2)" 4":W$(2)" 2"fM$(3)" 10"X$(3)" 83":Y$(3)" 0":Z$(3)" 0"U$(3)" 0":V$(3)" 10":W$(3)" 0"M$(4)" 0"X$(4)" 73":Y$(4)" 0":Z$(4)" 0" &U$(4)" 0":V$(4)" 0$7FF7290A$"A"-YS.9:Y-SCALEFXC139:YC91:CENTER|T10:X10:X20:X30:Y10:Y20:Y30:Z10:Z20:Z30DT0:DV0:K0:M20:M30:N0:P0:R10:R20:R30:T0:U20:U30:V20:V30:W20:W30:MM0N2:BODIESP$"-2":POWER M$ I,32 0XCX3,YCZ3YS*I,64230L"-----------------ERRV,7126k6(218)190ī200@(218)210ī220J(218)240ī250T(218)4ī270^(218)150ī160h(218)170ī180r|-----------------INIT32759:31:T310T30 n3) xT148185,191W T10ĔT248178,191:T20ĔT348171,191^ 5u 27XCX1,YCY1YS I,32 27XCX1,YCZ1YS 6 0XCX2,YCZ2YS I,64 0XCX2,YCY2YS N$"2"ī30 70XCX3,YCY3YS (104)96Č50688' 380:INITD --------------CALCULATEN 4096m ((JN)128ī1810:KEYPRESSz 2T0ī30 <---------------PLOT F4 PT148185,191 ZT1T11 dT110T10:T248178,191:T2T21:T210T20:T348171,191:T3T         멘 驓  +렀  fꠀ Ɲ +렀 Ɲ    +L砀T +렀 ꠀ[ 頀# 砀# +렀 ꠀ[ 頀8 砀8 +렀 ꠀ[ 頀M 砀M +0* ꠀw  !렀# ꠀp 驓  +렀? ꠀw  !렀8 ꠀp 驓 1 +렀T ꠀw  !렀M ꠀp 驓 F +00L`  !렀* ꠀ  驓 砀 砀 +렀? ꠀ8   !렀? ꠀ1  驓 砀 砀 +렀T ꠀM   !렀T ꠀF  驓 砀 砀 +렀 ꠀ[ 頀* 砀* +렀 ꠀ[ 頀? 砀? +렀 ꠀ[ 頀T F  頀 砀 +LwL  頀w f  +렀# ꠀ*  頀 砀 +렀8 ꠀ?  頀 砀 +렀M ꠀT  頀 砀 +렀   f +렀  頀p f  +렀* ꠀ# !렀T ꠀF 碱   +렀[  + ꠀb 頀[ +렀  0 砀[ 砀[ +넝 +렀[  砀i  +렀   f +렀# ꠀ  頀 砀 +렀8 ꠀ1  頀 砀 +렀M ꠀ# ꠀ 멘  !렀8 ꠀ1 멘 驓 !렀M ꠀF 碣  +L#* ꠀ# 멘  !렀? ꠀ8 멘 驓 !렀T ꠀM 碪   f  +렀* ꠀ 멘  !렀? ꠀ1 멘 驓  178:An16368,0:A$)nA$"?"ī440MnA$"T"Ĺ16300,0:230,32:380gn---------------INFOTmn nA$" T@HE PHENOMENON: IN A ROUND TRIP AT"n9,9:An(A$"@HIGH SPEED, A TRAVELING TWIN AGES LESS"n29,19:A o<A$"@THAN HIS TERRESTR THE TOP, CLOCKS RUN FAST, AND".m9,136:AZmA$"@CONSEQUENTLY COORDINATE SPEED MAY"hm9,146:A|mA$"@EXCEED C."m9,156:AmA$" I@N THE ACCELERATED FRAME, A FAST-"m9,168:AmA$"@MOVING PARTICLE FOLLOWS A CIRCULAR ARC."n9,@S@EE @AJP 50, 232 (1982).)")l.9,92:AA$" F@OR SINGLE STEP, PRESS @S."iH9,178:AiR16368,0:A$i\A$"T"ī1280ifA$"G"Ĺ16300,0:230,32:380 jp---------Y A"h9,104:ADhA$"@FACTOR OF @\@, REGARDLESS OF DIRECTION."Rh9,114:AhA$"(T@HUS THE DISTANCE BETWEEN THE DOTS"h9,124:AhA$"@IS PROPORTIONAL TO @[\.)"h9,134:AhA$" L@ORENTZ CONTRACTION: THE CLOCK SHRINKS"i9,146:AREASES, THEN @[@ MAY"#gX9,72:A;gb2481,74:2482,74Ugl25212,74:25213,74ygvA$"@DECREASE CORRESPONDINGLY."g9,82:AgA$" T@IME DILATION: THE TIME BETWEEN CLICKS"g9,94:Ag14,9699,96hA$"@OF THE MOVING CLOCK INCREASES B0fA$"@OR Y COMPONENT OF @[\ @IS INCREMENTED"=f9,30:AOfA$"@BY +.1."\f9,40:Amf21,4026,40f&A$" I@N AN INERTIAL FRAME OF REFERENCE,"f09,52:Af:A$"@V CANNOT EXCEED C. @T@HUS IF THE X"fD9,62:AgNA$"@COMPONENT @[@ INCA$eA$(27)Ĺ104,12:100eA$(13)ī1680AeA$"G"ī880SeA$"T"ī1280eeA$"?"ī380e ---------------INFO?eeA$" B@Y PRESSING @I, J, K, M, @ONE APPLIES"e9,10:AeA$"@A FIXED IMPULSE TO THE CLOCK: THE X"f9,20:A @T."d,9,143:AAd6A$" F@OR FURTHER INFORMATION, PRESS ?."Od@9,155:A}dJA$" T@O GO BACK OR ESCAPE, PRESS @ESC."dT9,167:Ad^A$" T@O PROCEED, PRESS @RETURN."dh9,179:Adr(4096)169(6641)54ĺ(4)"BLOAD BREL"e|16368,0:IME INTERVALS."c9,89:ADcA$" W@E EMPLOY V/C = @[@ (BETA)"Rc9,103:A|cA$" @AND 1/^1-@[^ = \@ (GAMMA)."c9,117:Ac106,10876,109cA$" F@OR ACCELERATED FRAME, PRESS @G."c9,131:Ad"A$" F@OR @T@WIN @P@ARADOX, PRESSN IN RAPID MOTION." b9,47:APbA$" T@HE CLOCK MOVES AT SPEED V WHICH IS"]b9,59:AbA$"@NOT NECESSARILY SMALL COMPARED TO C, THE"b9,69:AbA$"@SPEED OF LIGHT. @I@T PRODUCES DOTS AND"b9,79:AcA$"@CLICKS AT UNIFORM PROPER T:TM100"a(----------------INTRO5a2:16302,0:3ea<A$" R E L A T I V I S T I C M O T I O N"qaF9,9:AaPA$"R H G@OOD 1984"aZ8,84:9,23:A4adA$" T@HIS PROGRAM ILLUSTRATES TIME DILATION"an9,37:AbxA$"@AND @L@ORENTZ CONTRACTIOE`(104)96Č50688*` 36864:$9000`A$"A":A6981:BX0:BYBX:PX.0001:PYPX:TC0:G1:X153:Y94:Z8445975:G0G:X0X:Y0Y:Z0ZaG11.2:G21.7:G32.5:G44:T1.22:T2.67:T31.5:T44.5:DP.1:YE160:XM279:YM191:RO.005:FF.027:GH1:TBTC:DT.14!! ! ! ! ! !!!!!!!!!  2$'%'%'%'%'%g%g56666 <,<<,<,< -> >66;6<,,'%g-> 5o> >6;6'<><,,< 5%5%->w366>$$$,<,<,<,,566636$%?,%?'-<<<<,<'%'%g%%5%5%66?o ><<<<,<'%g%g%5%5%566oM<,'%'%'%'%g%g%5666o<,'%''%'%g%g5->66o2'''''%'%'%g5%5%vo3''7<<$'%5 ,.,.6?oMJJJJӤ 'JJJ`&EFI)%0Q&&e)j*0JI0`'0`0 I0ꩁ(0.',"&,Ci8i#H&ii&hif&i'`'i,&i,&iPII&if&<<<<,'%'%g%g%%5 ,0  ,ԐԠ `, `'І&FI`G&&Fȱ&F &,3Ɏ0 `L  # 4   扥i`   )%0&& BJJJ`A G: G &FIJK IJK $0b3 ꠐ fꠐ  !렐, 멓 砐, + #  !렐 砐 + # /LE%0Q&&`E''%0Q&& 0'Ѕ&&&ȑ& )𠐩 ꠐ, ebM0 ꠐ  ꠐI f 렐 0/  $ @ ` IIIJL3 ꠐk 1r "y  K JJL p& E)$p ,  ,3 ꠐ 碁  pI`GF&F E&,L$p"РSP'&E` {0. 4.  扥iƈ` ꠐ  !렐% ꠐ%   !Ji@H 멓 f꩘ ƝhJ점3 +렐 fꠐ +렐3 ꠐ% fꠐ +$0} 杠 預: 砐$ 0: +렐 杠  !렐A $0 0% 0A +L] GV G &Fefg efg  $P[$0.3 杠3 砐O Ɲ 預% 砐% +렐A 杠A 砐] Ɲ 祝8 +3OL UT Emɍɛ`I  % E ꠐE 砐%E ꠐE 砐E +L[ IP&I` ''Q&&$P6g Wm :g Wm :g Wm :`"" " " " " """""