trigonométrie...

il y a 3 mois 6 jours #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.

il y a 3 mois 6 jours #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: SwissRhinoJenniferJoao
Temps de génération de la page : 0.115 secondes
Propulsé par Kunena

Powered by


3d design training



cadlantique.com


swissrhino.com