1 : $$$$ ROSENT NOTICE CHAT 11/09/12 21:18:00 7124 2 : DATE 11/09/12 3 : 4 : Procedure ROSENT Voir aussi : 5 : ---------------- 6 : CHPO1 = ROSENT TAB1 ; 7 : 8 : TAB1.'PUISSANCE' .'RENDEMENT' 9 : .'DIFFUSVITE' .'CONDUCTIVITE' 10 : .'VITESSE' 11 : .'T0' 12 : .'NTERMES' 13 : .'MAILLAGE' 14 : .'EPAISSEUR' 15 : .'LOCAL' .'INSTANT' 16 : .'GAUSS' .'XPOS' .'YPOS' 17 : 18 : 19 : Objet : 20 : _______ 21 : 22 : Cette procedure calcule le champ de temperature resultant du 23 : deplacement d'un arc de soudure sur une plaque infinie. L'arc est 24 : soit ponctuel et se deplace selon l'axe X. 25 : La solution analytique du probleme est tiree de Rosenthal : 26 : Mathematical Theory of Heat Distribution During Welding and 27 : Cutting. 28 : 29 : Commentaire : 30 : _____________ 31 : 32 : En entree : 33 : __________ 34 : 35 : TAB1 : Objet de type TABLE, indice par des mots, servant a 36 : definir les options de calcul : 37 : 38 : Arguments : 39 : ___________ 40 : 41 : 'PUISSANCE' : REEL : Puissance de l'arc (en W) 42 : 43 : 'RENDEMENT' : REEL : Rendement de l'arc : Rapport de 44 : la puissance recue par la piece et de la puissance 45 : de l'arc 46 : 47 : 'DIFFUSVITE' : REEL : Diffusivite thermique du materiau 48 : (en m2/s) 49 : 50 : 'CONDUCTIVITE' : REEL : Conductivite thermique du 51 : materiau (en W/Km2) 52 : 53 : 'VITESSE' : REEL : Vitesse de deplacement de l'arc (en m/s) 54 : 55 : 'T0' : REEL : Temperature ambiante (en °C ou en K) 56 : 57 : 'NTERMES' : ENTIER : Nombre de termes de la somme 58 : 59 : 'MAILLAGE' : MAILLAGE : Maillage support du champ de 60 : temperature 61 : 62 : 'EPAISSEUR' : REEL : Epaisseur de la piece (en m) 63 : 64 : 'LOCAL' : BOOLEEN : VRAI si la piece est decrite dans 65 : le repere local a l'arc 66 : 67 : 'INSTANT' : REEL : Si 'LOCAL' est FAUX, instant 68 : auquel il faut calculer le champ de temperature 69 : (l'abscisse de l'arc est alors V*t) (en s) 70 : 71 : 'GAUSS' : BOOLEEN : VRAI si la source est gaussienne 72 : 73 : 'XPOS' : REEL : Si 'GAUSS' est VRAI, abscisse de la 74 : source 75 : 76 : 'YPOS' : REEL : Si 'GAUSS' est VRAI, ordonnee de la 77 : source 78 : 79 : En sortie : 80 : __________ 81 : 82 : CHPO1 : CHPOINT : Champ de temperature (en °C ou en K) 83 : 84 :
© Cast3M 2003 - Tous droits réservés.
Mentions légales