Télécharger emme.eso

Retour à la liste

Numérotation des lignes :

  1. C EMME SOURCE CB215821 16/04/21 21:16:35 8920
  2. c***********************************************************************
  3. c subroutine per il calcolo dello scarto del coefficiente di Weibull *
  4. c***********************************************************************
  5. subroutine emme(n,rml,sig,sum1,diff)
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. dimension sig(n)
  9. sum=0.
  10. sum1=0.
  11. sum2=0.
  12. do 10 i=1,n
  13. sum = sum + ( (sig(i)**rml) * LOG(sig(i)) )
  14. sum1= sum1 + sig(i)**rml
  15. sum2= sum2 + LOG(sig(i))
  16. 10 continue
  17. rn=float(n)
  18. secmem=rn/(rn*sum/sum1-sum2)
  19. diff=secmem-rml
  20. return
  21. end
  22.  
  23.  
  24.  
  25.  

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