18 TD = DEFI_VALEUR(R8: EVAL(T*180./PI)) ;
19 CT = DEFI_VALEUR(R8: EVAL(COS(T))) ;
20 ST = DEFI_VALEUR(R8: EVAL(SIN(T))) ;
21 MST= DEFI_VALEUR(R8: EVAL(-ST));
22 RAT= DEFI_VALEUR(R8: EVAL(H/A));
25 K_REF = DEFI_VALEUR( R8: EVAL(0.9845615*Q1) );
26 EPS_Y = DEFI_VALEUR( R8: EVAL( (1./K_REF)**5. ));
27 YOUNG = DEFI_VALEUR( R8: EVAL(SY/EPS_Y) );
30 RP(REEL:EPSI) = K_REF * SY * EPSI**0.2
33 ECH_EPSI = DEFI_LIST_REEL (
41 TRAC = CALC_FONC_INTERP (
44 PROL_GAUCHE: 'LINEAIRE'
45 PROL_DROIT : 'LINEAIRE'
62 CUIVRE = DEFI_MATERIAU
94 PHENOMENE : 'MECANIQUE'
95 MODELISATION : '3D_SI'
99 MO_DELO = AFFE_MODELE (
104 PHENOMENE: 'NON_LOCAL'
110 !FORMULE ( REEL : ( UX_IMP(REEL: INST, REEL:X, REEL:Y) =
113 !FORMULE ( REEL : ( UY_IMP(REEL: INST, REEL:X, REEL:Y) =
116 !FORMULE ( REEL : ( UZ_IMP(REEL:X, REEL:Y) = 0. ));
119 ANCRAGE = AFFE_CHAR_MECA (
130 TORSION = AFFE_CHAR_MECA_F (
142 SYMETRIE = AFFE_CHAR_MECA (
145 GROUP_MA_1 : SYM_CY_0
146 GROUP_MA_2 : SYM_CY_1
147 SANS_GROUP_NO: (HAUT, BAS)
150 COEF_MULT_1 : (CT MST)
154 ANGL_NAUT : (TD 0. 0.)
158 GROUP_MA_1 : SYM_CY_0
159 GROUP_MA_2 : SYM_CY_1
160 SANS_GROUP_NO: (HAUT, BAS)
163 COEF_MULT_1 : (ST CT)
167 ANGL_NAUT : (TD 0. 0.)
171 GROUP_MA_1 : SYM_CY_0
172 GROUP_MA_2 : SYM_CY_1
173 SANS_GROUP_NO: (HAUT, BAS)
180 ANGL_NAUT : (TD 0. 0.)
186 INSTANTS = DEFI_LIST_REEL
190 (JUSQU_A: TPS NOMBRE: 50)
207 SUBD_PAS_MINI: 0.0001
211 RELATION: 'PLAS_GRAD_TRAC'
220 RESI_GLOB_RELA: 1.E-4
223 RESI_INTE_RELA: 1.E-9
226 ARCH_ETAT_INIT: 'OUI'
230 MODELE_NON_LOCAL: MO_DELO
232 RESI_PRIM_ABSO: 1.E-9
233 RESI_DUAL_ABSO: 1.E-4
246 OPTION: ('SIEF_ELNO_ELGA' 'VARI_ELNO_ELGA')
252 'SIEF_NOEU_ELGA' 'VARI_NOEU_ELGA')
256 ECHAN = INTE_MAIL_3D (
264 PLAS_CUM = POST_RELEVE_T (
269 NOM_CHAM : 'VARI_NOEU_ELGA'
272 OPERATION: 'EXTRACTION'
277 SIGMA = POST_RELEVE_T (
282 NOM_CHAM : 'SIEF_NOEU_ELGA'
285 OPERATION: 'EXTRACTION'
291 MOM_A = POST_RELEVE_T (
296 NOM_CHAM : 'FORC_NODA'
297 RESULTANTE: ('DX' 'DY' 'DZ')
298 MOMENT : ('DRX' 'DRY' 'DRZ')
301 OPERATION : 'EXTRACTION'
305 MOM_KA_A = RECU_FONCTION (
311 !FORMULE ( REEL:( MA3_KA(REEL: INST) = MOM_KA_A(INST)*360/TD/A**3/SY));
337 IMPR_TABLE(TABLE:SIGMA);
338 IMPR_TABLE(TABLE:PLAS_CUM);