s  "EFEME2.DAT" APPEND AS 1  )" ********* EFEMERIDES ************"  #,)" ********* EFEMERIDES ************" ( #, 2I < " COPYRIGHT (C) 1987 INFORCIENCIA " F " PLAZA MARAGALL 4 " P " BARCELONA 08026 " Z d  )" ESTE PROGRAMA CALCULA LAS EFEMERIDES ASTRONOMICAS PRINCIPALES"Y n  )"PARA EL SOL, LA LUNA, PLANETAS Y OBJETOS CERCA DE SU OPOSICION " x  )"LOS RESULTADOS SON VALIDOS PARA LOS SIGLOS DIEZ AL TREINTA " TMOPT " HORA DE EFEMERIDES (T.U. 24.00-HORA.MIN) ";TOD- " DIA ";DAYBg " MES ";MONB " AO ";YRB " INTRODUCIR LATITUD,XX.XX(N=+,S=-) ";LAT " INTRODUCIR LONGITUD,XXX.XX(W=+,E=-) ";LONGv #,"Efemrides astronmicas calculadas para las ";TOD;" horas del da ";DAYB;" de ";MONB #,"Los datos topocntricos son los relativos a las cordenadas:" #,"Longitud =";LONG;" grados. Latitud =";LAT;" grados." :OPTIONAL STATEMENT!CP]: ,: " COMPUTER IS CALCULATING": , *** CALCULO DEL TIEMPO ***TMNM$()"GMT""DAYLDAYB :LOCAL DAY, TMOPT DAYBDAYB(TOD)(TOD(TOD))d : GMT TOD6 GMT GMT GMTC@ ******* CALCULO DEL DIA JULIANO *********eJ MONB YR YRB: MONMONBT MONB YRYRB:MONMONB ^AA#(YRd)hBB#AA#(AA#)rJD#(6YR)(t(MON))DAYB RBB#.|JDS#(6YR)(t(MON))(DAYB)RBB#n ******* CALCULO DE T EN J C HASTA 0.5 TE ENE 1900 *****T#(JD#f)TS#(JDS#f) *** CALCULO DEL TIEMPO SIDEREO ***SIDT#ua KHTS#HmTS#TS#"SIDT#(SIDT#(SIDT#))OSIDT#SIDT#(DAYB(DAYB))Ġ T#ݘuT#T#&LSUN#(LSUN#h(LSUN#h))h0MSUN#U:X<3~j T#QItT#T#u]nT#T#T#:MSUN#(MSUN#h(MSUN#h))h%DRCN O=.e : RADIAN TO DEGREE FACTORDNYE((c~;RCN))QXES{bEQT(YE(LSUN#RCN)ES(MSUN#RCN)ESYE(MSUN#RCN)(LSUN#RCN)YEYE(LSUN#RCN) ESES(MSUN#))RCN< lECEARTH#z9 {iR/rT#JjT#T#yvCSUN#(ݰu yT#jpT#T#)(MSUN#RCN)(,${QsT#)(MSUN#RCN)˝u(MSUN#RCN)LSUNT#LSUN#CSUN# ******* CALCULO DE LA LONGITUD DE LA TIERRA ********  LSUNT# LEARTH# LSUNT# : LEARTH#LSUNT#7NUSUN#MSUN#CSUN# :SUN'S TRUE ANOMALYe *** CALCULATE R.A. AND DEC. FOR SUN ***TOP (LSUNT#RCN)(c~;RCN)BOT (LSUNT#RCN)RASUN(TOPBOT)RCN TOP BOT RASUN RASUN TOP BOT RASUN RASUN6 TOP BOT RASUN RASUNh] TOP BOT RASUN RASUNqRASUN RASUNDX(c~;RCN)(LSUNT#RCN) DECSUN(DX(DXDX))RCNMINSUN(RASUN(RASUN))< DMINSUN(DECSUN(DECSUN))<0* *** CALCULO DEL AZIMUT Y ALTURA DEL SOL ***I4HSUN(LCSTRASUN)>AF(DECSUNRCN)(LATRCN)(DECSUNRCN)(LATRCN)(HSUNRCN)HALTSUN(AF(AFAF))RCNRAZF((DECSUNRCN)(LATRCN)(ALTSUNRCN))(LATRCN)(ALTSUNRCN)1\AZSUN (I(AZF(AZFAZF)))RCNXf (HSUNRCN) AZSUNhAZSUNp *** CALCULATE SUN'S ANGULAR SIZE ***zTXSUN {((ECEARTH#(NUSUN#RCN))(ECEARTH#ECEARTH#)) *** CALCULATE EARTH/SUN DISTANCE ***;REARTH#)(ECEARTH#ECEARTH#)(ECEARTH#(NUSUN#RCN))h *** CALCULATE RISE/SET TIME OF SUN *** QT (LATRCN)(DECSUNRCN)TRS(I(QT(QTQT)))RCNGSTRRASUNTRS GSTR GSTRGSTRGSTSRASUNTRS GSTS GSTSGSTSHGMTF(GMT)(GMT(GMT))SIDT#[GMTRGSTRGMTFz GMTR GMTR GMTR  GMTR GMTRGMTRGMTSGSTSGMTF GMTS GMTSGMTS GMTS GMTSGMTS$ TMOPT RTGMTRLONG#. TMOPT STGMTSLONGH8 TMOPT RTGMTR(LONGK)mB TMOPT STGMTS(LONGK)L TMOPT RTGMTR(LONGK) V TMOPT STGMTS(LONGK) ` TMOPT RTGMTR(LONGZ)j TMOPT STGMTS(LONGZ)/t TMOPT RTGMTR(LONGZ) W~ TMOPT STGMTS(LONGZ) | TMOPT RTGMTR(LONGi) TMOPT STGMTS(LONGi) TMOPT RTGMTR(LONGi) TMOPT STGMTS(LONGi) TMOPT RTGMTR(LONGx)9 TMOPT STGMTS(LONGx)` TMOPT RTGMTR(LONGx) TMOPT STGMTS(LONGx) *** CALCULO DE LA DURACION SOLAR *** TX((lRCN)(LATRCN)(DECSUNRCN))(LATRCN)(DECSUNRCN): (TX) 6 TX1 (I(TX(TXTX)))RCNf TY(LATRCN)(DECSUNRCN): TY  TY1 (I(TY(TYTY)))RCN TL((TY1TX1)<)  2 TLSTRT ( 2R1RT:S1ST: CP   !< #,"Da juliano nmero ";JD#,!F "Da juliano nmero = ";JD#6!P #,E!Z #,"SOL"Q!d "SOL"!n #,"Tiempo sidreo de Greenwich: ";(SIDT#);" h. ";((SIDT#(SIDT#))<);" m.""x "Tiempo sidreo de Greenwich =";(SIDT#);" hr ";((SIDT#(SIDT#))<);" min"O" #,"Tiempo sidreo local: ";(LCST);" h.";((LCST(LCST))<);" m."" "Tiempo sidreo local ";(LCST);" horas ";((LCST(LCST))<);" minutos"" #,"Longitud eclptica: ";(LSUNT# ) ;" g."# "Longitud eclptica ";(LSUNT# ) N# #,"Ascensin recta aparente: ";(RASUN);" h. ";(MINSUN);" m."# "Ascensin recta aparente ";(RASUN);" horas ";(MINSUN);" minutos"#ASUNRASUN# #,"Declinacin aparente: ";(DECSUN);" g. ";((DMINSUN));" m. "C$ "Declinacin aparente ";(DECSUN);" grados ";((DMINSUN));" minutos"$ #,"Sale a las: ";(RT);" h. ";((RT(RT))<);" m.";TMNM$(TMOPT)$ "Sale a las ";(RT);" horas";((RT(RT))<);" minutos ";TMNM$(TMOPT)(% #,"Ocaso: ";(ST);" h. ";((ST(ST))<);" m. ";TMNM$(TMOPT)s% "Ocaso";(ST);" horas ";((ST(ST))<);" minutos ";TMNM$(TMOPT)% #,"Distancia a la Tierra: ";(REARTH#);"millones de km."& "Distancia a la Tierra:";(REARTH#);"millones de kilmetros" &&"&, #,*&6 #,"LUNA"<&@ #,"------"I&J "LUNA"z&T ******* CALCULOS PARA LA LUNA *********&^LMOON#ߌ7dZB|jT#&hLMOON#(LMOON#h(LMOON#h))h&rMMOON#2sc b+iT#'|MMOON#(MMOON#h(MMOON#h))h6'DMOON#e^/'†cjYT#a'DMOON#(DMOON#h(DMOON#h))h'LMOONT#LMOON#p=I(MMOON#RCN)#(DMOON#RCNMMOON#RCN)ip/(DMOON#RCN)'Z~(MMOON#RCN)'EFMN '#xT#OT|oT#T#(FFMN}/4僞@kT#\(LMOONT#LMOONT#EFMN >~(MSUN#RCN)(j}(FFMNRCN)(LMOONT#LMOONT#p|(DMOON#RCNMMOON#RCN)EFMN!Wj|(DMOON#RCNMSUN#RCNMMOON#RCN)~)LMOONT#LMOONT#fZ|(DMOON#RCNMMOON#RCN)EFMN`;|(DMOON#RCNMSUN#RCN)EFMN(|(MMOON#RCNMSUN#RCN)v4|(DMOON#RCN)EFMNy{(MSUN#RCNMMOON#RCN))LMOONT#LMOONT#٬zz(DMOON#RCNFFMNRCN))LMOONT#LMOONT#Lz(FFMNRCNMMOON#RCN)*LMOONT#LMOONT#X94z(FFMNRCNMMOON#RCN)R*LMOONT#LMOONT# O/z(DMOON#RCNMMOON#RCN)}*LMOONT#LMOONT# #z(MMOON#RCN)*LMOONT#LMOONT#C z(DMOON#RCNMMOON#RCN)0+BMOON# $(FFMNRCN)<(MMOON#RCNFFMNRCN)V(MMOON#RCNFFMNRCN)&1~(DMOON#RCNFFMNRCN)+BMOON#BMOON#Ga|(DMOON#RCNFFMNRCNMMOON#RCN)j<|(DMOON#RCNFFMNRCNMMOON#RCN)o|(DMOON#RCNFFMNRCN)5,&BMOON#BMOON#C {(MMOON#RCNFFMNRCN)tz(DMOON#RCNMMOON#RCNFFMNRCN)tz(MMOON#RCNFFMNRCN)v,0BMOON#BMOON#KYz(DMOON#RCNMSUN#RCNFFMNRCN)EFMN,:BMOON#BMOON# y(DMOON#RCNFFMNRCNMMOON#RCN),DBMOON#BMOON#' y(DMOON#RCNFFMNRCNMMOON#RCN)/-NBMOON#BMOON#^x(DMOON#RCNFFMNRCNMSUN#RCN)M-XMNAGE LSUNT#LMOONT#r-b MNAGE h MNAGE MNAGEh-l MNAGE  MNAGE MNAGE h-v MNAGE MDAYS (MNAGE)h~?l- MNAGE MDAYS (MNAGE)h~?l!.ELONMLSUNT#LMOONT# :MOON'S ELONGATIONC. ELONM ELONMELONMhe. ELONM  ELONMELONMh.PI(bs?T|(MMOON#RCN)'z(DMOON#RCNMMOON#RCN) z(DMOON#RCN)9x(MMOON#RCN)).ADMN PI/REA( )QG(PIRCN)p=/R#( )REARTH#REA( )(MNAGERCN)/IMNDMOON#~?I(MMOON#RCN)ff(MSUN#RCN)o#(DMOON#RCNMMOON#RCN)r((DMOON#RCN)"[~(MMOON#RCN)/FASEM((IMNRCN)) 0 *** R.A. AND DEC. OF MOON ***Y0TOP (LMOONT#RCN)(c~;RCN)(BMOON#RCN)(c~;RCN)s0BOT (LMOONT#RCN)0RAMUN(TOPBOT)RCN0  TOP BOT RAMUN RAMUN0 TOP BOT RAMUN RAMUN1  TOP BOT RAMUN RAMUNh'1* TOP BOT RAMUN RAMUN;14RAMUN RAMUN1>DX(c~;RCN)(LMOONT#RCN)(BMOON#RCN)(BMOON#RCN)(c~;RCN)1HDECMUN(DX(DXDX))RCN1RMINMUN(RAMUN(RAMUN))<1\DMINMUN(DECMUN(DECMUN))<$2f *** AZIMUTH AND ALTITUDE OF MOON ***=2pHMUN(LCSTRAMUN)2zAF(DECMUNRCN)(LATRCN)(DECMUNRCN)(LATRCN)(HMUNRCN)2ALTMUN(AF(AFAF))RCN2AZF((DECMUNRCN)(LATRCN)(ALTMUNRCN))(LATRCN)(ALTMUNRCN)%3AZMUN (I(AZF(AZFAZF)))RCNL3 (HMUNRCN) AZMUNhAZMUNq3 QT(LATRCN)(DECMUNRCN)3TRS(I(QT(QTQT)))RCN3GSTRRAMUNTRS3 GSTR GSTRGSTR3GSTSRAMUNTRS4 GSTS GSTSGSTS+4GMTF(GMT)(GMT(GMT))SIDT#>4GMTRGSTRGMTF]4 GMTR GMTR GMTR z4 GMTR GMTRGMTR4 GMTSGSTSGMTF4 GMTS GMTSGMTS4$ GMTS GMTSGMTS4. TMOPT RTGMTRLONG58 TMOPT STGMTSLONG+5B TMOPT RTGMTR(LONGK)P5L TMOPT STGMTS(LONGK)x5V TMOPT RTGMTR(LONGK) 5` TMOPT STGMTS(LONGK) 5j TMOPT RTGMTR(LONGZ)5t TMOPT STGMTS(LONGZ)6~ TMOPT RTGMTR(LONGZ) :6 TMOPT STGMTS(LONGZ) _6 TMOPT RTGMTR(LONGi)6 TMOPT STGMTS(LONGi)6 TMOPT RTGMTR(LONGi)6 TMOPT STGMTS(LONGi)6 TMOPT RTGMTR(LONGx)7 TMOPT STGMTS(LONGx)C7 TMOPT RTGMTR(LONGx)j7 TMOPT STGMTS(LONGx)7 "DATOS ASTRONOMICOS PARA ";DAYL;"/";MONB;"/";YRB;"@";TOD;TMNM$(TMOPT);" LAT= ";LAT;" LONG= ";LONG8 #,"Longitud eclptica: ";(LMOONT#);" g. "78 "Longitud eclptica ";(LMOONT#);" grados"g8 #,"Latitud eclptica: ";(BMOON#);" g."8 "Latitud eclptica ";(BMOON#);" g."8 #,"Edad lunar: ";MDAYS;"das"8 "Edad lunar ";MDAYS;"das"9( #,"Ascensin recta: ";(RAMUN);" h. ";(MINMUN);" m. "V92 "Ascensin recta ";(RAMUN);" HR ";(MINMUN);" MIN"9< #,"Declinacin: ";(DECMUN);" g. ";((DMINMUN));" m."9F "Declinacin ";(DECMUN);" grados";((DMINMUN));" minutos"*:P #,"Sale a las: ";(RT);" h. ";((RT(RT))<);" m. ";TMNM$(TMOPT)t:Z "Sale a las";(RT);" hr ";((RT(RT))<);" min ";TMNM$(TMOPT):d #,"Ocaso lunar a las: ";(ST);" h. ";((ST(ST))<);" m. ";TMNM$(TMOPT);n "Ocaso lunar a las ";(ST);" hr ";((ST(ST))<);" min ";TMNM$(TMOPT)V;x #,"Altura sobre el horizonte: ";(ALTMUN);" grados"; "Altura sobre el horizonte= ";(ALTMUN);" grados"; #,"Azimuth (grados): ";(AZMUN); "Azimuth (grados)= ";(AZMUN)< #,"Distancia en kilmetros: ";(REA( )p)O< "Distancia en kilmetros: ";(REA( )p)|< #,"Fase iluminada: ";(FASEMd);"%"< "Fase iluminada ";(FASEMd);"%"< #,"Dimetro angular: ";(ADMN<);"minutos" = "Dimetro angular:";(ADMN<);"minutos"6= #,"Elongacin: ";(ELONM);" grados."a= "Elongacin = ";(ELONM);" grados."k= #,u= #,= #,"PLANETAS"= #,"--------"= "PLANETAS"=" R2RT:S2ST: CP  CP R2S2=, :OPTIONAL STATEMENT=6 KK>@ CP  +>J CP  CP  [>T ******* CALCULO DE LOS PLANETAS *******>^ LC1#(),LC2#(),LC3#(),LC4#()>h A#()>r EC1#(),EC2#(),EC3#(),EC4#()>| IC1#(),IC2#(),IC3#(),IC4#()> OC1#(),OC2#(),OC3#(),OC4#()? MC1#(),MC2#(),MC3#()8? NP$( ),TXZ(),BF()h? *** COEFICIENTES PARA LAS ECUACIONES ***~? LC1#()nI-2? LC1#()<.b+? LC1#()L`? LC1#()]T n? LC1#()j=H? LC1#()1Zs@ LC1#()I0~)@ LC1#()0>:u5.@ LC2#()N֨D@ LC2#()׻?6dZ@ LC2#()dp@ LC2#()E=@& LC2#()@P@0 LC2#()K⬈V@: LC2#()B[@D LC3#()u@N LC3#();_"u@X LC3#()s"u@b LC3#()z/u Al LC3#()!*uAv LC3#()ͬ%u0A LC3#()(u>A LC4#()LA LC4#()ZA LC4#()mA LC4#()u]mA LC4#()BoA LC4#()!lA LC4#()!lA A#()1FA A#()C,9A A#()7CA A#()a{&A A#()> B A#()B A#()fp*B A#()=@B EC1#()+R~RB* EC1#()_ydB4 EC1#()?}vB> EC1#()E|BH EC1#()Xd|BR EC1#()=|B\ EC1#()ozBf EC1#()Bp EC2#()+qBz EC2#()o-iFxOC1#()8 Q%CFOC1#()V-(FFOC1#()$aFOC1#()GFOC1#()noFOC1#()]o[FOC2#()PFOC2#()\fGOC2#()_E#GOC2#() Y5GOC2#()_GGOC2#()cQYGOC2#() kGOC3#()X6t}GOC3#()EVuGOC3#();mGOC3#()+8uG"OC3#()tG,OC3#()Y+wG6OC3#()uG@OC4#()GJOC4#()HTOC4#()Z2oH^OC4#(),p.HhOC4#(),2o ****** PARAMETROS PARA JUPITER/SATURNO/URANO/NEPTUNO PERTURBACIONES *****MHNUP#T#L},MRPP#(ym~b=T#)RCNQM\QP#([d;OwT#)RCNnMfSP#(`s;VT#)RCNMpHP#(׉'w}ZT#)RCNSP#MzUPERL#/](HP#)yX(}(HP#)t|(HP#)MUPERM#UPERL#(_v}(HP#)v{(HP#))E#(KK)7NNPERL#"(HP#)e|(HP#)G{(HP#)nNNPERM#NPERL#(D{(HP#)AO{(HP#))E#(KK)NVP#QP#PP#NZP#QP#PP#NJPERL#x)(VP#)o}NUP#(VP#)C |(ZP#)(QP#)t|(ZP#)(QP#)-OJPERL#JPERL# #zNUP#(VP#)B`ez(ZP#)t{(ZP#)OJPERM#JPERL#( #{(VP#)C |(ZP#)(QP#)P|(ZP#)(QP#))E#(KK)OSPERL#NbP(VP#)0$~NUP#(VP#)u~(ZP#)'|(ZP#)T%}(ZP#)(QP#) 0}(ZP#)(QP#)JPSPERL#SPERL#uz(ZP#)C {(ZP#)(QP#)uz(ZP#)(QP#)PSPERL#SPERL#L{(ZP#)(QP#)B`ez(ZP#)(QP#)PSPERM#SPERL#(.}(VP#)j<|(VP#)}(ZP#)(QP#)}(QP#)~(ZP#)(QP#))E#(KK)/QSPERM#SPERM#(D{(ZP#)(QP#))E#(KK)bQSPERM#SPERM#(/]{(ZP#)(QP#))E#(KK)Q KK KK KK KK ADD1:ADD2:ADD3:ADD4Q KK ADD1:ADD2:ADD3:ADD4Q$ KK ADD1:ADD2:ADD3:ADD4R. KK ADD1:ADD2:ADD3:ADD4DR8 KK ADD1:ADD2:ADD3:ADD4RBL#(KK)LC1#(KK)LC2#(KK)T#LC3#(KK)T#T#LC4#(KK)T#T#T#ADD1JPERL#ADD2SPERL# ADD3UPERL# ADD4NPERL#SL KK  L#(KK) L#(KK)h(JD#B)(w6):PLUTOASVL#(KK)(L#(KK)h(L#(KK)h))h :HELIOC. LONGITUDEfS`A#(KK)A#(KK) :SEMI-MAJOR AXISSjI#(KK)IC1#(KK)IC2#(KK)T#IC3#(KK)T#T#IC4#(KK)T#T#T# :INCLINATIONTtO#(KK)OC1#(KK)OC2#(KK)T#OC3#(KK)T#T#OC4#(KK)T#T#T# :LON.AS.NODE{T~M#(KK)MC1#(KK)MC2#(KK)T#MC3#(KK)T#T#MC4#(KK)T#T#T#ADD1JPERM#ADD2SPERM# ADD3UPERM# ADD4NPERM#TM#(KK)(M#(KK)h(M#(KK)h))hT KK  M#(KK) L#(KK)Ղ})` :PLUTO U M#(KK) M#(KK)M#(KK)h :MEAN ANOMALYUEE#(KK)M#(KK)eUEE#(KK)M#(KK)E#(KK)(EE#(KK)RCN)RCN :ITERATIONS TO CONVERGEUEE#(KK)M#(KK)E#(KK)(EE#(KK)RCN)RCNUEE#(KK)M#(KK)E#(KK)(EE#(KK)RCN)RCNUEE#(KK)M#(KK)E#(KK)(EE#(KK)RCN)RCNVEE#(KK)M#(KK)E#(KK)(EE#(KK)RCN)RCN`VEE#(KK)M#(KK)E#(KK)(EE#(KK)RCN)RCN :ECCENTRIC ANOMALYVR#(KK)A#(KK)(E#(KK)(EE#(KK)RCN)) :HELIOC. RADIUSVTXX#((E#(KK))(E#(KK)))(EE#(KK)RCN)VNU#(KK)(TXX#)RCNW  NU#(KK) NU#(KK)NU#(KK)hNW NU#(KK)h NU#(KK) NU#(KK)h :TRUE ANOMALYWU#(KK)L#(KK)NU#(KK)M#(KK)O#(KK) :ARGM. OF LATITUDEW(PB#(U#(KK)RCN)(I#(KK)RCN)W2B#(KK)(PB#(PB#PB#))RCN X<TYY#(I#(KK)RCN)(U#(KK)RCN)(U#(KK)RCN)0XFT(I#(KK)RCN)(U#(KK)RCN)IXPLL#(KK)(TYY#)RCNpXZ TYY# T LL#(KK) LL#(KK)Xd TYY# T LL#(KK) LL#(KK)Xn TYY# T LL#(KK) LL#(KK) Xx TYY# T LL#(KK) LL#(KK) h3YLL#(KK)LL#(KK) O#(KK): LL#(KK)h LL#(KK)LL#(KK)h9Y?YY "DATOS ASTRONOMICOS PARA ";DAYL;"/";MONB;"/";YRB;"@";TOD;TMNM$(TMOPT);" LAT= ";LAT;" LONG= ";LONGYYY " LONGITUD MEDIA HELIOCENTRICA ";NP$(KK);" = ";L#(KK)7Z " DISTANCIA HELIOCENTRICA UA. ";NP$(KK);" = ";R#(KK)yZ " EXCENTRICIDAD ";NP$(KK);" = ";E#(KK)Z " INCLINACION ";NP$(KK);" = ";I#(KK)Z " LONGITUD DEL NODO ASCENDENTE ";NP$(KK);" = ";O#(KK)?[ " ANOMALIA MEDIA ";NP$(KK);" = ";M#(KK)[ " ANOMALIA EXCENTRICA ";NP$(KK);" = ";EE#(KK)[ " ANOMALIA VERDADERA ";NP$(KK);" = ";NU#(KK)\ " ARGUMENTO DE LATITUD PERIHELIO ";NP$(KK);" = ";U#(KK)J\ " LONGITUD VERDADERA ";NP$(KK);" = ";LL#(KK)\" " LATITUD VERDADERA ";NP$(KK);" = ";B#(KK)\,\6\@BBI#(U#(KK)RCN)(I#(KK)RCN)\JBB#(KK)(BBI#(BBI#BBI#))]TNN#R#(KK)(BB#(KK))(LL#(KK)RCNLSUNT#RCN)X]^DD#R#(KK)(BB#(KK))(LL#(KK)RCNLSUNT#RCN)REARTH#t]hLG#(KK)(NN#DD#)RCN]r NN#DD# NN# LG#(KK)LG#(KK)]| NN#DD# NN# LG#(KK)LG#(KK)] NN#DD# NN# LG#(KK)LG#(KK)&^ NN#DD# NN# LG#(KK)LG#(KK)hA^LG#(KK)LG#(KK)LSUNT#i^ LG#(KK)h LG#(KK)LG#(KK)h^P1#REARTH#REARTH#R#(KK)R#(KK)^P2#REARTH#R#(KK)(LL#(KK)RCNLEARTH#RCN)(B#(KK)RCN)^GR#(KK)(P1#P2#)_BFR#(KK)(B#(KK)RCN)GR#(KK)(_BPL(KK)(BF)RCNv_TOP (LG#(KK)RCN)(c~;RCN)(BPL(KK)RCN)(c~;RCN)_BOT (LG#(KK)RCN)_RAPL(KK)(TOPBOT)RCN_ TOP BOT RAPL(KK) RAPL(KK)` TOP BOT RAPL(KK) RAPL(KK)2` TOP BOT RAPL(KK) RAPL(KK)h_` TOP BOT RAPL(KK) RAPL(KK)y`&RAPL(KK) RAPL(KK)`0DX(c~;RCN)(LG#(KK)RCN)(BPL(KK)RCN)(BPL(KK)RCN)(c~;RCN)`:DECPL(KK)(DX(DXDX))RCN"aDMINPL(KK)(RAPL(KK)(RAPL(KK)))<NaNDMINPL(KK)(DECPL(KK)(DECPL(KK)))<{aX *** AZIMUTH AND ALTITUDE OF PLANET ***abHPL(KK)(LCSTRAPL(KK))alAF(DECPL(KK)RCN)(LATRCN)(DECPL(KK)RCN)(LATRCN)(HPL(KK)RCN)bvALTPL(KK)(AF(AFAF))RCNjbAZF((DECPL(KK)RCN)(LATRCN)(ALTPL(KK)RCN))(LATRCN)(ALTPL(KK)RCN)bAZPL(KK)(I(AZF(AZFAZF)))RCNb (HPL(KK)RCN) AZPL(KK)hAZPL(KK)bELON(KK)LSUNT#LG#(KK)c ELON(KK) ELON(KK)ELON(KK) h?c ELON(KK)  ELON(KK) ELON(KK) h{cFASE(KK)((LG#(KK)RCNLL#(KK)RCN)) :PHASEcMAG(KK)(GR#(KK)R#(KK)BF(KK)(FASE(KK)))]33[ :MAGNITUDEcTX(KK)TXZ(KK)GR#(KK) :ANGULAR SIZEd QT(LATRCN)(DECPL(KK)RCN)HdTRS(I(QT(QTQT)))RCNadGSTRRAPL(KK)TRS~d GSTR GSTRGSTRdGSTSRAPL(KK)TRSd  GSTS GSTSGSTSdGMTF(GMT)(GMT(GMT))SIDT#d GMTRGSTRGMTFe* GMTR GMTR GMTR +e4 GMTR GMTRGMTR>e>GMTSGSTSGMTFZeH GMTS GMTSGMTSweR GMTS GMTSGMTSe\ TMOPT RTGMTRLONGef TMOPT STGMTSLONGep TMOPT RTGMTR(LONGK)fz TMOPT STGMTS(LONGK))f TMOPT RTGMTR(LONGK) Qf TMOPT STGMTS(LONGK) vf TMOPT RTGMTR(LONGZ)f TMOPT STGMTS(LONGZ)f TMOPT RTGMTR(LONGZ) f TMOPT STGMTS(LONGZ) g TMOPT RTGMTR(LONGi)5g TMOPT STGMTS(LONGi)\g TMOPT RTGMTR(LONGi)g TMOPT STGMTS(LONGi)g TMOPT RTGMTR(LONGx)g TMOPT STGMTS(LONGx)g TMOPT RTGMTR(LONGx)h TMOPT STGMTS(LONGx)1h RT RTRTGh ST STSTMh$Sh.ah8 NP$(KK)rhB #,NP$(KK)hL #,"-----------"hVh` "Distancia en millones de km. "; (GR#(KK))ij #,"Distancia en millones de km.:"; (GR#(KK))8it "Longitud geocntrica ";NP$(KK);" = ";LG#(KK)ki~ "Latitud geocntrica ";NP$(KK);" = ";BPL(KK)i "Ascensin recta aparente ";(RAPL(KK));"horas ";(MINPL(KK));" minutos." j #,"Ascensin recta aparente:";(RAPL(KK));"h. ";(MINPL(KK));" m."^j "Declinacin aparente ";(DECPL(KK));" grados ";((DMINPL(KK)));" minutos"j #,"Declinacin aparente: ";(DECPL(KK));" g.";((DMINPL(KK)));" m."j "Orto local ";(RT);" horas";((RT(RT))<);" minutos";TMNM$(TMOPT);k #,"Orto local: ";(RT);" h.";((RT(RT))<);" m."k "Ocaso ";(ST);"horas ";((ST(ST))<);" minutos";TMNM$(TMOPT)k #,"Ocaso:";(ST);"h. ";((ST(ST))<);" m."k "Acimut: ";(AZPL(KK));" grados."l #,"Acimut: ";(AZPL(KK));" grados."Ol "Altura sobre el horizonte: ";(ALTPL(KK));" grados."l #,"Altura sobre el horizonte: ";(ALTPL(KK));" grados."l "Dimetro aparente (seg.):";(TX(KK))l  #,"Dimetro aparente (seg.):";(TX(KK))&m "Fraccin iluminada del disco ";(FASE(KK)d);"%"dm #,"Fraccin iluminada del disco: ";(FASE(KK)d);"%"m" ELON(KK) E$"g. este"m$ ELON(KK) E$"g. oeste"m( "Su elongacin es de ";((ELON(KK)));E$n2 #,"Su elongacin es: ";((ELON(KK)));E$&n< "Magnitud ";(MAG(KK))GnF #,"Magnitud:";(MAG(KK))ZnPAS0(RAPL(KK))dnZ nnd nn #," en la contelacin de ";C$nx #,nRISE(KK)RT:SET(KK)STn KK : GO TO NEXT PLANETn ^3o (ELON(KK)) #,"Inobservable por estar en conjuncin con el Sol";o ELON(KK)Z ELON(KK) #,"Observable antes de la salida del Sol";o ELON(KK) ELON(KK)Z #,"Observable despus de la puesta del Sol";p (ELON(KK))Z #,"Observable casi toda la noche";pEp AS0333 AS0L C$"Aries"pp AS0L AS0 0 C$"Taurus"p AS00 AS0 C$"Geminis"p AS0 AS033 C$"Cancer"p AS033 AS05 C$"Leo" q AS05 AS033c C$"Virgo"6q AS033c AS0ffv C$"Libra"bq AS0ffv AS033 C$"Escorpio"q" AS033 AS033 C$"Ophiuco"q, AS033 AS0 C$"Sagitario"q6 AS0 AS00 C$"Capricornio"r@ AS00 AS0@ C$"Acuario":rJ AS0 AS0333 C$"Piscis"@rT}r^ #,"OBJETOS DE INTERES PROXIMOS A LA OPOSICION AL SOL"rh "OBJETOS DE INTERES PROXIMOS A LA OPOSICION AL SOL"rr #,"ESTRELLAS VARIABLES"r| "ESTRELLAS VARIABLES"r  8sAR:DCR":MG33S:N$"U Cephei":TP$"Variable"Bs  sAR{:DC:MG<:N$"SU Casiopea":TP$"Variable"s  sARfff:DC$:MG:N$"VZ Camelopardalis":TP$"Variable"s  tAR(2:DCffh:MGfff:N$"Delta Cephei":TP$"Variable"$t  ctAR{8:DC[:MGff:N$"Beta Pegasi":TP$"Variable"mt  tARG;:DCpu:MG9:N$"R. Aquarii":TP$"Variable"t  tAR= W~:DCR:MG<:N$"R. Andrmeda":TP$"Variable"u  >uARq= :DCG:MGY:N$"Mira Ceti":TP$"Variable"Hu&  u0AR:DC:MG,:N$"R. Trianguli":TP$"Variable"u:  uDAR\B:DC !:MG :N$"Algol":TP$"Variable"uN  vXARe:DC)\C:MG33S:N$"Lamda Tauri":TP$"Variable"vb  avlAR\:DC-:MG33S:N$"Epsiln Aurigae":TP$"Variable"kvv  vAR= G:DCq=b:MG9:N$"T. Monocerotis":TP$"Variable"v  vAR33:DCff6:MG,:N$"R. Leonis":TP$"Variable"v  ARk:DCQe:MGfff:MG1p:DI :N$"n Cassiopeiae":TP$"Doble"NyH  yRARK:DC :MG :MG1ff&:DI:N$"alfa Piscium":TP$"Doble"y\  yfAR:DCq=(:MG33:MG133#:DI :N$"Y Andromedae":TP$"Doble"yp  AzzAR:DCGA:MGl:MG1L:DI:N$"Y Ceti":TP$"Doble"Kz  zARq=*:DCף:MGl:MG1333:DI:N$"L Orionis":TP$"Doble"z  zAR(,:DCq=J:MG:MG1ff:DI:N$" Orionis":TP$"Doble"z  <{ARQH:DC`:MG33:MG1ff:DI:N$"B Monocerotis":TP$"Doble"F{  {ARpM:DC33m:MG:MG1,:DI:N$"12 Lyncis":TP$"Doble"{  {ARq=R:DCQd:MGL:MG1:DI:N$"E. Canis Majoris":TP$"Doble"{  <|AR :DC{B:MGff&:MG133s:DI:N$"Regulus":TP$"Doble"F|  |ARff2:DC{:MG :MG1:DI:N$"E. Osa Mayor":TP$"Doble"|  |ARR":DCz :MGff&:MG133s:DI:N$"Y Leonis":TP$"Doble"|$  9}.ARq=F:DC{:MGfff:MG1fff:DI:N$"Y Virginis":TP$"Doble"C}8  }BARףH:DCff:MG9:MG1,:DI:N$"Cor Caroli":TP$"Doble"}L  }VARS:DCp\:MG:MG1y:DI:N$"Mizar":TP$"Doble"}`  1~jARHf:DC)\Y:MG,:MG133#:DI:N$"E. Bootis":TP$"Doble";~t  ~~ARq=:DC33:MG9:MG133#:DI:N$"B. Scorpi":TP$"Doble"~  ~AR{:DCQ:MG:MG1P:DI:N$"Antares":TP$"Doble"~  ,AR :DCp:MG:MG10:DI:N$"p Herculis":TP$"Doble"6  ARz :DC\:MG:MG1 :DI>:N$"V. Draconis":TP$"Doble"  ARp:DCz:MGff:MG1:DI:N$"e Lyrae":TP$"Doble"  &ARp:DCG:MG :MG1<:DI,:N$" Lyrae":TP$"Doble"0  |ARQ:DC\:MG:MG1:DI:N$"0 Serpentis":TP$"Doble"  π ARQ:DC(\:MGL:MG1,:DI#:N$"B. Cycni":TP$"Doble"ـ   #,( #,"NEBULOSAS Y CONGLOMERADOS"*2 "NEBULOSAS Y CONGLOMERADOS"4<  {FAR:DC)\~:MGff:N$"M 77 Persei":TP$"Galaxia Seyfert"P  ʁZAR(\:DC:MGL:N$"Pleiades":TP$"Conglomerado abierto"ԁd  :nAR):DCR,:MGff:N$"Nebulosa del cangrejo":TP$"Vestigio de la supernova del ao 1054"Dx  ARq=*:DC(:MG:N$"Nebulosa de Orin":TP$"Nebulosa difusa"  ႖AR:DC :MG:N$"El Pesebre":TP$"Conglomerado abierto"날  -ARR2:DC\R:MG :N$"M 66":TP$"Galaxia espiral SB"7  ARzD:DCffF:MG33:N$"M 87":TP$"Galaxia elptica gigante con quasar central"  ARE:DC)\3:MG33 :N$"M 104 Virginis":TP$"Galaxia espiral SB"  ;ARףH:DC\,:MG33S:N$"M 64 Comae":TP$"Galaxia espiral SB"E  AR33:DCQ:MGff6:N$"M13 de Hrcules":TP$"Conglomerado globular"  AR:DC A:MG:N$"M 8 Sagitari":TP$"Nebulosa difusa"  B"AR(:DCQ:MG:N$"Nebulosa anular de la Lyra":TP$"Nebulosa planetaria"L,  6AR\:DC2:MG33s:N$"La campana silenciosa":TP$"Nebulosa planetaria"@  J #,хT #,"ESTRELLAS FUGACES"܅^MMONBPh M #,"Quadrntidas: visibles del 1 al 6 de enero con un mximo el da 4. Radiante:AR=15h.28m. Dec=50 ."m M #,"Coma Berencidas: visibles del 12 de diciembre al 23 de enero con un mximo el da 17 de enero. Radiante:AR=12h.24m. Dec=20 ."an M #,"Centuridas: visibles del 28 de enero al 23 de febrero con un mximo el da 8. Radiante:AR=13h.56m. Dec=-59."݇o M #,"Lenidas: visibles del 5 de febrero al 19 de marzo con un mximo el da 26. Radiante:AR=10h.36m. Dec=19."bp M #,"Lenidas: visibles del 3 de febrero al 15 de abril con un mximo el da 13 de marzo. Radiante:AR=12h.24m. Dec= 0."q M #,"Nrmidas: visibles del 25 de febrero al 22 de marzo con un mximo el da 14 de marzo. Radiante:AR=16h.20m. Dec=-49."^r M #,"Virgnidas: visibles de marzo a abril con un mximo el da 12 de abril. Radiante:AR=14h. Dec=-9 ."ω| M #,"Lridas: visibles del 19 al 25 de abril con un mximo el da 21. Radiante:AR=18h.8m. Dec=32 ."R M #,"Acuridas: visibles del 24 de abril al 20 de mayo con un mximo el da 5 de mayo. Radiante:AR=22h.20m. Dec=-1 ." M #,"Escorpinidas: visibles del 28 de abril al 13 de mayo . Radiante:AR=16h.32m. Dec=-24."@ M #,"Ophiocidas: visibles del 19 de mayo al 5 de julio con un mximo el da 10 de junio. Radiante:AR=17h 56m. Dec=-23." M #,"Turidas: visibles del 24 de junio al 6 de julio. Radiante:AR=5h.44m. Dec=19." M #,"Cignidas: visibles durante julio y agosto. Radiante:AR=21h 00m. Dec=48."W M #,"Cignidas: visibles durante julio y agosto. Radiante:AR=21h 00m. Dec=48." M #,"Capricornidas: visibles durante julio y agosto. Radiante:AR=20h 44m. Dec=-15." M #,"Capricornidas: visibles durante julio y agosto. Radiante:AR=20h 44m. Dec=-15." M #,"Acuridas: visibles del 15 de julio al 20 de agosto. Radiante:AR=22h 36m. Dec=-17." M #,"Acuridas: visibles del 15 de julio al 20 de agosto. Radiante:AR=23h 04m. Dec=02."S M #,"Piscis Austrlidas: visibles del 15 de julio al 20 de agosto. Radiante:AR=22h 40m. Dec=-30."Ž M #,"Piscis Austrlidas: visibles del 15 de julio al 20 de agosto. Radiante:AR=22h 40m. Dec=-30." M #,"Acuridas: visibles durante julio y agosto. Radiante:AR=22h 10m. Dec=-15."| M #,"Acuridas: visibles durante julio y agosto. Radiante:AR=22h 04m. Dec=-06." M #,"Persidas: visibles del 23 de julio al 20 de agosto, con un mximo el da 12 de agosto. Radiante:AR=03h 04m. Dec=58." M #,"Persidas: visibles del 23 de julio al 20 de agosto, con un mximo el da 12 de agosto. Radiante:AR=03h 04m. Dec=58." M #,"Piscidas: visibles del 9 de setiembre al 13 de octubre. Radiante:AR=00h 36m. Dec=07."_& M #,"Piscidas: visibles del 9 de setiembre al 13 de octubre. Radiante:AR=01h 44m. Dec=14."0 M #,"Orinidas: visibles del 16 al 27 de octubre. Radiante:AR=06h 24m. Dec=15."G: M #,"Taridas: visibles del 20 de octubre al 30 de noviembre con un mximo el 3 de noviembre. Radiante:AR=03h 44m. Dec=22."ђD M #,"Taridas: visibles del 20 de octubre al 30 de noviembre con un mximo el 3 de noviembre. Radiante:AR=03h 44m. Dec=14."QN M #,"Lenidas: visibles del 15 al 20 de noviembre con un mximo el 17 de noviembre. Radiante:AR=10h 08m. Dec=22."X M #,"Puppids-Vlidas: visibles del 27 de noviembre al 9 de enero con un mximo el 9 de diciembre. Radiante:AR=09h 00m. Dec=-48."pb M #,"Puppids-Vlidas: visibles del 27 de noviembre al 9 de enero con un mximo el 26 de diciembre. Radiante:AR=09h 20m. Dec=-65."l M #,"Gemnidas: visibles del 7 al 16 de diciembre con un mximo el 13 de diciembre. Radiante:AR=07h 28m. Dec=32."ov M #,"Ursidas: visibles del 17 al 25 de diciembre con un mximo el 22 de diciembre. Radiante:AR=14h 28m. Dec=78." #,"SOCIEDAD ASTRONOMICA DE ESPAA Y AMERICA"ԕ "SOCIEDAD ASTRONOMICA DE ESPAA Y AMERICA"ޕ :. (RASUNAR) (RASUNAR) #,;N$;" AR=";AR;" DC=";DC;" MG=";MG{ (RASUNAR) (RASUNAR) ;N$;" AR=";AR;" DC=";DC;" MG=";MG ٖ (RASUNAR) (RASUNAR) #,;N$;" AR=";AR;" DC=";DC;" MG=";MG;"-";MG1. (RASUNAR) (RASUNAR) ;N$;" AR=";AR;" DC=";DC;" MG=";MG;"-";MG14 (RASUNAR) (RASUNAR) #,;N$;" AR=";AR;" DC=";DC;" MG=";MGї (RASUNAR) (RASUNAR) ;N$;" AR=";AR;" DC=";DC;" MG=";MGח