trigonométrie...

onlyforpeace
Auteur du sujet
Hors Ligne
Expert Boarder

Plus d'informations

il y a 1 an 1 mois #395 par onlyforpeace

Bonjour, j'aimerais trouver l'inverse tangente d'une distance, prise entre deux point.
j'ai mes variables "dist" et "tube" de rempli, et mon code fini comme ça:

angle = Atan(dist / tube) * 180 / PI() 
	
	rhino.Print angle

une ligne trouvé sur le net... mais forcement, ça ne marche pas...
y a t'il une solution?
est ce qu'il faut faire appel à une autre fonction? bibli?

merci!

Connexion pour participer à la conversation.

SwissRhino
Hors Ligne
Modérateur

Plus d'informations

il y a 1 an 1 mois #396 par SwissRhino

Je crois que le problème principal est que la fonction ArcTangent est appelé par "atn" en vbscript et non pas par "Atan". Le retour est un angle en Radians - il faut le convertir en dégres si vous avez besoin de ça...

Call Test()
Sub Test()
	Dim a,b,c,angle
	a = Rhino.CurveLength(Rhino.GetObject("Pick CYAN line", 4))
	b = Rhino.CurveLength(Rhino.GetObject("Pick RED line", 4))
	Rhino.Print "Length of a=" & Cstr(a)
	Rhino.Print "Length of b=" & Cstr(b)
	angle = atn(a / b)
	Rhino.Print "Angle in radians=" & Cstr(angle)
	Rhino.Print "Angle in degrees=" & Cstr(angle * (180 / Rhino.PI))
End Sub

Ce fichier est masqué pour les invités.
Veuillez vous connecter ou vous enregistrer pour le consulter.

Ce message contient un fichier en pièce jointe.
Veuillez vous connecter ou vous enregistrer pour le consulter.

Les utilisateur(s) suivant ont remercié: onlyforpeace

Connexion pour participer à la conversation.

Modérateurs: SwissRhino, Jennifer, Joao

Temps de génération de la page : 0.085 secondes

Propulsé par Kunena

trigonométrie...

Ce message contient un fichier en pièce jointe. Veuillez vous connecter ou vous enregistrer pour le consulter.

Powered by

Ce message contient un fichier en pièce jointe.
Veuillez vous connecter ou vous enregistrer pour le consulter.