Télécharger la plaquette Cast3M


fr en

Télécharger supore.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : supore.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. *---------------------------------------------------------------------*
  5. *    Ce cas-test permet de verifier la  gestion du contact            *
  6. * La valeur de la densite a mis en evidence des problemes dans le     *
  7. * superelement le 13/10/22                                            *
  8. *---------------------------------------------------------------------*
  9. TITR 'SUPPORT EPICEA' ;                                                         
  10. OPTI DIME 3 ELEM tri3 OMBR FAUX  ;   DENS 19.13;
  11. *PTI TRAC bens   ;
  12. *OPTI TRAC open   ;
  13. *optio norm annu;
  14. P1=0 0 0 ;     P2=700 0 0 ;   P3=700 200 0 ;  P4=700 750 0;                     
  15. P5=0 750 0 ;   P6=0 200 0 ;   P7=212 200 0 ;  P8=0 0 500;                       
  16. P9=212 0 500;  P10=212 200 500; P11=212 300 500; P12=0 300 500;                 
  17. P13=0 200 500;                                                                  
  18.  
  19. OEIL = 1E5 5E4 5E4 ;                                                            
  20.  
  21.  
  22. LI1= P1 D P2 D P3 D P7 D P6 D;                                                  
  23. LI2= P3 D P4 D P7 D;                                                            
  24. LI3= P7 D P4 D P5 D P6 D;                                                       
  25. LI4= P8 D P9 D P10 D P13 D;                                                     
  26. LI5= P13 D P10 D P11 D P12 D;                                                   
  27. LI6= P6 D P7 D P10 D P13 D;                                                     
  28. LI7= P7 D P3 D P10 D ;                                                          
  29. LI8= P7 D P4 D P10 D ;                                                          
  30. LI9= P1 D P6 D P13 D P8 D ;                                                     
  31. L10= P6 D P5 D P12 D P13 D;                                                     
  32.  
  33. SU1= SURF PLAN LI1 ;                                                            
  34. SU2= SURF PLAN LI2 ;                                                            
  35. SU3= SURF PLAN LI3 ;                                                            
  36. SU4= SURF PLAN LI4 ;                                                            
  37. SU5= SURF PLAN LI5 ;                                                            
  38. SU6= SURF PLAN LI6 ;                                                            
  39. SU7= SURF PLAN LI7 ;                                                            
  40. SU8= SURF PLAN LI8 ;                                                            
  41. * OPTIO IMPI 0;                                                                 
  42. SU9= SURF PLAN LI9 ;                                                            
  43. *LIST SU9;                                                                       
  44. *TRAC OEIL SU9;
  45. S10= SURF PLAN L10 ;                                                            
  46. *TRAC OEIL S10;
  47.  
  48. GPLAQ = SU1 ET SU2 ET SU3   COUL ROSE ;                                         
  49. PPLAQ = SU4 ET SU5          COUL ROUG ;                                         
  50. **LIST PPLAQ;                                                                     
  51. PLAQ  = GPLAQ ET PPLAQ ;                                                        
  52.  
  53. NER15 = SU6 ET SU7          COUL VERT ;                                         
  54. NER16=  SU8                 COUL BLEU ;                                         
  55. NERV7 = SU9 ET S10          COUL TURQ ;                                         
  56. NER17 = NER15 ET NER16 ;                                                        
  57.  
  58.  
  59. SUPOR = GPLAQ ET PPLAQ ET NER17 ET NERV7 ;                                      
  60.  
  61.  
  62. LIXX = P2 D P1 D P8 D P9 ;                                                      
  63. *TRAC OEIL SU9;
  64. ELIM (SUPOR ET LIXX) ;                                                          
  65. *TRAC OEIL SU9;
  66. tass supor;
  67. *TRAC cach  SUPOR OEIL;
  68.  
  69. *modi           SUPOR OEIL ; OPTIO DONN 5;
  70. *optio donn 5;
  71. * TRAC face      SUPOR OEIL ;
  72. * MODI SUPOR OEIL ;   optio donn 5;
  73. * CALCUL                                                                        
  74.  
  75. SYXX = SYMT DEPL ROTA P1 P2 P8 LIXX ;                                           
  76. SYYY = SYMT DEPL ROTA P1 P5 P8 NERV7;                                           
  77.  APLAQ= BLOQ MAXI UZ PPLAQ  ;
  78. * APLAQ= BLOQ UZ   PPLAQ ;
  79. COLIM= SYXX ET SYYY ET APLAQ ;                                                  
  80. *LIST (SYXX EXTRAI MAIL);                                                        
  81. *LIST (SYYY EXTRAI MAIL);                                                        
  82. *LIST (APLAQ EXTRAI MAIL);                                                       
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89. MO1 = MODEL GPLAQ MECANIQUE DKT ;                                           
  90. MO2 = MODEL PPLAQ MECANIQUE DKT ;                                           
  91. MO3 = MODEL NER17 MECANIQUE DKT ;                                           
  92. MO4 = MODEL NERV7 MECANIQUE DKT ;                                           
  93. MOT= mo1 ET mo2 ET mo3 ET mo4 ;                                                
  94.  
  95. MATT =  mot MATERIAU YOUN 2E4 NU 0.3 ;                            
  96.  
  97. T1 =  mo1 CARACTERI EPAI 20 ;                                      
  98. T2 =  mo2 CARACTERI EPAI 20 ;                                      
  99. T3 =  mo3 CARACTERI EPAI 15 ;                                      
  100. T4 =  mo4 CARACTERI EPAI 7.5;                                      
  101. GEOT = T1 ET T2 ET T3 ET T4 ;                                                   
  102.  
  103. V = 0 0 1 ;                                                                     
  104. EFOR = PRES COQU mo1 0.0619 V ;TEMPS;                                           
  105.  
  106. RIG1 = RIGI mot (MATT et GEOT) ;TEMPS;                                                   
  107. RIGT = RIG1 ET COLIM ;OPTIO IMPI 0; temps;
  108.  
  109. *optio reso iter; optio impi 1;
  110. CHDE = RESO RIGT EFOR ;TEMPS;OPTIO IMPI 0;                                      
  111. temps place;
  112. *optio donn 5;
  113.  
  114. *LIST CHDE;                                                                      
  115.  
  116. * test sur le residu;
  117. RESUL = CHDE * RIGT - EFOR RESU;
  118. **LIST (CHDE * RIGT - EFOR RESU);
  119. crit = maxi abs (resul enle 'FLX');
  121. si (crit > 1D-5); erreur 5; finsi;
  122. fin;
  123. optio donn 5;
  124. *ptio sauv 'test.sauv';
  125. *auv;
  126. *in;
  127. RES1= DEFO SUPOR CHDE 0   VERT ;                                                
  128. RES2 = DEFO SUPOR CHDE 50  ROSE ;                                               
  129. REST = RES1 ET RES2 ;                                                           
  130. *TRAC OEIL REST ;
  131.  
  132. STRES = SIGM CHDE mot (matt et geot);                                                   
  133.  
  134. VONMI = VMIS STRES mot (matt et geot);                                      
  135.  
  136. TRAC VONMI  mot RES2 OEIL ;
  137.  
  138. RE=REAC RIGT CHDE;                                                              
  139. LIST (RE RESULR);                                                               
  140. *OPTIO DONN 5;
  141.  
  142.  
  143. VE1=VECTEUR RE 0.02 FX FY FZ ROUGE;                                             
  144. VE2=VECTEUR EFOR 0.25 FX FY FZ ROUGE;                                           
  145. VV=VE1 ET VE2;                                                                  
  146. *CINE=ANIME SUPOR 20 CHDE 150. EFOR 0.25 ROUGE;                                 
  147. CINE=ANIME SUPOR 20 CHDE 150. ;                                                 
  148. TRAC OEIL CINE CACH OSCI;
  149. *TRAC OEIL CINE FACE OSCI;                                                      
  150. CIN1=ANIME (SUPOR CONTOUR) CHDE 150. 20;                                        
  151. *TRAC OEIL CIN1 OSCI;                                                           
  152.  
  153. OPTIO DONN 5;                                                                   
  154. RES3=DEFO SUPOR CHDE VV 50  ROSE ;                                              
  155.  
  156. TRAC VONMI mot RES3 OEIL(CONTOUR SUPOR);                                            
  157. OPTIO DONN 5;                                                                   
  158. TRAC OEIL (RES1 ET RES3) CACH;                                                  
  159.  
  160.  
  161.  

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