Télécharger la plaquette Cast3M


fr en

Télécharger prob.eso

Retour à la liste

Numérotation des lignes : 

prob

  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