' +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 $0x˵*̵+뷮浭õL H8`BĵC µLµBõĵܭɵBʵCȱBȱB BȱBȌµõĵĵµ ˵̵ LLҦ  `   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- ( 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 (ȴ) ȴ 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`՚Ъժժ>ժp?ճժժت>,<""<""""""غժժ"<<""","<<<<A""<,< "<<"<"<֪"<<<<""<"<"<"< "<><" """<ոժժЪ2"*""""""""" ""ժ֊ժժ"""""$"2""""$ Y"""""""$""2$"<"""" ""$""*"""ժ6"<"""<"""""լժժк֪᪍">"*<"" """ """"ժ`Վժժ>>""">"""<"">>E ""2""""""""">"<"">">>"<*<""ժ*<""><"" """">ժЎժǪ"""* "" """"""" ղժժ֪z#??    !٠ "̠ Ԡéҭ àĠĠàŭĠˠ٠٠ũ ٠ԩ ٳϮŠ!͠àԠ͠àؠӠԩ͠à֠ӠةĠà : CLEAR KEYBOARD3 PAUSE1600:(16384)128ĂR 16368,0: CLEAR KEYBOARDm SOT64: START OF TEXTz 104,SOT 256SOT,0 (4);"CATALOG" . d) i230,32: SET HPAGE TO PAGE 1G n16300,0: SELECT PAGE 1j s16302,0: FULL PAGE GRAPHICS x62450: CLEAR PAGE 1 16297,0: HRES GRAPHICS 16304,0: DISPLAY PAGE 1 (4);"BLOAD LOGO.PAGE,A$2000": LOAD PAGE 1 16368,0RTED BY THE NATIONAL SCIENCE FOUNDATION (NSF), GRANT NO. SED 79-19025.  ANY OPINIONS, FINDINGS, CONCLUSIONS, OR RECOMMENDA- TIONS EXPRESSED OR IMPLIED ARE THOSE OF THE AUTHOR AND DO NOT NECESSARILY REFLECT THE VIEWS OF THE NSFFOR FURTHER INFORMATION ABOUT THIS PROGRAM CONTACT: CONDUIT P.O. BOX 388, IOWA CITY, IOWA 52244 (319) 353-5789  ORDER NUMBER: PHY354A  LAST REVISION 12/81 BY HAROLD PETERS FOR CONDUIT.\  DISTRIBUTION OF THESE MATERIALS SUPPO***PHY354***B INTRODUCTORY MECHANICS (C)1981 CONDUIT THIS SET OF PROGRAMS, WHETHER OR NOT MODIFIED, IS PROTECTED BY COPYRIGHT. THEYMAY NOT BE SOLD OR LENT TO UNAUTHORIZED PERSONS WITHOUTTHE WRITTEN PERMISSION OF THE AUTHOR.{      ժՆժժ"""""""> """"E<"*""""""""*"" ">""""" * ""ժլ* """ "" """*"ժՁժ":6 "<խժՃժ":<":"":":":<":<Y"""&"":<"<:"*< <<"::"<"6<ժխ"" *:: ժעժ "խժ՚תǪ$ "" "A "" """"" 6"" տժ" 6ժժղժժ ժ՚ֺ  " >""> "" `ժ" "           c T0X1V0"D.1.XXVD:$VVXDD.TTDM8T,X[BT31050a T.TTD 8H(T),V(X)& BT31050,  A.  :3-HLOW0:HHIGH4:VLOW1:VHIGH1VLEFT10:RIGHT270:UPPER180:LOWER32(H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW)2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW))T0X1V0D.1XXVD$VVXD  V;24);"D=";D; XXVD& $VVXD0 .TTDA 8H(T),V(X) A  REPEAT THE CALCULATIONS UNLESS TIME LIMIT EXCEEDED BTTLIMIT1050   SET INITIAL CONDITIONS FOR OSCILLATOR > T0F X1N V0W D.1  DO THE CALCULATIONS AND OUTPUT  5:21:"HARMONIC OSCILLATOR -- "; "X VS T" 1:23:"INITIALLY: "; 12);"X=";X;18);"V=";# FH(0),V(VLOW)H(0),V(VHIGH)V O DRAW TIC MARKS ON HORIZONTAL AXIS h PIHLOWHHIGH ZH(I),V(0)H(I),V(0)3 dI m DRAW TIC MARKS ON VERTICAL AXIS nIVLOWVHIGH.25 xH(0),V(I)H(0)3,V(I) I6 R180:LOWER40J ' DEFINE TRANSFORMATION FUNCTIONS FOR PLOTTING } (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES <H(HLOW),V(0)H(HHIGH),V(0) HARM OSC (X VS T) 7 SET FINAL TIME ETLIMIT15f  INITIALIZE GRAPHICS o :3 SET ENDPOINTS FOR VARIABLES HLOW0:HHIGHTLIMIT:VLOW1:VHIGH1 SET WINDOW BOUNDARIES  LEFT10:RIGHT270:UPPE    );"D=";D; XXVD! $VVXD+ .TTD< 8H(X),V(V) A REPEAT THE CALCULATIONS UNLESS TIME LIMIT EXCEEDED BTTLIMIT1050  0 I8  SET INITIAL CONDITIONS FOR OSCILLATOR @ T0H X1P V0Y D.1  DO THE CALCULATIONS AND OUTPUT  5:21:"HARMONIC OSCILLATOR -- "; "V VS X" 1:23:"INITIALLY: "; 12);"X=";X;18);"V=";V;24GH),V(0)- FH(0),V(VLOW)H(0),V(VHIGH)\ O DRAW TIC MARKS ON HORIZONTAL AXIS r PIHLOWHHIGH.25 ZH(I),V(0)H(I),V(0)3 dI m DRAW TIC MARKS ON VERTICAL AXIS nIVLOWVHIGH.25 xH(0),V(I)H(0)3,V(I)T270:UPPER180:LOWER40U ' DEFINE TRANSFORMATION FUNCTIONS FOR PLOTTING (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES <H(HLOW),V(0)H(HHI, HARMONIC OSCILLATOR -- V VS X H SET FINAL TIME UTLIMIT6v  INITIALIZE GRAPHICS  :3 SET ENDPOINTS FOR VARIABLES HLOW1:HHIGH1:VLOW1:VHIGH1 SET WINDOW BOUNDARIES  LEFT10:RIGH    NITIALLY: ";B 12);"X=";X;18);"V=";V;24);"D=";D;30);"C=";C;N XXVD` $VV(XCV)Dj .TTD{ 8H(T),V(X) A REPEAT THE CALCULATIONS UNLESS TIME LIMIT EXCEEDED BTTLIMIT1050   SET INITIAL CONDITIONS FOR OSCILLATOR 6 T0> X1F V0O D.1W C0a 1042v T0:X1:V0:C.5 1042   DO THE CALCULATIONS AND OUTPUT  5:21:"HARMONIC OSCILLATOR -- "; "X VS T" 1:23:"I0)& FH(0),V(VLOW)H(0),V(VHIGH)U O DRAW TIC MARKS ON HORIZONTAL AXIS g PIHLOWHHIGH ZH(I),V(0)H(I),V(0)3 dI m DRAW TIC MARKS ON VERTICAL AXIS nIVLOWVHIGH.25 xH(0),V(I)H(0)3,V(I) I. UPPER180:LOWER40N ' DEFINE TRANSFORMATION FUNCTIONS FOR PLOTTING (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES  <H(HLOW),V(0)H(HHIGH),V(!DAMPED HARMONIC OSCILLATOR= SET FINAL TIME KTLIMIT15l  INITIALIZE GRAPHICS u :3 SET ENDPOINTS FOR VARIABLES HLOW0:HHIGHTLIMIT:VLOW1:VHIGH1 SET WINDOW BOUNDARIES  LEFT10:RIGHT270:    D=";D; AABXXXD$ VVAD0 $XXVD: .TTDK 8H(T),V(X) A REPEAT THE CALCULATIONS UNLESS TIME LIMIT EXCEEDED BTTLIMIT1050  MONDITIONS FOR OSCILLATOR " T0* X12 V0: A0B B1L D.01|  DO THE CALCULATIONS AND OUTPUT  5:21:"THE QUARTIC FORCE -- "; "X VS T" 1:23:"INITIALLY: "; 12);"X=";X;18);"V=";V;24);"A=";A;30);"V(VLOW)H(0),V(VHIGH)F O DRAW TIC MARKS ON HORIZONTAL AXIS X PIHLOWHHIGHw ZH(I),V(0)H(I),V(0)3~ dI m DRAW TIC MARKS ON VERTICAL AXIS nIVLOWVHIGH xH(0),V(I)H(0)3,V(I) I  SET INITIAL C40? ' DEFINE TRANSFORMATION FUNCTIONS FOR PLOTTING r (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES <H(HLOW),V(0)H(HHIGH),V(0) FH(0),ª QUARTIC+ SET FINAL TIME 9TLIMIT10Z  INITIALIZE GRAPHICS c :3 SET ENDPOINTS FOR VARIABLES HLOW0:HHIGHTLIMIT:VLOW20:VHIGH10 SET WINDOW BOUNDARIES  LEFT10:RIGHT270:UPPER180:LOWER    1:24:15);"F=";F;21);"E=";E;; VV(XCVF(ET))DG $XXVDQ .TTDb 8H(T),V(X)z :H(T),V(F(ET)) A REPEAT THE CALCULATIONS UNLESS TIME LIMIT EXCEEDED BTTLIMIT1050  LATOR  T0 X0 V0& C1. F16 E1? D.1f  DO THE CALCULATIONS AND OUTPUT l  1:21:"FORCED, DAMPED OSC -- "; "X AND FORCE VS T" 1:23:"INITIALLY: "; 12);"X=";X;18);"V=";V;24);"C=";C;30);"D=";D; H(0),V(VHIGH): O DRAW TIC MARKS ON HORIZONTAL AXIS L PIHLOWHHIGHk ZH(I),V(0)H(I),V(0)3r dI m DRAW TIC MARKS ON VERTICAL AXIS nIVLOWVHIGH.25 xH(0),V(I)H(0)3,V(I) I  SET INITIAL CONDITIONS FOR OSCILLOWER40= ' DEFINE TRANSFORMATION FUNCTIONS FOR PLOTTING p (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES <H(HLOW),V(0)H(HHIGH),V(0) FH(0),V(VLOW)+ FORCED, DAMPED HARM. OSCILLATOR B SET FINAL TIME PTLIMIT15l INITIALIZE GRAPHICS u :3 SET ENDPOINTS FOR VARIABLES HLOW0:HHIGHTLIMIT:VLOW1:VHIGH1 SET WINDOW BOUNDARIES  LEFT10:RIGHT270:UPPER180:     V1V1X1D V2V2X2D, $X1X1V1D; )X2X2V2DE .TTDX 8H(X1),V(X2) A REPEAT THE CALCULATIONS UNLESS TIME LIMIT EXCEEDED BTTLIMIT1050  ET0 X11 X20 V1.3* V21.33 D.1Z  DO THE CALCULATIONS AND OUTPUT `  5:21:"HOOKE'S LAW IN TWO DIMENSIONS"; 1:23:"INITIALLY: "; 12);"X1=";X1;18);"X1=";X1;24);"D=";D; 1:24:15);"V1=";V1;21);"V2=";V2;,V(VHIGH)4 O DRAW TIC MARKS ON HORIZONTAL AXIS F PIHLOWHHIGHe ZH(I),V(0)H(I),V(0)3l dI m DRAW TIC MARKS ON VERTICAL AXIS nIVLOWVHIGH xH(0),V(I)H(0)3,V(I) I  SET INITIAL CONDITIONS FOR OSCILLATOR  7 ' DEFINE TRANSFORMATION FUNCTIONS FOR PLOTTING j (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES <H(HLOW),V(0)H(HHIGH),V(0) FH(0),V(VLOW)H(0)( HOOKE'S LAW IN TWO DIMENSIONS ? SET FINAL TIME LTLIMIT6h INITIALIZE GRAPHICS q :3 SET ENDPOINTS FOR VARIABLES HLOW2:HHIGH2:VLOW2:VHIGH2 SET WINDOW BOUNDARIES LEFT50:RIGHT230:UPPER180:LOWER40    WXVD .TTD# 8H(T),V(X)4 :H(T),V(V)E <H(T),V(W) A REPEAT THE CALCULATIONS UNLESS TIME LIMIT EXCEEDED BTTLIMIT1050  IOR T0 X1 V0# W0- D.01T  DO THE CALCULATIONS AND OUTPUT Z z 4:21:"HARMONIC OSC -- "; "X, V, WORK VS T" 1:23:"INITIALLY: "; 12);"X=";X;18);"V=";V;24);"W=";W;30);"D=";D; XXVD VVXD $WH(0),V(VHIGH)8 O DRAW TIC MARKS ON HORIZONTAL AXIS J PIHLOWHHIGHi ZH(I),V(0)H(I),V(0)3p dI m DRAW TIC MARKS ON VERTICAL AXIS nIVLOWVHIGH.25 xH(0),V(I)H(0)3,V(I) I  SET INITIAL CONDITIONS FOR OSCILLATER40; ' DEFINE TRANSFORMATION FUNCTIONS FOR PLOTTING n (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES <H(HLOW),V(0)H(HHIGH),V(0) FH(0),V(VLOW)œ( WORK IN SIMPLE HARMONIC MOTION ? SET FINAL TIME MTLIMIT15i INITIALIZE GRAPHICS r :3 SET ENDPOINTS FOR VARIABLES HLOW0:HHIGHTLIMIT:VLOW1:VHIGH1 SET WINDOW BOUNDARIES  LEFT10:RIGHT270:UPPER180:LOW    H(T),V(W) >H(T),V(E)U AREPEAT THE CALCULATIONS UNLESS TIME LIMIT EXCEEDEDh BTTLIMIT1050n  LW0 D.011 DO THE CALCULATIONS AND OUTPUT7 W 4:21:"HARMONIC OSC -- ";n "WORK, K.E. VS T" 1:23:"INITIALLY: "; 12);"X=";X;18);"V=";V;24);"W=";W;30);"D=";D; XXVD VVXD $WWXVD )EVV2 .TTD < TIC MARKS ON HORIZONTAL AXIS/ PIHLOWHHIGHN ZH(I),V(0)H(I),V(0)3U dI{ m DRAW TIC MARKS ON VERTICAL AXIS nIVLOWVHIGH.25 xH(0),V(I)H(0)3,V(I) I  SET INITIAL CONDITIONS FOR OSCILLATOR T0 X1 V0 RANSFORMATION FUNCTIONS FOR PLOTTINGW (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES <H(HLOW),V(0)H(HHIGH),V(0) FH(0),V(VLOW)H(0),V(VHIGH) O DRAWpWORK & KINETIC ENERGY1 SET FINAL TIME?TLIMIT10Y INITIALIZE GRAPHICSb :3 SET ENDPOINTS FOR VARIABLESHLOW0:HHIGHTLIMIT:VLOW0:VHIGH.6 SET WINDOW BOUNDARIESLEFT10:RIGHT270:UPPER180:LOWER40$ ' DEFINE T    4I-= DRAW TIC MARKS ON VERTICAL AXIS ?>IVLOWVHIGH^HH(0),V(I)H(0)3,V(I)eRIk\ H01220V191V01220%H,V8TTLIMIT1110>[  DRAW COORDINATE AXES  H(HLOW),V(0)H(HHIGH),V(0)H(0),V(VHIGH)H(0),V(VLOW) DRAW TIC MARKS ON HORIZONTAL AXIS  IHLOWHHIGH*H(I),V(0)H(I),V(0)3X2)1.5 $A10 .A21, 8V1V1A1D2= BV2V2A2D2P LH(X1),V(X2)_ VX1X1V1Dn `X2X2V2D jR3(X1X1X2X2)1.5 tA10 ~A21 V1V1A1D V2V2A2D TTD TT91220 T9T9.5 HH(X1):VV(X2)H279ULATIONS & PLOT FOR NEW VALUES ) ^1042I h1:24:"CLEAR SCREEN";:A$k mA$"Y"đ:2060: REDRAW AXESt r200z   DO THE CALCULATIONS AND OUTPUT :3:21:"MOTION IN A GRAVITATIONAL FORCE"; 13:23:"(PROJECTILE)"; R3(X1X1X2"OLD: ";:X8:16:22:X9:25:22:V8:34:22:V9m 11:23:"NEW: ";:X1:15:23:X2:24:23:V1:33:23:V2 J1:24:"OLD TLIMIT=";OLIMIT;:16:24:"NEW: ";:TLIMIT X SET "OLD" = "NEW" YX8X1:X9X2:V8V1:V9V2 ZOLIMITTLIMIT ] DO CALC5 X8X1:X9X2:V8V1:V9V2/ OLIMITTLIMITH T0:T9.5:D.1:1042P T0Z T9.5c D.1  CLEAR LOWER SCREEN & DISPLAY HEADINGS  "6:21:" X1 X2 V1 V2"; + DISPLAY "OLD" VALUES FOR PREVIOUS RUN 0 ,1:22:FOR PLOTTING @ (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW){ 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES AND TIC MARKS <2060 SET INITIAL CONDITIONS FOR PARTICLE  X15:X20:V11.5:V22:TLIMITm GRAVITY (PROJECTILE) %A INITIALIZE GRAPHICS J :3n SET ENDPOINTS FOR VARIABLES HLOW5:HHIGH5:VLOW3:VHIGH3 SET WINDOW BOUNDARIES LEFT5:RIGHT255:UPPER180:LOWER40 ' DEFINE TRANSFORMATION FUNCTIONS      HHIGH$*H(I),V(0)H(I),V(0)3+4IS= DRAW TIC MARKS ON VERTICAL AXISe>IVLOWVHIGHHH(0),V(I)H(0)3,V(I)RI\ T9.5HH(X1):VV(X2)/H279H01220CV191V01220LH,V_TTLIMIT1110e  DRAW COORDINATE AXES H(HLOW),V(0)H(HHIGH),V(0)H(0),V(VHIGH)H(0),V(VLOW) DRAW TIC MARKS ON HORIZONTAL AXIS IHLOWS)"; R3(X1X1X2X2)1.5+ $A1X1R39 .A2X2R3J 8V1V1A1D2[ BV2V2A2D2n LH(X1),V(X2)} VX1X1V1D `X2X2V2D jR3(X1X1X2X2)1.5 tA1X1R3 ~A2X2R3 V1V1A1D V2V2A2D TTD TT91220T9T1 ] DO CALCULATIONS & PLOT FOR NEW VALUES ; ^1042[ h1:24:"CLEAR SCREEN";:A$ mA$"Y"A$"YES"đ:2060: REDRAW AXES r200   DO THE CALCULATIONS AND OUTPUT :3:21:"MOTION IN A GRAVITATIONAL FORCE"; 15:23:"(ORBIT< ,1:22:"OLD: ";:X8:16:22:X9:25:22:V8:34:22:V9y 11:23:"NEW: ";:X1:15:23:X2:24:23:V1:33:23:V2 J1:24:"OLD TLIMIT=";OLIMIT;:16:24:"NEW: ";:TLIMIT X SET "OLD" = "NEW" YX8X1:X9X2:V8V1:V9V2 ZOLIMITTLIMI0:V2.7:TLIMIT17- X8X1:X9X2:V8V1:V9V2? OLIMITTLIMITX T0:T9.5:D.1:1042` T0j T9.5s D.1  CLEAR LOWER SCREEN & DISPLAY HEADINGS  "6:21:" X1 X2 V1 V2"; + DISPLAY "OLD" VALUES FOR PREVIOUS RUNNCTIONS FOR PLOTTING I (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES AND TIC MARKS <2060 SET INIT. CONDITIONS FOR PARTICLE  X12:X20:V1Г GRAVITY (ORBIT) < INITIALIZE GRAPHICS E :3k SET ENDPOINTS FOR VARIABLES HLOW3:HHIGH3:VLOW3:VHIGH3 SET WINDOW BOUNDARIES LEFT50:RIGHT200:UPPER180:LOWER40 ' DEFINE TRANSFORMATION FU   \ ),V(0)H(HHIGH),V(0);H(0),V(VHIGH)H(0),V(VLOW)e DRAW TIC MARKS ON HORIZONTAL AXIS w IHLOWHHIGH*H(I),V(0)H(I),V(0)34I= DRAW TIC MARKS ON VERTICAL AXIS >IVLOWVHIGHHH(0),V(I)H(0)3,V(I)RI1.5tA1(X12)R(X12)R12~A2X2RX2R1AV1V1A1DPV2V2A2DZTTDiTT91220vT9T9.5HH(X1):VV(X2)H279H01220V191V01220H,VTTLIMIT1110  DRAW COORDINATE AXES  H(HLOW1:23:"(BINARY ORBITS)";3 R((X12)2X22)1.5N R1((X12)2X22)1.5i $A1(X12)R(X12)R1| .A2X2RX2R1 8V1V1A1D2 BV2V2A2D2 LH(X1),V(X2) VX1X1V1D `X2X2V2D jR((X12)2X22)1.5oR1((X12)2X22)LIMITTLIMIT< ] DO CALCULATIONS & PLOT FOR NEW VALUES F ^1042f h1:24:"CLEAR SCREEN";:A$ mA$"Y"A$"YES"đ:2060: REDRAW AXES r200   DO THE CALCULATIONS AND OUTPUT :3:21:"MOTION IN A GRAVITATIONAL FORCE"; 1VIOUS RUN G ,1:22:"OLD: ";:X8:16:22:X9:25:22:V8:34:22:V9 11:23:"NEW: ";:X1:15:23:X2:24:23:V1:33:23:V2 J1:24:"OLD TLIMIT=";OLIMIT;:16:24:"NEW: ";:TLIMIT X SET "OLD" = "NEW" YX8X1:X9X2:V8V1:V9V2 ZO0:V10:V21.1:TLIMIT194 X8X1:X9X2:V8V1:V9V2F OLIMITTLIMIT_ T0:T9.5:D.1:1042g T0q T9.5z D.1  CLEAR LOWER SCREEN & DISPLAY HEADINGS  "6:21:" X1 X2 V1 V2"; + DISPLAY "OLD" VALUES FOR PRERANSFORMATION FUNCTIONS FOR PLOTTING X (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES AND TIC MARKS <2060 SET INITIAL CONDITIONS FOR PARTICLE  X13:X2 BINARY+ SET FINAL TIME 9TLIMIT15V INITIALIZE GRAPHICS _ :3 SET ENDPOINTS FOR VARIABLES HLOW3:HHIGH3:VLOW3:VHIGH3 SET WINDOW BOUNDARIES LEFT50:RIGHT200:UPPER180:LOWER40% ' DEFINE T!! ! ! ! ! !!!V(VHIGH)H(0),V(VLOW)A DRAW TIC MARKS ON HORIZONTAL AXIS S IHLOWHHIGHr*H(I),V(0)H(I),V(0)3y4I= DRAW TIC MARKS ON VERTICAL AXIS >IVLOWVHIGHHH(0),V(I)H(0)3,V(I)RI\ ~A2AX2RV1V1A1D,V2V2A2D6TTDETT91220RT9T9.5hHH(X1):VV(X2)|H279H01220V191V01220H,VTTLIMIT1110  DRAW COORDINATE AXES  H(HLOW),V(0)H(HHIGH),V(0)H(0),IAL"; R(X1X1X2X2)D A(P(R.00001)P(R.00001)).00002R $A1AX1R` .A2AX2Rq 8V1V1A1D2 BV2V2A2D2 LH(X1),V(X2) VX1X1V1D `X2X2V2D hR(X1X1X2X2) jA(P(R.00001)P(R.00001)).00002tA1AX1R ZOLIMITTLIMITB ] DO CALCULATIONS & PLOT FOR NEW VALUES L ^1042l h1:24:"CLEAR SCREEN";:A$ mA$"Y"A$"YES"đ:2060: REDRAW AXES r200   DO THE CALCULATIONS AND OUTPUT  :1:21:"MOTION IN A SCREENED COULOMB POTENTOR PREVIOUS RUN M ,1:22:"OLD: ";:X8:16:22:X9:25:22:V8:34:22:V9 11:23:"NEW: ";:X1:15:23:X2:24:23:V1:33:23:V2 J1:24:"OLD TLIMIT=";OLIMIT;:16:24:"NEW: ";:TLIMIT X SET "OLD" = "NEW" YX8X1:X9X2:V8V1:V9V210:V2.7:TLIMIT17/ X8X1:X9X2:V8V1:V9V2A OLIMITTLIMITZ T0:T9.5:D.1:1042b T0l T9.5u D.1  CLEAR LOWER SCREEN & DISPLAY HEADINGS  "6:21:" X1 X2 V1 V2"; + DISPLAY "OLD" VALUES FUNCTIONS FOR PLOTTING J (H(H)LEFT(HHLOW)(RIGHTLEFT)(HHIGHHLOW) 2V(V)191(LOWER(VVLOW)(UPPERLOWER)(VHIGHVLOW)) ; DRAW COORDINATE AXES AND TIC MARKS <2060 SET INIT. CONDITIONS FOR PARTICLE  X12:X20:V POTENTIAL -P(R)(R)RI INITIALIZE GRAPHICS R :3v SET ENDPOINTS FOR VARIABLES HLOW3:HHIGH3:VLOW3:VHIGH3 SET WINDOW BOUNDARIES LEFT50:RIGHT200:UPPER180:LOWER40 ' DEFINE TRANSFORMATION F"" " " " " ""