' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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- (  Ϡ-@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`Y5l-p  S@$  _ @  vo p `m?{w)@ )@@H@@# @@ @ @     @ @D @ @(@ *Հ`=mmk fT:Q٪0͙;c57X65k1SUځȯea~vDZkퟳ3VoloTuxm:=ѵl\Km VfګPl54Zl1mFޖjmٻ 50) @ D@@@ @(U`@3fڰ5կZVf´kjڶ7+VEŲ~]f P$L h%RH0D0f @ C ڌUA)`b@ "A@ @   @P  @@ @@   @ @  @! B  $@B A! @  @ @ @@@@I  @ @ @@D @ @  @@@  @ @@@@@ @  @A@@ @"@ "@B! ! @@P3`;T6ͳSg~+C 06<u6@󬭙-mAڛol͚Pmm8S5)`l҃um(t L6H*8!`Pj* `H"@@ @ @  @@@! @ @ @@A @!  BA@BD @H"@$  ٠٠ϠˠΠ٠ΠԠԠ٠ؠϠǠ˯ˠŠԠנˠŠԠ @@p}@xwwwg3~sy|?~?~_?~?~wwwwwww7@ @@`@?@wwwO|wwwwwww7 wwwwwwwwwwwwwwwwwwwwwwwwsfs&o^[v{<^w}^6@@ wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww7@@0\zs`=7{nno#ww] #ET$(f [Tci;o^{z|^~8wPPF?o8N|ws  P\~W1 0w`?xd1~w9|?~y~Ny?~~ Bp~@ 0NAGfxN?`px`0f p8~@xns-;n_wmw>W{i PUo?????????????????????}x0fqo0c8ca?????? @DUVk2Xs$KZdf+7_W????????????????????????????????????????@ d_0~??????????????????_w?o}w]????? `S~GT???????????????????~?????`} {???~~~y?@y~????????@@k@~@???g?f9NsgxqL?F9~G9f 3f9N3~???????? @?77?/7???7?>??????7oyn9O7o-{u>?}k/????????????????????????????????7??=/7=; @\j{`}oww}w} ,JrL+k.}uu`pH !@  @@@ @@D   Q IH F"BDIDR̠ E(Q0ʄ%H#h(DaI@ E!P@$@@  B @@ @B@ @@@ @@P@@&D @  Help (continued); Orbital Terms and What They Mean:"N:"Perihelion (Per)- the closest point to the sun in a planet's orbit."N:"Aphelion (Aph)- the farthest point from the sun in a planet's orbit. N:"Perihelion/Aphelion (Per/Aph) Velocity- tanet that has been selected to be"gN"tracked is scrolled continuously at the bottom of the screen."N:"All values for mass, distance, time, and velocity are relative and are"N"therefore used without units in this program."N370004N:"e time constant determines the speed of the simulation."N"The greater the time constant, the faster time passes. When the trail"N"plot is active, a trail of dots is left behind each of the planets.""N"During the simulation, data about the pls you may:]fN"return to the Parameters Screen by pressing or pause by pressing

."pN:"The system parameters control the number of planets, the mass of the sun,"zN"the time constant, the trail plot, and which planet is tracked."8N"Then you may:"P>N"press to begin simulation, to view the help screens,"HN" to change the system parameters, to quit the program,"RN"or select a number of a planet to change its parameters." \N:"While the simulation is in progres FILES +(4);"BLOAD P.SHAPE"2 +232,0:233,3<+1:0W +(4)"BLOAD P.BCKGRND"]. N: ------------------------------------------------------------------%N Help'N43000:37000*N:"Help (continued):" 4N:"From the Parameters Scre16:"Distance";:1403,32:"Time Elapsed";:1403,48:"(Planet #"NT")")21:1403,69:"Options:":1403,69:"ape,":1403,69:"

