Télécharger prob.eso

Retour à la liste

Numérotation des lignes :

  1. C PROB SOURCE CHAT 05/01/13 02:29:28 5004
  2. C PROB SOURCE PHIL 98/07/02 21:08:58
  3. SUBROUTINE PROB
  4. * calcule la probabilite que X defini par
  5. * MU = moyenne,
  6. * SIGM = ecart-type,
  7. * RB1 = coefficient de symetrie,
  8. * B2 = coefficient d'aplatissement
  9. * soit plus petit que ALPH.
  10. *
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8(A-H,O-Z)
  13. -INC CCOPTIO
  14. -INC SMLREEL
  15. CALL LIRREE(FLO1,0,IRETOU)
  16. CALL LIRREE(FLO2,0,IRETOU)
  17. CALL LIRREE(FLO3,0,IRETOU)
  18. CALL LIRREE(FLO4,0,IRETOU)
  19. CALL LIRREE(FLO5,0,IRETOU)
  20. IF (IRETOU.EQ.0) THEN
  21. CALL REFUS
  22. GOTO 3
  23. ENDIF
  24. 3 CONTINUE
  25. C
  26. C Appel de la procedure determinant le type de la densite
  27. C
  28. CALL JNSN(FLO1,FLO2,FLO3,FLO4,IT1,G1,D1,XL1,XI1,IFAULT)
  29. C
  30. C Calcul de la probabilite
  31. C
  32. CALL norcdf(SNV(FLO5,IT1,G1,D1,XL1,XI1,IFAULT),P)
  33. CALL ECRREE(P)
  34. RETURN
  35. END
  36. c
  37.  
  38.  
  39.  

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