un program qui permet de calculer integral par methode de simpson
صفحة 1 من اصل 1
un program qui permet de calculer integral par methode de simpson
! un program qui permet de calculer integral par methode de simpson
program methode simpson
implicit none
!--------------partie declaration----------------------------------
integer:: i,j,n
real:: a,b,h,somme1,somme2,f,aire,hp
parameter(n=1000)
!--------------partie saisie---------------------------------------
write(*,*)'donner les bornes de l_integrale a et b'
read(*,*)a,b
!--------------partie tgraitement----------------------------------
h=(b-a)/(1*n)
somme1=0.0
do i=1,n-1,2
hp=a+i*h
somme1=somme1+f(hp)
enddo
somme2=0.0
do j=2,n-2,2
hp=a+j*h
somme2=somme2+f(hp)
enddo
aire=(h/3)*(f(a)+f(b)+(4*somme1)+(2*somme2) )
!-------------partie affichage------------------------------------
write(*,*)'l_integrale par méthode de simpson est',aire
end
!-----------------bloc fonctionnel--------------------------------
function f(x) result(f1)
implicit none
real x,f1
f1=2*x
end
program methode simpson
implicit none
!--------------partie declaration----------------------------------
integer:: i,j,n
real:: a,b,h,somme1,somme2,f,aire,hp
parameter(n=1000)
!--------------partie saisie---------------------------------------
write(*,*)'donner les bornes de l_integrale a et b'
read(*,*)a,b
!--------------partie tgraitement----------------------------------
h=(b-a)/(1*n)
somme1=0.0
do i=1,n-1,2
hp=a+i*h
somme1=somme1+f(hp)
enddo
somme2=0.0
do j=2,n-2,2
hp=a+j*h
somme2=somme2+f(hp)
enddo
aire=(h/3)*(f(a)+f(b)+(4*somme1)+(2*somme2) )
!-------------partie affichage------------------------------------
write(*,*)'l_integrale par méthode de simpson est',aire
end
!-----------------bloc fonctionnel--------------------------------
function f(x) result(f1)
implicit none
real x,f1
f1=2*x
end
مواضيع مماثلة
» un program qui permet de calculer les integrales par la methode de trapez
» program calcul integral par choix entre simpson ou trapez
» methode de resolution d'equations différentielles par methode de MEEM
» calcul intégral
» un programmz qui permet de tester si 10 nombres sont parfaits
» program calcul integral par choix entre simpson ou trapez
» methode de resolution d'equations différentielles par methode de MEEM
» calcul intégral
» un programmz qui permet de tester si 10 nombres sont parfaits
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى