1. Forum
  3. RhinoShack Forums
  5. Support et assistance
  7. Rhino Script
  9. trigonométrie...

trigonométrie...

Plus d'informations
il y a 2 ans 1 mois #395 par onlyforpeace
trigonométrie... a été créé 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.

Plus d'informations
il y a 2 ans 1 mois #396 par SwissRhino
Réponse de SwissRhino sur le sujet trigonométrie...
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
  1. Forum
  3. RhinoShack Forums
  5. Support et assistance
  7. Rhino Script
  9. trigonométrie...
Temps de génération de la page : 0.140 secondes
Propulsé par Kunena

Powered by

3d design training



cadlantique.com


swissrhino.com