Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

[Staple1600]

Bonsoir


Dans le classeur ci-joint que ce soit avec les formules
(issues du forum: auteurs: AV et Monique)

ou avec des fonctions VBA issues du net, et en changeant les périodes de
références, les formules produisent des erreurs.

Elles sont en gras et en rouge dans le classeur.

N'étant pas un spécialiste de cette disicipline, je sollicite votre aide.

Merci à l'avance de l'attention que vous voudrez porter à ce message.

Staple

 

[Staple1600]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re

Bonsoir Gruick

---> Gruick :T'a compris le code VBA suivant???

T = (varDOB - 1.5) / 36525#
dblLong = 279.69668 + 36000.76892 * T + 0.0003025 * T ^ 2
dblAnomaly = 358.47583 + 35999.04975 * T - 0.00015 * T ^ 2 - 0.0000033 * T ^ 3
dblCorrEcc = (1.91946 - 0.004789 * T - 0.000014 * T ^ 2) * SinD(dblAnomaly) _
+ (0.020094 - 0.0001 * T) * SinD(2 * dblAnomaly) _
+ 0.000293 * SinD(3 * dblAnomaly)
dblStheta = dblLong + dblCorrEcc
dblStheta = dblStheta - 360# * (dblStheta \ 360)

Moi j'ai juste regretté d'avoir suivi une section littéraire jadis
De loin je trouve le code "beau"

De près je pige rien (même avec ma boule de cristal)

Il me semble bien que VBA disparaitra plus rapidement que
le Soleil (snif)

 

[Gruick]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

---> Gruick :T'a compris le code VBA suivant???

C'te bonne blague, c'est d'une évidence... enfin !

le 279,69668 c'est.....bon à demain.

Gruick

 

[jeanpierre]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Bonjour à tous,

"T = (varDOB - 1.5) / 36525#
dblLong = 279.69668 + 36000.76892 * T + 0.0003025 * T ^ 2
dblAnomaly = 358.47583 + 35999.04975 * T - 0.00015 * T ^ 2 - 0.0000033 * T ^ 3
dblCorrEcc = (1.91946 - 0.004789 * T - 0.000014 * T ^ 2) * SinD(dblAnomaly) _
+ (0.020094 - 0.0001 * T) * SinD(2 * dblAnomaly) _
+ 0.000293 * SinD(3 * dblAnomaly)
dblStheta = dblLong + dblCorrEcc
dblStheta = dblStheta - 360# * (dblStheta \ 360) "

