جواب یک انتگرال معین

[Amit13]

سلام دوستان!
دارم یک پروژه با بیلدر میسازم ،یکجاش یک الگوریتم واسه حل این انتگرال میخواد.
(یعنی میخوام x رو بگیرم و y رو بهم بده. )

فکری که خودم کردم این بود که جواب انتگرال رو پیدا کنم،که فکر کنم این باشه:

بعد داخل یک حلقه ی for از یک عدد خیلی کم تا اون x وارد شده،ذره ذره عدد جای t بذاره و مقدار فرمول حساب کنه و مقدار رو sum با قبیا کنم.
ممنون میشم اگه کمک کنید.

 

[the_king]

سلام دوستان!
دارم یک پروژه با بیلدر میسازم ،یکجاش یک الگوریتم واسه حل این انتگرال میخواد.
(یعنی میخوام x رو بگیرم و y رو بهم بده. )

بعد داخل یک حلقه ی for از یک عدد خیلی کم تا اون x وارد شده،ذره ذره عدد جای t بذاره و مقدار فرمول حساب کنه و مقدار رو sum با قبیا کنم.
ممنون میشم اگه کمک کنید.

اگه جواب انتگرال رو درست پیدا کرده باشید که دیگه نیازی به محاسبه کردن step به step نیست،
انتگرال ام رو به زحمت پاس کرده بودم اما انتهاشو از ابتداش کسر می کنی و جواب بدست میاد.
در ضمن MMB برای محاسبه کردن تدریجی یک سری طولانی زیادی کنده.

می توانید برای محاسبه کردن e به توان یک عددی (تابع Exp ریاضی) از این کد استفاده کنید، مقدار m مجهولی
است که بایستی e ^ m محاسبه بشه، min و max برای این هستند که خطای overflow نده :

m = your number
max = 100000000000
min = -max
b = 1
c = 1
d = 1
For i = 1 To 100
  b = b * m
  If ((b < min) | (b > max)) Then
    Break()
  End
  c = c * i
  d = d + b / c
Next i

خروجی این کد متغیر d است که e به توان m رو محاسبه می کنه.
چون مضرب فرمول یعنی یک تقسیم بر رادیکال دو برابر پی مقدار ثابت است، می توانید بصورت صریح
مقدار اعشاری اش را بکار ببرید.

اگر فرمول انتگرال درست باشه ظاهرا برای منفی بی نهایت صفر میاد که نیازی به محاسبه نداره.

ورودی این کد x و خروجی y است :

max = 100000000000
min = -max
s = -0.39894228040143
y = 0
m = -(x * x / 2)
b = 1
c = 1
d = 1
For i = 1 To 100
  b = b * m
  If ((b < min) | (b > max)) Then
    Break()
  End
  c = c * i
  d = d + b / c
Next i
y = (s / x) * d