src/TestsEltsVisu/Nicolas/ssls109c.comm

   1 # MODIF  DATE 31/08/2004   AUTEUR JMBHH01 J.M.PROIX
   2 #-----------------------------------------------------------------------
   3 # TITRE VALIDATION DU MODELE GRILLE EN ELASTICITE LINEAIRE
   4 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   5 # ======================================================================
   6 # COPYRIGHT (C) 1991 - 2004  EDF R&D                  WWW.CODE-ASTER.ORG
   7 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   8 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
   9 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
  10 # (AT YOUR OPTION) ANY LATER VERSION.
  11 #
  12 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
  13 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  14 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  15 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  16 #
  17 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
  18 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
  19 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
  20 # ======================================================================
  21 # PLAQUE D BETON AVEC DEUX NAPPES D'ARMATURE
  22 #-----------------------------------------------------------------------
  23 DEBUT(    CODE=_F(  NOM = 'SSLS109C',NIV_PUB_WEB='INTERNET') )
  24
  25
  26 MAILL1=LIRE_MAILLAGE(   )
  27
  28
  29
  30 MAILL2=CREA_MAILLAGE(
  31                MAILLAGE=MAILL1,
  32                CREA_GROUP_MA=_F(
  33                    NOM = 'GEOB1',
  34                    GROUP_MA = 'GEOB',
  35                    PREF_MAILLE = 'B',
  36                               )
  37                            )
  38
  39
  40 MAILTOT=CREA_MAILLAGE(
  41                MAILLAGE=MAILL2,
  42                CREA_GROUP_MA=_F(
  43                    NOM = 'GEOB2',
  44                    GROUP_MA = 'GEOB',
  45                    PREF_MAILLE = 'C',
  46                               )
  47                            )
  48
  49
  50
  51
  52 #
  53 # -----------------------------------------------------
  54 # DEFINITION DES MATERIAUX
  55 # -----------------------------------------------------
  56 #
  57
  58
  59 ACIER=DEFI_MATERIAU(  ELAS=_F(  E = 1.E11,       NU = 0., ) ,
  60                           )
  61
  62 BETON=DEFI_MATERIAU(  ELAS=_F(  E = 1.E9,       NU = 0., ) ,
  63                           )
  64
  65 #
  66 # -------------------------------------------------
  67 # AFFECTATION DES MATERIAUX
  68 # -------------------------------------------------
  69 #
  70 MATAF=AFFE_MATERIAU(    MAILLAGE=MAILTOT,AFFE=(
  71                           _F(  GROUP_MA = ('GEOB'),
  72                                  MATER = BETON,
  73                                ),
  74                           _F(  GROUP_MA = ('GEOB1','GEOB2'),
  75                                  MATER = ACIER,
  76                                ),
  77                                )
  78                       )
  79
  80 #
  81 # -------------------------------------------------
  82 # AFFECTATION DES MODELES
  83 # -------------------------------------------------
  84 #
  85 MODGRIL=AFFE_MODELE(    MAILLAGE=MAILTOT,     VERIF='MAILLE',
  86                AFFE=(
  87                         _F(  GROUP_MA = ('GEOB1','GEOB2'),
  88                                MODELISATION = 'GRILLE',
  89                                PHENOMENE = 'MECANIQUE',
  90                              ),
  91                          _F(  GROUP_MA = ('GEOB','BORD1'),
  92                                MODELISATION = 'DKT',
  93                                PHENOMENE = 'MECANIQUE',
  94                              ),
  95                              )
  96                       )
  97
  98 MODDKT=AFFE_MODELE(    MAILLAGE=MAILTOT,     VERIF='MAILLE',AFFE=(
  99                         _F(  GROUP_MA = ('GEOB','GEOB1','GEOB2'),
 100                                MODELISATION = 'DKT',
 101                                PHENOMENE = 'MECANIQUE',
 102                                ),
 103                          _F(  GROUP_MA = ('BORD1'),
 104                                MODELISATION = 'DKT',
 105                                PHENOMENE = 'MECANIQUE',
 106                              ),
 107                              )
 108                       )
 109
 110 EP=0.001
 111 EPB=0.2
 112
 113 # -------------------------------------------------
 114 # AFFECTATION DES CARACTERISTIQUES
 115 # -------------------------------------------------
 116 #
 117 CARAGRIL=AFFE_CARA_ELEM(    MODELE=MODGRIL,
 118                 COQUE=(
 119                        _F( GROUP_MA = ('GEOB', 'BORD1',),
 120                                 EPAIS = EPB,
 121                                 ANGL_REP = (0.0, 0.0,),
 122                              ),
 123                              ),
 124                GRILLE=(
 125                        _F( GROUP_MA = 'GEOB1',
 126                                 SECTION = EP,
 127                                 ANGL_REP = (0.0, 0.0,),
 128                                 EXCENTREMENT = -.09,
 129                                 ),
 130                        _F( GROUP_MA = 'GEOB2',
 131                                 SECTION = EP,
 132                                 ANGL_REP = (0.0, 0.0,),
 133                                 EXCENTREMENT = .09,
 134                              ),
 135                         ))
 136
 137 CARADKT=AFFE_CARA_ELEM(    MODELE=MODDKT,
 138                 COQUE=(
 139                        _F( GROUP_MA = ('GEOB', 'BORD1',),
 140                                 EPAIS = EPB,
 141                                 ANGL_REP = (0.0, 0.0,),
 142                                 ),
 143                        _F( GROUP_MA = 'GEOB1',
 144                                 EPAIS = EP,
 145                                 ANGL_REP = (0.0, 0.0,),
 146                                 EXCENTREMENT = -.09,
 147                                 INER_ROTA='OUI'
 148                              ),
 149                        _F( GROUP_MA = 'GEOB2',
 150                                 EPAIS = EP,
 151                                 ANGL_REP = (0.0, 0.0,),
 152                                 EXCENTREMENT = .09,
 153                                 INER_ROTA='OUI'
 154                              ),
 155                         ))
 156
 157 #
 158 # -------------------------------------------------
 159 # AFFECTATION DU CHARGEMENT
 160 # -------------------------------------------------
 161
 162 CHARGRIL=AFFE_CHAR_MECA(    MODELE=MODGRIL,DDL_IMPO=(
 163               _F( NOEUD = ('NO1','NO4'),
 164                   DX = 0.,    DY = 0.,    DZ = 0.,
 165                   DRX = 0.,   DRY = 0.,   DRZ = 0.,
 166                        ),
 167                        # jmp
 168                _F( NOEUD = ('NO3','NO5','NO2'),  DRZ = 0., DRX=0., DY=0.,
 169                        ),
 170                        ),
 171               FORCE_ARETE=_F(GROUP_MA='BORD1',FZ=1)
 172                          )
 173
 174 #
 175 CHARDKT=AFFE_CHAR_MECA(    MODELE=MODDKT,DDL_IMPO=(
 176               _F( NOEUD = ('NO1','NO4'),
 177                   DX = 0.,    DY = 0.,    DZ = 0.,
 178                   DRX = 0.,   DRY = 0.,   DRZ = 0.,
 179                        ),
 180                        # jmp
 181                _F( NOEUD = ('NO3','NO5','NO2'),  DRZ = 0., DRX=0., DY=0.,
 182                        ),
 183                        ),
 184               FORCE_ARETE=_F(GROUP_MA='BORD1',FZ=1)
 185                          )
 186
 187 #
 188 # -------------------------------------------------
 189 # CALCUL MECANIQUE STATIQUE LINEAIRE  GRILLES
 190 # -------------------------------------------------
 191 #
 192
 193 RESGRIL1=MECA_STATIQUE(    MODELE=MODGRIL,       CHAM_MATER=MATAF,
 194                                CARA_ELEM=CARAGRIL,
 195                                EXCIT=_F(  CHARGE = CHARGRIL,    )       )
 196
 197 RESGRIL1=CALC_ELEM(reuse=RESGRIL1,     RESULTAT=RESGRIL1,
 198                              OPTION='EFGE_ELNO_DEPL' )
 199
 200 RESGRIL1=CALC_ELEM(reuse=RESGRIL1,     RESULTAT=RESGRIL1,
 201                              OPTION='SIGM_ELNO_DEPL' )
 202
 203
 204 RESGRIL1=CALC_NO(  reuse=RESGRIL1,   RESULTAT=RESGRIL1,
 205                                TOUT='OUI',
 206                                OPTION='FORC_NODA',)
 207
 208
 209 RESGRIL1=CALC_ELEM(reuse=RESGRIL1,     RESULTAT=RESGRIL1,
 210                              OPTION='EPSI_ELNO_DEPL' )
 211
 212 RESGRIL1=CALC_ELEM(reuse=RESGRIL1,     RESULTAT=RESGRIL1,
 213                              OPTION='DEGE_ELNO_DEPL' )
 214
 215 RESGRIL1=CALC_ELEM(reuse=RESGRIL1,     RESULTAT=RESGRIL1,
 216                              OPTION='SIEF_ELNO_ELGA' )
 217
 218 #
 219
 220 # --------------------------------------------------------
 221 # CALCUL MECANIQUE STATIQUE LINEAIRE STAT_NON_LINE GRILLES
 222 # --------------------------------------------------------
 223 #
 224
 225 LINST=DEFI_LIST_REEL(   DEBUT=0.,INTERVALLE=(
 226                              _F( JUSQU_A = 1.00,   NOMBRE = 1,   ),))
 227
 228 RESGRIL2=STAT_NON_LINE(    MODELE=MODGRIL,       CHAM_MATER=MATAF,
 229                                CARA_ELEM=CARAGRIL,
 230                                EXCIT=_F(  CHARGE = CHARGRIL   ) ,
 231                           NEWTON=_F(REAC_ITER=1,
 232                        #   PREDICTION='ELASTIQUE'
 233                           ),
 234                                INCREMENT=_F(LIST_INST = LINST),
 235                                COMP_INCR=_F(RELATION = 'ELAS' ,
 236                                ALGO_1D='DEBORST'),)
 237
 238 RESGRIL2=CALC_NO(  reuse=RESGRIL2,   RESULTAT=RESGRIL2,
 239                                TOUT='OUI',
 240                                OPTION='FORC_NODA', )
 241
 242 RESGRIL2=CALC_ELEM(reuse=RESGRIL2,     RESULTAT=RESGRIL2,
 243                              OPTION='SIEF_ELNO_ELGA' )
 244
 245 RESGRIL2=CALC_ELEM(reuse=RESGRIL2,     RESULTAT=RESGRIL2,
 246                              OPTION='SIGM_ELNO_COQU' )
 247
 248
 249 RESGRIL2=CALC_ELEM(reuse=RESGRIL2,     RESULTAT=RESGRIL2,
 250                              OPTION='EPSI_ELNO_DEPL' )
 251
 252 RESGRIL2=CALC_ELEM(reuse=RESGRIL2,     RESULTAT=RESGRIL2,
 253                              OPTION='DEGE_ELNO_DEPL' )
 254
 255 #
 256 # -------------------------------------------------
 257 # CALCUL MECANIQUE STATIQUE LINEAIRE DKT
 258 # -------------------------------------------------
 259 #
 260
 261 RESUDKT=MECA_STATIQUE(    MODELE=MODDKT,       CHAM_MATER=MATAF,
 262                                CARA_ELEM=CARADKT,
 263                                EXCIT=_F(  CHARGE = CHARDKT,    )       )
 264
 265 RESUDKT=CALC_ELEM(reuse=RESUDKT,     RESULTAT=RESUDKT,
 266                              OPTION='EFGE_ELNO_DEPL' )
 267
 268 RESUDKT=CALC_ELEM(reuse=RESUDKT,     RESULTAT=RESUDKT,
 269                              OPTION='SIGM_ELNO_DEPL' )
 270
 271
 272 #RESUDKT=CALC_NO(  reuse=RESUDKT,   RESULTAT=RESUDKT,
 273 #                               TOUT='OUI',
 274 #                               OPTION='FORC_NODA',)
 275
 276
 277 RESUDKT=CALC_ELEM(reuse=RESUDKT,     RESULTAT=RESUDKT,
 278                              OPTION='DEGE_ELNO_DEPL' )
 279
 280 #RESUDKT=CALC_ELEM(reuse=RESUDKT,     RESULTAT=RESUDKT,
 281 #                             OPTION='SIEF_ELNO_ELGA' )
 282
 283 #
 284
 285
 286 IMPR_RESU(RESU=_F(RESULTAT=RESGRIL1))
 287 #
 288 IMPR_RESU(RESU=_F(RESULTAT=RESGRIL2))
 289 #
 290 IMPR_RESU(RESU=_F(RESULTAT=RESUDKT))
 291
 292
 293 TEST_RESU(RESU=(
 294
 295 # -- TEST SUR LES DEPLACEMENTS ET LES ROTATIONS
 296
 297                 _F(
 298                 RESULTAT = RESGRIL1,
 299                 NUME_ORDRE = 1,
 300                 NOM_CHAM = 'DEPL',
 301                 NOEUD = 'NO2',
 302                 NOM_CMP = 'DZ',
 303                 REFERENCE='NON_REGRESSION',VALE= 1.56354E-07,
 304                 ),
 305                 _F(
 306                 RESULTAT = RESGRIL1,
 307                 NUME_ORDRE = 1,
 308                 NOM_CHAM = 'DEPL',
 309                 NOEUD = 'NO3',
 310                 NOM_CMP = 'DZ',
 311                 REFERENCE='NON_REGRESSION',VALE= 1.56354E-07,
 312                 ),
 313                 _F(
 314                 RESULTAT = RESGRIL1,
 315                 NUME_ORDRE = 1,
 316                 NOM_CHAM = 'DEPL',
 317                 NOEUD = 'NO2',
 318                 NOM_CMP = 'DRY',
 319                 REFERENCE='NON_REGRESSION',VALE= -2.18657E-07,
 320                 ),
 321                 _F(
 322                 RESULTAT = RESGRIL1,
 323                 NUME_ORDRE = 1,
 324                 NOM_CHAM = 'DEPL',
 325                 NOEUD = 'NO3',
 326                 NOM_CMP = 'DRY',
 327                 REFERENCE='NON_REGRESSION',VALE= -2.18657E-07,
 328                 ),
 329
 330
 331 # -- TEST SUR LES FORCES NODALES
 332
 333                 _F(
 334                 RESULTAT = RESGRIL1,
 335                 NUME_ORDRE = 1,
 336                 NOM_CHAM = 'FORC_NODA',
 337                  NOEUD = 'NO1',
 338                 NOM_CMP = 'DZ',
 339                 REFERENCE='ANALYTIQUE',VALE= -0.5,
 340                 ),
 341                 _F(
 342                 RESULTAT = RESGRIL1,
 343                 NUME_ORDRE = 1,
 344                 NOM_CHAM = 'FORC_NODA',
 345                   NOEUD = 'NO2',
 346                 NOM_CMP = 'DZ',
 347                 REFERENCE='ANALYTIQUE',VALE=0.5,
 348                 ),
 349                 _F(
 350                 RESULTAT = RESGRIL1,
 351                 NUME_ORDRE = 1,
 352                 NOM_CHAM = 'FORC_NODA',
 353                 NOEUD = 'NO3',
 354                 NOM_CMP = 'DZ',
 355                 REFERENCE='ANALYTIQUE',VALE=0.5,
 356                 ),
 357                 _F(
 358                 RESULTAT = RESGRIL1,
 359                 NUME_ORDRE = 1,
 360                 NOM_CHAM = 'FORC_NODA',
 361                 NOEUD = 'NO4',
 362                 NOM_CMP = 'DZ',
 363                 REFERENCE='ANALYTIQUE',VALE=-0.5,
 364                 ),
 365                 _F(
 366                 RESULTAT = RESGRIL1,
 367                 NUME_ORDRE = 1,
 368                 NOM_CHAM = 'FORC_NODA',
 369                 NOEUD = 'NO1',
 370                 NOM_CMP = 'DRY',
 371                 REFERENCE='ANALYTIQUE',VALE=0.5,
 372                 ),
 373                 _F(
 374                 RESULTAT = RESGRIL1,
 375                 NUME_ORDRE = 1,
 376                 NOM_CHAM = 'FORC_NODA',
 377                 NOEUD = 'NO4',
 378                 NOM_CMP = 'DRY',
 379                 REFERENCE='ANALYTIQUE',VALE=0.5,
 380                 ),
 381
 382 # -- TEST SUR LES EFFORTS
 383 #               MAILLE DKT
 384                 _F(
 385                 RESULTAT = RESGRIL1,
 386                 NUME_ORDRE = 1,
 387                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='MA4',
 388                 NOEUD = 'NO1',
 389                 NOM_CMP = 'MXX',
 390                 REFERENCE='NON_REGRESSION',VALE= -0.297,
 391                 ),
 392                 _F(
 393                 RESULTAT = RESGRIL1,
 394                 NUME_ORDRE = 1,
 395                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='MA4',
 396                 NOEUD = 'NO4',
 397                 NOM_CMP = 'MXX',
 398                 REFERENCE='NON_REGRESSION',VALE=-0.297,
 399                 ),
 400
 401                 _F(
 402                 RESULTAT = RESGRIL1,
 403                 NUME_ORDRE = 1,
 404                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='MA1',
 405                 NOEUD = 'NO1',
 406                 NOM_CMP = 'MXX',
 407                 REFERENCE='NON_REGRESSION',VALE= -3.33876E-01,
 408                 ),
 409                 _F(
 410                 RESULTAT = RESGRIL1,
 411                 NUME_ORDRE = 1,
 412                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='MA3',
 413                 NOEUD = 'NO4',
 414                 NOM_CMP = 'MXX',
 415                 REFERENCE='NON_REGRESSION',VALE=-3.33876E-01,
 416                 ),
 417
 418                 # GRILLES
 419                 _F(
 420                 RESULTAT = RESGRIL1,
 421                 NUME_ORDRE = 1,
 422                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='BMA4',
 423                 NOEUD = 'NO1',
 424                 NOM_CMP = 'NXX',
 425                 REFERENCE='NON_REGRESSION',VALE=4.01305E+00,
 426                 ),
 427                 _F(
 428                 RESULTAT = RESGRIL1,
 429                 NUME_ORDRE = 1,
 430                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='BMA4',
 431                 NOEUD = 'NO4',
 432                 NOM_CMP = 'NXX',
 433                 REFERENCE='NON_REGRESSION',VALE=4.01305E+00,
 434                 ),
 435                 _F(
 436                 RESULTAT = RESGRIL1,
 437                 NUME_ORDRE = 1,
 438                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='CMA4',
 439                 NOEUD = 'NO1',
 440                 NOM_CMP = 'NXX',
 441                 REFERENCE='NON_REGRESSION',VALE=-4.01305E+00,
 442                 ),
 443                 _F(
 444                 RESULTAT = RESGRIL1,
 445                 NUME_ORDRE = 1,
 446                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='CMA4',
 447                 NOEUD = 'NO4',
 448                 NOM_CMP = 'NXX',
 449                 REFERENCE='NON_REGRESSION',VALE=-4.01305E+00,
 450                 ),
 451
 452                 _F(
 453                 RESULTAT = RESGRIL1,
 454                 NUME_ORDRE = 1,
 455                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='BMA1',
 456                 NOEUD = 'NO1',
 457                 NOM_CMP = 'NXX',
 458                 REFERENCE='NON_REGRESSION',VALE=4.50733E+00,
 459                 ),
 460                 _F(
 461                 RESULTAT = RESGRIL1,
 462                 NUME_ORDRE = 1,
 463                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='BMA3',
 464                 NOEUD = 'NO4',
 465                 NOM_CMP = 'NXX',
 466                 REFERENCE='NON_REGRESSION',VALE=4.50733E+00,
 467                 ),
 468                 _F(
 469                 RESULTAT = RESGRIL1,
 470                 NUME_ORDRE = 1,
 471                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='CMA1',
 472                 NOEUD = 'NO1',
 473                 NOM_CMP = 'NXX',
 474                 REFERENCE='NON_REGRESSION',VALE=-4.50733E+00,
 475                 ),
 476                 _F(
 477                 RESULTAT = RESGRIL1,
 478                 NUME_ORDRE = 1,
 479                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='CMA3',
 480                 NOEUD = 'NO4',
 481                 NOM_CMP = 'NXX',
 482                 REFERENCE='NON_REGRESSION',VALE=-4.50733E+00,
 483                 ),
 484
 485                 )
 486               )
 487
 488
 489
 490
 491
 492
 493
 494 # TEST STAT_NON_LINE
 495
 496 TEST_RESU(RESU=(
 497
 498 # -- TEST SUR LES DEPLACEMENTS ET LES ROTATIONS
 499
 500                 _F(
 501                 RESULTAT = RESGRIL2,
 502                 NUME_ORDRE = 1,
 503                 NOM_CHAM = 'DEPL',
 504                 NOEUD = 'NO2',
 505                 NOM_CMP = 'DZ',
 506                 REFERENCE='NON_REGRESSION',VALE= 1.56354E-07,
 507                 ),
 508                 _F(
 509                 RESULTAT = RESGRIL2,
 510                 NUME_ORDRE = 1,
 511                 NOM_CHAM = 'DEPL',
 512                 NOEUD = 'NO3',
 513                 NOM_CMP = 'DZ',
 514                 REFERENCE='NON_REGRESSION',VALE= 1.56354E-07,
 515                 ),
 516                 _F(
 517                 RESULTAT = RESGRIL2,
 518                 NUME_ORDRE = 1,
 519                 NOM_CHAM = 'DEPL',
 520                 NOEUD = 'NO2',
 521                 NOM_CMP = 'DRY',
 522                 REFERENCE='NON_REGRESSION',VALE= -2.18657E-07,
 523                 ),
 524                 _F(
 525                 RESULTAT = RESGRIL2,
 526                 NUME_ORDRE = 1,
 527                 NOM_CHAM = 'DEPL',
 528                 NOEUD = 'NO3',
 529                 NOM_CMP = 'DRY',
 530                 REFERENCE='NON_REGRESSION',VALE= -2.18657E-07,
 531                 ),
 532
 533
 534 # -- TEST SUR LES FORCES NODALES
 535
 536                 _F(
 537                 RESULTAT = RESGRIL2,
 538                 NUME_ORDRE = 1,
 539                 NOM_CHAM = 'FORC_NODA',
 540                  NOEUD = 'NO1',
 541                 NOM_CMP = 'DZ',
 542                 REFERENCE='ANALYTIQUE',VALE= -0.5,
 543                 ),
 544                 _F(
 545                 RESULTAT = RESGRIL2,
 546                 NUME_ORDRE = 1,
 547                 NOM_CHAM = 'FORC_NODA',
 548                   NOEUD = 'NO2',
 549                 NOM_CMP = 'DZ',
 550                 REFERENCE='ANALYTIQUE',VALE=0.5,
 551                 ),
 552                 _F(
 553                 RESULTAT = RESGRIL2,
 554                 NUME_ORDRE = 1,
 555                 NOM_CHAM = 'FORC_NODA',
 556                 NOEUD = 'NO3',
 557                 NOM_CMP = 'DZ',
 558                 REFERENCE='ANALYTIQUE',VALE=0.5,
 559                 ),
 560                 _F(
 561                 RESULTAT = RESGRIL2,
 562                 NUME_ORDRE = 1,
 563                 NOM_CHAM = 'FORC_NODA',
 564                 NOEUD = 'NO4',
 565                 NOM_CMP = 'DZ',
 566                 REFERENCE='ANALYTIQUE',VALE=-0.5,
 567                 ),
 568                 _F(
 569                 RESULTAT = RESGRIL2,
 570                 NUME_ORDRE = 1,
 571                 NOM_CHAM = 'FORC_NODA',
 572                 NOEUD = 'NO1',
 573                 NOM_CMP = 'DRY',
 574                 REFERENCE='ANALYTIQUE',VALE=0.5,
 575                 ),
 576                 _F(
 577                 RESULTAT = RESGRIL2,
 578                 NUME_ORDRE = 1,
 579                 NOM_CHAM = 'FORC_NODA',
 580                 NOEUD = 'NO4',
 581                 NOM_CMP = 'DRY',
 582                 REFERENCE='ANALYTIQUE',VALE=0.5,
 583                 ),
 584
 585 # -- TEST SUR LES EFFORTS
 586 #               MAILLE DKT
 587                 _F(
 588                 RESULTAT = RESGRIL2,
 589                 NUME_ORDRE = 1,
 590                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='MA4',
 591                 NOEUD = 'NO1',
 592                 NOM_CMP = 'MXX',
 593                 REFERENCE='NON_REGRESSION',VALE= -0.297,
 594                 ),
 595                 _F(
 596                 RESULTAT = RESGRIL2,
 597                 NUME_ORDRE = 1,
 598                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='MA4',
 599                 NOEUD = 'NO4',
 600                 NOM_CMP = 'MXX',
 601                 REFERENCE='NON_REGRESSION',VALE=-0.297,
 602                 ),
 603
 604                 _F(
 605                 RESULTAT = RESGRIL2,
 606                 NUME_ORDRE = 1,
 607                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='MA1',
 608                 NOEUD = 'NO1',
 609                 NOM_CMP = 'MXX',
 610                 REFERENCE='NON_REGRESSION',VALE= -3.33876E-01,
 611                 ),
 612                 _F(
 613                 RESULTAT = RESGRIL2,
 614                 NUME_ORDRE = 1,
 615                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='MA3',
 616                 NOEUD = 'NO4',
 617                 NOM_CMP = 'MXX',
 618                 REFERENCE='NON_REGRESSION',VALE=-3.33876E-01,
 619                 ),
 620
 621                 # GRILLES
 622                 _F(
 623                 RESULTAT = RESGRIL2,
 624                 NUME_ORDRE = 1,
 625                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='BMA4',
 626                 NOEUD = 'NO1',
 627                 NOM_CMP = 'NXX',
 628                 REFERENCE='NON_REGRESSION',VALE=4.01305E+00,
 629                 ),
 630                 _F(
 631                 RESULTAT = RESGRIL2,
 632                 NUME_ORDRE = 1,
 633                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='BMA4',
 634                 NOEUD = 'NO4',
 635                 NOM_CMP = 'NXX',
 636                 REFERENCE='NON_REGRESSION',VALE=4.01305E+00,
 637                 ),
 638                 _F(
 639                 RESULTAT = RESGRIL2,
 640                 NUME_ORDRE = 1,
 641                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='CMA4',
 642                 NOEUD = 'NO1',
 643                 NOM_CMP = 'NXX',
 644                 REFERENCE='NON_REGRESSION',VALE=-4.01305E+00,
 645                 ),
 646                 _F(
 647                 RESULTAT = RESGRIL2,
 648                 NUME_ORDRE = 1,
 649                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='CMA4',
 650                 NOEUD = 'NO4',
 651                 NOM_CMP = 'NXX',
 652                 REFERENCE='NON_REGRESSION',VALE=-4.01305E+00,
 653                 ),
 654
 655                 _F(
 656                 RESULTAT = RESGRIL2,
 657                 NUME_ORDRE = 1,
 658                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='BMA1',
 659                 NOEUD = 'NO1',
 660                 NOM_CMP = 'NXX',
 661                 REFERENCE='NON_REGRESSION',VALE=4.50733E+00,
 662                 ),
 663                 _F(
 664                 RESULTAT = RESGRIL2,
 665                 NUME_ORDRE = 1,
 666                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='BMA3',
 667                 NOEUD = 'NO4',
 668                 NOM_CMP = 'NXX',
 669                 REFERENCE='NON_REGRESSION',VALE=4.50733E+00,
 670                 ),
 671                 _F(
 672                 RESULTAT = RESGRIL2,
 673                 NUME_ORDRE = 1,
 674                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='CMA1',
 675                 NOEUD = 'NO1',
 676                 NOM_CMP = 'NXX',
 677                 REFERENCE='NON_REGRESSION',VALE=-4.50733E+00,
 678                 ),
 679                 _F(
 680                 RESULTAT = RESGRIL2,
 681                 NUME_ORDRE = 1,
 682                 NOM_CHAM = 'SIEF_ELNO_ELGA',MAILLE='CMA3',
 683                 NOEUD = 'NO4',
 684                 NOM_CMP = 'NXX',
 685                 REFERENCE='NON_REGRESSION',VALE=-4.50733E+00,
 686                 ),
 687
 688                 )
 689               )
 690
 691
 692
 693
 694 # TEST DKT + EXCENTREMENT
 695
 696
 697 TEST_RESU(RESU=(
 698
 699 # -- TEST SUR LES DEPLACEMENTS ET LES ROTATIONS
 700 # --  LA DIFFERENCE SUR LES DEPLACEMENTS VIENT DE LA ROTATION
 701 # --  PROPRE, PRISE EN COMPTE POUR DKT MAIS PAS POUR GRILLE
 702
 703                 _F(
 704                 RESULTAT = RESUDKT,
 705                 NUME_ORDRE = 1,
 706                 NOM_CHAM = 'DEPL',
 707                 NOEUD = 'NO2',
 708                 NOM_CMP = 'DZ',   PRECISION=0.03,
 709                 REFERENCE='AUTRE_ASTER',VALE= 1.56354E-07,
 710                 ),
 711                 _F(
 712                 RESULTAT = RESUDKT,
 713                 NUME_ORDRE = 1,
 714                 NOM_CHAM = 'DEPL',
 715                 NOEUD = 'NO3',
 716                 NOM_CMP = 'DZ',   PRECISION=0.03,
 717                 REFERENCE='AUTRE_ASTER',VALE= 1.56354E-07,
 718                 ),
 719                 _F(
 720                 RESULTAT = RESUDKT,
 721                 NUME_ORDRE = 1,
 722                 NOM_CHAM = 'DEPL',
 723                 NOEUD = 'NO2',
 724                 NOM_CMP = 'DRY',
 725                 REFERENCE='AUTRE_ASTER',VALE= -2.18657E-07,
 726                 ),
 727                 _F(
 728                 RESULTAT = RESUDKT,
 729                 NUME_ORDRE = 1,
 730                 NOM_CHAM = 'DEPL',
 731                 NOEUD = 'NO3',
 732                 NOM_CMP = 'DRY',
 733                 REFERENCE='AUTRE_ASTER',VALE= -2.18657E-07,
 734                 ),
 735
 736 # -- TEST SUR LES EFFORTS
 737 #               MAILLE DKT
 738                 _F(
 739                 RESULTAT = RESUDKT,
 740                 NUME_ORDRE = 1,
 741                 NOM_CHAM = 'EFGE_ELNO_DEPL',MAILLE='MA4',
 742                 NOEUD = 'NO1',
 743                 NOM_CMP = 'MXX',
 744                 REFERENCE='NON_REGRESSION',VALE= -0.297, PRECISION=0.08,
 745                 ),
 746                 _F(
 747                 RESULTAT = RESUDKT,
 748                 NUME_ORDRE = 1,
 749                 NOM_CHAM = 'EFGE_ELNO_DEPL',MAILLE='MA4',
 750                 NOEUD = 'NO4',
 751                 NOM_CMP = 'MXX',
 752                 REFERENCE='NON_REGRESSION',VALE=-0.297,  PRECISION=0.08,
 753                 ),
 754
 755                 _F(
 756                 RESULTAT = RESUDKT,
 757                 NUME_ORDRE = 1,
 758                 NOM_CHAM = 'EFGE_ELNO_DEPL',MAILLE='MA1',
 759                 NOEUD = 'NO1',
 760                 NOM_CMP = 'MXX',
 761                 REFERENCE='NON_REGRESSION',VALE= -3.33876E-01, PRECISION=0.05,
 762                 ),
 763                 _F(
 764                 RESULTAT = RESUDKT,
 765                 NUME_ORDRE = 1,
 766                 NOM_CHAM = 'EFGE_ELNO_DEPL',MAILLE='MA3',
 767                 NOEUD = 'NO4',
 768                 NOM_CMP = 'MXX',
 769                 REFERENCE='NON_REGRESSION',VALE=-3.33876E-01,PRECISION=0.05,
 770                 ),
 771
 772
 773
 774                 ),)
 775
 776
 777
 778
 779 FIN()
 780 #
 781 #
 782 # -- TEST SUR LES FORCES NODALES : FAUSSES EN DKT + EXCENTREMENT
 783 #    70% D'ECART, EQUILIBRE NON VERIFIE
 784
 785 TEST_RESU(RESU=(
 786
 787                 _F(
 788                 RESULTAT = RESUDKT,
 789                 NUME_ORDRE = 1,
 790                 NOM_CHAM = 'FORC_NODA',
 791                  NOEUD = 'NO1',
 792                 NOM_CMP = 'DZ',
 793                 REFERENCE='ANALYTIQUE',VALE= -0.5,
 794                 ),
 795                 _F(
 796                 RESULTAT = RESUDKT,
 797                 NUME_ORDRE = 1,
 798                 NOM_CHAM = 'FORC_NODA',
 799                   NOEUD = 'NO2',
 800                 NOM_CMP = 'DZ',
 801                 REFERENCE='ANALYTIQUE',VALE=0.5,
 802                 ),
 803                 _F(
 804                 RESULTAT = RESUDKT,
 805                 NUME_ORDRE = 1,
 806                 NOM_CHAM = 'FORC_NODA',
 807                 NOEUD = 'NO3',
 808                 NOM_CMP = 'DZ',
 809                 REFERENCE='ANALYTIQUE',VALE=0.5,
 810                 ),
 811                 _F(
 812                 RESULTAT = RESUDKT,
 813                 NUME_ORDRE = 1,
 814                 NOM_CHAM = 'FORC_NODA',
 815                 NOEUD = 'NO4',
 816                 NOM_CMP = 'DZ',
 817                 REFERENCE='ANALYTIQUE',VALE=-0.5,
 818                 ),
 819                 _F(
 820                 RESULTAT = RESUDKT,
 821                 NUME_ORDRE = 1,
 822                 NOM_CHAM = 'FORC_NODA',
 823                 NOEUD = 'NO1',
 824                 NOM_CMP = 'DRY',
 825                 REFERENCE='ANALYTIQUE',VALE=0.5,
 826                 ),
 827                 _F(
 828                 RESULTAT = RESUDKT,
 829                 NUME_ORDRE = 1,
 830                 NOM_CHAM = 'FORC_NODA',
 831                 NOEUD = 'NO4',
 832                 NOM_CMP = 'DRY',
 833                 REFERENCE='ANALYTIQUE',VALE=0.5,
 834                 ),
 835                 )
 836               )