Télécharger @RRSV.procedur

Retour à la liste

Numérotation des lignes :

  1. * @RRSV PROCEDUR CB215821 19/11/18 21:15:01 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' @RRSV N*'ENTIER' DBG/'ENTIER' ;
  9. *----------------------------------------------------------------------
  10. * La methode @RRSV fait parti de l'objet @RSTH et est appelee avec
  11. * l'abbreviation %'RSV'.
  12. *----------------------------------------------------------------------
  13. 'SI' ('EXIS' DBG ) ;
  14. !DBG = DBG ;
  15. 'SINO' ;
  16. !DBG = 0 ;
  17. 'FINS' ;
  18. *
  19. %'SN' = 1 ;
  20. %'PN' = 1.0 ;
  21. !II = ( N - 1 ) ;
  22. *
  23. 'REPE' I %'IX' ;
  24. !NN = 'ENTI' (!II / %'RT'.(%'IR'.&I).'NX') ;
  25. %'RT'.(%'IR'.&I).'I' = !NN + 1 ;
  26. %'RT'.(%'IR'.&I).'VN' = 'EXTR' %'RT'.(%'IR'.&I).'V' %'RT'.(%'IR'.&I).'I' ;
  27. %'PN' = %'PN' * ('EXTR' %'RT'.(%'IR'.&I).'P' %'RT'.(%'IR'.&I).'I') ;
  28. %'SN' = %'SN' + (('ENTI' (!NN / 2)) * %'RT'.(%'IR'.&I).'PX') ;
  29. 'SI' (DBG '>EG' 1) ;
  30. 'MESS' '@RRSV_1:' 'II=' !II 'NN=' !NN 'NX=' %'RT'.(%'IR'.&I).'NX' ;
  31. 'FINS' ;
  32. !II = !II - (!NN * %'RT'.(%'IR'.&I).'NX') ;
  33. 'FIN' I ;
  34. *
  35. 'SI' (DBG '>EG' 2) ;
  36. 'MESS' '@RRSV_2:' 'SN=' %'SN' 'PN=' %'PN' ;
  37. 'FINS' ;
  38. *
  39. 'REMP' %'CPN' %'SN' %'PN' ;
  40. 'REMP' %'CPX' %'SN' %'PN' ;
  41. *
  42. 'SI' (DBG '>EG' 1) ;
  43. 'REPE' I %'IX' ;
  44. 'MESS' '@RRSV_3:' 'I=' &I 'RT.I=' %'RT'.(%'IR'.&I).'I'
  45. 'RT.VN=' %'RT'.(%'IR'.&I).'VN' 'PN=' %'PN' 'SN=' %'SN' ;
  46. 'FIN' I ;
  47. 'FINS' ;
  48. *
  49. 'FINM' ;
  50.  
  51.  

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