POURSUITE(LANG='FR')

ondo = DEFI_FONCTION(NOM_PARA='INST',
                     VALE=(1.0, 29.68, 601.0, 29.77, 1201.0, 29.68, 1801.0, 29.77, 2401.0, 29.86, 3001.0, 29.86, 3601.0, 29.68, 4201.0, 29.51, 4801.0, 29.17, 5401.0, 28.91, 6001.0, 28.74, 6601.0, 28.57, 7201.0, 28.31, 7801.0, 28.23, 8401.0, 28.05, 9001.0, 27.88, 9601.0, 27.71, 10201.0, 27.54, 10801.0, 27.37, 11401.0, 27.2, 12001.0, 26.94, 12601.0, 26.68, 13201.0, 26.51, 13801.0, 26.25, 14401.0, 25.99, 15001.0, 25.82, 15601.0, 25.57, 16201.0, 25.39, 16801.0, 25.14, 17401.0, 24.88, 18001.0, 24.62, 18601.0, 24.45, 19201.0, 24.19, 19801.0, 24.02, 20401.0, 23.85, 21001.0, 23.59, 21601.0, 23.42, 22201.0, 23.25, 22801.0, 22.91, 23401.0, 22.73, 24001.0, 22.65, 24601.0, 22.56, 25201.0, 22.39, 25801.0, 22.31, 26401.0, 22.13, 27001.0, 22.05, 27601.0, 21.88, 28201.0, 21.79, 28801.0, 21.7, 29401.0, 21.62, 30001.0, 21.53, 30601.0, 21.45, 31201.0, 21.36, 31801.0, 21.28, 32401.0, 21.19, 33001.0, 21.1, 33601.0, 21.02, 34201.0, 20.93, 34801.0, 20.85, 35401.0, 20.85, 36001.0, 20.76, 36601.0, 20.68, 37201.0, 20.68, 37801.0, 20.59, 38401.0, 20.59, 39001.0, 20.5, 39601.0, 20.5, 40201.0, 20.42, 40801.0, 20.33, 41401.0, 20.33, 42001.0, 20.25, 42601.0, 20.25, 43201.0, 20.16))

listr2 = DEFI_LIST_REEL(DEBUT=1.0,
                        INTERVALLE=_F(JUSQU_A=43201.0,
                                      PAS=600.0))

times2 = DEFI_LIST_INST(DEFI_LIST=_F(LIST_INST=listr2),
                        METHODE='MANUEL')

field0 = CREA_CHAMP(AFFE=_F(GROUP_MA=('sen', ),
                            NOM_CMP=('TEMP', ),
                            VALE_F=(ondo, )),
                    MODELE=model,
                    OPERATION='AFFE',
                    TYPE_CHAM='NOEU_TEMP_F')

statvars = CREA_RESU(AFFE=_F(CARA_ELEM=elemprop,
                             CHAM_GD=field0,
                             LIST_INST=listr2,
                             MODELE=model),
                     NOM_CHAM='TEMP',
                     OPERATION='AFFE',
                     TYPE_RESU='EVOL_VARC')

mate2 = AFFE_MATERIAU(AFFE=_F(GROUP_MA=('sen', ),
                              MATER=(mater, )),
                      AFFE_VARC=_F(EVOL=statvars,
                                   GROUP_MA=('sen', ),
                                   NOM_CHAM='TEMP',
                                   NOM_VARC='TEMP',
                                   VALE_REF=0.0),
                      MODELE=model)

resnonl1 = DYNA_NON_LINE(CARA_ELEM=elemprop,
                         CHAM_MATER=mate2,
                         COMPORTEMENT=_F(DEFORMATION='GROT_GDEP',
                                         GROUP_MA=('sen', ),
                                         RELATION='CABLE'),
                         CONVERGENCE=_F(ITER_GLOB_MAXI=50),
                         ETAT_INIT=_F(EVOL_NOLI=resnonl),
                         EXCIT=(_F(CHARGE=load),
                                _F(CHARGE=zyuryoku,
                                   FONC_MULT=keisuu)),
                         INCREMENT=_F(LIST_INST=times2),
                         MODELE=model,
                         NEWTON=_F(MATRICE='TANGENTE',
                                   REAC_ITER=1),
                         SCHEMA_TEMPS=_F(BETA=0.25,
                                         FORMULATION='DEPLACEMENT',
                                         GAMMA=0.5,
                                         SCHEMA='NEWMARK'))

calc2 = CALC_CHAMP(CARA_ELEM=elemprop,
                   CHAM_MATER=mate2,
                   CONTRAINTE=('EFGE_ELNO', ),
                   FORCE=('REAC_NODA', ),
                   MODELE=model,
                   RESULTAT=resnonl1)

IMPR_RESU(FORMAT='MED',
          RESU=(_F(CARA_ELEM=elemprop,
                   MAILLAGE=mesh,
                   NOM_CHAM=('DEPL', ),
                   RESULTAT=resnonl1),
                _F(CARA_ELEM=elemprop,
                   MAILLAGE=mesh,
                   NOM_CHAM=('EFGE_ELNO', 'REAC_NODA'),
                   RESULTAT=calc2)),
          UNITE=3)

FIN()