Télécharger @RRSR.procedur

Retour à la liste

Numérotation des lignes :

  1. * @RRSR PROCEDUR CB215821 19/11/18 21:15:00 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' @RRSR V*'FLOTTANT' N*'ENTIER' DBG/'ENTIER' ;
  9. *----------------------------------------------------------------------
  10. * La methode @RRSR fait parti de l'objet @RSTH et est appelee avec
  11. * l'abbreviation %'RSR'.
  12. *----------------------------------------------------------------------
  13. 'SI' ('EXIS' DBG ) ;
  14. !DBG = DBG ;
  15. 'SINO' ;
  16. !DBG = 0 ;
  17. 'FINS' ;
  18. *
  19. 'SI' ( (N '>EG' 1) 'ET' (N '<EG' %'CX') ) ;
  20. *
  21. !VN ='EXTR' %'MIN' %'SN' ;
  22. !VX ='EXTR' %'MAX' %'SN' ;
  23. 'SI'( ((!VN 'EGA' 0.0) 'ET' (!VX 'EGA' 0.0)) 'OU' (V '<' !VN) ) ;
  24. 'REMP' %'MIN' %'SN' V ;
  25. 'FINS' ;
  26. 'SI'( ((!VN 'EGA' 0.0) 'ET' (!VX 'EGA' 0.0)) 'OU' (V '>' !VX) ) ;
  27. 'REMP' %'MAX' %'SN' V ;
  28. 'FINS' ;
  29. *
  30. 'FINS' ;
  31. *
  32. 'SI' ( N 'EGA' %'CX' ) ;
  33. *
  34. !TN ='TABL' ;
  35. !TN.'MIN' = %'MIN' ;
  36. !TN.'CPB' = %'CPN' ;
  37. !TN ='ORDO' !TN 'MIN' 'CROI' ;
  38. %'MIN' = !TN.'MIN' ;
  39. %'CPN' = !TN.'CPB' ;
  40. *
  41. %'MINS' = %'SCV' %'MIN' ;
  42. %'CPNS' = %'SCS' %'CPN' ;
  43. *
  44. !TX ='TABL' ;
  45. !TX.'MAX' = %'MAX' ;
  46. !TX.'CPB' = %'CPX' ;
  47. !TX ='ORDO' !TX 'MAX' 'CROI' ;
  48. %'MAX' = !TX.'MAX' ;
  49. %'CPX' = !TX.'CPB' ;
  50. *
  51. %'MAXS' = %'SCV' %'MAX' ;
  52. %'CPXS' = %'SCS' %'CPX' ;
  53. *
  54. !EN ='EVOL' 'BOUT' 'MANU' 'MIN' %'MINS' 'CPB' %'CPNS' ;
  55. !EX ='EVOL' 'BRIQ' 'MANU' 'MAX' %'MAXS' 'CPB' %'CPXS' ;
  56. *
  57. %'RT'.'EN' = !EN ;
  58. %'RT'.'EX' = !EX ;
  59. %'RT'.'MIN' = %'MIN' ;
  60. %'RT'.'CPN' = %'CPN' ;
  61. %'RT'.'MAX' = %'MAX' ;
  62. %'RT'.'CPX' = %'CPX' ;
  63. *
  64. 'FINS' ;
  65. *
  66. 'FINM' ;
  67.  
  68.  

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