ScambioLinks, Foglio calcolo Effemeridi in Excel, VBA for Astronomer, Metatag Meta-Tag Scambio Links Scambiolink Scambiolinks - Astronomy Calculations - VBA module, Astronomia con Excel, Nautical Almanac
Link PopularityReferrer List Popolarità sito SEO SERP SEOCONTEST Posizionamento Google Dance GoogleTools Generatore metatag professionale, GoogleSite AdWord AdSense Risorse Nuke Script Php Scambiolink.supeweb.

ScambioLink Scambio Links ScambioBanner Banner Scambio Pagerank FreePagerank CheckRank Ranking FreeLink Gratis Free Indicizzare Indicizza Metatag Meta-Tag Link Popularity Popolarità sito SEO SERP SEOCONTEST Posizionamento Referrer List Google Dance scambiolink.superweb.ws
Home -  Regolam./ADERISCI -  Ns.Loghi -  Genera Metatag Prof. -  Top100 -  Sitemap -  Facebook chiede documenti (VIOLAZIONE PRIVACY)
Aurora -  Aurora 2 -  Aurora 3 -  Calcolatore Eclissi -  Cronologia Temporale -  Lunar Perigeo-Apogeo - Foglio di Calcolo Effemeridi in excel per Astronomia

[ VBA Code Excel for Astronomer ]



Ecco finalmente le Routine in Codice VBA, utilizzate nel foglio di calcolo per Effemeridi in Excel dalla Vers. 2017.10F. R0
VBA CODE EXCEL, ROUTINE FOR SHEETCALC EPHEMERIS ON EXCEL . (List function.)
Project born:
Developed between:
Num° of Published Versions:
Num° Sheet calc, pages part integral project :
Num° Shhet Calc pubblic
Latest Version pubblished:
Named project:
10/1997 -
1997 / 2008-
6
20
4
2017.10F.R0
Foglio Calcolo Effemeridi in excel, Sheet Calculate for Astronomy on Excel
2 Routines a questo momento chiamate : Con queste si possono calcolare i seguenti dati !
Astro-functions Dreaker Rev.2017.10F.R1
" AstroDreaker.bas "
" AstroCorrettivi.bas "
ROUTINE >    " ASTRODREAKER.BAS "     VBA EXCEL

01) DegSIN(xx) SIN(radianti)         ----- Seno - (Radianti)
02) DegCos(xx) COS(radianti)         ----- Coseno - (Radianti)
03) DegTan(xx) TAN(radianti)         ----- Tangente - (Radianti)
04) Sin(x)                                          ----- Seno
05) Cos(x)                                         ----- Coseno
06) Tan(x)                                         ----- Tangente
07) ArcSin (xx)                                 ----- ArcoSeno
08) DegArcSin(xx)                           ----- ArcoSeno - (Radianti)
09) Arccos(xx)                                 ----- ArcoCoseno
10) DegArccos(xx)                          ----- ArcoCoseno - (Radianti)
11) ArcTanX(xx)                              ----- ArcoTangente X
12) DegArcTanX(xx) = ArcTan(xx°) ----- ArcoTangente X - (Radianti)
13) SecantX (xx)                              ----- Secante
14) CosecantX(xx)                           ----- Cosecante
15) CotangentX (xx)                        ----- Cotangente
16) SecantInvX (xx)                        ----- Secante Inversa
17) CosecantInvX (xx)                    ----- Cosecante Inversa
18) CotangentInvX (XX)                  ----- Cotangente Inversa
19) SenIperbX (xx)                         ----- Seno Iperbolico
20) CosIperbX (xx)                         ----- Coseno Iperbolico
21) TanIperbX (xx)                         ----- Tangente Iperbolica
22) SecIperbX (xx)                         ----- Secante Iperbolica
23) CosIperbX (xx)                         ----- Cosecante Iperbolica
24) CotIperbX (xx)                         ----- Cotangente Iperbolica
25) SenIperbInvX (xx)                   ----- Seno Iperbolico Inverso
26) CoSenIperbInvX (xx)               ----- Coseno Iperbolico Inverso
27) TanIperbInvX(xx)                    ----- Tangente Iperbolica Inversa
28) SecantIperbInvX(xx)              ----- Secante Iperbolica Inversa
29) COSecantIperbInvX(xx)         ----- Cosecante Iperbolica Inversa
30) COTangIperbInvX(xx)            ----- Cotangente Iperbolica Inversa
31) Logbn(xx)                                ----- Logaritmo in base N
32) LogDEC(xx)                             ----- Logaritmo decimale (LOG10)
33) LogbasY(xx)                            ----- Logaritmo a base Y
34) SesToRad(xx)                          --- Sessagesimali a Radianti
35) RadToSes(xx)                          --- Radianti a Sessagesimali
36) DegTan2(x ; y)                        --- ARCoCOTangente - (RADIANTI)
37) ArcTan2( X, Y)                        --- ArcTan2( X, Y)
38) Range2pi(xx°)                         --- Return argument range 0 to 2pi or 0 to 360
39) Range360(xxx) = RESTO( x,y + yx;360) --- Funzione RESTO di excel convertita in VBA
39-a) Range(x)                              --- “ “ altra funzione RESTO
40) degToRad(xx°)                       --- Converte Gradi a Radianti
41) radToDeg                                --- Converte Radianti a Gradi
42) DegDecimal(Degrees;minutes;seconds)   --- Converte Gradi decimali in gradi/min/sec
43) Convert_Degree(cella)          --- Converte gradi/min/sec in Gradi decimali-
44) Convert_DecToSSgs(gradi,decimali)        --- Converte gradi decimali a sessagesimali
45) CalculateSquareRoot(x)        --- Valore Radice quadrata.
46) – reminder                             ----------- funzione usata per agemoon
47) dec_To_roman(anno)           --- Converte Anno in numero Romano
48) power( x; y)                          --- Calcolo elevamento a potenza x ( ² )
49) cubicRoot(x)                         --- Funzione Radice cubica x ( ³ )
50) Quad2(x)                              --- quadrato(x) = x²
51) Quad3(x)                              --- cubico(x) =x³
52) annocompatto(ycomp)         --- Calcolo Anno compatto con dati.
53) frazt(x)                                 --- Calcola frazione di un numero, estrae a parte decimale
54) besselianday(bessdy)          --- Conversione tempo frazione anno in tempo bessel
55) calcJD(anno;mese;giorno;ora;minuti;secondi)         --- Giorno Giuliano (JD) ufficiale + correz. Fraz.giorno
56) calcSolJD(anno;mese;giorno;ora;minuti;secondi)   --- Calc.Giorno Giuliano xSolarCalc
57) CalcS2                                    --- Calcola il Giorno Giuliano, x Solar Calc 2 vers. per C103
58) calcJD0(anno;mese;giorno) --- Calcolo giuliano altra versione
59) timeTET(calcJD) ((jd - 2415020,0) / 36525#) --- .. Time ephemeris TE/TT/TDT 1/1/1900 TU12
60) JD02k(calcJD) (JD - 2451545#)        --- Calc. Numero di giorno, since JDE_to_J2000
61) J2000_to_JDE(JD02k)                        --- Calc. Number of days since 1/1/2000 J2000_to_JDE
62) te2k0(calcJD) ((jd - 2451545.0) / 36525)       --- Calc. TE jde TUT1 gmt JD02k, riferito al 2000 [ M115 ]
63) tjdeT(calcJD) (( jd -2451545,0) / 365250)      --- Calc. TEphemeris t2k + JDE centurian LONG Secul. [M113]
64) te1950t (calcJD) ((JD - 2433282,423)/36525) --- Calc. Time ephemeris epoch 1/1/1950 TU00
65) tobl(calcJD)                          --- Calc. funzione Tempo Eff x Obliquità Eclittica. e0 Mean
66) tsolcl(calcSolJD)                  --- Calc. funzione Tempo Eff x x Solar Calc
67) TDT2K(CalcS2)                    --- Calcola funzione Tempo Eff x Solar Calc
68) MJD(yy;mm;dd)                   --- Calculate MJD --- Modified Julian Date
69) LMST(MJD;gLong)               ---- Local Mean Sidereal Time (LMST)

