Télécharger la plaquette Cast3M


fr en

Télécharger exemple_borner.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : exemple_borner.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. * EXEMPLES D'UTILISATION DE L'OPERATEUR BORNER :
  5. *-----------------------------------------------
  6.  
  7. * EVOLUTION :
  8. *------------
  9. lr_1 = 'PROG' -5. 'PAS' 0.5 5. ;                                        
  10. lr_2 = 'EXP' lr_1 ;                                                     
  11. ev1 = evol roug manu 'X' lr_1 'Y' lr_2 ;                                
  12. ev2 = (borner ev1 1 'MAXI' 5.) coul bleu ;                             
  13. ev3 = (borner ev1 1 'MINI' 60.) 'COUL' VERT ;                           
  14. ev4 = (borner ev1 1 'COMPRIS' 40. 1.) 'COUL' VERT ;                     
  15. ev4 = (borner ev1 1 'COMPRIS' 40. 9.) 'COUL' jaun ;                     
  16. ev5 = ev1 et ev2 et ev3 et ev4 ;                                        
  17. ** dess ev5 ;                                                              
  18. ev6 = borner ev5 2 'MAXI' 100.  4 'COMPRIS' 30. 30. ;                   
  19. ** dess ev6 ;                                                              
  20.  
  21. * CHPOINT :
  22. *----------
  23. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  24.  
  25. P0 = 0. 0. ;
  26. Px = 1. 0. ;
  27. Py = 0. 1. ;
  28.  
  29. Dr1 = 'DROITE' 5 P0 Px ;
  30. Surf1 = 'TRANS' 4 Dr1 Py ;
  31.  
  32. Chp1 = 'EXP' (5. '*' ('COOR' 1 Dr1)) ;
  33.  
  34. Chp1_b = 'BORNER' Chp1 'SCAL' 'MINI' 100. ;
  35. * La ligne ci-dessous a l'erreur 281
  36. * Chp1_b = 'BORNER' Chp1 'TOTO' 'MINI' 100. ;
  37. 'LISTER' Chp1 ; 'LISTER' Chp1_b ;
  38. *'TRACER' Chp1 Dr1 ; 'TRACER' Chp1_b Dr1 ;
  39.  
  40. Chp_ux = 'NOMC' 'UX  ' ('COOR' 1 Surf1) ;
  41. Chp_uy = 'NOMC' 'UY  ' ('COOR' 2 Surf1) ;
  42. Chp_u  = Chp_ux 'ET' Chp_uy ;
  43.  
  44. Chp_u_b = 'BORNER' Chp_u 'UY' 'MINI' 0.123
  45.                          'UX' 'COMPRIS' 0.1986 0.7890 ;
  46. 'LISTER' Chp_u ; 'LISTER' Chp_u_b ;
  47.  
  48. Chp_t = Chp_u '+' Chp1 ;
  49.  
  50. Chp_t_b = 'BORNER' Chp_t 'SCAL' 'MAXI' 50 ;
  51.  
  52. 'LISTER' Chp_t ; 'LISTER' Chp_t_b ;
  53.  
  54. * MCHAML :
  55. *---------
  56. 'OPTION' 'DIME' 1 'ELEM' 'SEG2' ;
  57.  
  58. P0 = 'POINT' 0. ;
  59. Px = 'POINT' 1. ;
  60. Dr1 = 'DROITE' 5 P0 Px ;
  61. Mod1 = 'MODELE' Dr1 'THERMIQUE' ;
  62.  
  63. Chmx1 = 'MANU' 'CHML' Dr1 'SCAL' 1. ;
  64. Chm1 = 'EXP' (5. '*' ('COOR' 1 Chmx1)) ;
  65. Chm1_b = 'BORNER' Chm1 'SCAL' 'MINI' 100. ;
  66. * La ligne ci-dessous a l'erreur 280
  67. * Chm1_b = 'BORNER' Chm1 'TOTO' 'MINI' 100. ;
  68. 'LISTER' Chm1 ; 'LISTER' Chm1_b ;
  69.  
  70. Chmx1 = 'MANU' 'CHML' Mod1 'SCAL' 1. 'MASSE' ;
  71. Chm1 = 'EXP' (5. '*' ('COOR' 1 Chmx1)) ;
  72. Chm1_b = 'BORNER' Chm1 'SCAL' 'COMPRIS' 5. 59. ;
  73. 'LISTER' Chm1 ; 'LISTER' Chm1_b ;
  74. ** 'TRACER' Chm1 Mod1 ; 'TRACER' Chm1_b Mod1 ;
  75.  
  76. 'OPTION' 'DIME' 2 'ELEM' 'QUA4' ;
  77.  
  78. Py = 0. 1. ;
  79.  
  80. Surf1 = 'TRANS' 4 Dr1 Py ;
  81. Mod2 = 'MODELE' Surf1 'MECANIQUE' 'ELASTIQUE' ;
  82.  
  83. Chmx2  = 'MANU' 'CHML' Surf1 'SCAL' 1. ;
  84. Chm_ux = 'NOMC' 'UX  ' ('COOR' 1 Chmx2) ;
  85. Chm_uy = 'NOMC' 'UY  ' ('COOR' 2 Chmx2) ;
  86. Chm_u  = Chm_ux 'ET' Chm_uy ;
  87.  
  88. Chm_u_b = 'BORNER' Chm_u 'UY' 'MINI' 0.123
  89.                          'UX' 'COMPRIS' 0.1986 0.7890 ;
  90. 'LISTER' Chm_u ; 'LISTER' Chm_u_b ;
  91. ** 'TRACER' Chm_u Mod2 ; 'TRACER' Chm_u_b Mod2 ;
  92.  
  93. Chm_t = Chm_u 'ET' Chm1 ;
  94.  
  95. Chm_t_b = 'BORNER' Chm_t 'SCAL' 'MAXI' 50 ;
  96. 'LISTER' Chm_t ; 'LISTER' Chm_t_b ;
  97.  
  98. Chm_sl = 'MANU' 'CHML' Mod2 'SCAL' ('LECT' 1 100) 'STRESSES' ;
  99. Chm_t2 = Chm_u 'ET' chm_sl 'ET' Chm1 ;
  100.  
  101. Chm_t2_b = 'BORNER' Chm_t2 'SCAL' 'MAXI' 50 ;
  102. 'LISTER' Chm_t2 ; 'LISTER' Chm_t2_b ;
  103.  
  104. 'FIN' ; 
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  

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