Atan2 en VB6

Sinistrus Messages postés 1010 Date d'inscription   Statut Membre Dernière intervention   -  
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   -
Salut !

Je suis arrivé à une formule que je ne comprends pas.

* A = Différence de longitudes entre un Point1 et le lieu Point2 ;
* B = Latitude du Point2 ;
* C = Latitude du Point1.

Avec un langage de programmation ayant une fonction atan2
Code Visual Basic :

Q = atan2(cos(B).tan(C) - sin(B).cos(A), sin(A))

On obtient le bon résultat directement


Je n'arrives pas a convertir cette formule en VB6.
Il est important pour moi de savoir le faire sinon je n'ai qu'a jeter mon programme. J'ai vraiment besoin de votre aide.
Pourriez-vous m'aider svp ?

Merci
A voir également:

1 réponse

Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
bonjour,

en vba

Atan2(a,b) équivaut à Atan(b/a), avec a différent de 0 !!! évidement

Atan2 est l'inverse de l'arc tangente donc c'est l'arc cotangente.
1/tan(x)=cotan(x)

pour vb .. je ne sais pas si la fonction existe mais elle est facile à réaliser ou à s'en passer.
0