=============== CALCOLI x SOLE ============================

70) calcLongMeanSun(tjdeT)    --- Calc. Longitudine media solare (HP for long secular)
71) calcAnomalyMSun(t)           --- Calc. Anomalia media solare
72) EqOfCenter(t)                      --- Calc.Equazione del Centro alta precisione+corr/Planet
    ) CorrectA1(timeTET)                 --- Calc. Correttivo A1 x addittivo corrLVS
    ) CorrectB1(timeTET)                 --- Calc. Correttivo B1 x addittivo corrLVS
    ) CorrectC1(timeTET)                 --- Calc. Correttivo C1 x addittivo corrLVS
    ) CorrectD1(timeTET)                --- Calc. Correttivo D1 x addittivo corrLVS
    ) CorrectE1(timeTET)                 --- Calc. Correttivo E1 x addittivo corrLVS
73) corrLVS(timeTET)                   --- Calc. ADDITTIVO x calc Longitude True Solar (ax+ a Xn..)
74) calcSTL(calcLongMeanSun;EqOfCenter;corrLVS)     --- Calc. Longitudine Vera Solare (L+C + add.L0)
75) calcSunTrueAnom(te2k0)      --- Calc. Sun's true anomaly [M+C]
76) meanLongPerSun(te50t)       --- Calc. mean long. of perigee solar orbit (R1950)
77) calcLonnodAsc(te2k0)           --- Calc. Long.Node ascen. Solar equat-on Ecliptic
78) anomSunphase(timeTET)       --- Calc. Anomalia fase del sole.
79) calcEccEarth(te2k0)               --- Calc. eccentricita' orbita Terra (JM-25.4)
80) corRadSun(timeTET)              --- Calc. ADDITTIVO x Correction Vector Radius Sun.
81) radVES(te2k)                          --- Calc. Radius vector center sun earth (JM-25.5)
82) eqtime(tsolcl;calcLongMeanSun;calcEccEarth) --- Calc. equazione del Tempo High precision
83) corRLTSun(timeTET)               --- Calc. ADDITTIVOx correzione Long. Apparente Sole
84) omegaL(te2k0;corRLTSun)    --- Calc. Sun's Appar--Long (Output of l)
85) lambda (omegaL;calcSTL)      --- Calc. Longitudine Apparente del Sole CORRETTA
86) moblq(tobl) =moblq(tobl)       --- Calc. mean obliquity ecliptic
87) obleclC(te2k) =obleclC(tobl)  --- Calc. Mean Obliquity of the Ecliptic c/correzione
88) dsinOBL(dSEN0)                      --- Calc. dsin x obliquità x altri calcoli
89) dcosOBL(dCOS0)                    --- Calc. dcos x obliquità x altri calcoli
90) corrAberr=(ab) =corrAberr(te2k)                    --- Calc. ADDITTIVO x Correzione Aberrazione
91) aberrz=(abrraz) =aberrz(radVES; corrAberr) --- Calc. Aberrazione c/correzione
92) aberhh=(abrh) =aberhh(aberrz;radVES)         --- Calc. Calcolo aberrazione / ora
93) perigLS = (lonsp) =perigLS(timeTET)              --- Calc. Calcolare Longitudine Sole Perigeo.
94) betalatsole=(beta) =betalatsole(te2k;calcSTL;calcSunTrueAnom;calcAnomalyMSun)  --- Calc. Calcola Latitudine Solare ( ß )
95) parallSun=par =parallSun(radVES)                   --- Calc. Calcolo Parallasse Solare in “
96) calcSunRt=(alpha) =calcSunRt(lambda;obleclC;aberhh)   --- Calc. Ascensione Retta solare con c/aberrazione
97) decl=(lced) =decl(obleclC;calcSTL;aberhh)     --- Calc. Declinazione Solare. c/correzione
98) decRad=(solrad) =decl(calcSunRt;obleclC)      --- Calc. Declinazione solare c/corr in RADIANTI
99) frazint=(yggm) =frazint(ora;minuti;secondi)   --- Calc.. frazione anno in termine intero.
100) frazggd=(frzg) =frazggSec(ora;min;sec)       --- Calc. Frazione del giorno in secondi.
101) ddecTMEC=dtmec =ddecTMEC(hh;mm;ss)      --- Calc. Giorno in frazione, TMEC (mean time ECentral)
102) ffggutc=(fgut) =ffggutc(hh;mm;ss)                --- Calc. Frazione giorno in UTC
103) frzdec=(frxd) =frzdec(hh;mm;ss)                  --- Calc Frazione giorno in decimale
104) hoursidmean=(molt) =hoursidmean(ddTMEC)   --- Calc. Conversione ora civile a Ora Siderale Media
105) Convert_ore = Convert_ore(ore dec.)            --- Calc. Conversione ore dec a ore espressa.
106) hsolmean = hslm =hsolmean(ddTMEC)           --- Calc.Conversione ora Civile a Ora Solare Media
107) rLength(X;Y;Z)                                                 --- Calc.Da coordinate cartesiane ritorna distanza
108) EarthRT_km =                                                  --- Calc.Converte dist. Km luna in Raggi terrestri
109) uaMoncv(ua)                                                    --- Calc. Converte ….da UA a => km x Luna
110) uaconv (uA)                                                     --- Calc. Conversion ..da Km a => UA.

