|کد فرترن روش انتگرال ذوزنقه|کد فرترن انتگرال عددی به روش ذوزنقه|انتگرال عددی به روش ذوزنقه|انتگرال عددی|انتگرال به روش ذوزنقه|محاسبات عددی|
------------------------------------------------------------------------------------------------------------------------------------------
کد فرترن انتگرال گیری عددی به روش ذوزنقه...این کد اول a و b رو میگیره.a و b به ترتیب کران های پایین و بالای انتگرال هستند یعنی همون بازه ای که میخوایم انتگرال معین رو حساب کنیم.سپس n رو میگیره.n تعداد نقاطی که روی محور x تولید میکنه یعنی از بازه a تا b رو به n قسمت مساوی تقسیم میکنه در نتیجه دلتا x برابر فاصله a تا b تقسیم بر n خواهد شد.سپس مجموع( f(i) ها را با هم جمع میکنم که از a به علاوه دلتا x شروع میشه تا b منهای دلتا x با گام های دلتا x. سپس f(a) و f(b) رو هم حساب میکنه و تقسیم بر 2 میکنه و با مجموع f(i) ها که بالا به دست اومد جمع میکنه و مجموع این دو تا رو در دلتا x ضرب میکنه.در آخر هم جواب رو نشون میده.من این روش رو برای تابع مثال f(x) = x - 2^x نوشتم.
---------------------------------------------------------------------------------------------------------------------------------
PROGRAM antegral
1. IMPLICIT NONE
2. INTEGER::n
3. REAL::t,i,s,fa,fb,b,a,delx
4. PRINT*
5. PRINT*," f(x) = x - 2**x"
6. PRINT*," baraye antegral az a ta b , a va b ra vared konid : "
7. PRINT*," a = "
8. READ*,a
9. PRINT*," b = "
10. READ*,b
11. PRINT*," n ra vared konid : "
12. READ*,n
13. delx=(b-a)/n
14. s=0.
15. DO i=a+delx,b-delx,delx
16. (s=s+(i-2**(i))
17. END DO
18. fa=a-2**(a)
19. fb=b-2**(b)
20. t=(s+((fa+fb)/2))*delx
21. PRINT*," javab antegral az",a,"ta",b," = ",t
22. PRINT*
23. END
24.
25.