Download @zacpro1.procedur

Back to the list

   1 : * @ZACPRO1  PROCEDUR  CHAT      95/12/13    21:46:20     1945           
   2 : **********************************************************************
   3 : *                LISTE DES PROCEDURES POUR ZACPLUS                   *
   4 : **********************************************************************
   5 : 
   6 : *---------------------CHAMP DE DEFORMATIONS--------------------------*
   7 : 
   8 : 'DEBP' @ZACPRO1 EE1*'MCHAML' EE2*'MCHAML' EE3*'MCHAML'
   9 :                EE4*'MCHAML' EE5*'MCHAML' EE6*'MCHAML' MO*'MMODEL';
  10 : 
  11 : MODC     = VALEUR MODE;
  12 : 
  13 : COND1    = 'EGA' 'PLANCONT' MODC ;
  14 : COND2    = 'EGA' 'PLANDEFO' MODC ;
  15 : COND3    = 'EGA' 'AXIS' MODC ;
  16 : COND4    = 'EGA' 'TRID' MODC ;
  17 : 'SI' COND1;
  18 : EE4      = 2.*EE4;
  19 : TENS1    = 'EXCO' 'SCAL' EE1 'EPXX';
  20 : TENS2    = 'EXCO' 'SCAL' EE2 'EPYY';   
  21 : TENS3    = 'EXCO' 'SCAL' EE3 'EPZZ';
  22 : TENS4    = 'EXCO' 'SCAL' EE4 'GAXY';
  23 : EPSILA   = 'MANU' 'CHML' MO 'EPXX' TENS1 'EPYY' TENS2 
  24 : 'EPZZ' TENS3 'GAXY' TENS4 'TYPE' DEFORMATIONS 'STRESSES';
  25 : 'FINSI';
  26 : 'SI' COND2;
  27 : EE4      = 2.*EE4;
  28 : TENS1    = 'EXCO' 'SCAL' EE1 'EPXX';
  29 : TENS2    = 'EXCO' 'SCAL' EE2 'EPYY';
  30 : TENS3    = 'EXCO' 'SCAL' EE3 'EPZZ';
  31 : TENS4    = 'EXCO' 'SCAL' EE4 'GAXY';
  32 : EPSILA   = 'MANU' 'CHML' MO 'EPXX' TENS1 'EPYY' TENS2 
  33 : 'EPZZ' TENS3 'GAXY' TENS4 'TYPE' DEFORMATIONS 'STRESSES';
  34 : 'FINSI';
  35 : 'SI' COND3;
  36 : EE4      = 2.*EE4;
  37 : TENS1    = 'EXCO' 'SCAL' EE1 'EPRR';
  38 : TENS2    = 'EXCO' 'SCAL' EE2 'EPZZ';
  39 : TENS3    = 'EXCO' 'SCAL' EE3 'EPTT';
  40 : TENS4    = 'EXCO' 'SCAL' EE4 'GARZ';
  41 : EPSILA   = 'MANU' 'CHML' MO 'EPRR' TENS1 'EPZZ' TENS2 'EPTT' TENS3 
  42 :            'GARZ' TENS4 'TYPE' DEFORMATIONS 'STRESSES';
  43 : 'FINSI';
  44 : 'SI' COND4;
  45 : EE4      = 2.*EE4;
  46 : EE5      = 2.*EE5;
  47 : EE6      = 2.*EE6;
  48 : TENS1    = 'EXCO' 'SCAL' EE1 'EPXX';
  49 : TENS2    = 'EXCO' 'SCAL' EE2 'EPYY';
  50 : TENS3    = 'EXCO' 'SCAL' EE3 'EPZZ';
  51 : TENS4    = 'EXCO' 'SCAL' EE4 'GAXY';
  52 : TENS5    = 'EXCO' 'SCAL' EE5 'GAXZ';
  53 : TENS6    = 'EXCO' 'SCAL' EE6 'GAYZ';
  54 : EPSILA   = 'MANU' 'CHML' MO 'EPXX' TENS1 'EPYY' TENS2 'EPZZ' 
  55 :            TENS3 'GAXY' TENS4 'GAXZ' TENS5 GAYZ TENS6 
  56 :            'TYPE' DEFORMATIONS 'STRESSES';
  57 : 'FINSI';
  58 : 'FINP' EPSILA;
  59 :  

© Cast3M 2003 - All rights reserved.
Disclaimer