=============== CALCOLI COMUNI PIANETI ================= – MERCURIO- ======================

115) eccMerc(te2k)                   --- Calc. Calcolo eccentricità Mercurio.
116) semsMerc(te2k)                --- Calc. Calcola Semiasse Maggiore orbita Mercurio
117) calcPer= (a;e)                   --- Calc. Calcola Perielio Mercurio
118) calcAfe= (a;e)                   --- Calc.Calcola Afelio Mercurio
119) semMinOrb=(a;e)              --- Calc. Calcolo semiasse minore orbita Mercurio
120) semdFocr= (a;e)               --- Calc. Calcola semidistanza focale (dist.fuochi) Mercurio
121) calcQq=(q:q)                     --- Calc. Somma afelio + perielio
122) perimM=(e;a)                    --- Calc. Perimetro orbitale Mercurio.
123) InclecMerc(timeTET)         --- Calc. Inclinazione Mercurio
124) argPerMerc(timeTET)        --- Calc. Argument of perihelion for Mercury
125) lnodascMerc(timeTET)      --- Calc. Long.Nodo ascendente
126) MeanLongMerc(timeTET)  --- Calc. Long. Media di Mercury
127) meanAnomMerc(timeTET) --- Calc. Mean Anomaly of Mercury
128) “ “ iterz. mAnMercIT1(meanAnomMerc;eccMerc )
129) “ “ iterz.1 mAnMercIT1
130) “ “ iterz.2 mAnMercIT2
131) “ “ iterz.3 mAnMercIT3
132) “ “ iterz.4 mAnMercIT4
133) anTRmerc(eccMerc ; mAnMercIT4)   --- Calc. Anomaly true mercury
134) arglatmerc(meanLongMerc)              --- Calc. Argument of latitude of mercury
135) longPMer(timeTET)                            --- Calc. Long.Perielio Mercurio
136) lonmCK(nodascMerc;argPerMerc;meanAnomMerc) --- Calc. About mean check
137) longAFE(meanLongMerc;longPMerc) --- Calc. Longitudeon afelio.
138) kMEe(te2k0)                                       --- Calc. e-OMEGA-K function new parameter new astronomy
139) eCom(eccMerc;argPerMerc;lnodascMerc) --- Calc. e *cos (w + W) - Function
140) eSom(eccMerc;argPerMerc;lnodascMerc) --- Calc. e *Sin (w + W) - Function
141) eVhK(eSom)                                                ---Calc. e=V*{h2 +k2} - Function
142) eleLl(meanAnomMerc;argPerMerc;lnodascMerc) Calc. elem orb. L I lambda
143) tSS(lnodascMerc)                                   --- Calc. tan -Sen/Sen- Function
144) tSS(lnodascMerc)                                   --- Calc. tan -Cos / Cos- Function
145) LongEclMerc(arglatmerc)                      --- Calc. Longitue Ecliptic of Mercury
146) latEclMerc(arglatmerc;InclecMerc)       --- Calc. Latitudine all'eclittica per Mercurio
147) longGemerc( latEclMerc ; LongEclMerc ) ---Calc. Longitudine Geocentrica per Mercurio
148) RadVpMerc(LatEclMerc;LongEclMerc)    --- Calc. Radius vector planet to Earth on UA. (dt)
149) LatgeoMerc(RadVpMerc;LatEclMerc)     --- Calc. Latitudine geocentrica mercurio
150) VfMerc(eccMerc)                                     --- Calc. Velocity fuga Mercurio
151) VorbMerc(semsMerc;timTET)                 --- Calc. Velocita orbitale Mercurio
152) VafMerc(semsMerc;eccMerc)                 --- Calc. Velocita Afelio (MIN) -- Mercurio
153) VperMerc(semsMerc;eccMerc)               --- Calc. Velocita Perielio (MAX) -- Mercurio
154) PerRivMerc(semsMerc)                          --- Calc. Periodo Rivoluzione Mercurio
155) phMerc(RadVpMerc)                               --- Calc. Angolo di fase Mercurio
156) eloMerc(RadVpMerc)                              --- Calc. Elongazione Mercurio
157) dAngEQ(RadVpMerc)                              --- Calc. Diametro Angolare equatoriale Mercurio
158) aziMerc(RadVpMerc)                              --- Calc. Azimuth (da S verso O) Mercurio
159) parHp(RadVpMerc)                                 --- Calc. Parallasse orizzontale pianeta
160) declmerc(Y82;Y81)                               --- Calc. Declinazione mercurio

