mirror of
https://github.com/JuliaFEM/JuliaFEM.jl.git
synced 2026-10-02 06:13:59 +00:00
Jukka Aho
58 lines
1.3 KiB
Plaintext
58 lines
1.3 KiB
Plaintext
DEBUT()
|
|
|
|
MAIL = LIRE_MAILLAGE()
|
|
|
|
MO = AFFE_MODELE(MAILLAGE = MAIL,
|
|
AFFE = _F(MAILLE=('E1', 'E2', 'E3'), PHENOMENE='MECANIQUE', MODELISATION='C_PLAN'))
|
|
|
|
MAT = DEFI_MATERIAU(ELAS = _F(E=900.0, NU=0.25))
|
|
|
|
CHMAT = AFFE_MATERIAU(
|
|
MAILLAGE = MAIL,
|
|
AFFE = _F(MAILLE=('E1', 'E2'), MATER=MAT))
|
|
|
|
BC = AFFE_CHAR_MECA(
|
|
MODELE = MO,
|
|
DDL_IMPO = (
|
|
_F(NOEUD = ('N1','N2'), DY=0),
|
|
_F(NOEUD = ('N1','N3','N5'), DX=0)))
|
|
|
|
LO = AFFE_CHAR_MECA(
|
|
MODELE = MO,
|
|
FORCE_CONTOUR = _F(MAILLE='E3', FY=-100.0))
|
|
|
|
LIST = DEFI_LIST_REEL(
|
|
DEBUT = 0,
|
|
INTERVALLE = _F(JUSQU_A=1.0, NOMBRE=1))
|
|
|
|
STEP = DEFI_FONCTION(
|
|
NOM_PARA='INST',
|
|
VALE=(0,0,1,1))
|
|
|
|
RESU = STAT_NON_LINE(
|
|
MODELE=MO,
|
|
CHAM_MATER=CHMAT,
|
|
EXCIT=(
|
|
_F(CHARGE=BC),
|
|
_F(CHARGE=LO, FONC_MULT=STEP)),
|
|
NEWTON=_F(REAC_INCR=1, MATRICE='TANGENTE', REAC_ITER=1),
|
|
COMP_ELAS=_F(DEFORMATION='GROT_GDEP'),
|
|
INCREMENT=_F(LIST_INST=LIST),
|
|
CONVERGENCE=_F(RESI_GLOB_RELA=1.0E-12))
|
|
|
|
RESU = CALC_CHAMP(
|
|
reuse=RESU,
|
|
RESULTAT=RESU,
|
|
MODELE=MO,
|
|
DEFORMATION=('EPSI_ELNO', 'EPSG_ELNO', 'EPSI_ELGA', 'EPSG_ELGA'),
|
|
ENERGIE=('ENEL_ELEM', 'ENEL_NOEU', 'ETOT_ELEM', 'ETOT_NOEU'),
|
|
FORCE=('FORC_NODA'),
|
|
CONTRAINTE='SIGM_ELNO')
|
|
|
|
IMPR_RESU(
|
|
MODELE = MO,
|
|
FORMAT = 'RESULTAT',
|
|
RESU = _F(RESULTAT = RESU))
|
|
|
|
FIN()
|