ause")34,21:33,69::*: ------------------------------------------------------------------* LOAD ACCESSORY5000'C$"Q"300003'(C$)1(C$)N35000'::"Please press to begin the simulation, for help, a number of a planet":"to change, to change system parameters, or to quit.":10110)49232,0::21:3:D)"Velocity";:1403,00 j'"Off"9t'"Number of planet to be tracked: ";NT~'19:"Options: o, elp, (1-"N") to change, ystem parameters, or uit"'"Command: ";:C$'(C$)97(C$)122C$((C$)32)'C$"G"10500'C$"H"20000'C$"S"2@c`=w|n~ow>w=w] `^-k\sVWuy>/_k/ @i Pwv?opum}wnm];w +~o;?<@!  [?wxd3aAAC# FyD8`x?|F3bpm<`@b@|~@@PZo[w=osu `P,siwwwwwwwwwwwwwwwwwwwwww}0{n`ow>w=w]wwwww7Vsr0ape7[6-{nYw^^os{uwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww7@ @o}`~wwwwwwwwwwwwwwwwww8o?/wnl}wwfm];7vvwww7Pj~?nwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww7locity of the planet is great"h/"enough for it to escape the sun). Try using different parameters."/"Would you like to view the Parameter Suggestion Screen (y/n)?";X$/ʊ(X$,1)"y"(X$,1)"Y"İ36000/Ԋ35000)0 --------------------------15:1:958:1:"Perihelion/Aphelion distance: ";:41000:X$""X0Ģ22:"Please enter a distance greater than zero.":37000:35090.X$""R(CV)X.A1(2R(CV)(V(CV)2(M1M2(CV)))):A035500.10000/:"The orbit is hyperbolic (the veM2(CV)X-13:1:958:"Perihelion/Aphelion velocity: ";:41000:X$""X0Ģ22:"Please enter a velocity greater than zero.":37000:35070-X$""V(CV)X-14:1:958:"Perihelion Orientation (in degrees): ";:41000:X$""PT(CV)X.h Distance",ш39000Z,ֈCV;:10:M2(CV);:20:V(CV);:1403,39:PT(CV);:1403,62:R(CV)e,39000,ꈢ10:"New parameters:":39000,12:1:958:"Mass: ";:41000:X$""X0Ģ22:"Please enter a mass greater than zero.":37000:35060 -X$""-----------------------------------------------------------------b+ Enter Planetary Parameters+ˆ:"Orbital Parameters for Planet ";:CV(C$):CV ,̈5:"#";:10:"Mass";:20:"Per/Aph Velocity";:1403,39:"Per Orientation (deg)";:1403,62:"Per/Ap25100*cNTX*c25000c*e: ------------------------------------------------------------------n*0u Quit*:u:10:"Are you sure you want to quit (y/n)? ";X$*?uX$"e"X$"E"ė:*Du(X$,1)"y"(X$,1)"Y"ĺ:(4)"RUN P.QUIT"*Nu10000A+: -)b trail plot')bPP1PP0:250007)bPP1:25000R)c planet to be tracked)c"What is the number of the planet you wish to track? ";:41000:WF125100)cX$""25000*cX1XNX(X)Ģ20:"Please enter a whole number between 1 and "N".":NNT1(Rb25000#(pb mass of sunM(zb"Mass of sun: ";:41000:WF125100^(|bX$""25000(bX0Ģ20:"Please use a mass greater than zero.":25100(bM1X(b25000(b"Time constant: ";:41000:WF125100(bX$""25000(bTCX)b25000or press to view the":"Parameter Suggestion Screen.":25080X'>b number of planets'Hb"Number of planets: ";:41000:WF125100'JbX$""25000'MbX1XMAXX(X)Ģ20:"Please enter a whole number between 1 and "MAX".":25100'ObNX(PbNTS>uggestions}? ";:44000,&bC$(27)10000M&bC$"S"C$"s"İ36000:25000W& b:18&b(C$)25150,25200,25250,25300,25350&)b14:"Please select a number between 1 and 5 to change a parameter, press"@'*b" to return to the Parameters Screen, Number of planets";:35:N:%a"2. Mass of sun";:35:M1\%a"3. Time constant";:35:TC%a"4. Trail plot";:35:PP1ĺ"ON":25070%a"Off"%a"5. Planet to be tracked";:35:NT&a12:" Which do you wish to change {(1-5), ape, or without enance of a planet at"j"$O"either perihelion or aphelion, depending on how great the per/aph velocity is."".O:"Perihelion Oriention- the orientation of the point of perihelion"#8O"on the screen relative to the sun. An orientation of 0 degrees placestable"X!N"orbit if the per/aph velocity is equal to the velocity at perihelion. If"!O"this is the case for a given planet, then the per/aph velocity will be the"!O"velocity at aphelion.""O:"Perihelion/Aphelion (Per/Aph) Distance- the disthe velocity of a planet at"i N"either perihelion or aphelion, depending on how great the velocity is." N"For some velocities, the per/aph velocity is the velocity at perihelion."!N"For other velocities, it is impossible for the planet to have a LtLtLLꩨLꩭLꩼL꩘LvLLL꩓LL꩓LࠕL+L+멓LL+#L+뢝L+vL+LvL nLlLlELlנLlJLvLJL L+멸      @   YLLL!L&L+L0LJLf5L:L?LLJLDLYLJLYLIL꩝LYLXLvL&YLJL٠LlJL1~L L JLALlLL LgLlLqLvLt0,30,180,65= 100,35,0,551= 100,40,180,75C=" 100,45,0,95=P: ------------------------------------------------------------------KEY(49152):KEY12844030.<C$(KEY128)=<49168,0:<ǯ -------------------------------------------------------------------<ȯ data<ү 100,64,0,29<ܯ 100,38.7,0,67<毃 100,33.5,0,91< 100,29.3,0,128< 100,48.1,0,54.4 = 10y Orbit Simulator uses the concepts of (1) conservation of energy"x;z"and (2) Kepler's third law to simulate orbits."~;;߫ -------------------------------------------------------------------;૲ PSEUDO-GET ROUTINE;꫞:" ";:;49168,0"orbit. The Simulator allows users to design their own solar systems":H"by giving users the option of entering their own parameters. During act--------------------------------------------S8 introduction (first help screen)b8:"Help:"8 :"An Introduction to Planetary Orbit Simulator"8390008 :"Purpose of program:"9*:"The Planetary Orbit Simulator is designed to show how v---------------------------------------------------------------W7( parameters input72WF0:"";X$:((X$))X$X$""X(X$):4103072"subst-----------------------------------------K0 Parameter Suggestion Screenk0:"Parameter Suggestions:"05:"For system parameters:"0"A sun with a mass between 1000 and 100000 works well."0Ȍ"A time constant less than 20 is most practical.n H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjSRCUE O OP N?DSLYADESS Y?PUEO ROS Y?AEPRMTR K YN? $) E`@pk=qjn H?(PX34pr@z|P+%D}qjW@ U O AHPRMTRAPASI AETEE.ETRNWVLEO RS EUNT EPSADR AU.PITRSO UBR 0:P# DNMCSRNS Y?PORMADES $)IRR DRS (00)OA AIBE (90)LBLVRALS(90)TIGPO AE(:SRN EGH 0:CMRS OE Y?EAL IETAE Y?(LAERSREHRSAE:$,EEV EOY ()TRIGADES(00)NIGADES1(00)ERR LAESATOE.  A   \ c j  A    U q  A   x c jL^  A   A  G NL   L   @   G NL LN N S N L  ` ˠ@  f  L  LX A    L .      .     . L_  `   $  @   +Z  #  + 2 .   $  @     $  @   +  #  + 2 . 9  $  XL_ @    G NL^  % , 3 : 5 A    U g d T L5 A y  A g Y     A  ` A R d A  A R  A g J  |  r u    LJ  L1 A      A       + A      G     +멢 6  d A  r  u A L5 /G + A   A       % , 3 : 5  z   L ! (L   L5 A y  A g Y A(   A g Y  O L A y ` A g d    u A砓 + A   =  ⠓ + D⠓ L A K O = d A R  Y A RO f r V A y ` A g n u A H `  u D⠓ L A K ` A R | d A RT f砓  u A~ l  6  Y A  O   AL l `    A   d A      A        LY A  i +    i   d + A     _ +  _  Z + A( l OZ k #  V ! (L 4 A젓 l O /i f V 6  XǠ e s   c @   g,@    ` gQ@    ` gd@  ֠ ` g@    ` g@    ` g u] h Y      % , 3 : 5 A H O  V Aw l O A ] d k r V A yn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjhelion (Per)- the closest point to the sun in a planet's orbit.Aphelion (Aph)- the farthest point from the sun in a planet's orbit.Perihelion/Aphelion (Per/Aph) Velocity- the velocity of a planet ateither perihelion or aphelion, depending on how great t been selected to betracked is scrolled continuously at the bottom of the screen.All values for mass, distance, time, and velocity are relative and aretherefore used without units in this program.Help (continued); Orbital Terms and What They Mean:Pericked.The time constant determines the speed of the simulation.The greater the time constant, the faster time passes. When the trailplot is active, a trail of dots is left behind each of the planets.During the simulation, data about the planet that hass.While the simulation is in progress you may:return to the Parameters Screen by pressing or pause by pressing

