: : SISTEMA SOLAR>: POR F.XAVIER SANCHEZU: PARA MSX-CLUB](:2:"GRP:"AS1:P,D,R,S,J,E,V,T,M,N,U,C,L<::,:,::,,F̀P MATRICES ORBITALESӀZmdJX(b),JY(b),SX(X),SY(X):EX("),EY("),VX(*),VY(*):TX(*),TY(*),MX(2),MY(2):PX(),PY(),NX(v),NY(v),UX(n),UY(n),P$(),P(,),IN( )nDS$(),R$(),T$(),MA$(),TE$(),DI$()xÁ SPRITE DE JUPITER Y SATURNOɁA$( )( )( )( )( )( )( ?)( )WB$( )( )( )( )( )( ?)( )( )C$( )( )( )( )( )( )( )ւV1$"L16O5EGFEDFEDCEDCO4BO5DCO4BAO5CO4BABO5DCO4BO5CEDCDFED"܂ MUSICA PRESENTACION?V2$"L16O5CEDCO4BO5DCO4BAO5CO4BAGBAGFAGFGBAGAO5CO4BABO5DCO4B"qV3$"O2L16AAAAAAAAAAAAAAAAO3DDDEEEEEFFFGGGAA"A:X():Y():(X,Y),:AD$( )( )( )( )( )( )( )( )AB!""BM=B;,10C4S3R20U10L20D10"A,"BM=B;,20C4S3R20D10L20U10"a6"BM=B;,40C4S3R20D10L20U10"h@AwJ25,75,145TE$( )( )( )( )( )( )( `)( )^:"BM55,15C4S3D45R10U45L10")hF$( )( `)( )( )( )( )( )( )Tr:"BM105,10C4S3R10D50R10U60L20D11"|G$( )( )( )( )( )( )( )( )Ʌ:"BM175,10C4S3D50R10U50R10U10L19D10"H$( )( )( )( )( )( )( )( )5:"BM190,10C4S3D10R10U10L10"|L$( 8)( |)( )( )( )( |)( 8)( )ņPLU$( )( <)( <)( <)( )( )( )( )톸:"BM205,10C4S3D50R10U60L10D10"4M$( )( <)( ~)( )( )( )( )( )\:"BM225,10C4S3D50R10U60L10D10":"BM245,10C4S3D50R10U60L10D10"̇WW$( )( )( )( )( )( )( )( ):"BM55,90C4S3R20U10L20D10"$()WW$$:"BM55,110C4S3R20U10L20D10"I:"BM55,130C4S3R20U10L20D10"|:"BM80,90C4S3D40R10D10R10U50L10U10L10D10":"BM83,103C4S3D10R10U10L10"È& INICIALIZO VALORES ORBITAS0IN():IN():IN():IN():IN()1:IN(),:IN()7:IN();:IN()B:PVE::"BM105,90C4S3D30R10U40L10D10"kD:"BM105,130C4S3R20U10L20D10"N:"BM135,90C4S3D55R10U65L10D10"X:"BM155,90C4S3D55R10U65L10D10"b:"BM175,90C4S3D5R10U5R10D20L10U5L10D35R10U10R10D10R10U10L10U10R10U40L29D10",(,),P,: ,(,),P,H ,(7,\),P,: ,(?,q),P,R ,(X,R),P,:,(P,x),P,͌\,(i,q),P,f,(,R),P,:,(,i),P,p,(,]),P,\z(,):#,"c X.Sanchez":(,):#," X.Sanchez":(,),,PcPl{XIN(P)A,B:P,,,,,,,,X EX(X)A:EY(X)B:EX(X)A:EY(X)B:VX(X)A:VY(X)B:VX(X)A:VY(X)B:NTX(X)A:TY(X)B:TX(X)A:TY(X)B:MX(X)A:MY(X)B:MX(X)A:MY(X)B:JX(X)A:JY(X)B:JX(1X)A:JY(1X)B:SX(X)A:SY(X)B:SX(,X)A:SY(,X)B:UX(X)A:UY(X)B:UX(7X)A:UY(7X)B:CNX(X)A:NY(X)B:NX(;X)A:NY(;X)B:tPX(X)A:PY(X)B:PX(BX)A:PY(BX)B:P(,)SX(<):P(,)SY(<)$P(,)JX(2):P(,)JY(2)ҏ.P(,)PX():P(,)PY()8P(,)UX():P(,)UY()BP(,)EX():P(,)EY()0LP(,)VX():P(,)VY()PVP(,)TX( ):P(,)TY( )p`P(,)MX(%):P(,)MY(%)jP(,)NX(E):P(,)NY(E)tP$()"Mercurio":P$()"Venus":P$()"Tierra":P$()"Marte":P$()"Jupiter":P$()"Saturno":P$()"Urano":P$()"Neptuno":P$()"Pluton"&~B 2DTMDS$,R$,T$,MA$,DI$,TE$DS$(DT)DS$:R$(DT)R$:T$(DT)T$:MA$(DT)MA$:DI$(DT)DI$:TE$(DT)TE$DTAA:(,AA)(,AA),,BF:(,AA)(,AA),,BF:AA,(,),,:AA  PRESENTACION DEL MENU* PRESENTACION DEL MENUG PRESENTACION DEL MENUd PRESENTACION DEL MENU PRESENTACION DEL MENU,$()A$B$C$D$$()L$ $()PLU$Ғ$()E$F$G$H$ߒ$()M$(,,22WW$( )( )( )( <)( )( <)( )( )A<$()WW$YF(,)(,),,BF|P(<,):#,"EL SISTEMA SOLAR"Z(=,):#,"EL SISTEMA SOLAR"d:(<, )(},),,BFn(,2):#,"A) EL SISTEMA SOLAR EN":(+,:):#,"MOVIMIENTO"Dx(,2):#,"A) EL SISTEMA SOLAR EN":(,,:):#,"MOVIMIENTO"(,P):#,"B) ANALISIS DE LOS":(+,X):#,"PLANETAS"(,P):#,"B) ANALISIS DE LOS":(,,X):#,"PLANETAS"ꔖ :(,):#,"INTRODUZCA OPCION:"(,):#,"INTRODUZCA OPCION: "ET$$():T$"A"T$"a"T$"B"T$"b":(,)::#,T$:T:T$"A"T$"a"PV::  SISTEMA SOLAR EN MOV. SISTAMA SOLAR EN MOV.ە SISTEMA SOLAR EN MOV.(,)(,),,BF$ A :X():Y():(X,Y),:A(Cu,C), , :(,), :RS A:(Cu,C),RS,,Ab0(RS),(RS):RSS<:J2:E:V:T :M%:NE:P:U:CL֖ RUTINA DE MOVIMIENTO,(CuJX(J),BPJY(J)),,(CuJX(J),BPJY(J)),CL5"JbJ:JJ], ,(CuSX(S),BPSY(S)), ,6(CuSX(S),BPSY(S)),CL@ ,(CUSX(S),bSY(S)), ,JSXS:SST,(CuEX(E),BPEY(E)),,^(CuEX(E),BPEY(E)),CLhE"E:EE>r,(CuVX(V),BPVY(V)),,`|(CuVX(V),BPVY(V)),CLvV*V:VV,(CuTX(T),BPTY(T)),,(CuTX(T),BPTY(T)),CLԘT*T:TT,(CuMX(M),BPMY(M)),,(CuMX(M),BPMY(M)),CL2M2M:MMY,(CuNX(N),BPNY(N)), ,{(CuNX(N),BPNY(N)),CLNvN:NN,(CuUX(U),BPUY(U)),,ڙ(CuUX(U),BPUY(U)),CLUnU:UU,(CuPX(P),BPPY(P)),,8(CuPX(P),BPPY(P)),CLOPډ::PPi&PVPV:CL:Xr0:(,),::#,"PARA RETORNAR AL MENU PULSA M"ٚD(,),:#,"PARA RETORNAR AL MENU PULSA M"-NA$:A$"M"A$"m"گ(,)(, ),,BF:SP:SP,(,),,:SP:(:N8XLXb PRESENTACION DEL PLANETAxl PRESENTACION DEL PLANETAv PRESENTACION DEL PLANETAACuP(L,):BCUP(L,)ƛD ؛,(A,B),,盞Y:Y,(A,B),,Y:Y,(A,B),,!Ds(,)::#,"PLANETA:";P$(L):(,)::#,"PLANETA:";P$(L):W:W(,)(, ),,BFL:,(,),,:: O.SATURNO-85.3,2,-84.7,5,-84.5,7.39,-81.5,14.66,-77.5,20.48,-72.5,25.70,-69.5,28.24,-66.5,30.48,-61.5,33.69,-58.5,35.37,-55.5,36.89,-49.5,39.54,-46.5,40.70,-43.5,41.75,-37.5,43.58,-34.5,44.37,-29.5,45.52,-26.5,46.11,-23.5,46.63,-17.5,47.47,-14.5,47.79-8.5,48.25,-5.5,48.39,.5,48.49,3.5,48.45,6.5,48.35,12.5,47.97,15.5,47.69,21.5,46.94,24.5,46.46,30.5,45.30,33.5,44.62,36.5,43.85,42.5,42.08,45.5,41.06,51.5,38.71,54.5,37.36,60.5,34.27,66.5,30.48,72.5,25.70,78.5,19.21,84.5,7.39,84.7,5,85.5,0 : O.JUPITER-71.5,0,-70.9,3.5,-70.5,7.41,-69.5,9.04,-68.5,11.03,-62.5,18.69,-56.5,23.6,-50.5,27.25,-44.5,30.13,-38.5,32.44,-32.5,34.29,-26.5,35.75,-23.5,36.36,-20.5,36.88,-17.5,37.32,-14.5,37.69,-11.5,37.99,-8.5,38.22,-5.5,38.38,-2.5,38.47,.5,38.49,3.5,38.4 6.5,38.34,9.5,38.15,12.5,37.90,15.5,37.58,18.5,37.18,21.5,36.71,24.5,36.16,27.5,35.53,30.5,34.82,33.5,34.01,36.5,33.10,39.5,32.09,42.5,30.96,45.5,29.69,48.5,28.28,51.5,26.70,54.5,24.92,57.5,22.88,60.5,20.51,63.5,17.69,64.5,16.61,66.5,14.14ߠ*68.5,11.03,69.5,9.04,70.5,6.41,70.3,3.6,71.3,14: O.MERCURIOv>-26,0,-25.5,1,-25,3,-24,5,-22,6.92,-18,9.38,-12,11.53,-6,12.64,0,13,6,12.64,12,11.53,18,9.38,20,8.30,22,6.92,24,5,25,3,25.5,1H: O.VENUS9R-38,0,-37.5,2,-37,4.5,-36,6.08,-34,8.48,-28,12.84,-22,15.49,-16,17.23,-10,18.33,-4,18.89,0,19,4,18.89,10,18.33,16,17.23,22,15.49,28,12.84,34,8.48,36,6.08,37,4.5,37.5,2,38,0N\: O.DE TIERRAf-48,0,-46,4,-45,8.35,-42,11.61,-36,15.87,-30,18.73,-24,20.78,-18,22.24,-12,23.23,-6,23.81,0,24,6,23.81,12,23.23,18,22.24,24,20.78,30,18.73,36,15.87,42,11.61,45,8.35,46,4,48,1p: O.MARTEz-59,4,-57,8.74,-54,12.20,-48,16.8,-42,19.99,-36,22.4,-30,24.24,-24,25.66,-18,26.71,-12,27.43,-6,27.85,0,28,6,27.85,12,27.43,18,26.71,24,25.66,30,24.24,36,22.4,42,19.99,48,16.8,51,14.74,54,12.20,57,8.74,59,4,60,0: O.PLUTONy-125,0,-125,5,-123,10,-120,15.62,-116,21.90,-112,26.60,-108,30.46,-104,33.76,-100,36.66,-96,39.24,-92,41.56,-88,43.68⤘-84,45.60,-80,47.37,-76,48.98,-72,50.47,-68,51.84,-64,53.10,-60,54.25,-56,55.31,-52,56.28,-48,57.16I-44,57.96,-40,58.68,-36,59.32,-32,59.89,-28,60.39,-24,60.82,-20,61.18,-16,61.48,-12,61.7,-8,61.87-4,61.96,0,62,4,61.96,8,61.87,12,61.70,16,61.48,20,61.18,24,60.82,28,60.39,32,59.8936,59.32,40,58.68,44,57.96,48,57.16,52,56.28,56,55.31,60,54.25,64,53.10,68,51.84,72,50.4776,48.98,80,47.37,84,45.60,88,43.68,92,41.56,96,39.24,100,36.66,104,33.76,108,30.46,112,26.60,116,21.90,120,15.62,123,10,125,5: O.NEPTUNOp-110,0,-108,5,-107,10,-106,14.69,-102,20.59,-98,24.97,-94,28.56,-90,31.62,-86,34.29,-82,36.66,-78,38.78,-74,40.69,-70,42.42,-66,44,-62,45.43,-58,46.73,-54,47.91,-50,48.98,-46,49.95,-42,50.83,-38,51.61,-34,52.30ӧ-30,52.91,-26,53.44,-22,53.88,-18,54.25,-14,54.55,-10,54.77,-6,54.91,-2,54.99,2,54.99,6,54.91210,54.77,14,54.55,18,54.25,22,53.88,26,53.44,30,52.91,34,52.30,38,51.61,42,50.83,46,49.9550,48.98,54,47.91,58,46.73,62,45.43,66,44,70,42.42,74,40.69,78,38.78,82,36.66,86,34.29ը90,31.62,94,28.56,98,24.97,102,20.59,106,14.69,107,10,108,5,110,2 : O.URANO[ -103,0,-101,5,-100,10,-99,14.21,-95,19.89,-91,24.12,-87,27.56,-83,30.49,-79,33.04,-75,35.29,-71,37.30,-67,39.11ĩ -63,40.74,-59,42.21,-55,43.54,-51,44.74,-47,45.82,-43,46.79,-39,47.66,-35,48.43,-31,49.11,-27,49.69$$ -23,50.19,-19,50.61,-15,50.95,-11,51.20,-7,51.38,-3,51.47,1,51.49,5,51.43,9,51.30,13,51.08. 17,50.79,21,50.41,25,49.95,29,49.41,33,48.78,37,48.06,41,47.24,45,46.32,49,45.29,53,44.158 57,42.89,61,41.49,65,39.94,69,38.23,73,36.33,77,34.20,81,31.81,85,29.08,89,25.92,93,22.13,97,17.32,101,10,102,5B : DATAS PLANETA1L 58,58,0.2,0.06,4878,400/-200QV 108,243,0.6,0.81,12104,350m` 150,1,1,1,12756,50/-50j 228,1.0,1.9,0.11,6800,25t 778,0.4,11.9,317.8,142800,-150ԫ~ 1418,0.4,29.5,95.14,120000,-170 2869,0.9,84,14.52,52000,-216 4495,0.7,165,17.25,48400,-228: 5898,6.3,248,0.10,3000,-233W EXPOSICION DE PLANETAo (,)(,),,BF :(-,):#,"ANALISIS DE LOS PLANETAS"Ȭ (.,):#,"ANALISIS DE LOS PLANETAS" :(-, )(,),,BF% (,):#,"EXPLICACIONES:":(,):#,"EXPLICACIONES:"R :(A,2):#,"EN EL ANALISIS DE LOS"~ ((,<):#,"PLANETAS APARECERAN UNOS" ((,F):#,"CUADROS QUE CONTENDRAN"ѭ ((,P):#,"INFORMACION REFERENTE" ((,Z):#,"AL PLANETA A TRATAR"! (A,n):#,"ESTOS DATOS NO TIENEN"N ((,x):#,"ACLARADAS LAS UNIDADES DE"k( ((,):#,"MEDICION."2 :(A,):#,"PULSA UNA TECLA"< (B,):#,"PULSA UNA TECLA"ͮF A$:A$""F :P P (,)(,),,BF Z (-,):#,"UNIDADES DE MEDIDA"/d (.,):#,"UNIDADES DE MEDIDA"Ln :(-, )(,),,BFyx (,():#,"DIST.AL SOL.....: 10^6 Km" (,2):#,"T.DE ROTACION...: DIAS"ͯ (,<):#,"T.DE TRASLACION.: AOS" (,F):#,"MASA............: TIERRAS"" (,P):#,"DIAMETRO........: Km"Q (,Z):#,"TEMPERATURA.....: GRADOS(C)" (,n):#,"LA UNIDAD TIERRA EQUIVALE A:" (7,}):#,"5,95 10^24Kg"ǰ :(A,):#,"PULSA UNA TECLA" (B,):#,"PULSA UNA TECLA" A$:A$"" :  (,)(,),,BFD (-,):#,"COMO ELEGIR UN PLANETA"n (.,):#,"COMO ELEGIR UN PLANETA:" (-, )(,),,BF :(7,():#,"1) MERCURIO"Ʊ (7,2):#,"2) VENUS"" (7,<):#,"3) TIERRA", (7,F):#,"4) MARTE"6 (7,P):#,"5) JUPITER";@ (7,Z):#,"6) SATURNO"WJ (7,d):#,"7) URANO"uT (7,n):#,"8) NEPTUNO"^ (7,x):#,"9) PLUTON"IJh :(,):#,"PULSA EL NUMERO DE PLANETA:"r (,):#,"PULSA EL NUMERO DE PLANETA:"(| :(,):#,"PARA RETORNAR AL MENU PULSA M"Y (,):#,"PARA RETORNAR AL MENU PULSA M" :A$$():A$"1"A$"2"A$"3"A$"4"A$"5"A$"6"A$"7"A$"8"A$"9" :A$"M"F: ̳ P(A$)㳤 (,)::#,A$ CJ:(,CJ)(,CJ),,BF:CJ% SP:,::,,.  SEGUN P. MERCURIO,VENUS,TIERRA,MARTE,JUPITER,SATURNO,URANO,NEPTUNO Y PLUTON Pv , , ,> ,f , ,,~, δ (,)(,),,BF״ SP (,)(,),,BF L (SP,)(_SP,),,B9 (SP,)(_SP,-),,BF& SPSPFR0 L:SP]: L|D (,SP)(_,-SP),,BN (,SP)(_,SP),,BX SPSP7b L:ǵl M E R C U R I Ov (,x),,:(,), R() AA X(R):Y(R), (X,xY),? (X,}Y),R (X,Y),e (X,xY),m AAs V E N U SҶ (,x),, :(,), :AA:(,x),AA,,AA,AA:AA: T I E R R A (,x), ,t "BM170,88S4C7G10F3L1G1L1G1L1G1L1G1L1G1G4D4F1R1F1R1E2F1R1F1R3D5G1R1G2D2G2D2G2D5G2D2G2U3H2U8H2U9R2H3R2H2R1H3U2E2H1U3H1U1" "BM180,124C7H1L1H3U1E1U1E1R2U1E2R1F1R2F1R1F3R5U2H3E2H1G2H1R1H1U1H1U1H1L1L2D1F1D1F1G1L1E1U1H1U1H1L2G1D3L1G1H1U4R1E3U2E5R3"F "BM180,124C7F1G1F1D4F1D1G1L1D1G1D8G1F3E4R1U1E1U1E3H2R2U1E1U1E2U6R2D5E1R1F1E1"n (,x),:(,P),,:(,),t* 4 M A R T E> (,x),#,:(,),ٸH R!:(,x),R,,A(R#),(R),@:R R R!:(,x),R,,A(R#),(R):R:"\ J U P I T E Rf (,x),<,:(,),:(,x),F,,,,@:(,x),:(,k),F,,,,@:(,k),p R :(n,xR),,,,,@0:(,xR),,,,Ab0,@0:(,xR),2,,A ,A3,@0z R9 (,),,,,Ab0:(,),:(,n), ,,,,@P:(,),N (,x),<,:c S A T U R N Os RF2 RBR?C:C :(,x),R,C,,,@0 R˺ (,x),(, :(,), ۺ RF2 RBR?C:C :(,x),R,C,,Ab0,@0 R% RL (,PR),F,,AB,AR,@0U R:f U R A N OtAA2<(,x),AA ,,Ab0,,@ $(,x),AA,,Ab0,,@ .AAۻ8(,x),#,:(,),BAA2< L(,x),AA ,,,Ab0,@ ,V(,x),AA,,,Ab0,@ 4`AA:jOt N E P T U N Om~(,x),(, :(,), }AA%(,x),AA,,AA ,Ab0,@˼(,),AA,,AA ,Ab0,@@(,q),AA,,AA ,Ab0,@@(,x),AA, ,,Ab0AA ,@0!AA4(,x),(, :M P L U T O Nk(,x),,:(,),: RUTINA PARARELLENAR DATOS EN RECUADROSǽ(,)::#,"DIST.SOL"(,)::#,"DIST.SOL" (~,)(~,),(~,)(~,-),((d,):#,"ROT">((e,):#,"ROT"U2(,):#,"TRAS"l<(,):#,"TRAS"F(,):#,"DIAMETRO"P(,):#,"DIAMETRO"Z(,,:):#,"MASA"Ҿd(-,:):#,"MASA"n(,,q):#,"TEMP."x(-,q):#,"TEMP."&(,):#,"PLANETA:";P$(P)H(,):#,"PLANETA:";P$(P)e:(BP,):#,R$(P)}(%,):#,DS$(P)(,):#,T$(P)(,):#,DI$(P)Ŀ($,O):#,MA$(P)ܿ(,):#,TE$(P) TT:TT:(,)(,),,BF:,,: ( EFECTO SONIDO LASERTA:,A:,:,&B11110111:A::t PROTECCION CONTRA BREACKz