=============== FOGLIO – CALCOLI (FC) ============================

180) declCalc(eqtime )                     FC - declinazione del sole --- CALC01
181) hSisdata(decl)                          FC - H Sole istante data
182) merDR(eqtime)                        FC - Merid.Passage-@DR Posit.(Stand.Zone Time)
183) solCTR(declCalc)                      FC - Solar Zenith Angle @Civil Twilight (Rad)
184) solCTR(declCalc)                      FC - K - ultimo 4° precedente - Calc.02, cella B70
185) Tcalcb71(k)                              FC - T - Ultimo 4° precedente - Calc.02, cella B71
186) JDEb72(Tcalcb71)                   FC - JDE - Ultimo 4° precedente - Calc.02, cella B72
187) Mcalc02(KBcal70 ;Tcalcb71)  FC - M - Ultimo 4° precedente - Calc.02, cella B73
188) mcal02(KBcal70 ;Tcalcb71)   FC - m1 - Ultimo 4° precedente - Calc.02, cella B74
189) Fcal02(KBcal70 ;Tcalcb71)    FC - F - Ultimo 4° precedente - Calc.02, cella B75
190) OmeC(KBcal70 ;Tcalcb71)     FC - OM - Ultimo 4° precedente - Calc.02, cella B76
191) Eee(Tcalcb71)                         FC - E - Ultimo 4° precedente - Calc.02, cella B77
192) AA14(KBcal70;Tcalcb71)       FC - A1 / 14 - Ultimo 4° precedente - Calc.02, cella B78
193) ccc325(kb70;Tcalcb71)         FC - 32.5 c2° - Ultimo 4° precedente - Calc.02, cella B80
194) wwcal(Eee;Fcal02;mcal02;Mcalc02) FC - w - Ultimo 4° precedente - Calc.02, cella B81
195) lunorb(te2k0)                         FC - Lunar Orbit - Calc.08, Cella C229
196) synorb(lunorb)                       FC - Synodic month - Calc.08, Cella C230
197) lunnodC(timeTET)                  FC - Lunar Nodal time -- Calc.08. Cella C231
198) Apsidper(te2k0)                    FC - Apsidal period -- Calc.08, Cella C233
199) Nodalper(te2k0)                    FC - Nodal period -- Calc.08, Cella C234
200) Solarper(te2k0)                     FC - SolarPeriod -- Calc.08, C235
201) DxDay(te2k0)                        FC - Days for year -- Calc-08, C236
202) AvEQNX(te2k0)                     FC - Av.Inter.VernEQNX (E-E) -- Calc.08, C237
203) AnomMth(te2k0)                    FC - AnomMth(te2k0)
204) SiderMth(te2k0)                    FC - Sidereal Month -- Calc.08, K233
205) TropMth(te2k0)                     FC - Tropical Month -- Calc.08, K234
206) DracnMth(te2k0)                   FC - Draconic Month -- Calc.08, K235
207) SyndMth(te2k0)                    FC - Synodic Month -- Calc.08, K235

=============== CALCOLI . . VENERE ============================

215) eccVen(TDT2K)                     FC - Eccentricity of Venus planet
216) semsVen(te2k0)                   FC –Calc.Sem.Maggiore Venere su polinomiali on long range.
217) calcPer(semsVen;eccVen)    FC - Calcolo Perielio

=============== CALCOLI . . LUNA ============================

