lucianob
18-05-2017, 19:55
Salve a tutti ho un problema.........
Mi serve aiuto e lo chiedo in ultima, per un problema di grafico in excel e sopratutto di VB di codice.
Penso che ci sia qualcuno che conosca excel, tra tanti iscritti, ci sono giovani che hanno idee e sanno programmare anche queste nuove cose.
Io purtroppo non sono capace, un po' perché a 57 anni non ne ho voglia, perche' non so' dove andare a fare i corsi e sopratutto perche' lavoro e non ho tempo .
Inoltre sono riuscito a ottenere un grafico del genere che vi mostro a tutti in anteprima, utile per anche questo forum Astronomia e perché i calcoli sono precisi ! A Rimostranza mostrati a suo tempo tra il mio post.
Per tanto io trovando il grafico e la soluzione su un foglio su un sito russo, l'ho scaricato, poi lo riprendo dopo 10 mesi, e quando vado a cercare il sito per cercare soluzione agli errori avevo visto questo, aveva chiuso ......
Sapete che il mio foglio di calcolo e' stato menzionato in un noto forum americano astronomico e su una rivista ? ------- Bene !
............................
Comunque.
Questa la prima foto.
Visibilità Pianeti 2017 . TEST - ANTEPRIMA - (http://astronomiaexcel.96.lt/carta2017.mia.jpg)
mentre io ho il problema di modificare il VB codice che e' sbagliato il calcolo .. sembra quasi volutamente, e che non rispecchia la perturbazione planetaria .. anche se il calcolo e del 2010, ma sembra fatto molto semplicistico, :sad:
===========================================
Public Function SunLongitude(DaysAfterJ2000 As Double, index As Integer) As Double
''Calculates the trus, and apparent longitude of the Sun.
' Dependencies
' DegSIn(X)
' Range360(X)
' Arguments
' DaysAfterJ2000 is the number of days and decimal fractions of a day after 1 Jan 2000
' Index: 1 = True Longitude, 2 = Apparent Longitude
' Based on the low accuracy version, accurate to 0.01 degrees
Dim T As Double ' time measured in julian centries of 36525 days from the epoch J2000.0
T = DaysAfterJ2000 / 36525 ' checked
T2 = T * T2
T3 = T * T * T
T4 = T * T * T * T
T5 = T * T * T * T * T
Dim L0 As Double ' geometric mean longitude of the Sun , referred to the mean equinox of the date
' L0 = 280.466592 + 36000.76983 * T + 0.0003032 * T * T ' checked
L0 = 280.466592 + (360007.7009282 * T) + (0.0329278 * T2) + (T3 / 42931) - (T4 / 15290) - (T5 / 2010000) ' checked
L0 = range360(L0)
Dim m As Double ' mean anomaly of the Sun
m = 357.52911 + 35999.05029 * T - (0.0001537 * T2) 'checked
m = range360(m)
Dim e As Double ' eccentricity of the Earth's Orbit
e = 0.01673011 - 0.00004183 * T - (0.0000001267 * T2) ' checked
Dim C As Double ' Suns equastion of centre
C = (1.914602 - 0.004817 * T - 0.000014 * T2) * DegSin(m) + (0.019993 - 0.000101 * T) * DegSin(2 * m) + 0.000289 * DegSin(3 * m)
Dim O As Double ' Sun's true geometric longitude referred to the mean equinox of the date
O = L0 + C
If index = 2 Then ' calculate apparent longitude
Dim ohm As Double '
ohm = 125.04452 - 1934.136261 * T
Dim lam As Double ' apparent longitude of the Sun
lam = O - 0.00569 - 0.00478 * DegSin(ohm)
End If
If index = 1 Then
SunLongitude = O
Else
SunLongitude = lam
End If
End Function
L0, m, C, ohm, e, lam, sono errati gli algoritmi !!!!
(Longitudine media Sole), (Anomaly mean Sun) , (Equation of the Center), (Long.Node ascen), ( Longitudine apparente Sun) ..
Io ho aggiunto i T e sfrutto l'elevamento a potenza che mi serve, ma c'e' da fare un calcolo della miseria e mi sembra che i problemi in questi anni mi si siano ingigantiti .!!
Ho modificato alcune cose, ma il grafico e' impreciso ................. ma veramente !!!
La sinusoide di Mercurio e' piu ondulata e allungata,,, comunque...
Questo e' quello ottenuto nel mio foglio e che per ora e' quello che vi pongo per fare capire che ci vuole una persona che conosoca VB (Visual basic ) excel. - io ho la vers.2010 . .. ma il codice e' e deve essere OK !
Questo e' quello che mi deve dare, inoltre come vedete la cella segnata prende i dati da alcune celle ma tutto il resto in parte per questo grafico link sotto ultimo ... , viene dal codice ...........
ORA QUALCUNO POTRA' OBIETTARE PERCHE NON ANDARE APRENDERE I CAMPI DIRETTAMENTE DAL FOGLIO ? DAI RISPETTIVI FOGLI E NUMERO CELLA E INSERIRLI ???
SEMPLICE ,.. NON SONO CAPACE. ALTRIMENTI CORREGGEVO IL CODICE VB ..............
NON SO DOVE GIRARMI CREDETEMI !!!!!
Ma possibile che qui ... tra 5000 utenti non ci sia nessuno che conosca VB ??? NON CI CREDO !:twisted:
Questo e quello che ho ...... e per il quale mi serve migliorare il tutto...
Visibilita Pianeti (OPEN) (http://astronomiaexcel.96.lt/carta2017.mia02.jpg)
Avrei grafici di Analemma annuali da inserire e una amrea di grafici Polari e altazimutali, e di altre cose ...
Diamine. ............. non ci credo che a nessuno gliene freghi piu' di tanto ! Considerando che metto tutto FREE!
saluti ... che mi sento stanco ...... :wub:
buona .
Mi serve aiuto e lo chiedo in ultima, per un problema di grafico in excel e sopratutto di VB di codice.
Penso che ci sia qualcuno che conosca excel, tra tanti iscritti, ci sono giovani che hanno idee e sanno programmare anche queste nuove cose.
Io purtroppo non sono capace, un po' perché a 57 anni non ne ho voglia, perche' non so' dove andare a fare i corsi e sopratutto perche' lavoro e non ho tempo .
Inoltre sono riuscito a ottenere un grafico del genere che vi mostro a tutti in anteprima, utile per anche questo forum Astronomia e perché i calcoli sono precisi ! A Rimostranza mostrati a suo tempo tra il mio post.
Per tanto io trovando il grafico e la soluzione su un foglio su un sito russo, l'ho scaricato, poi lo riprendo dopo 10 mesi, e quando vado a cercare il sito per cercare soluzione agli errori avevo visto questo, aveva chiuso ......
Sapete che il mio foglio di calcolo e' stato menzionato in un noto forum americano astronomico e su una rivista ? ------- Bene !
............................
Comunque.
Questa la prima foto.
Visibilità Pianeti 2017 . TEST - ANTEPRIMA - (http://astronomiaexcel.96.lt/carta2017.mia.jpg)
mentre io ho il problema di modificare il VB codice che e' sbagliato il calcolo .. sembra quasi volutamente, e che non rispecchia la perturbazione planetaria .. anche se il calcolo e del 2010, ma sembra fatto molto semplicistico, :sad:
===========================================
Public Function SunLongitude(DaysAfterJ2000 As Double, index As Integer) As Double
''Calculates the trus, and apparent longitude of the Sun.
' Dependencies
' DegSIn(X)
' Range360(X)
' Arguments
' DaysAfterJ2000 is the number of days and decimal fractions of a day after 1 Jan 2000
' Index: 1 = True Longitude, 2 = Apparent Longitude
' Based on the low accuracy version, accurate to 0.01 degrees
Dim T As Double ' time measured in julian centries of 36525 days from the epoch J2000.0
T = DaysAfterJ2000 / 36525 ' checked
T2 = T * T2
T3 = T * T * T
T4 = T * T * T * T
T5 = T * T * T * T * T
Dim L0 As Double ' geometric mean longitude of the Sun , referred to the mean equinox of the date
' L0 = 280.466592 + 36000.76983 * T + 0.0003032 * T * T ' checked
L0 = 280.466592 + (360007.7009282 * T) + (0.0329278 * T2) + (T3 / 42931) - (T4 / 15290) - (T5 / 2010000) ' checked
L0 = range360(L0)
Dim m As Double ' mean anomaly of the Sun
m = 357.52911 + 35999.05029 * T - (0.0001537 * T2) 'checked
m = range360(m)
Dim e As Double ' eccentricity of the Earth's Orbit
e = 0.01673011 - 0.00004183 * T - (0.0000001267 * T2) ' checked
Dim C As Double ' Suns equastion of centre
C = (1.914602 - 0.004817 * T - 0.000014 * T2) * DegSin(m) + (0.019993 - 0.000101 * T) * DegSin(2 * m) + 0.000289 * DegSin(3 * m)
Dim O As Double ' Sun's true geometric longitude referred to the mean equinox of the date
O = L0 + C
If index = 2 Then ' calculate apparent longitude
Dim ohm As Double '
ohm = 125.04452 - 1934.136261 * T
Dim lam As Double ' apparent longitude of the Sun
lam = O - 0.00569 - 0.00478 * DegSin(ohm)
End If
If index = 1 Then
SunLongitude = O
Else
SunLongitude = lam
End If
End Function
L0, m, C, ohm, e, lam, sono errati gli algoritmi !!!!
(Longitudine media Sole), (Anomaly mean Sun) , (Equation of the Center), (Long.Node ascen), ( Longitudine apparente Sun) ..
Io ho aggiunto i T e sfrutto l'elevamento a potenza che mi serve, ma c'e' da fare un calcolo della miseria e mi sembra che i problemi in questi anni mi si siano ingigantiti .!!
Ho modificato alcune cose, ma il grafico e' impreciso ................. ma veramente !!!
La sinusoide di Mercurio e' piu ondulata e allungata,,, comunque...
Questo e' quello ottenuto nel mio foglio e che per ora e' quello che vi pongo per fare capire che ci vuole una persona che conosoca VB (Visual basic ) excel. - io ho la vers.2010 . .. ma il codice e' e deve essere OK !
Questo e' quello che mi deve dare, inoltre come vedete la cella segnata prende i dati da alcune celle ma tutto il resto in parte per questo grafico link sotto ultimo ... , viene dal codice ...........
ORA QUALCUNO POTRA' OBIETTARE PERCHE NON ANDARE APRENDERE I CAMPI DIRETTAMENTE DAL FOGLIO ? DAI RISPETTIVI FOGLI E NUMERO CELLA E INSERIRLI ???
SEMPLICE ,.. NON SONO CAPACE. ALTRIMENTI CORREGGEVO IL CODICE VB ..............
NON SO DOVE GIRARMI CREDETEMI !!!!!
Ma possibile che qui ... tra 5000 utenti non ci sia nessuno che conosca VB ??? NON CI CREDO !:twisted:
Questo e quello che ho ...... e per il quale mi serve migliorare il tutto...
Visibilita Pianeti (OPEN) (http://astronomiaexcel.96.lt/carta2017.mia02.jpg)
Avrei grafici di Analemma annuali da inserire e una amrea di grafici Polari e altazimutali, e di altre cose ...
Diamine. ............. non ci credo che a nessuno gliene freghi piu' di tanto ! Considerando che metto tutto FREE!
saluti ... che mi sento stanco ...... :wub:
buona .