TITRE 'CALCUL THERMIQUE D UNE PLATINE ENCASTREE' ; OPTION DIME 2 ELEM QUA8 MODE PLAN CONT; OPTION ECHO 1 ; SAUT LIGNE ; * *----------- CREATION DE LA GEOMETRIE -----------* * *--- PARAMETRES ---* Twelding = 1473. ; Lwall = 1. ; Lplate = .4 ; Tplate = .03 ; Wwall = 0.80 ; Lwelding = .02 ; Kbeton = 1.6 ; Kacier = 60. ; Hair = 750. ; *--- POINTS ---* P1 = 0. 0. ; P2 = Wwall 0. ; P3 = Wwall Lwall ; P4 = 0. Lwall ; Q1 = 0. (.5*(Lwall-Lplate)) ; Q2 = Tplate (.5*(Lwall-Lplate)) ; Q3 = Tplate (.5*(Lwall+Lplate)) ; Q4 = 0. (.5*(Lwall+Lplate)) ; R1 = 0. (.5*(Lwall+Lwelding)); R2 = 0. (.5*(Lwall-Lwelding)) ; *--- LIGNES ---* P12 = D P1 P2 'DINI' 0.1 'DFIN' 0.1 ; P23 = D P2 P3 'DINI' 0.1 'DFIN' 0.1 ; P34 = D P3 P4 'DINI' 0.1 'DFIN' 0.1 ; PQ4 = D P4 Q4 'DINI' 0.05 'DFIN' 0.05 ; Q43 = D Q4 Q3 'DINI' 0.01 'DFIN' 0.01 ; Q32 = D Q3 Q2 'DINI' 0.05 'DFIN' 0.05 ; Q21 = D Q2 Q1 'DINI' 0.01 'DFIN' 0.01 ; Q4R1 = D Q4 R1 'DINI' 0.01 'DFIN' 0.01 ; R12 = D R1 R2 'DINI' 0.002 'DFIN' 0.002 ; R2Q1 = D R2 Q1 'DINI' 0.01 'DFIN' 0.01 ; Q41 = Q4R1 ET R12 ET R2Q1 ; QP1 = D Q1 P1 'DINI' 0.05 'DFIN' 0.05 ; *--- CONTOURS ---* temp1 = P12 ET P23 ET P34 ET PQ4 ; temp2 = Q43 ET Q32 ET Q21 ET QP1 ; Cbeton = temp1 ET temp2 ; Cacier = Q43 ET Q32 ET Q21 ET Q41 ; TRAC (Cbeton ET Cacier) ; *--- SURFACES ---* S1 = SURF Cbeton 'PLAN' ; S1 = COUL (S1) ROUGE ; S2 = SURF Cacier 'PLAN' ; S3 = Q43 REGLER -10 (INVE Q21) 'DINI' 1. 'DFIN' 2. ; S2 = COUL (S2) VERT ; TRAC (S1 ET S2) ; *--------------- CALCUL THERMIQUE ---------------* * *--- MODELISATION MOD1 = MODE S1 THERMIQUE ISOTROPE ; MOD2 = MODE S2 THERMIQUE ISOTROPE ; MODAIR = MODE (PQ4 ET Q41 ET QP1 ET P23) CONVECTION ; *--- CARACTERISTIQUES DU MATERIAU MAT1 = MATR MOD1 K Kbeton ; MAT2 = MATR MOD2 K Kacier ; MATAIR = MATR MODAIR H Hair ; *--- TEMPERATURES IMPOSEES CL1 = BLOQ T R12 ; FCL1 = DEPI CL1 Twelding ; *--- FLUX DE CONVECTION FLUAIR = CONV MODAIR MATAIR T 283. ; *--- MATRICES DE CONDUCTIVITE COND1 = COND MOD1 MAT1 ; COND2 = COND MOD2 MAT2 ; CONDTOT = COND1 ET COND2 ET CL1 ; *--- ASSEMBLAGE DU SECOND MEMBRE FLUTOT = FCL1 ET FLUAIR ; *--- RESOLUTION ---* CHTEMP = RESOU CONDTOT FLUTOT ; *--------------- POST TRAITEMENT ---------------* * *--- CHAMP DE TEMPERATURES ---* * TITRE 'CHAMP DE TEMPERATURES' ; TRAC CHTEMP (S1 ET S2) ; * FIN; *--- ISOVALEURS * OPTIO ISOV SULI ; TRAC CHTER1 SURF1 (CONT SURF1) TITRE 'ISOVALEURS'; LISOV = PROG 10. 110. 1200. ; Tcr = EXCO CHTER1 'T'; TRAC Tcr SURF1 LISOV (CONT SURF1) TITRE 'ISOTHERME'; * *--- EVOLUTION DE LA TEMPERATURE SUR L'AXE DE SYMETRIE * EV1 = EVOL CHPO CHTER1 T L1 ; DESS EV1 ; TRAC Tcr SURF1 ; FIN;