fonctions trigo inverses avec VB5

[Squirrel]

Je découvres avec étonnement que mon VB5 ne connais pas les fonctions arcsinus et arcosinus.

C'est normal?

ou

estce qu'il me manque un module?

[leneuf22]

Pareil avec VB6... il n'y a que l'arctangente !

 

Bizarre !

[KewlCat]

Déjà qu'ils sont pas doués pour la programmation, tu espérais qu'ils fussent bons en maths ?

[KarLKoX]

Vi mais rien t'empeche de combler cette lacune

Voici ce que ca devrait donner (en gros) :

 

Private Sub Form_Load()

Dim retval As Single

 

retval = ArcSinus(0.5)

Debug.Print retval

 

End Sub

 

Public Function ArcSinus(ByVal Sinus As Single) As Single

 

ArcSinus = Atn(Sinus / Sqr(-Sinus * Sinus + 1))

 

End Function

 

Public Function ArcCosinus(ByVal Cosinus As Single) As Single

 

ArcCosinus = Atn(-Cosinus / Sqr(-Cosinus * Cosinus + 1)) + 2 * Atn(1)

 

End Function

 

 

Etant vraiement nul en maths, c'est a vérifier

[leneuf22]

Au cas ou ça interesse quelqu'un, on ne sait jamais

 

 

 

Sécante : Sec(X) = 1 / Cos(X)

 

Cosécante : Cosec(X) = 1 / Sin(X)

 

Cotangente : Cotan(X) = 1 / Tan(X)

 

Arcsinus : Arcsin(X) = Atn(X / Sqr(-X * X + 1))

 

Arccosinus : Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)

 

Arcsécante : Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) – 1) * (2 * Atn(1))

 

Arccosécante : Arccosec(X) = Atn(X / Sqr(X * X – 1)) + (Sgn(X) – 1) * (2 * Atn(1))

 

Arccotangente : Arccotan(X) = Atn(X) + 2 * Atn(1)

 

Sinus hyperbolique : HSin(X) = (Exp(X) – Exp(-X)) / 2

 

Cosinus hyperbolique : HCos(X) = (Exp(X) + Exp(-X)) / 2

 

Tangente hyperbolique : HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))

 

Sécante hyperbolique : HSec(X) = 2 / (Exp(X) + Exp(-X))

 

Cosécante hyperbolique : HCosec(X) = 2 / (Exp(X) – Exp(-X))

 

Cotangente hyperbolique : HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))

 

Arcsinus hyperbolique : HArcsin(X) = Log(X + Sqr(X * X + 1))

 

Arccosinus hyperbolique : HArccos(X) = Log(X + Sqr(X * X – 1))

 

Arctangente hyperbolique : HArctan(X) = Log((1 + X) / (1 – X)) / 2

 

Arcsécante hyperbolique : HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)

 

Arccosécante hyperbolique : HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)

 

Arccotangente hyperbolique : HArccotan(X) = Log((X + 1) / (X – 1)) / 2

 

Logarithme de base N : LogN(X) = Log(X) / Log(N)

[Laubean]

Et ben, ca m'etonnerait que t'ai vu ca en 3eme toi hehehehe

[KarLKoX]

msdn rulez