تابع هاي مثلثاتي در ويژوال بيسيک - تالار گفتمان آذر فروم





دعوت به همکاری با آذر فروم

 

تابع هاي مثلثاتي در ويژوال بيسيک
زمان کنونی: 20-09-1395،06:14 ب.ظ
کاربران در حال بازدید این موضوع: 1 مهمان
نویسنده: moderator
آخرین ارسال: moderator
پاسخ: 1
بازدید: 360

 
 
رتبه موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5

موضوع: تابع هاي مثلثاتي در ويژوال بيسيک
ارسال: #1
تابع هاي مثلثاتي در ويژوال بيسيک
پست‌ها: 1,456
تاریخ عضویت: 22 اردیبهشت 1390
اعتبار: 36
حالت من: Ghafelgir
ویژوال بیسیک /محیط های مبتنی بر زبان بیسیک

در این زبان امکان 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(Angry
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
















گوزلیم عکسین دوشوب پیماندن پیمانیه

گوندریب عشقین منی میخاندن میخانیه

گئتمیشم میخانیه من دردیمه درمان اولام

دردیمی بیر بیر دیم من ساغر و پیمانیه

دردیمه درمان شراب اولدو حبیبیم ساقی لر

گوندریب عشقیم منی گور هانسی داروخانیه


[عکس: images?q=tbn:ANd9GcTiJ4evUTSiPaWN4c5Iczp...VY2wXNRMnQ]
20-06-1390 11:22 ب.ظ
 


[-]
پاسخ سریع
پیام
پاسخ خود را برای این پیام در اینجا بنویسید.


کد تصویری
royalfuns
(غیر حساس به بزرگی و کوچکی حروف)
لطفاً کد نشان داده شده در تصویر را وارد نمایید. این اقدام جهت جلوگیری از ارسال‌های خودکار ضروری می‌باشد.

موضوعات مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  تابع Iif moderator 0 390 20-06-1390 11:25 ب.ظ
آخرین ارسال: moderator
  نحوه خاموش كردن كامپيوتر با ويژوال بيسيك 6 moderator 0 347 11-06-1390 01:43 ب.ظ
آخرین ارسال: moderator

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان