Procédures | Cast3M

* DEFO_IMP  PROCEDUR  PV090527  24/02/19    22:42:35     11841          
*  procedure pour construire une relation imposant la deformation
 
DEBPPROC DEFO_IMP DEPST*'MCHAML' ZDEPT*'CHPOINT' ZRAID*'RIGIDITE';
 
depst = etg depst;
ma_cntrl = depst 'ELEM' 'MAXI' 'ABS';
RI_aux = zraid redu ma_cntrl;
fa_cntrl = ri_aux * zdept;
RE_CNTRL = 'RELA'  FA_CNTRL;
 
FINPROC RE_CNTRL   ;