Télécharger @RRST.procedur

Retour à la liste

Numérotation des lignes :

  1. * @RRST 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' @RRST R*'TABLE' DBG/'ENTIER' ;
  9. *----------------------------------------------------------------------
  10. * La methode @RRST fait partie de l'objet @RSTH et est appelee avec
  11. * l'abbreviation %'RST'.
  12. *----------------------------------------------------------------------
  13. 'SI' ('EXIS' DBG ) ;
  14. !DBG = DBG ;
  15. 'SINO' ;
  16. !DBG = 0 ;
  17. 'FINS' ;
  18. *
  19. %'RT' = R ;
  20. *
  21. %'IR' ='INDE' %'RT' ;
  22. %'IX' ='DIME' %'IR' ;
  23. *
  24. 'REPE' I %IX ;
  25. !NM ='DIME' %'RT'.(%'IR'.&I).'MIN' ;
  26. !NX ='DIME' %'RT'.(%'IR'.&I).'MAX' ;
  27. !NC ='DIME' %'RT'.(%'IR'.&I).'CPB' ;
  28. !JX = !NM + !NX ;
  29. %'RT'.(%'IR'.&I).'N' = !JX ;
  30. %'RT'.(%'IR'.&I).'V' = 'PROG' !JX * 0.0 ;
  31. %'RT'.(%'IR'.&I).'P' = 'PROG' !JX * 0.0 ;
  32. !JV = 0 ;
  33. !JX = !NM ;
  34. 'REPE' J !JX ;
  35. !JV = ( !JV + 1 ) ;
  36. 'REMP' %'RT'.(%'IR'.&I).'V' !JV ('EXTR' %'RT'.(%'IR'.&I).'MIN' &J) ;
  37. 'REMP' %'RT'.(%'IR'.&I).'P' !JV ('EXTR' %'RT'.(%'IR'.&I).'CPB' &J) ;
  38. !JV = !JV + 1 ;
  39. 'REMP' %'RT'.(%'IR'.&I).'V' !JV ('EXTR' %'RT'.(%'IR'.&I).'MAX' &J) ;
  40. 'REMP' %'RT'.(%'IR'.&I).'P' !JV ('EXTR' %'RT'.(%'IR'.&I).'CPB' &J) ;
  41. 'FIN' J ;
  42. 'FIN' I ;
  43. *
  44. !NN = 1 ;
  45. !NX = 1 ;
  46. !PN = 1 ;
  47. !PX = 1 ;
  48. !CX = 1 ;
  49. !RX = 1 ;
  50. *
  51. 'REPE' I %'IX' ;
  52. !RX = 2 * !RX ;
  53. !II = %'IX' - &I + 1 ;
  54. !NX = !NN * !NX ;
  55. %'RT'.(%'IR'.!II).'NX' = !NX ;
  56. !PX = !PN * !PX ;
  57. %'RT'.(%'IR'.!II).'PX' = !PX ;
  58. !NN = %'RT'.(%'IR'.!II).'N' ;
  59. !PN = !NN / 2 ;
  60. !CX = !CX * !NN ;
  61. %'RT'.(%'IR'.!II).'CX' = !CX ;
  62. 'FIN' I ;
  63. %'NX' = !NX ;
  64. %'CX' = !CX ;
  65. %'RX' = !RX ;
  66. %'PX' = %'CX' / %'RX' ;
  67. %'MIN' ='PROG' %'PX' * 0.0 ;
  68. %'CPN' ='PROG' %'PX' * 0.0 ;
  69. %'MAX' ='PROG' %'PX' * 0.0 ;
  70. %'CPX' ='PROG' %'PX' * 0.0 ;
  71. *
  72. 'FINM' ;
  73.  
  74.  

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