.The system parameters control the number of planets, the mass of the sun,the time constant, the trail plot, and which planet is tra P.SHAPEBLOAD P.BCKGRNDHelp (continued):From the Parameters Screen you may:press to begin simulation, to view the help screens, to change the system parameters, to quit the program,or select a number of a planet to change its parameterem parameters, or uitCommand: GHSQPlease press to begin the simulation, for help, a number of a planetto change, to change system parameters, or to quit.VelocityDistanceTime Elapsed(Planet #)Options:ape,

auseBLOADes of the planets.Parameters Screen:Number of planets: #MassPer/Aph VelocityPer Orientation (deg)Per/Aph DistanceMass of sun: Time constant: Trail plot: ONOffNumber of planet to be tracked: Options: o, elp, (1-) to change, ystf the planetary orbits is hyperbolic. A planet witha hyperbolic orbit has enough velocity to escape the sun and has anorbit that cannot be simulated with this program.To correct the situation, try increasing the mass of the sun orreducing the velocitinPR#3PLANETARY ORBIT SIMULATOR VERSION 7.1by David Landhuis and Tague GriffithSpecial thanks to:Dr. James Van Allen, University of IowaandFDSH FacultyPeriod- Averagedistance- BLOAD P.BCKGRNDPausing. Press to resume...At least one on H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjn H?(PX34pr@z|P+%D}qjA  A  LX A   A ]  A  d A g n Y A   rY  A  ` A b d A   A g n  A     uL"Y A   A   A  d A g Y A   r   A  ` A  d A  operation:The Planetary Orbit Simulator uses the concepts of (1) conservation of energyand (2) Kepler's third law to simulate orbits.  A   \  q  A     j  A   x  qLX  A   A   LX A   users the option of entering their own parameters. During actualsimulation, the planets follow paths that are calculated from the givenparameters. The main goal of the Simulator is to demonstrate the fundamentalsof planetary motion.Basis for programimulatorPurpose of program:The Planetary Orbit Simulator is designed to show how various factors suchas mass, velocity, and distance affect the shape and period of a planet'sorbit. The Simulator allows users to design their own solar systemsby givingorbits of several planets are most easily compared if they are giventhe same perihelion orientation.Press any key when ready to continue...-Please enter a number or press return to leave the value unchanged.Help:An Introduction to Planetary Orbit Sparameters results in a hyperbolic orbit, try reducing the velocity or adjusting the perihelion/aphelion distance.If the masses of the planet and the sun are within the above ranges, theideal velocities for the planet are probably between 5 and 100.The re many planets, it is beneficial to increase the time constant.For planetary parameters:If you desire the most realistic results, use planetary masses that aresubstantially less than the mass of the sun (between 100 and 1000,for example).If a set of like to view the Parameter Suggestion Screen (y/n)?yYParameter Suggestions:For system parameters:A sun with a mass between 1000 and 100000 works well.A time constant less than 20 is most practical.A time constant around 5 works very well.If there aPerihelion Orientation (in degrees): Perihelion/Aphelion distance: Please enter a distance greater than zero.The orbit is hyperbolic (the velocity of the planet is greatenough for it to escape the sun). Try using different parameters.Would you eEyYRUN P.QUITOrbital Parameters for Planet #MassPer/Aph VelocityPer Orientation (deg)Per/Aph DistanceNew parameters:Mass: Please enter a mass greater than zero.Perihelion/Aphelion velocity: Please enter a velocity greater than zero.: Please enter a whole number between 1 and .Mass of sun: Please use a mass greater than zero.Time constant: What is the number of the planet you wish to track? Please enter a whole number between 1 and .Are you sure you want to quit (y/n)? Which do you wish to change {(1-5), ape, or uggestions}? SsPlease select a number between 1 and 5 to change a parameter, press to return to the Parameters Screen, or press to view theParameter Suggestion Screen.Number of planetsWhen entering parameters, pressing without entering anything elsewill leave the value of the parameter unchanged.System Parameters:Current:1. Number of planets2. Mass of sun3. Time constant4. Trail plotONOff5. Planet to be trackedion of the point of perihelionon the screen relative to the sun. An orientation of 0 degrees placesperihelion to the right of the sun, 90 degrees places it above, etc.Period- the time it takes a planet to make one complete revolution.Help (continued): given planet, then the per/aph velocity will be thevelocity at aphelion.Perihelion/Aphelion (Per/Aph) Distance- the distance of a planet ateither perihelion or aphelion, depending on how great the per/aph velocity is.Perihelion Oriention- the orientathe velocity is.For some velocities, the per/aph velocity is the velocity at perihelion.For other velocities, it is impossible for the planet to have a stableorbit if the per/aph velocity is equal to the velocity at perihelion. Ifthis is the case for a+멂  5 T   L_Р ꢎ +  _  % C 3 : 5  ] A    A    A    A      {    fՠ tڠ @ +L_  T  f     5 T  5 Lh   +Li    کQ   ک@R   کZR   کR   کR   کR   کrS   کS   کS   کDT   gL_  ` eT  v Ơ ` L_       2ˠ #       L_ x + } Lf   O Q V              2     LZfLY کuP   کP   کP  f   3Q     5Q   Lf fLc X7Q    ` NQ   کeQ   کQ   کˠQ  O   hӠO     m qLCe  ` ԠO   gLdO  Lce   O Q V ' `  Z BP   h'P  Le   O Q V  `  Z B  Z (P   hHP     m qLe  ` IP   gLetP   aO   g  .  Z   .  Z   .      ] .       . g  ` rO   g  `  Z BO   hO     m qLd  ` O   gL{dO  Ld   O Q V `  Z BL_ X  ` ۠N  f  O  5 O  5 LCc X   O     O   Lc    O   LY XO     +  .  ` 3O    Z 5O    Z :O       KO      L_  mL%b  ` AN   L` Q tL_fN   h  .L`wN  5L_ Q {L_  Lxb  L_  L_xN   h  .L`N  5L_  <  , J   Q # X Lb  ` N   , .٠N   L` Q fh a >aa.bbbb ' ` JM   کM   کѠM   L`M   h  .L`N  5L_  <  C J   Q # X La  ` N   C ./N   L` Q _ , La  fL_1N   h  .L`@N  5L    Z , . کL    Z  . کL    Z  . کРL    Z  Lw`ߠL   L`L   کL    Z ! .  ` L   i  LYFM   HM   L` fL_ ک `   ȠH   کI   کXI   کI   کI   ک4J   کJJ   کJ   کݠJ   کK   کeK   کK   g XK   کL   کKL   gLY X|L    Z L    ` D   کD   کɠD   کE   ک/E   ک{E   کŠE   کF   ک?F   کF   کʠF   کG   کRG   کG   g XǠG   کG   ک?H   کH   ک  `     ߠC       C       C   ک    9    XL_   C   ک         *  $   D   L_ i g XD   ک*D   کN\%C  L]'C  L_)C  Lc     U     , c jLc ک+C   کxC   Ls[    X  `  C       C       ƠC     $  ӠC   ! .ݠC   .{ Z B    .     B    LS[B   L`[B   کB   ! .  ` РB   , .B   کC  t           qL[       #C  LB   ک%B   , . g  `  Z :B    Z >?<$,ĠЮˍĠЮō̠ΠЮҍ!  4}3`}?Pw?w}|wL~  o{[T~?p?}@w`}@ `~~d?f9N|sg?ryL?N9~_O9fL3f9N3~t]=o9g}^=7mk  !!h|VwwwwwwwwwwwwwwwwwwwwwWm_s?W5w|wwwww7 8/%oq<wwwwwwwwwwwwwwwwwwwwww?owwwww7( 4w|- wwwwwwwwwwwwwwwwwwxx}c]wwww7 = @ wwwwwwwwwwwwwwwwwwxyx`{x Dq0wwww7@ |?`\wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww7 @k|?wwwg?8Nsg?vyL?N9~O9fL38N3~wwwwwww7'e5wVSwgs7guUwU7g5==WWw=w]gWo~  wwwwwwwwwwwwwwwwwwwwwwwwwwwwwww7gqf3V3@(g}`?tOs} 8d=n`}`paq?8bf H}a?p`} s} 8~Pwy?7w{m}wunm];gvE  j@ ?|@8~9NsggyL?N9~g9fL3~9N3~@:/muy^^w]s=}z 'k(?oa????????????????????????????????????????`[wy?????????????????????=7Nn_w>w=W]?????? @0?~`@????????????????????????????????????????$B@@.?h@??????????????????_wv?/wum}wwnm];w~>???? 8w???????????????????????????????????????? @u?>|???g1N8Ls Goy 3F9~q9fL3N8N3L???????? @57/+;/;7)7]7o==^g{{>{- @ ????????????????????????????/;@v=o{<-            @ title.loader (v.2))@:49234,0E@ (4)"BLOAD P.TITLE.HR"W@X$::::21i@"Welcome to"@:"PLANETARY ORBIT SIMULATOR"@(1@ exit@(4)"EXEC P.SPEECH"@d:1403,39:"Per Orientation (deg)";:1403,62:"Per/Aph Distance"KB'39000L'I1N:I;:10:M2(I);:20:V(I);:1403,39:PT(I);:1403,62:R(I):V'39000`'"Mass of sun: ";M1;:30:"Time constant: ";TC;:1403,59:"Trail plot: ";:PP1ĺ"ON":101lanets."37000:100b': ------------------------------------------------------------------' Planetary Parameters Screen'::"Parameters Screen:"$'"Number of planets: "N.'39000@8'4:1:"#";:10:"Mass";:20:"Per/Aph Velocity";planet with"W"a hyperbolic orbit has enough velocity to escape the sun and has an""orbit that cannot be simulated with this program.":"To correct the situation, try increasing the mass of the sun or""reducing the velocities of the pH(I)O(I))FOX(I)0OX(I)279OY(I)0OY(I)159ĕ1OX(I),OY(I)R140,80Xo -------------------------------------------------------------------p if hyperbolicz::10 "At least one of the planetary orbits is hyperbolic. A ROUTINEQ05030dOX(I)0OX(I)279OY(I)0OY(I)159ĕ1OX(I),OY(I):PP1ēOX(I),OY(I)TYP(I)1OX(I)280FX(I)RR(I)(TH(I)PIO(I)):OY(I)160FY(I)RR(I)(TH(I)PIO(I)):5040 OX(I)FX(I)RR(I)(TH(I)O(I)):OY(I)FY(I)RR(I)(T)159ĕ1OX(I),OY(I)DKEY155Ă:PP1ĺ:(4);"BLOAD P.BCKGRND"XKEY155ĉ:100KEY208KEY240Ģ24:"Pausing. Press to resume...";X$325: ------------------------------------------------------------------ PLOTTING ";(P100)100Kl1403,48:"Average":1403,48:"distance- ";(A100)100;Zv33,48::: ------------------------------------------------------------------- A key is pressed49168,0KEY155āI1N:OX(I)0OX(I)279OY(I)0OY(IOX(I))2(80OY(I))2)7V((M2(I)M1)(2RR1AA))ZV;:1403,16:RR;:1403,32:TE`W: ------------------------------------------------------------------X display average distance (semimajor axis), periodb22:1403,48:"Period- I)TH(I)2PI%r find new distanceK|RR(I)E(I)K(I)(1E(I)(TH(I)))U5000\IdQ1m310 ------------------------------------------------------------------ calculate velocity/display tracking dataQ0520RR((140-----------------------------------------E 6 THIS is the MAIN LOOPa ;TETETC: time elapsedl @I1N BKEY(49152):KEY1281000 EINTİ500 JQ0370 T find new theta ^TH(I)TH(I)WI(I):TH(I)2PITH(I)TH(I)2PI hTH(I)0TH(I)R1)B DR.001K(I)R1(1E(I))E(I):TH(I)TH(I)PI:TYP(I)1f "DR.001K(I)R1(1E(I))E(I) $ find coordinates of other focus &FX(I)1402C(O(I)):FY(I)802C(O(I)) (NTIAAA *RR(I)R(I) ,) .: -------------------------find kepler's constant, period, angular intervalB KK1M2(I)M1R P(A3KK)f WI(I)2PIPTCu INTİ600 find eccentricity E(I)CA  find perihelion distance and k (distance between focus and directrix) R1A(C) DR(R()PI180: convert degrees to radians9 TH(I)PI: flipS find semimajor axis A1(2R(I)(V(I)2(M1M2(I)))):A06000 find distance from center of ellipse (hyperbola) to foci CAR(I) find semiminor axis B(A2C2)0 Van Allen, University of Iowa":17:38000A .X$"and":19:38000b /X$"FDSH Faculty":21:38000m 011000x <40000 d10000 fQ0:TE0 i: ------------------------------------------------------------------ xI1N zTYP(I)0% }O(I)PT(I5- 49193,127:(4)"PR#3":::::255::X BY DAVID LANDHUIS AND TAGUE GRIFFITHX$"PLANETARY ORBIT SIMULATOR VERSION 7.1":38000(X$"by David Landhuis and Tague Griffith":5:38000*X$"Special thanks to:":15:38000) ,X$"Dr. James                ----------n@ Establish Default Values7nJMAX9^nTM2(9),V(9),PT(9),WI(9),R(9),RR(9)nYOX(9),OY(9),TH(9),E(9),K(9),FX(9),FY(9),TYP(9)n^N4nhI1MAX:M2(I),V(I),PT(I),R(I):InrTC5:PP0:NT1:M1100000:PI3.141592654n&