Télécharger la plaquette Cast3M


fr en

Télécharger @tole3.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @TOLE3    PROCEDUR  FANDEUR   14/10/10    21:15:01     8178           
  2. 'DEBP'  @TOLE3   A_1*'MAILLAGE' A_2*'MAILLAGE' RA_1*'FLOTTANT'                  
  3. N_1*'ENTIER' ;                                                                  
  4. ME = 'TEXT' 'MECANIQUE ELASTIQUE' ;                                             
  5. 'OPTI' 'ELEM' 'CUB8' ;                                                          
  6. S_1 = A_1 'REGL' 1 A_2 ;                                                        
  7.     'OPTI' 'ELEM' 'PRI6' 'MODE' 'TRIDIM' ;                                      
  8.     AF_1 = 'MODE' S_1 ME 'COQ4' ;                                               
  9.     VE_1 = 'PRES' 'COQU' AF_1 1. 'NORM' ;                                       
  10.     VE_1 = 'REDU' VE_1 S_1 ;                                                    
  11.     V1NX = 'EXCO' 'FX' VE_1 'SCAL' ;                                            
  12.     V1NY = 'EXCO' 'FY' VE_1 'SCAL' ;                                            
  13.     V1NZ = 'EXCO' 'FZ' VE_1 'SCAL' ;                                            
  14.     N1VN = ((V1NX ** 2) + (V1NY ** 2) + (V1NZ ** 2)) ** .5 ;                    
  15.     V1UNX = V1NX / N1VN ;                                                       
  16.     V1UNY = V1NY / N1VN ;                                                       
  17.     V1UNZ = V1NZ / N1VN ;                                                       
  18.     R1X = V1UNX * RA_1 ;                                                        
  19.     R1Y = V1UNY * RA_1 ;                                                        
  20.     R1Z = V1UNZ * RA_1 ;                                                        
  21.     TR_1 = ('NOMC' UX R1X) + ('NOMC' UY R1Y) + ('NOMC' UZ R1Z) ;                
  22.     L_1 = (A_1 'PLUS' TR_1) ;                                                   
  23.     L_2 = (A_2 'PLUS' TR_1) ;                                                   
  24. NN1 =  'NBNO' A_1 ;                                                             
  25. NN2 = NN1 / 2 ;                                                                 
  26. PA_11 = A_1 'POIN' 1 ;                                                          
  27. PA_12 = A_1 'POIN' NN2 ;                                                        
  28. PA_13 = A_1 'POIN' NN1 ;                                                        
  29. PA_21 = A_2 'POIN' 1 ;                                                          
  30. PA_22 = A_2 'POIN' NN2 ;                                                        
  31. PA_23 = A_2 'POIN' NN1 ;                                                        
  32. PA_11X = PA_11 COOR 1 ;                                                         
  33. PA_11Y = PA_11 COOR 2 ;                                                         
  34. PA_31 =  PA_11X PA_11Y 1. ;                                                     
  35. P_1 = 'TABL' ;                                                                  
  36. P_2 = 'TABL' ;                                                                  
  37. *                                                                               
  38. I = 1 ;                                                                         
  39.   'REPE' BOU100 NN1 ;                                                           
  40.   PP1 = L_1 'POIN' I ;                                                          
  41.   PP2 = L_2 'POIN' I ;                                                          
  42.   DP1 = PP2 'MOIN' PP1 ;                                                        
  43.   P_1.I = PP1 'PROJ' 'CYLI' DP1 'PLAN' PA_11 PA_12 PA_13 ;                      
  44.   P_2.I = PP2 'PROJ' 'CYLI' DP1 'PLAN' PA_21 PA_22 PA_23 ;                      
  45.   I = I + 1 ;                                                                   
  46.   'FIN' BOU100 ;                                                                
  47. *                                                                               
  48. I = 1 ;                                                                         
  49.   'REPE' BOU101 NN1 ;                                                           
  50.   P_1IY = P_1.I 'COOR' 2 ;                                                      
  51.     'SI' (P_1IY < PA_11Y) ;                                                     
  52.     DP_1 = P_1.I 'MOIN' P_1.(I + 1) ;                                           
  53.     P_1.I = P_1.I 'PROJ' 'CYLI' DP_1 'PLAN' PA_31 PA_11 PA_21 ;                 
  54.     P_1.I = P_1.I 'PLUS' ((0. 0. 1.E-5) * (I - 1)) ;                            
  55.     'SINON' ;                                                                   
  56.     'QUIT' BOU101 ;                                                             
  57.     'FINSI';                                                                    
  58.   I = I + 1 ;                                                                   
  59.   'FIN' BOU101 ;                                                                
  60. *                                                                               
  61. I = 1 ;                                                                         
  62.   'REPE' BOU103 NN1 ;                                                           
  63.   P_2IY = P_2.I 'COOR' 2 ;                                                      
  64.     'SI' (P_2IY < PA_11Y) ;                                                     
  65.     DP_1 = P_2.I 'MOIN' P_2.(I + 1) ;                                           
  66.     P_2.I = P_2.I 'PROJ' 'CYLI' DP_1 'PLAN' PA_31 PA_11 PA_21 ;                 
  67.     P_2.I = P_2.I 'PLUS' ((0. 0. 1.E-5) * (I - 1)) ;                            
  68.     'SINON' ;                                                                   
  69.     'QUIT' BOU103 ;                                                             
  70.     'FINSI' ;                                                                   
  71.   I = I + 1 ;                                                                   
  72.   'FIN' BOU103 ;                                                                
  73. *                                                                               
  74. I = 2 ;                                                                         
  75.   'REPE' BOU102 (NN1 - 1) ;                                                     
  76.   'SI' ('EGA' I 2) ;                                                            
  77.   C_1 = P_1.(I - 1) 'DROI' 1 P_1.I ;                                            
  78.   C_2 = P_2.(I - 1) 'DROI' 1 P_2.I ;                                            
  79.   'FINSI' ;                                                                     
  80.   'SI' (I > 2) ;                                                                
  81.   C_1 = C_1 'ET' (P_1.(I - 1) 'DROI' 1 P_1.I) ;                                 
  82.   C_2 = C_2 'ET' (P_2.(I - 1) 'DROI' 1 P_2.I) ;                                 
  83.   'FINSI' ;                                                                     
  84.   I = I + 1 ;                                                                   
  85.   'FIN' BOU102 ;                                                                
  86. A_1 = A_1 'COUL' 'ROUG' ;                                                       
  87. A_2 = A_2 'COUL' 'ROUG' ;                                                       
  88. C_1 = C_1 'COUL' 'ROUG' ;                                                       
  89. C_2 = C_2 'COUL' 'ROUG' ;                                                       
  90. S_2 = C_1 'REGL' 1 C_2 ;                                                        
  91. V_1 = S_1 'VOLU' N_1 S_2 ;                                                      
  92. V_1 = V_1 'COUL' 'ROUG' ;                                                       
  93.  'DETR' VE_1 ; 'DETR' V1NX ; 'DETR' V1NY ; 'DETR' V1NZ ;                        
  94.  'DETR' V1UNX ; 'DETR' V1UNY ; 'DETR' V1UNZ ;                                   
  95.  'DETR' R1X ; 'DETR' R1Y ; 'DETR' R1Z ; 'DETR' TR_1 ;                           
  96. 'FINP'  C_1 C_2 S_1 S_2 V_1 ;  
  97.  

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