title image


Smiley Re: Cosinus 90=-0,4480
Ich habe öfter mit Trigonometrie zu tun und habe mir dafür ein entsprechendes Modul mit den wichtigsten Funktionen angelegt. Die Übergaben/Rückgabewerte sind jeweils in Grad dimensioniert. Vielleicht hilft's es Dir...







      

Option Explicit



Public Const PI = 3.14159265358979  'ATN(1)*4

Public Const NoErrDivByZero = 0.000000000000001



Public Function gSIN(ByVal Angle As Double) As Double



    gSIN = Round(Sin(Angle * PI / 180), 10)



End Function



Public Function gArcSIN(ByVal Value As Double) As Double

    

    gArcSIN = Round(Atn(Value / (Sqr(-Value * Value + 1) + NoErrDivByZero)) * 180 / PI, 10)



End Function



Public Function gCOS(ByVal Angle As Double) As Double



    gCOS = Round(Cos(Angle * PI / 180), 10)



End Function



Public Function gArcCOS(ByVal Value As Double) As Double



    gArcCOS = Round((Atn(-Value / (Sqr(-Value * Value + 1) + NoErrDivByZero)) + 2 * Atn(1)) * 180 / PI, 10)



End Function



Public Function gTAN(ByVal Angle As Double) As Double



    gTAN = Round(Tan(Angle * PI / 180), 10)



End Function



Public Function gArcTAN(ByVal Value As Double) As Double



    gArcTAN = Round(Atn(Value) * 180 / PI, 10)



End Function



Public Function gATAN2(ByVal aLenght As Double, ByVal bLenght As Double) As Double



    Dim Angle As Double

    

    Angle = aLenght / Sqr(aLenght * aLenght + bLenght * bLenght)

    gATAN2 = Round(Atn(Angle / (Sqr(-Angle * Angle + 1) + NoErrDivByZero)) * 180 / PI, 10)



End Function



Public Function Rad(ByVal Angle As Double) As Double

    

    Rad = Round(PI * Angle / 180, 10)



End Function 





Code eingefügt mit Syntaxhighlighter 3.0




Wer weiß schon, was er nicht weiß...(ich zähle mich auch dazu) Holger

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: