Exemples/ex22/titi.comm

   1
   2
   3 DEBUT();
   4 % LECTURE DES PARAMETRES
   5 %
   6 % LECTURE DES TEMPS
   7 %CYCLE 1
   8 % LECTURE DU MAILLAGE ET DEFINITIONS DES PROPRIETES ELEMENTS FINIS
   9 %
  10
  11
  12 PRE_GIBI();
  13 %
  14 %
  15
  16
  17 MA1=LIRE_MAILLAGE();
  18 %
  19 %
  20
  21
  22 &MA1=DEFI_GROUP(MAILLAGE:<cataSTA5.cata.maillage object at 0x420d3e6c>
  23                 CREA_GROUP_NO:(GROUP_MA:('FIXATI','APPUI','LIAS_1',
  24                                           'LIAS_2','EBGUIDE',
  25                                           'MAINTIEN',
  26                                           'MAIN_SUP',
  27                                           'EMBO_SUP',
  28                                           'TUB_GUID','GRILLES',
  29                                           'EMBO_INF','PIEDS',
  30                                           'CRAYONS'),));
  31 %
  32 % AFFECTATION DU MODELE
  33 %
  34 %
  35
  36
  37 MO1=AFFE_MODELE(MAILLAGE:<cataSTA5.cata.maillage object at 0x420d3e6c>
  38                 AFFE:(GROUP_MA:'CRAYONS'
  39                       PHENOMENE:'MECANIQUE'
  40                       MODELISATION:'POU_D_E')
  41                 AFFE:(GROUP_MA:'TUB_GUID'
  42                       PHENOMENE:'MECANIQUE'
  43                       MODELISATION:'POU_D_E')
  44                 AFFE:(GROUP_MA:('EMBO_SUP','EMBO_INF')
  45                       PHENOMENE:'MECANIQUE'
  46                       MODELISATION:'DKT')
  47                 AFFE:(GROUP_MA:'PIEDS'
  48                       PHENOMENE:'MECANIQUE'
  49                       MODELISATION:'POU_D_E')
  50                 AFFE:(GROUP_MA:'GRILLES'
  51                       PHENOMENE:'MECANIQUE'
  52                       MODELISATION:'POU_D_E')
  53                 AFFE:(GROUP_MA:'LI_GR_CR'
  54                       PHENOMENE:'MECANIQUE'
  55                       MODELISATION:'DIS_TR')
  56                 AFFE:(GROUP_MA:'LI_GR_GU'
  57                       PHENOMENE:'MECANIQUE'
  58                       MODELISATION:'DIS_TR')
  59                 AFFE:(GROUP_MA:'MAINTIEN'
  60                       PHENOMENE:'MECANIQUE'
  61                       MODELISATION:'POU_D_E'));
  62 %
  63 % AFFECTATION DES CARACTERISTIQUES GEOMETRIQUES ELEMENTAIRES
  64 %
  65 %
  66
  67
  68 CARA1=AFFE_CARA_ELEM(MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
  69                      POUTRE:(GROUP_MA:'CRAY'
  70                              SECTION:'CERCLE'
  71                              CARA:('R','EP')
  72                              VALE:(3.0,3.0))
  73                      POUTRE:(GROUP_MA:'GUID'
  74                              SECTION:'CERCLE'
  75                              CARA:('R','EP')
  76                              VALE:(3.0,3.0))
  77                      POUTRE:(GROUP_MA:'RETRE'
  78                              SECTION:'CERCLE'
  79                              CARA:('R','EP')
  80                              VALE:(3.0,3.0))
  81                      POUTRE:(GROUP_MA:('GRIL_I')
  82                              SECTION:'RECTANGLE'
  83                              CARA:('HY','HZ')
  84                              VALE:(3.0,3.0))
  85                      POUTRE:(GROUP_MA:('GRIL_E')
  86                              SECTION:'RECTANGLE'
  87                              CARA:('HY','HZ')
  88                              VALE:(3.0,3.0))
  89                      POUTRE:(GROUP_MA:('MAINTI_Y','MAINTI_Z')
  90                              SECTION:'RECTANGLE'
  91                              CARA:('HY','HZ')
  92                              VALE:(3.0,3.0))
  93                      POUTRE:(GROUP_MA:'PI_PLE'
  94                              SECTION:'GENERALE'
  95                              CARA:('A','IZ','IY','JX')
  96                              VALE:(1.0,2.0,3.0,4.0))
  97                      POUTRE:(GROUP_MA:'PI_TRO'
  98                              SECTION:'GENERALE'
  99                              CARA:('A','IZ','IY','JX')
 100                              VALE:(1.0,2.0,3.0,4.0))
 101                      ORIENTATION:(GROUP_MA:('GRIL_I','GRIL_E')
 102                                   VALE:(1.0,0.0,0.0)
 103                                   CARA:'VECT_Y')
 104                      ORIENTATION:(GROUP_MA:('MAINTI_Y')
 105                                   VALE:(0.0,1.0,0.0)
 106                                   CARA:'VECT_Y')
 107                      ORIENTATION:(GROUP_MA:('MAINTI_Z')
 108                                   VALE:(0.0,0.0,1.0)
 109                                   CARA:'VECT_Y')
 110                      ORIENTATION:(GROUP_MA:('PI_PLE','PI_TRO')
 111                                   VALE:(0.0,1.0,0.0)
 112                                   CARA:'VECT_Y')
 113                      ORIENTATION:(GROUP_MA:('ELASTI','RIGID')
 114                                   VALE:(1.0,0.0,0.0)
 115                                   CARA:'VECT_Y')
 116                      DISCRET:(GROUP_MA:'ELASTI'
 117                               CARA:'K_TR_D_L'
 118                               VALE:(1.0,2.0,3.0,4.0,5.0,6.0)
 119                               REPERE:'LOCAL')
 120                      DISCRET:(GROUP_MA:'RIGID'
 121                               CARA:'K_TR_D_L'
 122                               VALE:(1.0,2.0,3.0,4.0,5.0,6.0)
 123                               REPERE:'LOCAL')
 124                      COQUE:(EPAIS:2.0
 125                             GROUP_MA:'EBOINF'
 126                             ANGL_REP:90.0)
 127                      COQUE:(EPAIS:3.0
 128                             GROUP_MA:'EBOSUP'
 129                             ANGL_REP:90.0));
 130 %
 131 % DEFINITION DES CHARGES ET CONDITIONS LIMITES
 132 % DEFINITION DES TEMPERATURES NODALES EVOLUTIVES
 133 %
 134 %
 135
 136
 137 F_TP1_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,4.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' NOM_RESU:'TEMP' );
 138
 139 F_TP2_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,4.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' NOM_RESU:'TEMP' );
 140
 141 F_TP3_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,4.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' NOM_RESU:'TEMP' );
 142
 143 CHTEM1_1=AFFE_CHAM_NO(MAILLAGE:
 144                         <cataSTA5.cata.maillage object at 0x420d3e6c>
 145                       GRANDEUR:'TEMP_F'
 146                       AFFE:(NOM_CMP:'TEMP'
 147                             GROUP_NO:
 148
 149                                        ('MAINTIEN','PIEDS',
 150                                        'TUB_GUID','GRILLES',
 151                                        'CRAYONS'),
 152                             FONCTION:
 153
 154                                        <fonction(41f8444c,
 155                                        '?&?&?&?&                ')>,,)
 156                       AFFE:(NOM_CMP:('TEMP_INF','TEMP','TEMP_SUP')
 157                             GROUP_NO:('EMBO_SUP','EMBO_INF')
 158                             FONCTION:
 159
 160                                        (<fonction(41f8444c,
 161                                        '?&?&?&?&                ')>,
 162                                        <fonction(41f8444c,
 163                                        '?&?&?&?&                ')>,
 164                                        <fonction(41f8444c,
 165                                        '?&?&?&?&                ')>),));
 166
 167 CHTEM2_1=AFFE_CHAM_NO(MAILLAGE:
 168                         <cataSTA5.cata.maillage object at 0x420d3e6c>
 169                       GRANDEUR:'TEMP_F'
 170                       AFFE:(NOM_CMP:'TEMP'
 171                             GROUP_NO:
 172
 173                                        ('MAINTIEN','PIEDS',
 174                                        'TUB_GUID','GRILLES',
 175                                        'CRAYONS'),
 176                             FONCTION:
 177
 178                                        <fonction(41f847ac,
 179                                        '?&?&?&?&                ')>,,)
 180                       AFFE:(NOM_CMP:('TEMP_INF','TEMP','TEMP_SUP')
 181                             GROUP_NO:('EMBO_SUP','EMBO_INF')
 182                             FONCTION:
 183
 184                                        (<fonction(41f847ac,
 185                                        '?&?&?&?&                ')>,
 186                                        <fonction(41f847ac,
 187                                        '?&?&?&?&                ')>,
 188                                        <fonction(41f847ac,
 189                                        '?&?&?&?&                ')>),));
 190
 191 CHTEM3_1=AFFE_CHAM_NO(MAILLAGE:
 192                         <cataSTA5.cata.maillage object at 0x420d3e6c>
 193                       GRANDEUR:'TEMP_F'
 194                       AFFE:(NOM_CMP:'TEMP'
 195                             GROUP_NO:
 196
 197                                        ('MAINTIEN','PIEDS',
 198                                        'TUB_GUID','GRILLES'),
 199                             FONCTION:
 200
 201                                        <fonction(41f84b2c,
 202                                        '?&?&?&?&                ')>,,)
 203                       AFFE:(NOM_CMP:('TEMP_INF','TEMP','TEMP_SUP')
 204                             GROUP_NO:('EMBO_SUP','EMBO_INF')
 205                             FONCTION:
 206
 207                                        (<fonction(41f84b2c,
 208                                        '?&?&?&?&                ')>,
 209                                        <fonction(41f84b2c,
 210                                        '?&?&?&?&                ')>,
 211                                        <fonction(41f84b2c,
 212                                        '?&?&?&?&                ')>),)
 213                       AFFE:(NOM_CMP:'TEMP'
 214                             GROUP_NO:'CRAYONS'
 215                             FONCTION:
 216
 217                                        <fonction(41f84b2c,
 218                                        '?&?&?&?&                ')>,,));
 219
 220 CHTH_1=CREA_RESU(TYPE_RESU:'EVOL_THER'
 221                  NOM_CHAM:'TEMP'
 222                  CHAM_GD:(CHAM_NO:
 223                   <cataSTA5.cata.cham_no_temp_f object at 0x41f84f2c>
 224                           INST:0.0)
 225                  CHAM_GD:(CHAM_NO:
 226                   <cataSTA5.cata.cham_no_temp_f object at 0x41f84f2c>
 227                           INST:1000.0)
 228                  CHAM_GD:(CHAM_NO:
 229                   <cataSTA5.cata.cham_no_temp_f object at 0x41f9c52c>
 230                           INST:2000.0)
 231                  CHAM_GD:(CHAM_NO:
 232                   <cataSTA5.cata.cham_no_temp_f object at 0x41f9cb4c>
 233                           INST:3000.0)
 234                  CHAM_GD:(CHAM_NO:
 235                   <cataSTA5.cata.cham_no_temp_f object at 0x41f9cb4c>
 236                           INST:4000.0)
 237                  CHAM_GD:(CHAM_NO:
 238                   <cataSTA5.cata.cham_no_temp_f object at 0x41f9c52c>
 239                           INST:5000.0)
 240                  CHAM_GD:(CHAM_NO:
 241                   <cataSTA5.cata.cham_no_temp_f object at 0x41f84f2c>
 242                           INST:6000.0)
 243                  CHAM_GD:(CHAM_NO:
 244                   <cataSTA5.cata.cham_no_temp_f object at 0x41f84f2c>
 245                           INST:7000.0));
 246 % CHARGEMENT: CHARGES THERMO-MECANIQUES
 247 % ----------------------------------------
 248 %
 249
 250
 251 THERM_1=AFFE_CHAR_MECA(TEMP_CALCULEE:
 252                        <cataSTA5.cata.evol_ther object at 0x41fa344c>
 253                        MODELE:
 254                           <cataSTA5.cata.modele object at 0x41f6838c> );
 255 % DEFINITION DES CONDITIONS LIMITES
 256 %            DES CONDITIONS DE CONTACT
 257 %
 258 % CHARGEMENT: PESANTEUR
 259 %
 260 %
 261
 262
 263 PESANT_1=AFFE_CHAR_MECA(PESANTEUR:(9.81,-1.0,0.0,0.0)
 264                         MODELE:
 265                           <cataSTA5.cata.modele object at 0x41f6838c> );
 266 %
 267 % CONDITIONS AUX LIMITES
 268 %
 269 %
 270
 271
 272 CL_PER_1=AFFE_CHAR_MECA(MODELE:
 273                           <cataSTA5.cata.modele object at 0x41f6838c>
 274                         DDL_IMPO:(DRY:0.0
 275                                   DRX:0.0
 276                                   DRZ:0.0
 277                                   GROUP_NO:'FIXATI'
 278                                   DY:0.0
 279                                   DZ:0.0
 280                                   DX:0.0)
 281                         DDL_IMPO:(GROUP_NO:'APPUI'
 282                                   DX:0.0)
 283                         DDL_IMPO:(DRY:0.0
 284                                   DRX:0.0
 285                                   DRZ:0.0
 286                                   GROUP_NO:'EBGUIDE'
 287                                   DY:0.0
 288                                   DZ:0.0)
 289                         DDL_IMPO:(DRX:0.0
 290                                   GROUP_NO:('LIAS_1','LIAS_2'))
 291                         LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
 292                                        GROUP_NO_2:'LIAS_2'
 293                                        DDL_2:'DX'
 294                                        COEF_IMPO:0.0
 295                                        COEF_MULT_2:-1.0
 296                                        DDL_1:'DX'
 297                                        COEF_MULT_1:1.0)
 298                         LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
 299                                        GROUP_NO_2:'LIAS_2'
 300                                        DDL_2:'DY'
 301                                        COEF_IMPO:0.0
 302                                        COEF_MULT_2:-1.0
 303                                        DDL_1:'DY'
 304                                        COEF_MULT_1:1.0)
 305                         LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
 306                                        GROUP_NO_2:'LIAS_2'
 307                                        DDL_2:'DZ'
 308                                        COEF_IMPO:0.0
 309                                        COEF_MULT_2:-1.0
 310                                        DDL_1:'DZ'
 311                                        COEF_MULT_1:1.0)
 312                         LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
 313                                        GROUP_NO_2:'LIAS_2'
 314                                        DDL_2:'DRY'
 315                                        COEF_IMPO:0.0
 316                                        COEF_MULT_2:-1.0
 317                                        DDL_1:'DRY'
 318                                        COEF_MULT_1:1.0)
 319                         LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
 320                                        GROUP_NO_2:'LIAS_2'
 321                                        DDL_2:'DRZ'
 322                                        COEF_IMPO:0.0
 323                                        COEF_MULT_2:-1.0
 324                                        DDL_1:'DRZ'
 325                                        COEF_MULT_1:1.0));
 326 %
 327 %
 328
 329
 330 CL_CTC=AFFE_CHAR_MECA(MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
 331                       INFO:1
 332                       CONTACT:(APPARIEMENT:'NODAL'
 333                                VECT_NORM_2:(-1.0,0.0,0.0)
 334                                GROUP_MA_1:'EBOINF'
 335                                GROUP_MA_2:'MCRBAS'));
 336 %
 337 % DEPLACEMENT DU SYSTEME DE MAINTIEN
 338 %
 339 %
 340
 341
 342 CLDI_F1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,1000.0,0.1,2000.0,0.2,3000.0,0.2,4000.0,0.2,5000.0,0.2,6000.0,0.1,7000.0,0.1) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 343
 344 CL_DI_1=AFFE_CHAR_MECA(MODELE:
 345                           <cataSTA5.cata.modele object at 0x41f6838c>
 346                        DDL_IMPO:(GROUP_NO:'MAIN_SUP'
 347                                  DX:-1.0));
 348 % DEFINITION DES FORCES EXTERIEURES
 349 %
 350 % FONCTION MULTIPLICATIVE DE LA FORCE HYDRODYNAMIQUE NORMEE
 351 %
 352 %
 353
 354
 355 HYDR_F1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,1000.0,0.1,2000.0,0.2,3000.0,0.2,4000.0,0.2,5000.0,0.2,6000.0,0.1,7000.0,0.1) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 356 %
 357 % PROFIL DES FORCES HYDRODYNAMIQUES TUBES GUIDES A FROID
 358 %
 359 %
 360
 361
 362 HYFRTU_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
 363 %
 364 % PROFIL DES FORCES HYDRODYNAMIQUES CRAYON A FROID
 365 %
 366 %
 367
 368
 369 HYFRCR_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
 370 %
 371 % CHARGEMENT : FORCES HYDRODYNAMIQUES
 372 %
 373 %
 374
 375
 376 HYDR_1=AFFE_CHAR_MECA(MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
 377                       FORCE_COQUE:(FX:10.0
 378                                    GROUP_MA:'EBOSUP')
 379                       FORCE_COQUE:(FX:10.0
 380                                    GROUP_MA:'EBOINF')
 381                       FORCE_POUTRE:(GROUP_MA:('GRIL10')
 382                                     FX:10.0)
 383                       FORCE_POUTRE:(GROUP_MA:('GRIL1')
 384                                     FX:10.0)
 385                       FORCE_POUTRE:(GROUP_MA:('GRIL2')
 386                                     FX:10.0)
 387                       FORCE_POUTRE:(GROUP_MA:('GRIL3')
 388                                     FX:10.0)
 389                       FORCE_POUTRE:(GROUP_MA:('GRIL4')
 390                                     FX:10.0)
 391                       FORCE_POUTRE:(GROUP_MA:('GRIL5')
 392                                     FX:10.0)
 393                       FORCE_POUTRE:(GROUP_MA:('GRIL6')
 394                                     FX:10.0)
 395                       FORCE_POUTRE:(GROUP_MA:('GRIL7')
 396                                     FX:10.0)
 397                       FORCE_POUTRE:(GROUP_MA:('GRIL8')
 398                                     FX:10.0)
 399                       FORCE_POUTRE:(GROUP_MA:('GRIL9')
 400                                     FX:10.0));
 401
 402 TOTO_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,10.0,5.0,10.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
 403 %
 404 %
 405
 406
 407 FOHYDR_1=AFFE_CHAR_MECA_F(MODELE:
 408                           <cataSTA5.cata.modele object at 0x41f6838c>
 409                           FORCE_POUTRE:(GROUP_MA:('GUID')
 410                                         FX:
 411
 412                                              <fonction(41fd5e0c,
 413                                              '?&?&?&?&                ')>,,)
 414                           FORCE_POUTRE:(GROUP_MA:'CRAY'
 415                                         FX:
 416
 417                                              <fonction(41fd5e0c,
 418                                              '?&?&?&?&                ')>,,));
 419 %
 420 % PROFIL DES FORCES D'ARCHIMEDE TUBE GUIDE
 421 %
 422 %
 423
 424
 425 ARFRTU_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,10.0,5.0,10.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
 426 %
 427 % PROFIL DES FORCES D'ARCHIMEDE CRAYON
 428 %
 429 %
 430
 431
 432 ARFRCR_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,10.0,5.0,10.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
 433 %
 434 % FONCTION MULTIPLICATIVE DE LA FORCE D'ARCHIMEDE
 435 %
 436 %
 437
 438
 439 ARCH_F1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,1000.0,0.1,2000.0,0.2,3000.0,0.2,4000.0,0.2,5000.0,0.2,6000.0,0.1,7000.0,0.1) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 440 %
 441 %
 442 % CHARGEMENT : FORCES D'ARCHIMEDE
 443 % ----------------------------------------
 444 %
 445 %
 446
 447
 448 ARCH_1=AFFE_CHAR_MECA(MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
 449                       FORCE_COQUE:(FX:10.0
 450                                    GROUP_MA:'EBOSUP')
 451                       FORCE_COQUE:(FX:10.0
 452                                    GROUP_MA:'EBOINF')
 453                       FORCE_POUTRE:(GROUP_MA:'MAINTIEN'
 454                                     FX:10.0)
 455                       FORCE_POUTRE:(GROUP_MA:('GRIL10')
 456                                     FX:10.0)
 457                       FORCE_POUTRE:(GROUP_MA:('GRIL1')
 458                                     FX:10.0)
 459                       FORCE_POUTRE:(GROUP_MA:('GRIL2')
 460                                     FX:10.0)
 461                       FORCE_POUTRE:(GROUP_MA:('GRIL3')
 462                                     FX:10.0)
 463                       FORCE_POUTRE:(GROUP_MA:('GRIL4')
 464                                     FX:10.0)
 465                       FORCE_POUTRE:(GROUP_MA:('GRIL5')
 466                                     FX:10.0)
 467                       FORCE_POUTRE:(GROUP_MA:('GRIL6')
 468                                     FX:10.0)
 469                       FORCE_POUTRE:(GROUP_MA:('GRIL7')
 470                                     FX:10.0)
 471                       FORCE_POUTRE:(GROUP_MA:('GRIL8')
 472                                     FX:10.0)
 473                       FORCE_POUTRE:(GROUP_MA:('GRIL9')
 474                                     FX:10.0));
 475
 476 FOARCH_1=AFFE_CHAR_MECA_F(MODELE:
 477                           <cataSTA5.cata.modele object at 0x41f6838c>
 478                           FORCE_POUTRE:(GROUP_MA:'GUID'
 479                                         FX:
 480
 481                                              <fonction(41fe9c4c,
 482                                              '?&?&?&?&                ')>,,)
 483                           FORCE_POUTRE:(GROUP_MA:'CRAY'
 484                                         FX:
 485
 486                                              <fonction(41fe9c4c,
 487                                              '?&?&?&?&                ')>,,));
 488 %
 489 %
 490 % FORCE DE SERRAGE DE LA LIAISON GRILLE - CRAYON
 491 %
 492 %
 493 %
 494 %
 495 %
 496 % DEFINITION DE LA LISTE D'INSTANTS
 497 %
 498 %
 499
 500
 501 L_FRIG=DEFI_LIST_REEL(DEBUT:0.0
 502                       INTERVALLE:(NOMBRE:100
 503                                   JUSQU_A:1000.0));
 504 %
 505 % INRTERPRETATION DES FONCTIONS
 506 %
 507 %
 508
 509
 510 F1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 511
 512 F2=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 513
 514 F3=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 515
 516 F4=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 517
 518 F5=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 519
 520 F6=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 521
 522 F7=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 523
 524 F8=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 525
 526 F9=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 527
 528 F10=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 529
 530 FRIG1=CALC_FONC_INTERP(LIST_PARA:
 531                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 532                        PROL_DROIT:'CONSTANT'
 533                        PROL_GAUCHE:'CONSTANT'
 534                        INTERPOL:'LIN'
 535                        FONCTION:
 536
 537                                   <fonction(41ffcccc,
 538                                   '?&?&?&?&                ')>,,);
 539
 540 FRIG2=CALC_FONC_INTERP(LIST_PARA:
 541                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 542                        PROL_DROIT:'CONSTANT'
 543                        PROL_GAUCHE:'CONSTANT'
 544                        INTERPOL:'LIN'
 545                        FONCTION:
 546
 547                                   <fonction(41ffcfcc,
 548                                   '?&?&?&?&                ')>,,);
 549
 550 FRIG3=CALC_FONC_INTERP(LIST_PARA:
 551                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 552                        PROL_DROIT:'CONSTANT'
 553                        PROL_GAUCHE:'CONSTANT'
 554                        INTERPOL:'LIN'
 555                        FONCTION:
 556
 557                                   <fonction(420cf2ec,
 558                                   '?&?&?&?&                ')>,,);
 559
 560 FRIG4=CALC_FONC_INTERP(LIST_PARA:
 561                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 562                        PROL_DROIT:'CONSTANT'
 563                        PROL_GAUCHE:'CONSTANT'
 564                        INTERPOL:'LIN'
 565                        FONCTION:
 566
 567                                   <fonction(420cf5ec,
 568                                   '?&?&?&?&                ')>,,);
 569
 570 FRIG5=CALC_FONC_INTERP(LIST_PARA:
 571                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 572                        PROL_DROIT:'CONSTANT'
 573                        PROL_GAUCHE:'CONSTANT'
 574                        INTERPOL:'LIN'
 575                        FONCTION:
 576
 577                                   <fonction(420cf8ec,
 578                                   '?&?&?&?&                ')>,,);
 579
 580 FRIG6=CALC_FONC_INTERP(LIST_PARA:
 581                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 582                        PROL_DROIT:'CONSTANT'
 583                        PROL_GAUCHE:'CONSTANT'
 584                        INTERPOL:'LIN'
 585                        FONCTION:
 586
 587                                   <fonction(420cfbec,
 588                                   '?&?&?&?&                ')>,,);
 589
 590 FRIG7=CALC_FONC_INTERP(LIST_PARA:
 591                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 592                        PROL_DROIT:'CONSTANT'
 593                        PROL_GAUCHE:'CONSTANT'
 594                        INTERPOL:'LIN'
 595                        FONCTION:
 596
 597                                   <fonction(420cfeec,
 598                                   '?&?&?&?&                ')>,,);
 599
 600 FRIG8=CALC_FONC_INTERP(LIST_PARA:
 601                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 602                        PROL_DROIT:'CONSTANT'
 603                        PROL_GAUCHE:'CONSTANT'
 604                        INTERPOL:'LIN'
 605                        FONCTION:
 606
 607                                   <fonction(4200a20c,
 608                                   '?&?&?&?&                ')>,,);
 609
 610 FRIG9=CALC_FONC_INTERP(LIST_PARA:
 611                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 612                        PROL_DROIT:'CONSTANT'
 613                        PROL_GAUCHE:'CONSTANT'
 614                        INTERPOL:'LIN'
 615                        FONCTION:
 616
 617                                   <fonction(4200a50c,
 618                                   '?&?&?&?&                ')>,,);
 619
 620 FRIG10=CALC_FONC_INTERP(LIST_PARA:
 621                           <cataSTA5.cata.listr8 object at 0x41ffc9ec>
 622                         PROL_DROIT:'CONSTANT'
 623                         PROL_GAUCHE:'CONSTANT'
 624                         INTERPOL:'LIN'
 625                         FONCTION:
 626
 627                                    <fonction(4200a80c,
 628                                    '?&?&?&?&                ')>,,);
 629 %
 630 % DEFINITION DU FLUX NEUTRONIQUE RADIAL
 631 %
 632
 633
 634 FLUX_F1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0,974520.0,453280.0,2638800.0,2077850.0,4087800.0,3512790.0,5428440.0,4856770.0,7245000.0,6676270.0,8853480.0,8279770.0,10460900.0,9872610.0,12202900.0,11586900.0,13944600.0,13295200.0,14143700.0,13490200.0,15563200.0,14875300.0,17236100.0,16506900.0,17948200.0,17199200.0,18190100.0,17433400.0,18193700.0,17435200.0,18197300.0,17435200.0,18200900.0,17435200.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
 635 % DEFINITION DU FLUX AXIAL POUR LE CYCLE 1
 636 %
 637
 638
 639 FLUXAX1=LIRE_FONCTION(PROL_DROIT:'CONSTANT'
 640                       UNITE:60
 641                       PROL_GAUCHE:'CONSTANT');
 642
 643 FLY_1_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,3.80328347578e-07,-0.0882,3.80836894587e-07,-0.0756,3.82960826211e-07,-0.063,3.85840099715e-07,-0.0504,3.89461004273e-07,-0.0378,3.92594551282e-07,-0.0252,3.92584579772e-07,-0.0126,3.92941061254e-07,0.0,3.93995548433e-07,0.0126,3.92932336182e-07,0.0252,3.9256712963e-07,0.0378,3.9256712963e-07,0.0504,3.89426103989e-07,0.063,3.8579522792e-07,0.0756,3.82909722222e-07,0.0882,3.80777065527e-07,0.1008,3.80261039886e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 644
 645 FLY_1_2=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,4.35955662393e-07,-0.0882,4.38665420228e-07,-0.0756,4.43314636752e-07,-0.063,4.49115562678e-07,-0.0504,4.57506588319e-07,-0.0378,4.66472222222e-07,-0.0252,4.60029380342e-07,-0.0126,4.60043091168e-07,0.0,4.6686235755e-07,0.0126,4.60033119658e-07,0.0252,4.60009437322e-07,0.0378,4.66439814815e-07,0.0504,4.57464209402e-07,0.063,4.49064458689e-07,0.0756,4.43253561254e-07,0.0882,4.38596866097e-07,0.1008,4.35878383191e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 646
 647 FLY_1_3=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,4.94318910256e-07,-0.0882,5.00051282051e-07,-0.0756,5.13371972934e-07,-0.063,5.29153133903e-07,-0.0504,5.37880698006e-07,-0.0378,5.35046296296e-07,-0.0252,5.32211894587e-07,-0.0126,5.31364316239e-07,0.0,5.31358707265e-07,0.0126,5.31353098291e-07,0.0252,5.32186965812e-07,0.0378,5.35008279915e-07,0.0504,5.37829594017e-07,0.063,5.29092058405e-07,0.0756,5.13302172365e-07,0.0882,4.99971509972e-07,0.1008,4.94231659544e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 648
 649 FLY_1_4=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,5.5489957265e-07,-0.0882,5.64778846154e-07,-0.0756,5.9007781339e-07,-0.063,5.97264155983e-07,-0.0504,6.04450498576e-07,-0.0378,5.98407763533e-07,-0.0252,5.84406517094e-07,-0.0126,5.82639066952e-07,0.0,5.91532407407e-07,0.0126,5.82626602564e-07,0.0252,5.8438034188e-07,0.0378,5.98366631054e-07,0.0504,6.04393162393e-07,0.063,5.97194978632e-07,0.0756,5.89996794872e-07,0.0882,5.64691595442e-07,0.1008,5.54801103989e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 650
 651 FLY_1_5=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,6.12672008547e-07,-0.0882,6.29623575499e-07,-0.0756,6.56554131054e-07,-0.063,6.61645833333e-07,-0.0504,6.51902421652e-07,-0.0378,6.52126780627e-07,-0.0252,6.37466168091e-07,-0.0126,6.35474358974e-07,0.0,6.45096866097e-07,0.0126,6.35460648148e-07,0.0252,6.37436253561e-07,0.0378,6.52079415954e-07,0.0504,6.51838853276e-07,0.063,6.6156980057e-07,0.0756,6.56465633903e-07,0.0882,6.29523860399e-07,0.1008,6.12563568376e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 652
 653 FLY_1_6=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,6.57551282051e-07,-0.0882,6.83362535613e-07,-0.0756,6.90120726496e-07,-0.063,6.96878917379e-07,-0.0504,6.93625712251e-07,-0.0378,6.90747685185e-07,-0.0252,6.8786965812e-07,-0.0126,6.85864138177e-07,0.0,6.85856036325e-07,0.0126,6.85847934473e-07,0.0252,6.87836004274e-07,0.0378,6.90697204416e-07,0.0504,6.93558404558e-07,0.063,6.9679789886e-07,0.0756,6.90024127493e-07,0.0882,6.83250356125e-07,0.1008,6.57431623932e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 654
 655 FLY_1_7=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,6.96845263533e-07,-0.0882,7.14066061254e-07,-0.0756,7.3236502849e-07,-0.063,7.20764423077e-07,-0.0504,7.17935007123e-07,-0.0378,7.28356481481e-07,-0.0252,7.1444747151e-07,-0.0126,7.11308938746e-07,0.0,7.21077279202e-07,0.0126,7.11293981481e-07,0.0252,7.14412571225e-07,0.0378,7.28302884615e-07,0.0504,7.17863960114e-07,0.063,7.20678418803e-07,0.0756,7.32261574074e-07,0.0882,7.13951388889e-07,0.1008,6.96718126781e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 656
 657 FLY_1_8=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,7.36793625356e-07,-0.0882,7.54231303419e-07,-0.0756,7.72156339031e-07,-0.063,7.58657407407e-07,-0.0504,7.55477742165e-07,-0.0378,7.66624643875e-07,-0.0252,7.50884615385e-07,-0.0126,7.43139245014e-07,0.0,7.4863230057e-07,0.0126,7.43120548433e-07,0.0252,7.50847222222e-07,0.0378,7.66567307692e-07,0.0504,7.55401709402e-07,0.063,7.58562678063e-07,0.0756,7.72044159544e-07,0.0882,7.54107905983e-07,0.1008,7.36657763533e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 658
 659 FLY_1_9=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,7.73709401709e-07,-0.0882,8.01447649573e-07,-0.0756,8.03743589744e-07,-0.063,8.06039529915e-07,-0.0504,8.02383725071e-07,-0.0378,7.99366720085e-07,-0.0252,7.963497151e-07,-0.0126,7.83173611111e-07,0.0,7.83164262821e-07,0.0126,7.8315491453e-07,0.0252,7.96311075499e-07,0.0378,7.99306891026e-07,0.0504,8.02302706553e-07,0.063,8.05938568376e-07,0.0756,8.03625801282e-07,0.0882,8.01313034188e-07,0.1008,7.73563568376e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 660
 661 FLY_1_10=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,7.94241987179e-07,-0.0882,8.12259259259e-07,-0.0756,8.30755163818e-07,-0.063,8.15406517094e-07,-0.0504,8.11310719373e-07,-0.0378,8.22974893162e-07,-0.0252,8.05774038462e-07,-0.0126,7.97172364672e-07,0.0,8.02846153846e-07,0.0126,7.97151175214e-07,0.0252,8.05731659544e-07,0.0378,8.22912571225e-07,0.0504,8.11228454416e-07,0.063,8.15303062678e-07,0.0756,8.30630519943e-07,0.0882,8.12118411681e-07,0.1008,7.94087428775e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 662
 663 FLY_1_11=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,8.16478454416e-07,-0.0882,8.35106481481e-07,-0.0756,8.54878739316e-07,-0.063,8.39690883191e-07,-0.0504,8.35029202279e-07,-0.0378,8.46510149573e-07,-0.0252,8.29739316239e-07,-0.0126,8.2549269943e-07,0.0,8.36379095442e-07,0.0126,8.2547275641e-07,0.0252,8.29693198006e-07,0.0378,8.46444088319e-07,0.0504,8.34939458689e-07,0.063,8.39579950142e-07,0.0756,8.54747863248e-07,0.0882,8.34956908832e-07,0.1008,8.16316417379e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 664
 665 FLY_1_12=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,8.3948272792e-07,-0.0882,8.70025462963e-07,-0.0756,8.76085648148e-07,-0.063,8.82145833333e-07,-0.0504,8.75892450142e-07,-0.0378,8.71288728632e-07,-0.0252,8.66685007123e-07,-0.0126,8.63216168091e-07,0.0,8.63204326923e-07,0.0126,8.63192485755e-07,0.0252,8.6663764245e-07,0.0378,8.71217058405e-07,0.0504,8.75796474359e-07,0.063,8.82026175214e-07,0.0756,8.75946670228e-07,0.0882,8.69867165242e-07,0.1008,8.39311965812e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 666
 667 FLY_1_13=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,8.55083155271e-07,-0.0882,8.75466168091e-07,-0.0756,9.09445334758e-07,-0.063,9.12926638177e-07,-0.0504,8.965372151e-07,-0.0378,8.9547275641e-07,-0.0252,8.74056445869e-07,-0.0126,8.7004789886e-07,0.0,8.82265491453e-07,0.0126,8.70025462963e-07,0.0252,8.7400534188e-07,0.0378,8.95396723647e-07,0.0504,8.96433760684e-07,0.063,9.12798254986e-07,0.0756,9.09295762108e-07,0.0882,8.75302884615e-07,0.1008,8.5490491453e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 668
 669 FLY_1_14=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,8.57982371795e-07,-0.0882,8.68808938746e-07,-0.0756,9.02997507123e-07,-0.063,9.09486467236e-07,-0.0504,9.1597542735e-07,-0.0378,9.05003027066e-07,-0.0252,8.82140847578e-07,-0.0126,8.77798254986e-07,0.0,8.89937321937e-07,0.0126,8.77772079772e-07,0.0252,8.8208974359e-07,0.0378,9.04923254986e-07,0.0504,9.15865740741e-07,0.063,9.09354344729e-07,0.0756,9.02842948718e-07,0.0882,8.68640669516e-07,0.1008,8.57796652422e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 670
 671 FLY_1_15=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,8.57735576923e-07,-0.0882,8.61808938746e-07,-0.0756,8.78628383191e-07,-0.063,8.99240740741e-07,-0.0504,9.08724893162e-07,-0.0378,9.01745459402e-07,-0.0252,8.94766025641e-07,-0.0126,8.91223646724e-07,0.0,8.91209935897e-07,0.0126,8.91196225071e-07,0.0252,8.94711182336e-07,0.0378,9.01661324786e-07,0.0504,9.08611467236e-07,0.063,8.99103632479e-07,0.0756,8.78472578348e-07,0.0882,8.61636930199e-07,0.1008,8.57543625356e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 672
 673 FLY_1_16=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,8.59039351852e-07,-0.0882,8.56900462963e-07,-0.0756,8.58310185185e-07,-0.063,8.61673076923e-07,-0.0504,8.71253205128e-07,-0.0378,8.85635861823e-07,-0.0252,8.7089298433e-07,-0.0126,8.68428774929e-07,0.0,8.79421118234e-07,0.0126,8.68401353276e-07,0.0252,8.70838141026e-07,0.0378,8.8554985755e-07,0.0504,8.71139779202e-07,0.063,8.61538461538e-07,0.0756,8.58153133903e-07,0.0882,8.567247151e-07,0.1008,8.58841168091e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 674
 675 FLY_1_17=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(-0.1008,8.63886752137e-07,-0.0882,8.55637820513e-07,-0.0756,8.50870192308e-07,-0.063,8.47559650997e-07,-0.0504,8.47616987179e-07,-0.0378,8.51336360399e-07,-0.0252,8.48440883191e-07,-0.0126,8.46336894587e-07,0.0,8.46446581197e-07,0.0126,8.46309472934e-07,0.0252,8.48384793447e-07,0.0378,8.51251602564e-07,0.0504,8.47504807692e-07,0.063,8.47423789174e-07,0.0756,8.50710648148e-07,0.0882,8.55455840456e-07,0.1008,8.63681089744e-07) NOM_PARA:'Y' PROL_GAUCHE:'CONSTANT' );
 676
 677 FLUXRD1=DEFI_NAPPE(PROL_DROIT:'CONSTANT'
 678                    PARA:
 679                    (-0.1008,-0.0882,-0.0756,
 680                           -0.063,-0.0504,-0.0378,-0.0252,-0.0126,
 681                           0.0,0.0126,0.0252,0.0378,0.0504,0.063,
 682                           0.0756,0.0882,0.1008),
 683                    NOM_PARA:'Z'
 684                    PROL_GAUCHE:'CONSTANT'
 685                    FONCTION:
 686                    (<fonction(4202040c,
 687                               '?&?&?&?&                ')>,
 688                               <fonction(4202070c,
 689                               '?&?&?&?&                ')>,
 690                               <fonction(42020a0c,
 691                               '?&?&?&?&                ')>,
 692                               <fonction(42020d0c,
 693                               '?&?&?&?&                ')>,
 694                               <fonction(42020fcc,
 695                               '?&?&?&?&                ')>,
 696                               <fonction(4202932c,
 697                               '?&?&?&?&                ')>,
 698                               <fonction(4202962c,
 699                               '?&?&?&?&                ')>,
 700                               <fonction(4202992c,
 701                               '?&?&?&?&                ')>,
 702                               <fonction(42029c2c,
 703                               '?&?&?&?&                ')>,
 704                               <fonction(42029f2c,
 705                               '?&?&?&?&                ')>,
 706                               <fonction(4203224c,
 707                               '?&?&?&?&                ')>,
 708                               <fonction(4203254c,
 709                               '?&?&?&?&                ')>,
 710                               <fonction(4203284c,
 711                               '?&?&?&?&                ')>,
 712                               <fonction(42032b4c,
 713                               '?&?&?&?&                ')>,
 714                               <fonction(42032e4c,
 715                               '?&?&?&?&                ')>,
 716                               <fonction(4203916c,
 717                               '?&?&?&?&                ')>,
 718                               <fonction(4203946c,
 719                               '?&?&?&?&                ')>),);
 720 %
 721 % DEFINITION DES MATERIAUX ET AFFECTATIONS
 722 %
 723 %           **** DEFINITION DES MATERIAUX SANS FLUX NEUTRONIQUE ****
 724 %
 725 %
 726 % FAMILLE ASSEMBLAGE : NUMERO_FAM
 727 %
 728 % EMBOUT SUPERIEUR
 729 %
 730
 731
 732 E_ES=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 733
 734 NU_ES=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 735
 736 AL_ES=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 737
 738 MT_ES=DEFI_MATERIAU(ELAS_FO:(E:<fonction(42039b8c,
 739                                  '?&?&?&?&                ')>,,
 740                              RHO:7800.0
 741                              ALPHA:
 742
 743                                      <fonction(420401ac,
 744                                      '?&?&?&?&                ')>,,
 745                              NU:
 746
 747                                   <fonction(42039e8c,
 748                                   '?&?&?&?&                ')>,,));
 749 % EMBOUT INFERIEUR
 750 %
 751
 752
 753 E_EI=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 754
 755 NU_EI=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 756
 757 AL_EI=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 758
 759 MT_EI=DEFI_MATERIAU(ELAS_FO:(E:<fonction(4204086c,
 760                                  '?&?&?&?&                ')>,,
 761                              RHO:12.0
 762                              ALPHA:
 763
 764                                      <fonction(42040e6c,
 765                                      '?&?&?&?&                ')>,,
 766                              NU:
 767
 768                                   <fonction(42040b6c,
 769                                   '?&?&?&?&                ')>,,));
 770
 771 MT_RIG=DEFI_MATERIAU(ELAS:(E:1.0
 772                            RHO:0.0
 773                            ALPHA:0.0
 774                            NU:0.0));
 775 % FONCTION COUPLE EN FONCTION DE DRZ POUR LA LIAISON GRILLE/CRAYON
 776 %
 777
 778
 779 FOTRAC=DEFI_FONCTION(PROL_DROIT:'LINEAIRE' VALE:(1.0,1.0,0.0,0.0,0.0,0.0,0.0,0.0) NOM_PARA:'DRZ' PROL_GAUCHE:'LINEAIRE' );
 780
 781 MT_RE1=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 782                                   RIGI_N_FO:
 783
 784                                               <fonction(4200ab4c,
 785                                               '?&?&?&?&                ')>,,
 786                                   COULOMB:1.0
 787                                   RELA_MZ:
 788
 789                                             <fonction(420488ac,
 790                                             '?&?&?&?&                ')>,,)
 791                      ELAS:(E:1.0
 792                            RHO:0.0
 793                            ALPHA:0.0
 794                            NU:0.0));
 795
 796 MT_RE2=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 797                                   RIGI_N_FO:
 798
 799                                               <fonction(4200aeac,
 800                                               '?&?&?&?&                ')>,,
 801                                   COULOMB:1.0
 802                                   RELA_MZ:
 803
 804                                             <fonction(420488ac,
 805                                             '?&?&?&?&                ')>,,)
 806                      ELAS:(E:1.0
 807                            RHO:0.0
 808                            ALPHA:0.0
 809                            NU:0.0));
 810
 811 MT_RE3=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 812                                   RIGI_N_FO:
 813
 814                                               <fonction(4201124c,
 815                                               '?&?&?&?&                ')>,,
 816                                   COULOMB:1.0
 817                                   RELA_MZ:
 818
 819                                             <fonction(420488ac,
 820                                             '?&?&?&?&                ')>,,)
 821                      ELAS:(E:1.0
 822                            RHO:0.0
 823                            ALPHA:0.0
 824                            NU:0.0));
 825
 826 MT_RE4=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 827                                   RIGI_N_FO:
 828
 829                                               <fonction(420115cc,
 830                                               '?&?&?&?&                ')>,,
 831                                   COULOMB:1.0
 832                                   RELA_MZ:
 833
 834                                             <fonction(420488ac,
 835                                             '?&?&?&?&                ')>,,)
 836                      ELAS:(E:1.0
 837                            RHO:0.0
 838                            ALPHA:0.0
 839                            NU:0.0));
 840
 841 MT_RE5=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 842                                   RIGI_N_FO:
 843
 844                                               <fonction(4201194c,
 845                                               '?&?&?&?&                ')>,,
 846                                   COULOMB:1.0
 847                                   RELA_MZ:
 848
 849                                             <fonction(420488ac,
 850                                             '?&?&?&?&                ')>,,)
 851                      ELAS:(E:1.0
 852                            RHO:0.0
 853                            ALPHA:0.0
 854                            NU:0.0));
 855
 856 MT_RE6=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 857                                   RIGI_N_FO:
 858
 859                                               <fonction(42011ccc,
 860                                               '?&?&?&?&                ')>,,
 861                                   COULOMB:1.0
 862                                   RELA_MZ:
 863
 864                                             <fonction(420488ac,
 865                                             '?&?&?&?&                ')>,,)
 866                      ELAS:(E:1.0
 867                            RHO:0.0
 868                            ALPHA:0.0
 869                            NU:0.0));
 870
 871 MT_RE7=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 872                                   RIGI_N_FO:
 873
 874                                               <fonction(42011fec,
 875                                               '?&?&?&?&                ')>,,
 876                                   COULOMB:1.0
 877                                   RELA_MZ:
 878
 879                                             <fonction(420488ac,
 880                                             '?&?&?&?&                ')>,,)
 881                      ELAS:(E:1.0
 882                            RHO:0.0
 883                            ALPHA:0.0
 884                            NU:0.0));
 885
 886 MT_RE8=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 887                                   RIGI_N_FO:
 888
 889                                               <fonction(420183ec,
 890                                               '?&?&?&?&                ')>,,
 891                                   COULOMB:1.0
 892                                   RELA_MZ:
 893
 894                                             <fonction(420488ac,
 895                                             '?&?&?&?&                ')>,,)
 896                      ELAS:(E:1.0
 897                            RHO:0.0
 898                            ALPHA:0.0
 899                            NU:0.0));
 900
 901 MT_RE9=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 902                                   RIGI_N_FO:
 903
 904                                               <fonction(4201876c,
 905                                               '?&?&?&?&                ')>,,
 906                                   COULOMB:1.0
 907                                   RELA_MZ:
 908
 909                                             <fonction(420488ac,
 910                                             '?&?&?&?&                ')>,,)
 911                      ELAS:(E:1.0
 912                            RHO:0.0
 913                            ALPHA:0.0
 914                            NU:0.0));
 915
 916 MT_RE10=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
 917                                    RIGI_N_FO:
 918
 919                                                <fonction(42018aec,
 920                                                '?&?&?&?&                ')>,,
 921                                    COULOMB:1.0
 922                                    RELA_MZ:
 923
 924                                              <fonction(420488ac,
 925                                              '?&?&?&?&                ')>,,)
 926                       ELAS:(E:1.0
 927                             RHO:0.0
 928                             ALPHA:0.0
 929                             NU:0.0));
 930 % SYSTEME DE MAINTIEN
 931 %
 932
 933
 934 E_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 935
 936 NU_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 937
 938 AL_MA=DEFI_CONSTANTE(VALE:0.3);
 939
 940 SY_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 941
 942 DS_MA=DEFI_CONSTANTE(VALE:0.3);
 943
 944 NP_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 945
 946 MEY_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 947
 948 MPY_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 949
 950 MEZ_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 951
 952 MPZ_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 953
 954 CAY_MA=DEFI_CONSTANTE(VALE:0.3);
 955
 956 CBY_MA=DEFI_CONSTANTE(VALE:0.3);
 957
 958 CAZ_MA=DEFI_CONSTANTE(VALE:0.3);
 959
 960 CBZ_MA=DEFI_CONSTANTE(VALE:0.3);
 961
 962 MPX_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
 963
 964 MT_MA=DEFI_MATERIAU(ELAS_FO:(E:<fonction(42065acc,
 965                                  '?&?&?&?&                ')>,,
 966                              RHO:7800.0
 967                              ALPHA:
 968
 969                                      <fonction(4206e12c,
 970                                      '?&?&?&?&                ')>,,
 971                              NU:
 972
 973                                   <fonction(42065dcc,
 974                                   '?&?&?&?&                ')>,,)
 975                     ECRO_LINE_FO:(SY:<fonction(4206e28c,
 976                                        '?&?&?&?&                ')>,,
 977                                   D_SIGM_EPSI:
 978
 979                                                 <fonction(4206e58c,
 980                                                 '?&?&?&?&                ')>,,)
 981                     VMIS_POUTRE_FO:(CAZ:<fonction(4207692c,
 982                                           '?&?&?&?&                ')>,,
 983                                     CAY:
 984
 985                                           <fonction(4207662c,
 986                                           '?&?&?&?&                ')>,,
 987                                     MEY:
 988
 989                                           <fonction(4206ea0c,
 990                                           '?&?&?&?&                ')>,,
 991                                     NP:
 992
 993                                          <fonction(4206e70c,
 994                                          '?&?&?&?&                ')>,,
 995                                     CBZ:
 996
 997                                           <fonction(42076aac,
 998                                           '?&?&?&?&                ')>,,
 999                                     CBY:
1000
1001                                           <fonction(420767ac,
1002                                           '?&?&?&?&                ')>,,
1003                                     MPZ:
1004
1005                                           <fonction(4207632c,
1006                                           '?&?&?&?&                ')>,,
1007                                     MPY:
1008
1009                                           <fonction(4206ed0c,
1010                                           '?&?&?&?&                ')>,,
1011                                     MPX:
1012
1013                                           <fonction(42076c2c,
1014                                           '?&?&?&?&                ')>,,
1015                                     MEZ:
1016
1017                                           <fonction(4206efcc,
1018                                           '?&?&?&?&                ')>,,));
1019 %
1020 %           **** DEFINITION DES MATERIAUX AVEC FLUX NEUTRONIQUE ****
1021 %
1022 %
1023 % GRILLE
1024 %
1025
1026
1027 E_GRE=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1028
1029 E_GRM=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1030
1031 NU_GRE=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1032
1033 NU_GRM=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1034
1035 AL_GRE=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1036
1037 AL_GRM=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1038 % TUBE GUIDE
1039 %
1040
1041
1042 E_TU=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1043
1044 NU_TU=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1045
1046 AL_TU=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1047 % CRAYON
1048 %
1049
1050
1051 E_CR=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1052
1053 NU_CR=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1054
1055 AL_CR=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1056 % GRANDISSEMENT DES GRILLES
1057 % GRILLES EXTREMES 1 ET 10
1058 %
1059
1060
1061 MT_GRE1=DEFI_MATERIAU(LEMAITRE:(UN_SUR_K:0.0
1062                                 QSR_K:1.0
1063                                 UN_SUR_M:0.0
1064                                 N:0.0)
1065                       ELAS_FO:(E:<fonction(4207ca6c,
1066                                    '?&?&?&?&                ')>,,
1067                                RHO:7800.0
1068                                ALPHA:
1069
1070                                        <fonction(4208468c,
1071                                        '?&?&?&?&                ')>,,
1072                                NU:
1073
1074                                     <fonction(4207cf4c,
1075                                     '?&?&?&?&                ')>,,)
1076                       GRAN_IRRA:(A:0.0
1077                                  FLUX_L:
1078
1079                                           <fonction(4202020c,
1080                                           '?&?&?&?&                ')>,,
1081                                  FONC_MULT:
1082
1083                                              <fonction(42018e8c,
1084                                              '?&?&?&?&                ')>,,
1085                                  S:1.0
1086                                  FLUX_TN:
1087
1088                                            <fonction(420397cc,
1089                                            '?&?&?&?&                ')>,,));
1090 % GRILLES DE MELANGE
1091 %
1092
1093
1094 MT_GRM1=DEFI_MATERIAU(LEMAITRE:(UN_SUR_K:0.0
1095                                 QSR_K:2.0
1096                                 UN_SUR_M:0.0
1097                                 N:0.0)
1098                       ELAS_FO:(E:<fonction(4207cd6c,
1099                                    '?&?&?&?&                ')>,,
1100                                RHO:7800.0
1101                                ALPHA:
1102
1103                                        <fonction(4208498c,
1104                                        '?&?&?&?&                ')>,,
1105                                NU:
1106
1107                                     <fonction(4208438c,
1108                                     '?&?&?&?&                ')>,,)
1109                       GRAN_IRRA:(A:0.0
1110                                  FLUX_L:
1111
1112                                           <fonction(4202020c,
1113                                           '?&?&?&?&                ')>,,
1114                                  FONC_MULT:
1115
1116                                              <fonction(42018e8c,
1117                                              '?&?&?&?&                ')>,,
1118                                  S:1.0
1119                                  FLUX_TN:
1120
1121                                            <fonction(420397cc,
1122                                            '?&?&?&?&                ')>,,));
1123 % DEFINITION DES MATERIAUX VISCOPLASTIQUES ( TUBES ET CRAYONS )
1124 %
1125
1126
1127 MT_TU1=DEFI_MATERIAU(LEMAITRE:(UN_SUR_K:0.0
1128                                QSR_K:2.0
1129                                UN_SUR_M:0.0
1130                                N:0.0)
1131                      ELAS_FO:(E:<fonction(42084cac,
1132                                   '?&?&?&?&                ')>,,
1133                               RHO:7800.0
1134                               ALPHA:
1135
1136                                       <fonction(4208c2cc,
1137                                       '?&?&?&?&                ')>,,
1138                               NU:
1139
1140                                    <fonction(42084fac,
1141                                    '?&?&?&?&                ')>,,)
1142                      GRAN_IRRA:(A:0.0
1143                                 FLUX_L:
1144
1145                                          <fonction(4202020c,
1146                                          '?&?&?&?&                ')>,,
1147                                 FONC_MULT:
1148
1149                                             <fonction(42018e8c,
1150                                             '?&?&?&?&                ')>,,
1151                                 S:1.0
1152                                 FLUX_TN:
1153
1154                                           <fonction(420397cc,
1155                                           '?&?&?&?&                ')>,,));
1156
1157 MT_CR1=DEFI_MATERIAU(LEMAITRE:(UN_SUR_K:0.0
1158                                QSR_K:2.0
1159                                UN_SUR_M:0.0
1160                                N:0.0)
1161                      ELAS_FO:(E:<fonction(4208c5ec,
1162                                   '?&?&?&?&                ')>,,
1163                               RHO:7800.0
1164                               ALPHA:
1165
1166                                       <fonction(4208cbec,
1167                                       '?&?&?&?&                ')>,,
1168                               NU:
1169
1170                                    <fonction(4208c8ec,
1171                                    '?&?&?&?&                ')>,,)
1172                      GRAN_IRRA:(A:0.0
1173                                 FLUX_L:
1174
1175                                          <fonction(4202020c,
1176                                          '?&?&?&?&                ')>,,
1177                                 FONC_MULT:
1178
1179                                             <fonction(42018e8c,
1180                                             '?&?&?&?&                ')>,,
1181                                 S:1.0
1182                                 FLUX_TN:
1183
1184                                           <fonction(420397cc,
1185                                           '?&?&?&?&                ')>,,));
1186 %
1187 %           AFFECTATION DES MATERIAUX A CHAUD - CYCLE
1188 %
1189 %
1190 %
1191
1192
1193 A_MAT_1=AFFE_MATERIAU(MAILLAGE:
1194                         <cataSTA5.cata.maillage object at 0x420d3e6c>
1195                       AFFE:(GROUP_MA:('MAINTI_Y','MAINTI_Z')
1196                             TEMP_REF:100.0
1197                             MATER:
1198                            <cataSTA5.cata.mater object at 0x42076f8c> )
1199                       AFFE:(GROUP_MA:'GRIL_I'
1200                             TEMP_REF:100.0
1201                             MATER:
1202                            <cataSTA5.cata.mater object at 0x4209392c> )
1203                       AFFE:(GROUP_MA:'GRIL_E'
1204                             TEMP_REF:100.0
1205                             MATER:
1206                            <cataSTA5.cata.mater object at 0x4208cf6c> )
1207                       AFFE:(GROUP_MA:'CRAY'
1208                             TEMP_REF:100.0
1209                             MATER:
1210                            <cataSTA5.cata.mater object at 0x4209ac6c> )
1211                       AFFE:(GROUP_MA:'GUID'
1212                             TEMP_REF:100.0
1213                             MATER:
1214                            <cataSTA5.cata.mater object at 0x4209a2ec> )
1215                       AFFE:(GROUP_MA:'EBOINF'
1216                             TEMP_REF:100.0
1217                             MATER:
1218                            <cataSTA5.cata.mater object at 0x420481ac> )
1219                       AFFE:(GROUP_MA:('PI_PLE','PI_TRO')
1220                             TEMP_REF:100.0
1221                             MATER:
1222                            <cataSTA5.cata.mater object at 0x420481ac> )
1223                       AFFE:(GROUP_MA:'EBOSUP'
1224                             TEMP_REF:100.0
1225                             MATER:
1226                            <cataSTA5.cata.mater object at 0x4204050c> )
1227                       AFFE:(GROUP_MA:'RIGID'
1228                             TEMP_REF:100.0
1229                             MATER:
1230                            <cataSTA5.cata.mater object at 0x4204852c> )
1231                       AFFE:(GROUP_MA:'ELA1'
1232                             TEMP_REF:100.0
1233                             MATER:
1234                            <cataSTA5.cata.mater object at 0x42048bec> )
1235                       AFFE:(GROUP_MA:'ELA2'
1236                             TEMP_REF:100.0
1237                             MATER:
1238                            <cataSTA5.cata.mater object at 0x4204f24c> )
1239                       AFFE:(GROUP_MA:'ELA3'
1240                             TEMP_REF:100.0
1241                             MATER:
1242                            <cataSTA5.cata.mater object at 0x4204f88c> )
1243                       AFFE:(GROUP_MA:'ELA4'
1244                             TEMP_REF:100.0
1245                             MATER:
1246                            <cataSTA5.cata.mater object at 0x4204fecc> )
1247                       AFFE:(GROUP_MA:'ELA5'
1248                             TEMP_REF:100.0
1249                             MATER:
1250                            <cataSTA5.cata.mater object at 0x4205652c> )
1251                       AFFE:(GROUP_MA:'ELA6'
1252                             TEMP_REF:100.0
1253                             MATER:
1254                            <cataSTA5.cata.mater object at 0x42056b6c> )
1255                       AFFE:(GROUP_MA:'ELA7'
1256                             TEMP_REF:100.0
1257                             MATER:
1258                            <cataSTA5.cata.mater object at 0x4205e1cc> )
1259                       AFFE:(GROUP_MA:'ELA8'
1260                             TEMP_REF:100.0
1261                             MATER:
1262                            <cataSTA5.cata.mater object at 0x4205e80c> )
1263                       AFFE:(GROUP_MA:'ELA9'
1264                             TEMP_REF:100.0
1265                             MATER:
1266                            <cataSTA5.cata.mater object at 0x4205ee4c> )
1267                       AFFE:(GROUP_MA:'ELA10'
1268                             TEMP_REF:100.0
1269                             MATER:
1270                            <cataSTA5.cata.mater object at 0x420654ac> ));
1271 %
1272 %
1273
1274
1275 L_INST_1=DEFI_LIST_REEL(DEBUT:0.0
1276                         INTERVALLE:(NOMBRE:1
1277                                     JUSQU_A:0.5)
1278                         INTERVALLE:(NOMBRE:1
1279                                     JUSQU_A:1000.0)
1280                         INTERVALLE:(NOMBRE:1
1281                                     JUSQU_A:2000.0)
1282                         INTERVALLE:(NOMBRE:5
1283                                     JUSQU_A:3000.0)
1284                         INTERVALLE:(NOMBRE:1
1285                                     JUSQU_A:4000.0)
1286                         INTERVALLE:(NOMBRE:1
1287                                     JUSQU_A:5000.0)
1288                         INTERVALLE:(NOMBRE:1
1289                                     JUSQU_A:6000.0)
1290                         INTERVALLE:(NOMBRE:1
1291                                     JUSQU_A:7000.0)
1292                         INTERVALLE:(NOMBRE:1
1293                                     JUSQU_A:8000.0));
1294
1295 L_ARCH_1=DEFI_LIST_REEL(DEBUT:0.0
1296                         INTERVALLE:(NOMBRE:1
1297                                     JUSQU_A:0.5)
1298                         INTERVALLE:(NOMBRE:1
1299                                     JUSQU_A:1000.0)
1300                         INTERVALLE:(NOMBRE:1
1301                                     JUSQU_A:2000.0)
1302                         INTERVALLE:(NOMBRE:5
1303                                     JUSQU_A:3000.0)
1304                         INTERVALLE:(NOMBRE:1
1305                                     JUSQU_A:4000.0)
1306                         INTERVALLE:(NOMBRE:1
1307                                     JUSQU_A:5000.0)
1308                         INTERVALLE:(NOMBRE:1
1309                                     JUSQU_A:6000.0)
1310                         INTERVALLE:(NOMBRE:1
1311                                     JUSQU_A:7000.0)
1312                         INTERVALLE:(NOMBRE:1
1313                                     JUSQU_A:8000.0));
1314 %
1315 % CALCUL PHASE I A V DU CYCLE 1
1316 %
1317 %
1318
1319
1320 RESU=STAT_NON_LINE(PARM_THETA:0.5
1321                    CARA_ELEM:
1322                        <cataSTA5.cata.cara_elem object at 0x41f6c98c>
1323                    MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
1324                    CHAM_MATER:
1325                       <cataSTA5.cata.cham_mater object at 0x420a486c>
1326                    EXCIT:(CHARGE:
1327                        <cataSTA5.cata.char_meca object at 0x41ff412c>
1328                           FONC_MULT:
1329
1330                                       <fonction(41fe9c4c,
1331                                       '?&?&?&?&                ')>,,)
1332                    EXCIT:(CHARGE:
1333                        <cataSTA5.cata.char_meca object at 0x41ffc52c>
1334                           FONC_MULT:
1335
1336                                       <fonction(41fe9c4c,
1337                                       '?&?&?&?&                ')>,,)
1338                    EXCIT:(CHARGE:
1339                        <cataSTA5.cata.char_meca object at 0x41fc4bac>
1340                           FONC_MULT:
1341
1342                                       <fonction(41fc40cc,
1343                                       '?&?&?&?&                ')>,,)
1344                    EXCIT:(CHARGE:
1345                        <cataSTA5.cata.char_meca object at 0x41fe91cc>
1346                           FONC_MULT:
1347
1348                                       <fonction(41fc40cc,
1349                                       '?&?&?&?&                ')>,,)
1350                    EXCIT:(CHARGE:
1351                        <cataSTA5.cata.char_meca object at 0x41fbbdac>
1352                           FONC_MULT:
1353
1354                                       <fonction(41fbba8c,
1355                                       '?&?&?&?&                ')>,,)
1356                    EXCIT:(CHARGE:
1357                        <cataSTA5.cata.char_meca object at 0x41fab66c> )
1358                    EXCIT:(CHARGE:
1359                        <cataSTA5.cata.char_meca object at 0x41fbb60c> )
1360                    EXCIT:(CHARGE:
1361                        <cataSTA5.cata.char_meca object at 0x41fab36c> )
1362                    EXCIT:(CHARGE:
1363                        <cataSTA5.cata.char_meca object at 0x41fab1ac> )
1364                    SOLVEUR:(METHODE:'MULT_FRONT'
1365                             RENUM:'MD')
1366                    NEWTON:(MATRICE:'TANGENTE'
1367                            REAC_ITER:1)
1368                    RECH_LINEAIRE:(ITER_LINE_MAXI:3)
1369                    INCREMENT:(LIST_INST:
1370                           <cataSTA5.cata.listr8 object at 0x420b3eec>
1371                               NUME_INST_FIN:20)
1372                    COMP_INCR:(GROUP_MA:'MAINTIEN'
1373                               RELATION:'VMIS_POU_LINE')
1374                    COMP_INCR:(GROUP_MA:('CRAYONS','TUB_GUID')
1375                               RELATION:'ASSE_COMBU')
1376                    COMP_INCR:(GROUP_MA:'LI_GR_CR'
1377                               RELATION:'DIS_CONTACT')
1378                    COMP_INCR:(GROUP_MA:('EMBO_INF','EMBO_SUP','PIEDS',
1379                                          'GRILLES','LI_GR_GU'),
1380                               RELATION:'ELAS'
1381                               COQUE_NCOU:1)
1382                    CONVERGENCE:(ARRET:'OUI'
1383                                 RESI_GLOB_RELA:0.0001
1384                                 ITER_INTE_MAXI:500
1385                                 ITER_GLOB_MAXI:50)
1386                    ARCHIVAGE:(LIST_INST:
1387                           <cataSTA5.cata.listr8 object at 0x420bce0c> ));
1388
1389 FIN();