تابع هاي مثلثاتي در ويژوال بيسيک

[TAHA]

ویژوال بیسیک /محیط های مبتنی بر زبان بیسیک

در این زبان امکان arctan/Sin/cos/tan/موجود می باشد


برای استفاده از بقیه فرمولها توابعی به صورت زیر تعریف کنید



توجه کنید عبارت بعد از کتیشن کامنت است و دلخواه است وبرای توضیح استفاده میشود.
کتانژانت:

 Public Function Cotan(ByVal x As Double) As Double 
' Cotangent 
Cotan = 1 / Tan(x) 

End Function 

-___________________________________

سکانت :

 Public 

Function Sec(ByVal x As Double) As Double 

Secant    Sec = 1 / Cos(x) 
End Function 

________________________________________________


کسکانت:

 Public Function Cosec(ByVal x As Double) As Double' Cosecant 
Cosec = 1 / Sin(x( 
End Function 

ارک سینوس:

Public Function Arcsin(ByVal x As Double) As Double 
'Inverse Sine 
If Abs(x) = 1 Then 
Arcsin = Atn(1) * Sgn(x) * 2 
Else 
Arcsin = Atn(x / Sqr(-x * x + 1)) 
End If 
End Function 

__________________________________________________ _____

ارک کسینوس:

Public Function Arccos(ByVal x As Double) As Double 
' Inverse Cosine 
If Abs(x) = 1 Then 
Arccos = Atn(1) * (1 - Sgn(x)) * 4 
Else 
Arccos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1) 
End If 
End Function 

__________________________________________________ ______

ارک سکانت:

 Public Function Arcsec(ByVal x As Double) As Double 
' Inverse Secant 
If Abs(x) = 1 Then 
Arcsec = Atn(1) * Sgn(x) * 4 
Else 
Arcsec = Atn(x / Sqr(x * x - 1)) + Sgn((x) - 1) * (2 * Atn(1)) 
End If 
End Function 

__________________________________________________ ___


ارک کسکانت:

Public Function Arccosec(ByVal x As Double) As Double 
' Inverse Cosecant 
If Abs(x) = 1 Then 
Arccosec = Atn(1) * (Sgn(x) * 4 - 2) Else 

Arccosec = Atn(x / Sqr(x * x - 1)) + (Sgn(x) - 1) * (2 * Atn(1)) 
End If 
End Function 

__________________________________________________ ____________

ارک کتانژانت:

 Public Function Arccotan(ByVal x As Double) As Double 
' Inverse Cotangent 
Arccotan = Atn(x) + 2 * Atn(1) 
End Function 

__________________________________________________ ____________________


در این قسمت به تعریف توابع ها یپر بولیک میپردازیم



Hyperbolic Trigonometric Functions


سینوس هایپر بولیک:

 Public Function HSin(ByVal x As Double) As Double 
' Hyperbolic Sine 
HSin = (Exp(x) - Exp(-x)) / 2 
End Function 

کسینوس هایپر بولیک:

 Public Function HCos(ByVal x As Double) As Double 
' Hyperbolic Cosine 
HCos = (Exp(x) + Exp(-x)) / 2 
End Function 

تانژانت هایپر بولیک:

 Public Function HTan(ByVal x As Double) As Double 
' Hyperbolic Tangent 
HTan = (Exp(x) - Exp(-x)) / (Exp(x) + Exp(-x)) 
End Function 

سکانت هایپر بولیک:

Public Function HSec(ByVal x As Double) As Double 
' Hyperbolic Secant 
HSec = 2 / (Exp(x) + Exp(-x)) 
End Function 

کسکانت هایپر بولیک:

 Public Function HCosec(ByVal x As Double) As Double 
' Hyperbolic Cosecant 
HCosec = 2 / (Exp(x) - Exp(-x)) 
End Function 

کتانژانت هایپر بولیک:

Public Function HCotan(ByVal x As Double) As Double 
' Hyperbolic Cotangent 
HCotan = (Exp(x) + Exp(-x)) / (Exp(x) - Exp(-x)) 
End Function 

ارک سینوس هایپر بولیک:

Public Function HArcsin(ByVal x As Double) As Double 
' Inverse Hyperbolic Sine 
HArcsin = Log(x + Sqr(x * x + 1)) 
End Function 

ارک کسینوس هایپر بولیک:

Public Function HArccos(ByVal x As Double) As Double 
' Inverse Hyperbolic Cosine 
HArccos = Log(x + Sqr(x * x - 1)) 
End Function 

ارک تانژانت هایپر بولیک:

 Public Function HArctan(ByVal x As Double) As Double 
' Inverse Hyperbolic Tangent 
HArctan = Log((1 + x) / (1 - x)) / 2 
End Function 

ارک کتانژانت هایپر بولیک:

 Public Function HArccotan(ByVal x As Double) As Double 
' Inverse Hyperbolic Cotangent 
HArccotan = Log((x + 1) / (x - 1)) / 2 
End Function 

ارک سکانت هایپر بولیک:

 Public Function HArcsec(ByVal x As Double) As Double 
' Inverse Hyperbolic Secant 
HArcsec = Log((Sqr(-x * x + 1) + 1) / x) 
End Function 

ارک کسکانت هایپر بولیک:

 Public Function HArccosec(ByVal x As Double) As Double 
' Inverse Hyperbolic Cosecant 
HArccosec = Log((Sgn(x) * Sqr(x * x + 1) + 1) / x)