T est égal à la valeur temps, mesurée en siècle (semblerait qu'il en manque un sérieux bout) depuis une date de référence, par exemple J1900.0 ou J2000.0

dblLong = longitude géométrique moyenne du Soleil référencé dans l'équinoxe moyen de la date de calcul.
279.6° position du Soleil, vraisemblablement à J1900.0 (début du siècle dernier, mais pas vérifier, trop tôt et pas réveillé)
36000.7°, le nombre de degrés accomplis en un siécle, soit 100 tours de l'écliptique. (360° par an, un tour de l'écliptique (du zodiaque, si tu veux). Pour un an, T serait égale à 0.01
Vient ensuite une correction, car tout de tourne pas forcément rond.

dblAnomaly = anomalie moyenne, même principe.

dblCorrEcc = équation du centre du soleil

et pour finir, et dans l'ordre, la longitude vraie du soleil et son anomalie vraie.

Par contre, avec de tels résultats, mieux vaut ne pas chercher à calculer une éclipse de Lune et encore moins une de Soleil.

Voilà pour ton questionnement d'hier soir sur la formulation en VBA. Formulation car on ne peut à proprement pas parler de code, on peut écrire la même chose dans 5 cellules Excel.

Que cette journée soit belle et ensoleillée.

Jean-Pierre

 

[Excel_lent]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Salut,

Juste une petite information mathématique concernant le code cité :
« ne pas confondre Sin et Cos ».

Le professeur Cosinus qui avait souvent des problèmes de sinus a tenté de démontrer que l’Astrologie est une Science exactement inexacte en partant de l'hypothèse que tout dépend de l‘angle du point de vue.

Il est arrivé à la conclusion suivante :
L’angle horaire d’un astre (qui n’est pas dans l’angle mort) peut-être obtus. C’est un mauvais signe car on n’en tirerait pas grand-chose. Pareil quand il est plat car dans ce cas il n’y a rien à dire!

Il a pris un virage à 360 ° pour essayer de prédire la suite mais le coefficient de Corrélation a présenté une Anomaly récurrente et il s’est retrouvé face au même dilemme.

Ce n’est pas son disciple dissident Paco Rabanne qui a réussi à le mettre sur la bonne voie (lactée ou pas).

Il continue donc à errer dans les limbes de la prescience.

Bonne journée à tous malgré la Météo prévue

 

[jeanpierre]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Salut Excel_lent,

Que dire de plus, sinon, Excellent...😉

 

[Staple1600]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Bonjour

Merci à tous pour vos explications astronomiques.
(qui ne font qu'accentuer le regret d'avoir laisser les maths de côté lors de ma scolarité)

--> jean-pierre : par curiosité, et si tu en as le temps, peux-tu donner un exemple de:

on peut écrire la même chose dans 5 cellules Excel.

edit: pour vous remercier de vos efforts
(et pour ceux qui sont "astrolophiles")
voici le travail de quelqu'un qui a du aimer les maths
AstroPalais
(ne fonctionne que sous Excel 2002 , donc je ne sais pas ce que cela est)
Il y a également sur ce site une liste de logiciels.
reedit: (j'aurai du aussi travailler en Allemand (1/20 au bac))
au moins j'aurai pu apprécier ceci:
Astroexcel Astronomie Planetarium

Je n'oublie pas les "astrolophobes" ou les "astrolopasbo"
Donc voici:
Dictionnaire Sceptique / Astrologie
L'astrologie, une « orgueilleuse extravagance » - AFIS


PS: j'espère que vous m'aurez de vous-même classer dans la bonne catégorie
"d'astrocompatibilité".

 

[jeanpierre]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re, salut Staple, re le forum,

Avant de commencer

Dans ton post, hier à 22h25 (en plus je l'avais zappé celui-là ou je ne m'y suis pas arrêté, sinon j'aurais vu la grossière erreur), tu dis : en début, il y a une fonction VBA

"Dim T As Double ' time in Julian centuries since 0.5 Jan 1900
Dim dblLong As Double ' Sun 's mean longitude, in degrees
Dim dblAnomaly As Double ' Sun 's mean anomaly, in degrees
Dim dblCorrEcc As Double ' Correction for eccentricity
Dim dblStheta As Double ' True Longitude "

Ce n'est pas une fonction, mais la déclaration des variables utilisées.
L'erreur : Dim dblCorrEcc As Double ' Correction for eccentricity, ce n'est pas le calcul de l'excentricité de l'orbite de la Terre mais l'équation du centre du Soleil, ce qui n'est pas la même chose, mais les deux sont nécessaires si l'on veut calculer la distance du Soleil à la Terre.

Si j'avais vu ce post, je n'aurais pas hésité quand à l'origine, donc, il s'agit bien de J1900.0 soit le jour julien 2415020.5 commençant le 01/01/1900 à 0 heure.

Par ailleurs j'ai parlé de VBA ce matin pour les formulations que tu as indiquées, en fait, ce n'est pas du VBA, mais un Basic ou approchant (perte de mémoire).

Pour en revenir à ta question, il faut déjà calculer le jour julien du jour où tu veux faire le calcul, agrémenter de l'heure éventuellement (et surtout sans rentrer dans les détails). Ensuite T = (JJ du jour-2415020.5)/36525 pour avoir T en siècle, ici cela va faire un truc du genre 1.075.....

ensuite dans une cellule =
279.69668+36000.76892*1.075+0.0003025*1.075^2 et pareil pour les autres....

Un peu loin d'excel, tu ne trouves pas.

 

[Staple1600]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re

-->jean-pierre: j'avais juste copié le début du code VBA
(pour éconmiser de la place) pour illustrer le fait
que cela était compliqué (pour moi en tout cas)
et ce sont des Déclarations incluses dans la fonction
Function Zodiac(ByVal varDOB) As Byte
(J'aurai du être plus précis - désolé)

Pour ce qui de la proximité d'Excel et des astres

elle réside pour moi dans le fait

qu'Excel brille au firmament de la galaxie des tableurs 😉

et que VBA est ma profette.
(faute de français volontaire pour éviter ...)

Dans le classeur initial, j'indique la source du code (anglophone)
qui apparemment au départ était destiné à Access.
SOURCE:Microsoft Access Database: Function to determine *'Star Sign' (Horoscope) from Birthdate

 

[jeanpierre]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re,

Je n'avais pas vu ton lien, et je ne peux ouvrir le dernier. Il faut être abonné à priori.

 

[Staple1600]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re

Non pas besoin d'être abonné

Tu patientes quelques instants

Puis tu fais défiler ta page jusqu'en bas et la tu verras

les messages "en clair"

(C'est ce que j'ai fais sous Firefox)

 

[jeanpierre]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re,

Sous IE, cela ne fonctionne pas : erreur sur la page et terminé, je l'ai fait 7 ou 8 fois...

Bon pas grave,

Tu avais posé une question, j'ai tenté d'y répondre....

 

[Staple1600]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re

Une petite question

Pour continuer dans la veine et le thème de ce post

J'ai sous le coude un script javascript
pour cette fois-ci voir le coté aztéque de la chose
(toujours sur mode ludique je le reprécise)

Ce code utilise des Array

Puis-je le poster ici (dans ce fil) ?
(Comme un exemple d'utilisation des Array)
(car je n'arrive pas à le traduire complètement en VBA)

Ou en partant du fait que les erreurs qui ont motivé ce fil
ont été explicitées et qu'elles n'apparaissent plus dans
le dernier fichier joint par Monique, arrêtons-nous ici la discussion?

edit: --> jean-pierre: tu étais inclus dans le tous de ces remerciements d'une de mes précédentes réponses

Merci à tous pour vos explications astronomiques.
(qui ne font qu'accentuer le regret d'avoir laisser les maths de côté lors de ma scolarité)

 

[jeanpierre]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re,

Regardes ma signature.....

Je pense qu'il est, sans doute, temps de mettre un terme à ce fil.

Bonne soirée.

 

[Staple1600]

Re : Erreurs résultats Formules (du forum) et fonctions VBA: quelles causes?

Re

En guise de conclusion et pour le plaisir de l'imagination (et des yeux)

NASA - JPL Solar System Simulator
et également
Dazzling Universe
mais aussi
HubbleSite - Gallery

Un petit echantillon (spiral galaxy M100)


PS: Merci à tous les intervenants pour leur réponses et leurs éclairages érudits.

edit special {"jeanpierre", "Excel_lent", "Gruick", "JCGL"}
pour l'équilibre de ma santé mentale, je lis également ce genre de choses
Le cercle zététique - Le Cercle Zetetique - CZ
Laboratoire de Zététique, Université Nice-Sophia Antipolis
et pour être plus précisément en rapport avec ce fil