220) ongradhh( grad;min;sec)        --- Calc. Longitudine gradi in ore decimali.
221) longMMoon(te2k0)                 --- Calc. Calcola Longitudine media lunare
222) elongMSun(te2k0)                  --- Calc. Elongazione media lunare
223) amSM(te2k0)                          --- Calc. Anomalia media Sole
224) amMoon(te2k0)                      --- Calc. Anomalia media lunare
225) alatMoon(te2k0)                     --- Calc. Argomento della Latitudine
226) lonnodasc(te2k0)                   --- Calc. Longitudine nodo ascendente.
226-b) LondAsc(te2k0)                   --- Calc.Longitudine nodo ascendente (sample formulae)
227) PerigMoon(te2k0)                  --- Calc. Perigeo orbita lunare
228) varE1(te2k0)                          --- Calc. Var eccentricity 1
229) varE2(te2k0)                          --- Calc. Var.eccentricity ^2
230) omega1(te2k0)                      --- Calc. Omega1
231) omega2(te2k0; tmeTET)        --- Calc. Omega2
232) oneomega(omega1;omega2) --- Calc. 1 omega.
233) erreR(calcEccEarth;Te2k;tjdeT;sumRS;EqOfCenter)   --- Calc. distanza Moon from Sun
234) sigmaL(B5)                             --- Calc. Corrective for Longitude & Radius Vector Moon. Elp200-87b
235) sigmaER(B5)                           ---Calc. Er orrective for Longitude & Radius Vector Moon
236) corVenMS(B3;B5)                   --- Calc. add.1782-L' + 271 + L'
237) corAddSun (Te/tt=timeTET)   --- Calc. add.1782 (Sole) -M
238) corAddMo (Te/tt=timeTET;Te2k)                                 --- Calc. add.1782 (Luna) + M'
239) corAd271El (Te/tt=timeTET;Te2k;lonnodasc)            --- Calc. add.1782. +271+ Elong. D
240) corAdGV (Te/tt=timeTET;Te2k;lonnodasc)                 --- Calc. add GreatVenus.271+corr.F + F
241) addEBlat(longMMoon;amMoon;alatMoon;te2k0)        --- Calc. Eß Term Addittive
242) corrEBlat(te2k0)                                                          --- Calc. Correttivi x Parallasse.
243) RadMoon(te2k0;longMMoon;alatMoon;sigmaER;corrEBlat)  Correzione della parallasse da routine
244) sigmaER + erAdd => =erdTadd(te2k0;longMMoon;alatMoon;sigmaER) ER delta-Add (ER delta-Term + erAdd
245) EBlatmoon(te2k0)                      --- Calc. Correttivo per Lat. Lunare
246) EBcorrMo(- +B ; lambda)    --- Calc. Eb Correttivo + add
247) sigLam(te2k0)                            --- Calc. Sigma lambda
248) latdec(- +B ; oneomega)      --- Calc. ß lat decim.
249) lambRMoon(sigLam)                   --- Calc. LAMBDA di AR
250) oblEcl2(Te/TT ; te2k0)               --- Calc. Obliquità Eclittica (form.2) + correttivi
251) RaMoon(lambda AR)                   --- Calc. Latitudine a, AR .Lunare
252) MoonAge( dayafterJ2000)         --- Calc. Età della Luna con buona precisione
253) ARdec( x )                                   --- Calc. Converte AR gradi a Orario
254) ARhdec( x )                                 --- Calc. Converte Ar Orario a AR°
255) oblEclHP(tobl)                            --- Calc, Obliquità eclittica High Precision e0 mean [precise]
256) declMoon(EBlatmoon;oblEclHP)  --- Calc. Declinazione Lunare
257) corrLuce(x) --- Correzione Tempo luce in sec.
258) topocSD(RadMoon ; corrEBlat) --- Calc Topocentric Semidiameter
259) geoELd(lambRMoon;latdec)      --- Calc. Angolo Elongazione Geocentrica lunare cos(d)
260) eqHZparX(r D add)                 --- Calc. Equatorial Horizon parallax ±0.1 "
261) velHmoon(te2k0)                      --- Calc. Calcolo: Velocita Orbitale lunare
262) tanI(geoc.elongs)                      --- Calc. Calcolo: tan (i)
263) IllFracMoon(Geocent. Elong. cos(d)) --- Calc. Frazione Illuminata lunare
264) IllFrDisk(tannl)                          --- Calc. Frazione Illuminata disko
265) phasMoon(te2k)                        --- Calc. Phase Lunar
266) phsdayMoon(te2k)                    --- Calc. PhaseAngle (i°)/ Phase Days
267) angularseperation(SUN.RA;SUN.decl;Moon.RA;Moon.decl) ---Calc. Angular separation
268) altaz(Day.J2000 ; declMoon ; RAmoon; Lat ; Long ;1)   ---Altitude and azimuth of object given RA and DEC of
269) Days2000(ANNO(AX9);MESE(AX9);GIORNO(AX9);hh;mm;ss)  ---num. dei giorni dalla data al 2000 o JD2000
270) gst(J2000)                               ---Calc.Sid.Time at longitude zero given days after J2000.0
271) TablAMSun(te2k0)                   ---TAV1-per dati e grafici- P1 Anom.Geom.of sun (no range360
272) TablSTAnm(TablAMSun;EqOfCenter)                          ---TAV1-per dati > 10) Sun True Anomaly ° (2+4)
273) Tablradves(calcSunTrueAnom;sumRS;calcEccEarth) ---TAV1 Radius Vector Center Sun - Earth (JM25.5)
274) Tablaberr(BM142;BE142;BY142)                              ---Calc. x TAV1 - aberrazione
275) TablcObliqE(moblq;te2k0)                                          ---Calc. x TAV1 - Correct m/Obliquity ecliptic.
276) TablJCent(JD3 cell)                                                     ---Calc. TE/TT Bypassando calcolo (JD3 for calc. Other)
277) TablcorrlongSun(timeTET(JD) BA142)                      ---Calc. TAV1 - Addittivo x long Apparent Sun true.
278) Tabllongasun(te2k0;TablcorrlongSun;calcSTL)        ---Calc. TAV1 - Sun Apparent Long (output of lambda)
279) TablSRCooAs(TablcObliqE;Tabllongasun;Tablaberr) ---Calc. - SUN Declination (deg) [13+16+18a]
280) Tabldeg(deg;min;sec)                                                 ---Calc. TAV1 - gradi / min / sec, to gradi dec
281) TablHASun(Lat;Sundecl)                                            ---Calc. x TAV1 - HA Sunrise
282) TablVar(TablcObliqE)                                                 ---Calc. xTav1. - 20) Var y
283) TablEQT(CB142;BF142;BL142;BG142)                    ---Calc. - Equation of Time


