Télécharger waam0.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier waam0.dgibi
  2. * section : maillage
  3. *----------------------------------------------------------------------*
  4. * W A A M 0 . D G I B I *
  5. *----------------------------------------------------------------------*
  6. * Objet :
  7. * -------
  8. *
  9. * Ce Dgibi a pour but de tester le fonctionnement des procedures :
  10. * - SOUDAGE : definition d'une sequence de fabrication additive
  11. * ou de soudage ;
  12. * - WAAM : maillage d'une sequence de fabrication additive.
  13. * Les affichages permettent de verifier les resultats.
  14. *
  15. * Trois sequences de fabrication "academiques" sont simulees :
  16. * - le depot d'un mur rectiligne ;
  17. * - la realisation d'un tube ;
  18. * - la realisation d'une "forme libre".
  19. *
  20. *----------------------------------------------------------------------*
  21. opti dime 3 elem cub8 ;
  22.  
  23. * Pour activer les affichages, mettre IG1 a VRAI ;
  24. ig1 = faux ;
  25.  
  26. *opti trac psc eptr 5 ;
  27.  
  28. *---------------------- Sequences de fabrication ----------------------*
  29.  
  30. * Parametres de fabrication :
  31. debi1 = pi*0.6e-3*0.6e-3*10./60. ;
  32. larg1 = 6.e-3 ;
  33.  
  34. * TAB1 : Table de fabrication du mur
  35. tab1 = tabl ;
  36. tab1.vitesse_de_soudage = 10.e-3 ;
  37. tab1.vitesse_de_deplacement = 20.e-3 ;
  38. tab1.puissance_de_soudage = 3.e3 ;
  39. tab1.debit_de_fil = debi1 ;
  40.  
  41. * TAB2 : table de fabrication du tube
  42. tab2 = tabl ;
  43. tab2.vitesse_de_soudage = 10.e-3 ;
  44. tab2.vitesse_de_deplacement = 20.e-3 ;
  45. tab2.puissance_de_soudage = 3.e3 ;
  46. tab2.debit_de_fil = debi1 ;
  47.  
  48. * TAB3 : table de fabrication de la forme libre
  49. tab3 = tabl ;
  50. tab3.vitesse_de_soudage = 10.e-3 ;
  51. tab3.vitesse_de_deplacement = 20.e-3 ;
  52. tab3.puissance_de_soudage = 3.e3 ;
  53. tab3.debit_de_fil = debi1 ;
  54.  
  55. * Point de soudure initial :
  56. soudage tab1 point 1. ;
  57. soudage tab2 point 1. puis 6.e3 ;
  58. soudage tab3 point 1. puis 6.e3 ;
  59.  
  60. * Repetition sequence de 2 passes en AR :
  61. nb1 = 5 ;
  62. repe b1 nb1 ;
  63.  
  64. * Vitesse + lente a la 1ere passe :
  65. si (&b1 ega 1) ;
  66. soudage tab1 passe droi (+100.e-3 0 0) vite 5.e-3 puis 4.e3 debi (0.5*debi1) ;
  67. lign1 = tab1.trajectoire ;
  68. p1 = (50.e-3 50.e-3 0) ;
  69. p2 = (0 50.e-3 0) ;
  70. sino ;
  71. soudage tab1 passe droi (+100.e-3 0 0) ;
  72. fins ;
  73. dh1 = debi1 / (tab1.vitesse_de_soudage) / larg1 ;
  74.  
  75. * 1er deplacement vertical :
  76. soudage tab1 depla droi (0 0 dh1) vite 16.e-3 ;
  77.  
  78. * Passe retour option MAIL (pour tester) :
  79. pc1 = tab1.trajectoire poin (nbno tab1.trajectoire) ;
  80. pl1 = lign1 poin 1 ;
  81. lign2 = lign1 plus (pc1 moin pl1) ;
  82. lign2 = lign2 syme point pc1 ;
  83. elim (pc1 et lign2) 1.e-6 ;
  84. soudage tab1 passe mail lign2 ;
  85.  
  86. * Passes du tube :
  87. si (&b1 ega 1) ;
  88. repe b2 4 ;
  89. soudage tab2 passe cerc p1 p2 10 vite 5.e-3 puis 5.e3 ;
  90. P1 p2 = p1 p2 tour (0 0 0) (0 0 1) 90. ;
  91. fin b2 ;
  92. sino ;
  93. repe b2 4 ;
  94. soudage tab2 passe cerc p1 p2 10 ;
  95. P1 p2 = p1 p2 tour (0 0 0) (0 0 1) 90. ;
  96. fin b2 ;
  97. fins ;
  98. dh2 = debi1 / (tab2.vitesse_de_soudage) / larg1 ;
  99.  
  100. * Dernier deplacement vertical si pas derniere sequence :
  101. si (&b1 neg nb1) ;
  102. soudage tab1 depla droi (0 0 dh1) ;
  103. soudage tab2 depla droi (0 0 dh2) ;
  104. soudage tab2 depla cerc p1 p2 1 ;
  105. P1 p2 = p1 p2 tour (0 0 0) (0 0 1) 90. ;
  106. fins ;
  107.  
  108. * Passes forme libre :
  109. soudage tab3 passe droi (0 -100.e-3 0) ;
  110. soudage tab3 passe cerc (20.e-3 -20.e-3 0.) (20.e-3 0. 0.) 10 ;
  111. soudage tab3 passe droi (+100.e-3 0 0) ;
  112. soudage tab3 passe cerc (20.e-3 +20.e-3 0.) (0. 20.e-3 0.) 10 ;
  113. soudage tab3 passe droi (0 +100.e-3 0) ;
  114. soudage tab3 passe droi (+120.e-3 -120.e-3 0) ;
  115. soudage tab3 depla droi (0 0 0) abso ;
  116. soudage tab3 depla droi (&b1*(0 0 dh1)) ;
  117.  
  118. fin b1 ;
  119. soudage tab1 point 30. puis 0. ;
  120.  
  121. si ig1 ;
  122.  
  123. * Mur :
  124. trac tab1.trajectoire titr 'trajectoire sequence mur' ;
  125. dess tab1.evolution_deplacement titr 'deplacement sequence mur' ;
  126. dess tab1.evolution_puissance titr 'puissance sequence mur' ;
  127. dess tab1.evolution_debit titr 'debit sequence mur' ;
  128.  
  129. * Tube :
  130. trac tab2.trajectoire titr 'trajectoire sequence tube' ;
  131. dess tab2.evolution_deplacement titr 'deplacement sequence tube' ;
  132. dess tab2.evolution_puissance titr 'puissance sequence tube' ;
  133. dess tab2.evolution_debit titr 'debit sequence tube' ;
  134.  
  135. * Forme libre :
  136. trac tab3.trajectoire titr 'trajectoire sequence UN' ;
  137. dess tab3.evolution_deplacement titr 'deplacement sequence UN' ;
  138. dess tab3.evolution_puissance titr 'puissance sequence UN' ;
  139. dess tab3.evolution_debit titr 'debit sequence UN' ;
  140. dess tab3.evolution_puissance titr 'puissance sequence UN' ;
  141.  
  142. fins ;
  143.  
  144. *------------------------- Maillage avec WAAM -------------------------*
  145.  
  146. * Mur :
  147. tab21 = waam tab1 mail pas 5.e-3 larg larg1 dens 2.e-3 ;
  148. elim tab21.maillage 1.e-5 ;
  149.  
  150. * Tube :
  151. tab22 = waam tab2 mail pas 5.e-3 larg larg1 dens 2.e-3 ;
  152. elim tab22.maillage 1.e-5 ;
  153.  
  154. * Forme libre :
  155. tab32 = waam tab3 mail pas 5.e-3 larg larg1 dens 2.e-3 ;
  156. elim tab32.maillage 1.e-5 ;
  157.  
  158. si ig1 ;
  159. trac cach tab21.maillage titr 'Maillage du mur' ;
  160. trac cach tab22.maillage titr 'Maillage du tube' ;
  161. trac cach tab32.maillage titr 'Maillage de la forme libre' ;
  162.  
  163. waam tab21 visu cach (tab1.trajectoire) ;
  164. waam tab22 visu cach (tab2.trajectoire) ;
  165. waam tab32 visu cach (tab3.trajectoire) ;
  166. fins ;
  167.  
  168. *------------------ F I N W A A M 0 . D G I B I -----------------*
  169. fin ;
  170.  
  171.  
  172.  
  173.  
  174.  

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