2 YOUNG = DEFI_PARA_SENSI(VALE=1.)
3 FORC = DEFI_PARA_SENSI(VALE=1.)
5 MA=DEFI_GROUP( reuse=MA, MAILLAGE=MA,
7 GROUP_MA = ( 'LP9P10', 'LP9P10B',
12 MO=AFFE_MODELE( MAILLAGE=MA,
13 AFFE=_F( TOUT = 'OUI',
14 PHENOMENE = 'MECANIQUE',
15 MODELISATION = 'C_PLAN')
17 ZERO = DEFI_CONSTANTE(VALE=0.)
18 NU = DEFI_CONSTANTE(VALE=0.3)
19 ALPHA = DEFI_CONSTANTE(VALE=0.)
21 MAT=DEFI_MATERIAU(ELAS_FO=_F( E = YOUNG, NU = NU,
23 ALPHA = ALPHA, RHO=7800.,))
25 CHMAT=AFFE_MATERIAU( MAILLAGE=MA,
26 AFFE=_F( TOUT = 'OUI',
30 CH=AFFE_CHAR_MECA_F( MODELE=MO,
31 FORCE_INTERNE=_F(TOUT='OUI',FY=FORC,),
33 _F( GROUP_NO = 'LP8P9',
35 _F( GROUP_NO = 'LP8P9B',
41 DEP=MECA_STATIQUE( MODELE=MO, CHAM_MATER=CHMAT,
43 EXCIT=_F( CHARGE = CH),
46 DEP=CALC_ELEM(reuse=DEP,RESULTAT=DEP,
48 OPTION=('EPSI_ELGA_DEPL','SIEF_ELGA_DEPL',),)
50 FOND=DEFI_FOND_FISS( MAILLAGE=MA,
51 FOND_FISS=_F( GROUP_NO = ('P0',)),
55 THETA0=CALC_THETA( MODELE=MO,
56 THETA_2D=_F( GROUP_NO = ('P0',),
60 DIRECTION=(1., 0., 0.,)
66 MO1=AFFE_MODELE( MAILLAGE=MA1, AFFE=_F( TOUT = 'OUI',
67 PHENOMENE = 'MECANIQUE', MODELISATION = 'C_PLAN'))