Télécharger @RSCS.procedur

Retour à la liste

Numérotation des lignes :

  1. * @RSCS PROCEDUR CB215821 19/11/18 21:15:02 10383
  2. *----------------------------------------------------------------------
  3. * CETTE METHODE A ETE MISE GRACIEUSEMENT
  4. * A DISPOSITION DE LA COMMUNAUTE CAST3M
  5. * PAR TAMASKOVICS N.
  6. * (Freiberg Institut für Geotechnik )
  7. *----------------------------------------------------------------------
  8. 'DEBM' @RSCS CPB*'LISTREEL' DBG/'ENTIER' ;
  9. *----------------------------------------------------------------------
  10. * La methode @RSCS converti les valeurs dans le LISTREEL en un random
  11. * set notation pour la probabilite cumulee
  12. *----------------------------------------------------------------------
  13. 'SI' ('EXIS' DBG ) ;
  14. !DBG = DBG ;
  15. 'SINO' ;
  16. !DBG = 0 ;
  17. 'FINS' ;
  18. *
  19. !IX ='DIME' CPB ;
  20. !IIX = 2 * !IX ;
  21. !CPBS ='PROG' !IIX * 0.0 ;
  22. *
  23. !VV = 0.0 ;
  24. !JX = 2 ;
  25. *
  26. 'REPE' I !IX ;
  27. !CPBI ='EXTR' CPB &I;
  28. 'REPE' J !JX ;
  29. !JJ = (2 * (&I-1)) + &J ;
  30. 'REMP' !CPBS !JJ !VV ;
  31. 'SI' ( &J 'EGA' 1 ) ;
  32. !VV = !VV + !CPBI ;
  33. 'FINS' ;
  34. 'FIN' J ;
  35. 'FIN' I ;
  36. *
  37. 'FINM' !CPBS ;
  38.  
  39.  

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