Télécharger distri.eso

Retour à la liste

Numérotation des lignes :

  1. C DISTRI SOURCE CHAT 05/01/12 22:51:36 5004
  2. SUBROUTINE DISTRI(MMTRA,TE, ID,DPI, VALMAX)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C = CALCUL DU MAXIMUM DE DISTRIBUTION (CAS STATIQUE) =
  7. C = =
  8. C = ENTREE XLTIME(1,3)=XL0,XL1,XL2 MOMENT STATIQUES =
  9. C = TE =DUREE DU SIGNAL =
  10. C = SORTIE VALMAX = MAXIMUM =
  11. C=======================================================================
  12. C======+++++++++++ bon fontionnement erreur PSRS/PRNS +++++++++++ ======
  13. -INC CCOPTIO
  14. SEGMENT,MMTRA
  15. IMPLIED XLTIME(NNT,3)
  16. ENDSEGMENT
  17. C======+++++++++++ bon fontionnement erreur PSRS/PRNS +++++++++++ ======
  18. C
  19. C CALCULATION OF VALMAX USING VARIOUS DISTRIBUTION FUNCTIONS
  20. C
  21. C
  22. GOTO (1,2),ID
  23. C
  24. C CRAMER
  25. C
  26. C1 VALMAX=(SQRT(2*XL0*LOG(TE/4.355172181*SQRT(XL2/XL0))))
  27. 1 NNT=1
  28. XL0=XLTIME(1,1)
  29. XL1=XLTIME(1,2)
  30. XL2=XLTIME(1,3)
  31. VALMAX=(SQRT(2*XL0*LOG(TE/4.355172181*SQRT(XL2/XL0))))
  32. RETURN
  33. C
  34. C NEWGUMB (AVEC SUBSTITUTION PUIS EVENTUELLEMENT DICHO)
  35. C
  36. 2 CONTINUE
  37. ERR=1.D-4
  38. CALL DISTRT(MMTRA,1,TE, DPI, TE,2,ERR, VALMAX,IOK,IDUM)
  39. IF(IOK.NE.0)CALL ERREUR(575)
  40. RETURN
  41. END
  42.  
  43.  

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