Télécharger somme2.eso

Retour à la liste

Numérotation des lignes :

somme2
  1. C SOMME2 SOURCE CHAT 05/01/13 03:22:06 5004
  2. FUNCTION SOMME2 (X,Y,L)
  3. IMPLICIT INTEGER(I-N)
  4. REAL*8 SOMME2
  5. ************************************************************************
  6. *
  7. * S O M M E 2
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * INTEGRATION, PAR LA METHODE DES TRAPEZES, D'UNE FONCTION
  14. * REPRESENTEE PAR UNE SUITE DE COUPLES DE VALEURS (X,F(X)), DANS
  15. * L'ORDRE DES "X" CROISSANTS.
  16. *
  17. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  18. * -----------
  19. *
  20. * X (E) LISTE DES ABSCISSES.
  21. * Y (E) LISTE DES ORDONNEES.
  22. * L (E) NOMBRE DE POINTS DE DEFINITION DE LA FONCTION.
  23. * SOMME2 (S) INTEGRALE.
  24. *
  25. INTEGER L
  26. REAL*8 X(*),Y(*)
  27. *
  28. * VARIABLES:
  29. * ----------
  30. *
  31. REAL*8 XINT
  32. *
  33. * AUTEUR, DATE DE CREATION:
  34. * -------------------------
  35. *
  36. * PASCAL MANIGOT 22 MARS 1988
  37. *
  38. * LANGAGE:
  39. * --------
  40. *
  41. * FORTRAN77
  42. *
  43. ************************************************************************
  44. *
  45. L1 = L - 1
  46. XINT = 0.D0
  47. DO 20 I=1,L1
  48. XINT = XINT + (X(I+1)-X(I)) * (Y(I)+Y(I+1)) / 2.D0
  49. 20 CONTINUE
  50. * END DO
  51. *
  52. SOMME2 = XINT
  53. *
  54. END
  55.  
  56.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales