Invcos, invsin & detectepointofcercle: précis

Commenter

Contenu du snippet

InvCos donne la valeur d'un angles à partir de son cosinus.

InvSin donne la valeur d'un angles à partir de son sinus.

DetectePointOfCercle donne l'absisse d'un point d'un cercle à partir de son ordonné, ou l'inverse.

Source / Exemple : 


Function InvCos(ValueCos As Double)
If ValueCos = 0 Then
InvCos = 90
Else
Dim Pi, ValueSin, ValueTan, Result
Pi = (4 * Atn(1))
ValueSin = Sqr(1 - ((ValueCos) ^ 2))
ValueTan = ValueSin / ValueCos
Result = Atn(ValueTan) * (180 / (4 * Atn(1)))
If Result < 0 Then
InvCos = 180 + Result
Else
InvCos = Result
End If
End If
End Function

Function InvSin(ValueSin As Double)
If ValueSin = 0 Then
InvSin = 0
Else
Dim Pi, ValueCos, ValueTan, Result
Pi = (4 * Atn(1))
ValueCos = Sqr(1 - ((ValueSin) ^ 2))
ValueTan = ValueSin / ValueCos
Result = Atn(ValueTan) * (180 / (4 * Atn(1)))
If Result < 0 Then
InvSin = 180 + Result
Else
InvSin = Result
End If
End If
End Function

Function DetectePointOfCercle(Rayon, Position, Party)
If Party = 1 Then
DetectePointOfCercle = Rayon - (Rayon * (Sin(InvCos((Rayon - Position) / Rayon) * ((4 * Atn(1)) / 180))))
Else
DetectePointOfCercle = Rayon + (Rayon * (Sin(InvCos((Rayon - Position) / Rayon) * ((4 * Atn(1)) / 180))))
End If
End Function
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Warning)