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

واضح آرشیو وب فارسی:فان پاتوق: ویژوال بیسیک /محیط های مبتنی بر زبان بیسیک

در این زبان امکان 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)
End Function

این صفحه را در گوگل محبوب کنید

[ارسال شده از: فان پاتوق]

[مشاهده در: www.funpatogh.com]

[تعداد بازديد از اين مطلب: 403]