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.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMLREEL
  17. CALL LIRREE(FLO1,0,IRETOU)
  18. CALL LIRREE(FLO2,0,IRETOU)
  19. CALL LIRREE(FLO3,0,IRETOU)
  20. CALL LIRREE(FLO4,0,IRETOU)
  21. CALL LIRREE(FLO5,0,IRETOU)
  22. IF (IRETOU.EQ.0) THEN
  23. CALL REFUS
  24. GOTO 3
  25. ENDIF
  26. 3 CONTINUE
  27. C
  28. C Appel de la procedure determinant le type de la densite
  29. C
  30. CALL JNSN(FLO1,FLO2,FLO3,FLO4,IT1,G1,D1,XL1,XI1,IFAULT)
  31. C
  32. C Calcul de la probabilite
  33. C
  34. CALL norcdf(SNV(FLO5,IT1,G1,D1,XL1,XI1,IFAULT),P)
  35. CALL ECRREE(P)
  36. RETURN
  37. END
  38. c
  39.  
  40.  
  41.  

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