Fino a questo momento ce ne sono 283 di Routines in codice VBA Excel per Astronomy, o Astronomy on VBA. Ma altrettante andranno a inserirsi nei prossimi mesi.

ROUTINE >    " ASTROCORRETTIVI.BAS "    VBA EXCEL


C001) pertLonMer(Effemeridi!Y47)        ---Mercury – Perturb. in Longitudine - B9
C002) pertLMer10(Effemeridi!Y47)        “ – Perturb. in Longitudine - B10
C003) pertLMer11(meanAnomMerc)      “ – Perturb. in Longitudine - B11
C004) pertLMer12(Effemeridi!Y47)        “ – Perturb. in Longitudine - B12
C005) pertLMerSUM(meanAnomMerc)   “ – Perturb. in Longitudine - B13-E- SUMMATORY
C006) pertRV16(meanAnomMerc)          Perturb. in Raggio Vettore - B16
C007) pertRV17(meanAnomMerc)          Perturb. in Raggio Vettore - B17
C008) pertRV18(meanAnomMerc)          Perturb. in Raggio Vettore - B18
C009) pertRV19(meanAnomMerc)         Perturb. in Raggio Vettore - B19
C010) pertRVSUM(pertRV16;pertRV17;pertRV18;pertRV19)   Perturb. in RVettore- B20 - E- SUMMATORY

=============== CORRETTIVI . . VENERE ============================

C011) pertLMer1(calcAnomalyMSun)     VENUS Perturb. in Longitudine - B31 -
C012) pertLMer2(calcAnomalyMSun)     VENUS- Perturb.in Longitudine - B32 -
C013) pertLMer3(calcAnomalyMSun)     VENUS - Perturb. in Longitudine - B33 -
C014) pertLMer4(calcAnomalyMSun)     VENUS - Perturb.e in Longitudine - B34 -
C015) pertLMer4(calcAnomalyMSun)     VENUS - Perturb. in Longitudine - B35 -
C016) pertLMer4(calcAnomalyMSun)     Perturb. in Longitudine - B36 - E - SUMMATORY
C017) corLoAnMer(timTET)                    Correzione x Longitudine media & Anomalia media
C018) pertRVm01(calcAnomalyMSun)    Perturb.in Raggio vettore - B40
C019) pertRVm02(calcAnomalyMSun)    Perturb. in Raggio vettore - B41
C020) pertRVm03(calcAnomalyMSun)    Perturb. in Raggio vettore - B42
C021) pertRVm04(calcAnomalyMSun)    Perturb. in Raggio vettore - B43
C022) pertRVm05(calcAnomalyMSun)    Perturb. in Raggio vettore - B44
C023) pertRVm06(calcAnomalyMSun)    Perturb. in Raggio vettore - B45
C024) pertRVm07(calcAnomalyMSun)    Perturb. in Raggio vettore - B46
C025) pertRVSMer(b40;b41;b42;b43;b44;b45;b46)  Perturb.in Raggio vettore - B47-E –SUMMATORY

=============== CORRETTIVI . TERRA ============================
C026) corPerEarA(timeTET)       TERRA - Perturbazioni e Correttivi - D9
C027) corPerEarB(timeTET)       Perturbazioni e Correttivi - D10
C028) corPerEarC(timeTET)       Perturbazioni e Correttivi - D11
C029) corPerEarD(timeTET)       Perturbazioni e Correttivi - D12
C030) corPerEarE(timeTET)       Perturbazioni e Correttivi - D13
C031) corPerEarH(timeTET)       Perturbazioni e Correttivi - D14
C032) AradCorr(x double)          Perturb.e Correttivi -- A-Radianti -{ D15 / 16 / 17 / 18 / 19 / 20 }
C033) corLEd22(corPerEarA)     Perturbazione e Correttivi --Correzione in Longitudine - D22
C034) corLEd23(corPerEarB)     Perturbazione e Correttivi --Correzione in Longitudine - D23
C035) corLEd24(corPerEarC)     Perturbazione e Correttivi --Correzione in Longitudine - D24
C036) corLEd25(corPerEarD)     Perturbazione e Correttivi --Correzione in Longitudine - D25
C037) corLEd26(corPerEarE)     Perturbazione e Correttivi --Correzione in Longitudine - D26
C038) corLoSum(summa .............)   Correzione in Longitudine - D27 SUMMATORY
C039) cLaddSig(timeTET)              Correzione in Longitudine - Add + Sigma - D28
C040) crrRVEart31(corPerEarA)   Correzione in Longitudine - D31
C041) crrRVEart32(corPerEarB)   Correzione in Longitudine - D32
C042) crrRVEart33(corPerEarC)   Correzione in Longitudine - D33
C043) crrRVEart34(corPerEarD)   Correzione in Longitudine - D34
C044) crrRVEart35(corPerEarE)   Correzione in Longitudine - D35
C045) corrRVSUMEar(crrRVEart31;crrRVEart32;crrRVEart33;crrRVEart34;crrRVEart35)  Perturbazione e Correttivi --Correzione in Longitudine -- E- SUMMATORY

=============== CORRETTIVI . MARTE ============================

