MЏ -------------------- ASTR 1 /VZ 8504yЏ * VARIABILI * .ЖЏ EC(9) = ECCENTRICITA' ORBITE G = GIORNI DI INTERVALLOЏ IX = FATTORE DI INGRANDIM.TO MA(9) = MASSE PIANETI\Џ N = NUMERO POSIZIONE ATT.LE NP = NUMERO MAX POSIZ.MEMOR.«(Џ P = NUMERO ORDINALE PIANETA PR(9) = PERIODI ROTAZ. PIANETIъ)Џ P$(9) = NOMI PIANETI PR(9) = PERIODI ROTAZ. PIANETIJ2Џ R(9) = ANG.PREC.POSIZ.PIANETA R$ = RISPOSTA GENER.SU INPUTљ7Џ RG(9) = RAGGI MAX ORBITE PIAN. RP(9) = RAGGI MIN. ORBITE PIAN.ЭFЏ T(9,100,2) = POSIZIONI PIANETI " В В > 1:X 2:Y&GЏ" В ГГГ> NUMERO POSIZIONE (N) ГГГГГГ> NUMERO PIANETAMKЏ V = VELOCITA' CORPO ERRANTEњPЏ X = TABULAZ. ORIZZ. HR XC = TAB. ORIZZ. CORPO ERR.ДQЏ XV = VECCHIE COORD. CORPO ERUЏ Y = TABULAZ. VERTIC, HR YC = TAB. VERT. CORPO ERR.TE<VЏ YV = VECCHIE COORD. CORPO ERUZЃ IІ3 ¤ 8: щ I,"": ‚—\щ 1,"GТ 0: COLП 0,1: COLП 1,2: ? CHR$(142)"ЄЗ(13): ‰ 300ГИЏ ------------- ORBITE SIST.SOLARE .Тѓ MERCURY,57.9,88,7,0.206,4892, .053,,VENUS,108.2,224.7,3.4JЬѓ 0.007,12112,0.815,0,EARTH,149.6 ,365.26,0,0.017,12756,1,1‘жѓ MARS,227.9,687,1.9,.093,6787, .108,2,JUPITER,778,4331.98,1.3Эрѓ .048,142800,317.9,15,SATURN, 1427,10760.55,2.5,.056,120000,95.22"ъѓ 15,URANUS,2870,30685.49,0.8,.047 ,51800,14.6,5,NEPTUNE,4496kѓ 60194.84,1.8,0.009,49500,17.2, 2,PLUTO,5946,90474.90,17.2,0.25ѕѓ 3000,0.0017,1,HALLEY COMETH, 2685,27772.85,162.1,0.9673,,, :к,Џ ------------------CARIC. VETTORI ..з 0,1: з 4,1: з 1,2=1Ю 1,1: в ,160,100,30,,,,, 120: Ѓ IІ0 ¤ 2: ж 160,100{2ж 30;I¬120: е ¤ 160,100: ‚: а ,14,16,"SVS SOFTWARE"Њ3† T(9,100,2)Щ6Ѓ PІ0 ¤ 9: ‡ P$(P),RG(P),PR(P) ,IN(P),EC(P),DI(P),MA(P),SA(P): ‚ :8Џ ----------- CALC. SEMIASSI MIN. .<:Ѓ PІ0 ¤ 9: RP(P)Іє(RG(P)®2«(EC( P)¬RG(P))®2): ‚F@Ю 0,1rђЏ ------------ MASTER VISUALIZZAZ. .Њ•з 1,2: Ы 5: Ъ 1,750,3КљЮ 0,1: з 4,1: з 0,4,5: а ,5,3,З(14)Є"РRG. БУФТПОПНЩ 1"¤а ,5,4,"ЈЈЈЈЈЈЈЈЈЈЈЈЈЈЈЈ": а ,15,10,"РТПГЕУУЙОЗ"N®а ,5,12,"1 - ПRBITS VIEWING": а ,5,13,"2 - РLANETS DIMENSIONS"’ёа ,5,14,"3 - ПRBITAL COURSES": а ,5,15,"4 - РLANETS DATA"МВа ,5,16,"5 - ЖOREIGN BODY ORBIT" :а ,5,18,"6 - ЕXIT"ка ,5,22,"ТUN ’ Ж1 ’ - УOFTWARE ТESET": а ,5,23,"УTOP’"2фЎщ R$: ‹ R$і"1" ° R$±"6" § 500bю‘ Е(R$) ‰ 1000,1500,3000,2000, 3000,9000hз:¶иЏ ----------------- ORBITE .Тнз 0,1: з 1,2,4: з 4,7,3т™ "“": ™ Ј2);"УПМБТ УЩУФЕН РМБОЕФУ ПТВЙФУ": ™9фа ,9,22,"( F2 ’ = УTANDARD DATA)" : а ,0,6,""Vцщ 2,"30"ЄЗ(13)Є"1"ЄЗ(13)’ь™: … "ЕCLIPTIC INCLINATION"; IE: ‹ IE±90 ° IEі0 § 1020Еюа ,9,22," ": а ,0,8,""о™: … "ЪOOM FACTOR";IX: ‹ IXІ0 § IXІ1ф: Џ -------------- VISUALIZZAZIONE .4Ю 1,1: щ 2,З(0)nз 1,8,5: е ,310,8 ¤ 270,8: ж 40;90ЄIE: е ¤ 270,8® в ,270,8,30,,90,90ЄIEЄ1: ‹ IEІ0 § 1035: Х Я,299,9оа ,28,1,"INCL.": а ,28,2, Д(IE): а ,34,24,"X"ЄД(IX):SCІ(RG(8)ЄRP(8))320IX: а ,0,24 ,"SCALE= 1 :"ЄД(SC¬1000000)Є" KM."f8Џ --------------- VISUAL. ORBITE .¦9е ,160,101 ¤ 160,100: з 1,2 : е ¤ Є0,«60: а ,18,2,"SUN"г:Ѓ IІ1 ¤ 600: ‚: е 0,160,99 ¤ Є0,«60: а 0,18,2," "=Ѓ PІ0 ¤ 9: з 1,8,5: а ,0, 0,P$(P)Є" ": з 1,2k?RYІє(((RG(P)ЄRP(P))2)®2«((RG(P)« RP(P))2)®2)SC¬IE90: ‹ RY±100 § 1100±Bв ,160,100,(RG(P)ЄRP(P))2SC, RY,,,IN(P)¬(90«IE)90: з 1,8,5хL‚: а ,0,0,"* SOLAR SYSTEM *", 1: ™ З(142): Ўщ R$: ‰ 400!ЬЏ ------------ DIMENSIONI PIANETI .4бз 0,1: з 4,7,3VжЮ 1,1: а ,9,0,"PLANETS SIZES"’рSCІDI(5)150: а ,0,24,"SCALE= 1 : " ЄД(SC)Є" KM.": XІ0НъЃ PІ1 ¤ 9: з 1,PЄ1,5: XІXЄ30 : а ,31,22,P$(P)Є" " а ,30,24,Д(DI(P))Є" ": в ,X,100,DI(P)2SC: ‚M а ,31,22," ": а ,30, 24," ": Ўщ R$: ‰ 400S П: РЏ -------------- VISUALIZZ. DATI .Б Ъи: з 0,1: з 4,7,5: а ,4,0,"РМБОЕФУ ДБФБ ЦЙУХБМЙЪБФЙПО’"з Я™ З(13);"(ўўўў = ОEXT Е’ = ЕND)"-!да ,0,4,З(27)Є"T": Ѓ PІ0 ¤ 9: ™ Ј82);"ОAME:"; :Y!еЏ ----------- CONV. MIN.->MAIUSC. .¤!жP$І"": Ѓ KІ1 ¤ Г(P$(P)): P0$І К(P$(P),K,1): P$ІP$ЄЗ(Ж(P0$ )Є32)Ш!з‹ P0$іЗ(65) ° P0$±З(90) § К(P$,K,1)ІP0$ы!й‚: ™ Ј39«Г(P$(P)));""; P$-"о™: ™ Ј2);"ПRBIT' GREATER RAY (НЛM):",RG(P): ™F"уKІЕ(К(Д(RP(P)),2,6))o"ш™ Ј2);"ПRBIT' LOWER RAY (НЛM):",K: ™љ"™ Ј2);"ТEVOLUTION TIME (GG):",PR(P): ™И"™ Ј2);"ПRBIT INCLINATION (DEG):",IN(P): ™с"™ Ј2);"ПRBIT EXCENTRICITY:",EC(P): ™# ™ Ј2);"ЕQUATOR DIAMETER (ЛM):",DI(P): ™J#*™ Ј2);"НASS (ЕARTH=1):",, MA(P): ™w#/™ Ј2);"ОUMBER OF SATELLITS:", SA(P)±#4Ўщ R$: ‹ R$І"E" § PІ10: Х Ѓ IІ1 ¤ 4: ™: ‚ I,PИ#>™ З(27)Є"N": ‰ 400ф#ёЏ ------------ MOVIMENTI ORBITALI .$Ѕз 0,1: з 1,2,4: з 4,7,3?$В™ "“": ™ Ј1);"УПМБТ УЩУФЕН РМБОЕФУ ПТВЙФУ"}$З‹ R$І"3" § щ 2,"90"ЄЗ(13)Є"3"ЄЗ(13)Є"20"ЄЗ(13)Є"15"ЄЗ(13)»$И‹ R$І"5" § K2$І"90"ЄЗ(13)Є"6"ЄЗ(13)Є"20"ЄЗ(13)Є"40"ЄЗ(13) %Й‹ R$І"5" § щ 2,K2$Є"130,120"ЄЗ(13)ЄЗ(13)Є".5"ЄЗ(13)Є"80"ЄЗ(13)Є"270"ЄЗ(13)>%Ла ,9,23,"( Ж2 ’ = ДEFAULT DATA)" : а ,0,4,""z%М… "ЕCLIPTIC INCLINATION";IE: ‹ IE±90 ° IEі0 § 3020Ї%Па ,9,23," " : а ,0,6,""Ъ%С… "ЪOOM FACTOR";IX : ‹ IXІ0 § IXІ1&У™: … "ДAYS OF INTERVAL";G : ‹ Gі1 § 3027: Х ™Z&Ф… "ОUMBER OF POSITIONS TO BE SHOWN";NP: ‹ NPі2 ° NP±100 § 3028 :†&ЦЏ ------------- MASCHERA VIDEO .З&ЧЮ 4,1: а ,12,22, "POSВTВONS PROCESS": щ 2,З(0)е&Шз 1,8,5: е ,155,8 ¤ 135,8.'Щ‹ IEІ0 § 3036: Х в ,135 ,8,15,,90,90ЄIE: XІ2015¬(Р(0)« 135)g'ЪYІ2015¬(Р(1)«8): е ,135,8 ¤ XЄ135,YЄ8: Я ,149,9§'Ьа ,28,1,"ИNCL.": а ,28,2, Д(IE): а ,34,24,"X"ЄД(IX)Я'аSCІRG(8)160IX: а ,0,24,"SCALE= 1 :"ЄД(SC)Є" MKM."(еа ,0,1,"ИNTERVAL": а ,0,2, Д(G)Є" DAYS"5(к‹ R$І"5" § Ќ 4000: Х Ю 3a(фЏ ------------- CALCOLO POSIZIONI .z(юЃ PІ0 ¤ 9: R(P)І0: ‚є( е ,80,101 ¤ 80,100: з 1,2: е 2 ¤ Є0,«60: а ,18,2,"SUN"ц( Ѓ IІ1 ¤ 600: ‚: е 0,80,99 ¤ Є0,«60: а ,18,2," ")з 1,2: з 2,2,1: з 3,8,5H)Ѓ NІ1 ¤ NP: Ѓ PІ1 ¤ 9: R(P)ІR (P)ЄG¬365PR(P)w) ‹ R(P)±359 § R(P)ІR(P)«359: ‰ 3085№)RYІє(((RG(P)ЄRP(P))2)®2«((RG(P)« RP(P))2)®2)SC¬2¬IE90х)‹ RYі100 § 3090: Х T(P,N,1)І 80: T(P,N,2)І0: ‰ 3105H*в 2,80,100,(RG(P)ЄRP(P))2SC, RY,359«R(P)«1,359«R(P),IN(P)¬(90«IE )90€*T(P,N,1)ІР(0): T(P,N,2)ІР(1): ‹ NІ1 ° T(P,N,2)і0 § 3105В*е 2,T(P,N«1,1),T(P,N«1,2) ¤ T(P,N,1),T(P,N,2)Ы*е ,T(P,N,1),T(P,N,2)г*!‚ P+&а ,30,22,Д(NPЄ1«N)Є" ": ‹ R$ І"5" § Ќ 4100V++‚ N: Ы 4: Ъ 1,750,5: Ъ 1,650,5: ‹ R$І"5" § Ўщ R$: ‰ 400‚+/Џ ----------- ANIMAZIONE ORBITE .Е+0а ,10,22," " : Ѓ NІ1 ¤ NP: Ѓ COІ1 ¤ 2ъ+:Ѓ PІ0 ¤ 9: е CO,T(P,N,1),T(P, N,2): ‚ P,CO,NB,Dа ,10,22,"REPEAT ANИMATИON (Y/N)?": Ўщ R$: ‹ R$І"Y" § 3120: Х ‰ 400n, Џ ------------ DATI CORPO ERRANTE .ћ,ҐЮ 4: ™ " ЖПТЕЙЗО ВПДЩ ДБФБ ": ™м,Є… "ГOORDINATES (X,Y):";XC,YC: ‹ XC±159 ° XCі0 ° YC±159 ° YCі0 § 40101-«‹ XC±155 § 4015: Х ™: ™ "ПK ? (О’=ОOT ТETURN’=ЩES)": ™z-¬а ,XC4,YC8," ": а ,XC4,YC 8Є1," ": Ў A$: ‹ A$ІЗ(13) § 4015Ж-‹ A$І"N" § 4010: Х Ѓ IІ1 ¤ 200: ‚:а ,XC4,YC8,"©",1: а,XC4Є1,YC8,"№"ы-®а ,XC4,YC8Є1,"Яё": Ѓ IІ1 ¤ 200: ‚: ‰ 4012.ЇXVІXC: YVІYC=.ґ… "НASS (ЕARTH=1): ";MC: ‹ MC іІ0 § 4020†.ѕ… "УPEED (ЛM/S): ";F: ‹ Vі 0 § 4030: Х FІF¬3600¬24¬GSC 10®6Ѕ.И… "ДIRECTION DEGREE: ";A: ‹ Aі0 ° A±359 § 4040И.ТЮ 3: Ћф.Џ ----------- CALCOLI X SCELTA 5 .)/Ѓ PІ0 ¤ 9: ‹ T(P,N,1)І0 ° T(P, N,2)І0 § 4150`/FPІMC¬MA(P)((T(P,N,1)«XC)®2Є(T(P,N ,2)«YC)®2)Њ/‹ T(P,N,1)ІXC ° T(P,N,2)ІYC ‰ 4122А/APІБ(¶((T(P,N,1)«XC)(T(P,N,2)« YC)))¬180яш/‹ T(P,N,1)±XC Ї T(P,N,2)±YC § APІ180«AP: ‰ 4130I0‹ T(P,N,1)іXC ЇT(P,N,2)±YC §APІ180ЄAP:Х ‹T(P,N,1)іXCЇ T(P,N,2)іYC §APІ360«AP†0"ж FSC;A: ж FPSC;AP: FІ є((Р(0)«XC)®2Є(Р(1)«YC)®2)У0,AІБ(¶((Р(0)«XC)(Р(1)«YC)))¬180я: ‹ XCіР(0) Ї YCіР(1) § AІ180«A: ‰ 415011‹ Р(0)іXC Ї YCіР(1) § A І180ЄA: ‰ 4150)13‹ Р(0)іXC Ї Р(1)іYC § A І360«Am16‚ P: е ,XV,YV ¤ FSC;A: XVІ Р(0): YVІР(1): XCІXV: YCІYV: Ћs1'#:џ1(#Џ -------------------------- END .Ѕ12#™ З(142): Ю 0: Ю њ: ЂI