* fichier waam0.dgibi * section : maillage *----------------------------------------------------------------------* * W A A M 0 . D G I B I * *----------------------------------------------------------------------* * Objet : * ------- * * Ce Dgibi a pour but de tester le fonctionnement des procedures : * - SOUDAGE : definition d'une sequence de fabrication additive * ou de soudage ; * - WAAM : maillage d'une sequence de fabrication additive. * Les affichages permettent de verifier les resultats. * * Trois sequences de fabrication "academiques" sont simulees : * - le depot d'un mur rectiligne ; * - la realisation d'un tube ; * - la realisation d'une "forme libre". * *----------------------------------------------------------------------* * Pour activer les affichages, mettre IG1 a VRAI ; ig1 = faux ; *opti trac psc eptr 5 ; *---------------------- Sequences de fabrication ----------------------* * Parametres de fabrication : debi1 = pi*0.6e-3*0.6e-3*10./60. ; larg1 = 6.e-3 ; * TAB1 : Table de fabrication du mur tab1.vitesse_de_soudage = 10.e-3 ; tab1.vitesse_de_deplacement = 20.e-3 ; tab1.puissance_de_soudage = 3.e3 ; tab1.debit_de_fil = debi1 ; * TAB2 : table de fabrication du tube tab2.vitesse_de_soudage = 10.e-3 ; tab2.vitesse_de_deplacement = 20.e-3 ; tab2.puissance_de_soudage = 3.e3 ; tab2.debit_de_fil = debi1 ; * TAB3 : table de fabrication de la forme libre tab3.vitesse_de_soudage = 10.e-3 ; tab3.vitesse_de_deplacement = 20.e-3 ; tab3.puissance_de_soudage = 3.e3 ; tab3.debit_de_fil = debi1 ; * Point de soudure initial : * Repetition sequence de 2 passes en AR : nb1 = 5 ; repe b1 nb1 ; * Vitesse + lente a la 1ere passe : si (&b1 ega 1) ; lign1 = tab1.trajectoire ; p1 = (50.e-3 50.e-3 0) ; p2 = (0 50.e-3 0) ; sino ; fins ; dh1 = debi1 / (tab1.vitesse_de_soudage) / larg1 ; * 1er deplacement vertical : * Passe retour option MAIL (pour tester) : soudage tab1 passe mail lign2 ; * Passes du tube : si (&b1 ega 1) ; repe b2 4 ; fin b2 ; sino ; repe b2 4 ; fin b2 ; fins ; dh2 = debi1 / (tab2.vitesse_de_soudage) / larg1 ; * Dernier deplacement vertical si pas derniere sequence : si (&b1 neg nb1) ; fins ; * Passes forme libre : fin b1 ; si ig1 ; * Mur : * Tube : * Forme libre : fins ; *------------------------- Maillage avec WAAM -------------------------* * Mur : * Tube : * Forme libre : si ig1 ; fins ; *------------------ F I N W A A M 0 . D G I B I -----------------* fin ;
© Cast3M 2003 - Tous droits réservés.
Mentions légales