C046) cLonMarF9(timeTET)        Correttivo Longitudine & Anomalia - F9
C047) cLonMarF10(timeTET)      Correttivo Longitudine & Anomalia - F10
C048) clonSMF11(timeTET)        Correttivo Longitudine & Anomalia - F11 – Summatory
C049) pertLonMarF14(timeTET)  Correttivo Perturbazione in Longitudine - F14
C050) pertLonMarF15(timeTET)  Correttivo Perturbazione in Longitudine - F15
C051) pertLonMarF16(timeTET)  Correttivo Perturbazione in Longitudine - F16
C052) pertLonMarF17(timeTET)  Correttivo Perturbazione in Longitudine - F17
C053) pertLonMarF18(timeTET)  Correttivo Perturbazione in Longitudine - F18
C054) pertLonMarF19(timeTET)  Correttivo Perturbazione in Longitudine - F19
C055) pertLonMarF20(timeTET)  Correttivo Perturbazione in Longitudine - F20
C056) pertLonMarF21(timeTET)  Correttivo Perturbazione in Longitudine - F21
C057) pertLonMarF22(timeTET)  Correttivo Perturbazione in Longitudine - F22
C058) pertLOSUM(F14;F15;F16;F17;F18;F19;F20;F21;F22)   “” “” pert.Longitudine - F23 - E-SUMMATORY
C059) pertRVMF25(timeTET)    Correttivo Perturbazione in Raggio Vettore -F25
C060) pertRVMF26(timeTET)    Correttivo Perturbazione in Raggio Vettore -F26
C061) pertRVMF27(timeTET)    Correttivo Perturbazione in Raggio Vettore -F27
C062) pertRVMF28(timeTET)    Correttivo Perturbazione in Raggio Vettore -F28
C063) pertRVMF28(timeTET)    Correttivo Perturbazione in Raggio Vettore -F29
C064) pertRVMF30(timeTET)    Correttivo Perturbazione in Raggio Vettore -F30
C065) pertRVMF31(timeTET)    Correttivo Perturbazione in Raggio Vettore -F31
C066) pertRVMF32(timeTET)    Correttivo Perturbazione in Raggio Vettore -F32
C067) pertRVMF33(timeTET)    Correttivo Perturbazione in Raggio Vettore -F33
C068) pertRVMF34(timeTET)    Correttivo Perturbazione in Raggio Vettore -F34
C069) pertRVMF35(timeTET)    Correttivo Perturbazione in Raggio Vettore -F35
C070) pertRVMF36(timeTET)    Correttivo Perturbazione in Raggio Vettore -F36
C071) pertRVMF37(timeTET)    Correttivo Perturbazione in Raggio Vettore -F37
C072) pertSUMF38(timeTET As Double)    “ “ “ in RVettore - E – SUMMATORY

=============== CORRETTIVI . GIOVE ============================

