Procédures | Cast3M

* @RRSV     PROCEDUR  CB215821  19/11/18    21:15:01     10383          
*----------------------------------------------------------------------
*      CETTE METHODE A ETE MISE GRACIEUSEMENT
*      A DISPOSITION DE  LA COMMUNAUTE CAST3M
*      PAR TAMASKOVICS N.
*     (Freiberg Institut für Geotechnik )
*----------------------------------------------------------------------
'DEBM' @RRSV  N*'ENTIER'  DBG/'ENTIER' ;
*----------------------------------------------------------------------
* La methode @RRSV fait parti de l'objet @RSTH et est appelee avec
*    l'abbreviation %'RSV'.
*----------------------------------------------------------------------
 'SI' ('EXIS' DBG ) ;
  !DBG = DBG ;
 'SINO' ;
  !DBG = 0 ;
 'FINS' ;
*
 %'SN' = 1 ;
 %'PN' = 1.0 ;
 !II = ( N - 1 ) ;
*
 'REPE' I %'IX' ;
  !NN = 'ENTI' (!II / %'RT'.(%'IR'.&I).'NX') ;
  %'RT'.(%'IR'.&I).'I'  = !NN + 1 ;
  %'RT'.(%'IR'.&I).'VN' = 'EXTR'  %'RT'.(%'IR'.&I).'V'  %'RT'.(%'IR'.&I).'I' ;
  %'PN' = %'PN' * ('EXTR'  %'RT'.(%'IR'.&I).'P' %'RT'.(%'IR'.&I).'I') ;
  %'SN' = %'SN' + (('ENTI' (!NN / 2)) * %'RT'.(%'IR'.&I).'PX') ;
  'SI' (DBG '>EG' 1) ;
   'MESS' '@RRSV_1:' 'II=' !II  'NN=' !NN  'NX=' %'RT'.(%'IR'.&I).'NX' ;
  'FINS' ;
  !II = !II - (!NN * %'RT'.(%'IR'.&I).'NX') ;
 'FIN' I ;
*
 'SI' (DBG '>EG' 2) ;
  'MESS' '@RRSV_2:' 'SN=' %'SN'  'PN=' %'PN' ;
 'FINS' ;
*
 'REMP'  %'CPN'  %'SN'  %'PN' ;
 'REMP'  %'CPX'  %'SN'  %'PN' ;
*
 'SI' (DBG '>EG' 1) ;
  'REPE' I %'IX' ;
   'MESS' '@RRSV_3:' 'I=' &I 'RT.I=' %'RT'.(%'IR'.&I).'I'
        'RT.VN=' %'RT'.(%'IR'.&I).'VN' 'PN=' %'PN' 'SN=' %'SN' ;
  'FIN' I ;
 'FINS' ;
*
'FINM' ;