C073) elJUPu(timeTET As Double)       GIOVE - Elementi - u/p/Q/S/V/W theta
C074) elJUP_P(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C075) elJUP_Q(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C076) elJUP_S(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C077) elJUP_V(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C078) elJUP_W(timeTET As Double)    Elementi - u/p/Q/S/V/W theta
C079) elJUP_X(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C080) pertPerJi18(H9;H13)                 Perturbazione al perielio q(B) - I18
C081) pertPerJi19(H9;H13)                 Perturbazione al perielio q(B) - I19
C082) pertPerJi20(H11)                       Perturbazione al perielio q(B) - I20
C083) pertPerJi21(H11)                       Perturbazione al perielio q(B) - I21
C084) pertPerJi22(H11)                       Perturbazione al perielio q(B) - I22
C085) pertPerJi23(H11)                       Perturbazione al perielio q(B) - I23
C086) pertPerJi24(H11)                       Perturbazione al perielio q(B) - I24
C087) pertPerJi25(H11)                       Perturbazione al perielio q(B) - I25
C088) pertPerJi26(H11)                       Perturbazione al perielio q(B) - I26
C089) pertPerJi27(H11)                       Perturbazione al perielio q(B) - I27
C090) pertPerJi28(H11)                       Perturbazione al perielio q(B) - I28
C091) pertPerJi29(H11)                       Perturbazione al perielio q(B) - I29
C092) pertPerJi30(H11)                       Perturbazione al perielio q(B) - I30
C093) pertPerJi31(H11)                       Perturbazione al perielio q(B) - I31
C094) pertPerJi32(H11)                       Perturbazione al perielio q(B) - I32
C095) pertPerJi33(H11)                       Perturbazione al perielio q(B) - I33
C096) pertPerJi34(H11)                       Perturbazione al perielio q(B) - I34
C097) pertPerJi35(H11)                       Perturbazione al perielio q(B) - I35
C098) pertPERHSum(xn1…..)                Perturbazione al perielio q(B) - I36 - E- SUMMATORY
C099) pertSMI38(elJUP_V As Double) Perturbazione sul Semiasse maggiore (a) - I38
C100) pertSMI39(elJUP_X As Double) Perturbazione sul Semiasse maggiore (a) - I39
C101) pertSMI40(elJUP_X As Double) Perturbazione sul Semiasse maggiore (a) - I40
C102) pertSMI41(elJUP_X As Double) Perturbazione sul Semiasse maggiore (a) - I41
C103) pertSMI42(elJUP_X As Double) Perturbazione sul Semiasse maggiore (a) - I42
C104) pertSMI43(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem.Magg (a) - I43
C105) pertSMI44(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I44
C106) pertSMI45(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I45
C107) pertSMI46(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I46
C108) pertSMI47(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I47
C109) pertSMI48(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I48
C110) pertSMISUM(xn1…..)                                                               Perturb. sul Semiasse maggiore (a) - I49 - E- SUMMATORY
C111) perEccJuI51(elJUPu;elJUP_V)                                               Perturbation on eccentricity for Jupiter - (e) - I51
C112) perEccJuI52(elJUPu;elJUP_V)                                               Perturbation on eccentricity for Jupiter - (e) - I52
C113) perEccJuI53(elJUP_X ;elJUP_q)                                            Perturbation on eccentricity for Jupiter - (e) - I53
C114) perEccJuI54(elJUP_X ;elJUP_q)                                            Perturbation on eccentricity for Jupiter - (e) - I54
C115) perEccJuI55(elJUP_X ;elJUP_q)                                            Perturbation on eccentricity for Jupiter - (e) - I55
C116) perEccJuI56(elJUP_q)                                                            Perturbation on eccentricity for Jupiter - (e) - I56
C117) perEccJuI57(elJUPu;elJUP_X;elJUP_q)                                Perturbation on eccentricity for Jupiter - (e) - I57
C118) perEccJuI58(elJUP_X;elJUP_q)                                             Perturbation on eccentricity for Jupiter - (e) - I58
C119) perEccJuI59(elJUPu;elJUP_X;elJUP_q)                                Perturbation on eccentricity for Jupiter - (e) - I59
C120) perEccJuI60(elJUP_X;elJUP_q)                                             Perturbation on eccentricity for Jupiter - (e) - I60
C121) perEccJuI61(elJUP_q)                                                            Perturbation on eccentricity for Jupiter - (e) - I61
C122) perEccJuI62(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I62
C123) perEccJuI63(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I63
C124) perEccJuI64(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I64
C125) perEccJuI65(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I65
C126) perEccJuI66(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I66
C127) perEccJuI67(elJUPu;elJUP_X;elJUP_q)  Perturbation on eccentricity for Jupiter - (e) - I67
C128) perEccJuI68(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I68
C129) perEccJuI69(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I69
C130) perEccJuI70(elJUPu;elJUP_X;elJUP_q)  Perturbation on eccentricity for Jupiter - (e) - I70
C131) perEccJuI71(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I71
C132) perEccJuI72(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I72
C133) perEccJuI73(elJUPu;elJUP_X;elJUP_q)  Perturbation on eccentricity for Jupiter - (e) - I73
C134) perEccJuI74(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I74
C135) perEccJuI75(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I75
C136) perEccJuI76(elJUP_q)                              Perturbation on eccentricity for Jupiter - (e) - I76
C137) perEccJuI77(elJUPu;elJUP_X;elJUP_q)  Perturbation on eccentricity for Jupiter - (e) - I77
C138) perEccJuI78(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I78
C139) perEccJuI79(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I79
C140) perTEcSumI80(xN…)                                 Perturb. on Eccentri. for Jupiter - (e) - I79 - E- SUMMATORY
C141) perMLJuI84(elJUPu;elJUP_V)                  Perturbation on mean longitude for Jupiter (L) - I84
C142) perMLJuI85(elJUPu;elJUP_V)                  Perturbation on mean longitude for Jupiter (L) - I85
C143) perMLJuI86(elJUPu;elJUP_V)                  Perturbation on mean longitude for Jupiter (L) - I86
C144) perMLJuI87(elJUP_W)                             Perturbation on mean longitude for Jupiter (L) - I87
C145) perMLJuI88(elJUP_X)                              Perturbation on mean longitude for Jupiter (L) - I88
C146) perMLJuI89(elJUP_X)                              Perturbation on mean longitude for Jupiter (L) - I89
C147) perMLJuI90(elJUP_X)                              Perturbation on mean longitude for Jupiter (L) - I90
C148) erMLJuI91(elJUP_X)                                Perturbation on mean longitude for Jupiter (L) - I91
C149) perMLJuI92(elJUPu;elJUP_X;elJUP_q)  Perturbation on mean longitude for Jupiter (L) - I92
C150) perMLJuI93(elJUP_X;elJUP_q)               Perturbation on mean longitude for Jupiter (L) - I93
C151) perMLJuI94(elJUP_X;elJUP_q)               Perturbation on mean longitude for Jupiter (L) - I94
C152) perMLJuI95(elJUPu;elJUP_X;elJUP_q)  Perturbation on mean longitude for Jupiter (L) - I95
C153) perMLJuI96(elJUP_X;elJUP_q)               Perturbation on mean longitude for Jupiter (L) - I96
C154) perMLJuI97(elJUP_q)                              Perturbation on mean longitude for Jupiter (L) - I97
C155) perMLJuI98(elJUPu;elJUP_X;elJUP_q)  Perturbation on mean longitude for Jupiter (L) - I98
C156) perMLJuI99(elJUP_X;elJUP_q)               Perturbation on mean longitude for Jupiter (L) - I99
C157) perMLJuI100(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I100
C158) perMLJuI101(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I101
C159) perMLJuI102(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I102
C160) perMLJuI103(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I103
C161) perMLJuI104(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I104
C162) perMLJuI105(xN….SUM )                        Perturb.on MLongitude for Jupiter (L) - I105 - E- SUMMATORY

=============== CORRETTIVI . SATURNO ============================

C163) range360(elJUP_s - elJUP_q)             SATURNO - Variabile K9 -
C164) pertQSatK11(elJUPu;elJUP_V)            Perturbazione in Perielio q (B) K11
C165) pertQSatL12(elJUPu;elJUP_V)            Perturbazione in Perielio q (B) L12
C166) pertQSatL13(elJUPu;elJUP_V)            Perturbazione in Perielio q (B) L13
C167) pertQSatL14(elJUP_q;elJUP_X)          Perturbazione in Perielio q (B) L14
C168) pertQSatL15(elJUP_q;elJUP_X)          Perturbazione in Perielio q (B) L15
C169) pertQSatL16(elJUP_q;elJUP_X)          Perturbazione in Perielio q (B) L16

Fino a questo momento ci sono ben 420 circa routine di calcolo al 14/10/2017 ---- Agli inizi del 2018, arriveranno a oltre 600 !

 
PAGE CREATED from (lucianob) for project Dreaker '97
Partner's Link
: Astronomia.96.lt -  AstronomiaExcel -  2012-Oltre