4 % LECTURE DES PARAMETRES
8 % LECTURE DU MAILLAGE ET DEFINITIONS DES PROPRIETES ELEMENTS FINIS
22 &MA1=DEFI_GROUP(MAILLAGE:<cataSTA5.cata.maillage object at 0x420d3e6c>
23 CREA_GROUP_NO:(GROUP_MA:('FIXATI','APPUI','LIAS_1',
32 % AFFECTATION DU MODELE
37 MO1=AFFE_MODELE(MAILLAGE:<cataSTA5.cata.maillage object at 0x420d3e6c>
38 AFFE:(GROUP_MA:'CRAYONS'
40 MODELISATION:'POU_D_E')
41 AFFE:(GROUP_MA:'TUB_GUID'
43 MODELISATION:'POU_D_E')
44 AFFE:(GROUP_MA:('EMBO_SUP','EMBO_INF')
47 AFFE:(GROUP_MA:'PIEDS'
49 MODELISATION:'POU_D_E')
50 AFFE:(GROUP_MA:'GRILLES'
52 MODELISATION:'POU_D_E')
53 AFFE:(GROUP_MA:'LI_GR_CR'
55 MODELISATION:'DIS_TR')
56 AFFE:(GROUP_MA:'LI_GR_GU'
58 MODELISATION:'DIS_TR')
59 AFFE:(GROUP_MA:'MAINTIEN'
61 MODELISATION:'POU_D_E'));
63 % AFFECTATION DES CARACTERISTIQUES GEOMETRIQUES ELEMENTAIRES
68 CARA1=AFFE_CARA_ELEM(MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
69 POUTRE:(GROUP_MA:'CRAY'
73 POUTRE:(GROUP_MA:'GUID'
77 POUTRE:(GROUP_MA:'RETRE'
81 POUTRE:(GROUP_MA:('GRIL_I')
85 POUTRE:(GROUP_MA:('GRIL_E')
89 POUTRE:(GROUP_MA:('MAINTI_Y','MAINTI_Z')
93 POUTRE:(GROUP_MA:'PI_PLE'
95 CARA:('A','IZ','IY','JX')
96 VALE:(1.0,2.0,3.0,4.0))
97 POUTRE:(GROUP_MA:'PI_TRO'
99 CARA:('A','IZ','IY','JX')
100 VALE:(1.0,2.0,3.0,4.0))
101 ORIENTATION:(GROUP_MA:('GRIL_I','GRIL_E')
104 ORIENTATION:(GROUP_MA:('MAINTI_Y')
107 ORIENTATION:(GROUP_MA:('MAINTI_Z')
110 ORIENTATION:(GROUP_MA:('PI_PLE','PI_TRO')
113 ORIENTATION:(GROUP_MA:('ELASTI','RIGID')
116 DISCRET:(GROUP_MA:'ELASTI'
118 VALE:(1.0,2.0,3.0,4.0,5.0,6.0)
120 DISCRET:(GROUP_MA:'RIGID'
122 VALE:(1.0,2.0,3.0,4.0,5.0,6.0)
131 % DEFINITION DES CHARGES ET CONDITIONS LIMITES
132 % DEFINITION DES TEMPERATURES NODALES EVOLUTIVES
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' );
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' );
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' );
143 CHTEM1_1=AFFE_CHAM_NO(MAILLAGE:
144 <cataSTA5.cata.maillage object at 0x420d3e6c>
150 'TUB_GUID','GRILLES',
156 AFFE:(NOM_CMP:('TEMP_INF','TEMP','TEMP_SUP')
157 GROUP_NO:('EMBO_SUP','EMBO_INF')
167 CHTEM2_1=AFFE_CHAM_NO(MAILLAGE:
168 <cataSTA5.cata.maillage object at 0x420d3e6c>
174 'TUB_GUID','GRILLES',
180 AFFE:(NOM_CMP:('TEMP_INF','TEMP','TEMP_SUP')
181 GROUP_NO:('EMBO_SUP','EMBO_INF')
191 CHTEM3_1=AFFE_CHAM_NO(MAILLAGE:
192 <cataSTA5.cata.maillage object at 0x420d3e6c>
198 'TUB_GUID','GRILLES'),
203 AFFE:(NOM_CMP:('TEMP_INF','TEMP','TEMP_SUP')
204 GROUP_NO:('EMBO_SUP','EMBO_INF')
220 CHTH_1=CREA_RESU(TYPE_RESU:'EVOL_THER'
223 <cataSTA5.cata.cham_no_temp_f object at 0x41f84f2c>
226 <cataSTA5.cata.cham_no_temp_f object at 0x41f84f2c>
229 <cataSTA5.cata.cham_no_temp_f object at 0x41f9c52c>
232 <cataSTA5.cata.cham_no_temp_f object at 0x41f9cb4c>
235 <cataSTA5.cata.cham_no_temp_f object at 0x41f9cb4c>
238 <cataSTA5.cata.cham_no_temp_f object at 0x41f9c52c>
241 <cataSTA5.cata.cham_no_temp_f object at 0x41f84f2c>
244 <cataSTA5.cata.cham_no_temp_f object at 0x41f84f2c>
246 % CHARGEMENT: CHARGES THERMO-MECANIQUES
247 % ----------------------------------------
251 THERM_1=AFFE_CHAR_MECA(TEMP_CALCULEE:
252 <cataSTA5.cata.evol_ther object at 0x41fa344c>
254 <cataSTA5.cata.modele object at 0x41f6838c> );
255 % DEFINITION DES CONDITIONS LIMITES
256 % DES CONDITIONS DE CONTACT
258 % CHARGEMENT: PESANTEUR
263 PESANT_1=AFFE_CHAR_MECA(PESANTEUR:(9.81,-1.0,0.0,0.0)
265 <cataSTA5.cata.modele object at 0x41f6838c> );
267 % CONDITIONS AUX LIMITES
272 CL_PER_1=AFFE_CHAR_MECA(MODELE:
273 <cataSTA5.cata.modele object at 0x41f6838c>
281 DDL_IMPO:(GROUP_NO:'APPUI'
290 GROUP_NO:('LIAS_1','LIAS_2'))
291 LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
298 LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
305 LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
312 LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
319 LIAISON_GROUP:(GROUP_NO_1:'LIAS_1'
330 CL_CTC=AFFE_CHAR_MECA(MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
332 CONTACT:(APPARIEMENT:'NODAL'
333 VECT_NORM_2:(-1.0,0.0,0.0)
335 GROUP_MA_2:'MCRBAS'));
337 % DEPLACEMENT DU SYSTEME DE MAINTIEN
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' );
344 CL_DI_1=AFFE_CHAR_MECA(MODELE:
345 <cataSTA5.cata.modele object at 0x41f6838c>
346 DDL_IMPO:(GROUP_NO:'MAIN_SUP'
348 % DEFINITION DES FORCES EXTERIEURES
350 % FONCTION MULTIPLICATIVE DE LA FORCE HYDRODYNAMIQUE NORMEE
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' );
357 % PROFIL DES FORCES HYDRODYNAMIQUES TUBES GUIDES A FROID
362 HYFRTU_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
364 % PROFIL DES FORCES HYDRODYNAMIQUES CRAYON A FROID
369 HYFRCR_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
371 % CHARGEMENT : FORCES HYDRODYNAMIQUES
376 HYDR_1=AFFE_CHAR_MECA(MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
381 FORCE_POUTRE:(GROUP_MA:('GRIL10')
383 FORCE_POUTRE:(GROUP_MA:('GRIL1')
385 FORCE_POUTRE:(GROUP_MA:('GRIL2')
387 FORCE_POUTRE:(GROUP_MA:('GRIL3')
389 FORCE_POUTRE:(GROUP_MA:('GRIL4')
391 FORCE_POUTRE:(GROUP_MA:('GRIL5')
393 FORCE_POUTRE:(GROUP_MA:('GRIL6')
395 FORCE_POUTRE:(GROUP_MA:('GRIL7')
397 FORCE_POUTRE:(GROUP_MA:('GRIL8')
399 FORCE_POUTRE:(GROUP_MA:('GRIL9')
402 TOTO_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,10.0,5.0,10.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
407 FOHYDR_1=AFFE_CHAR_MECA_F(MODELE:
408 <cataSTA5.cata.modele object at 0x41f6838c>
409 FORCE_POUTRE:(GROUP_MA:('GUID')
414 FORCE_POUTRE:(GROUP_MA:'CRAY'
420 % PROFIL DES FORCES D'ARCHIMEDE TUBE GUIDE
425 ARFRTU_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,10.0,5.0,10.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
427 % PROFIL DES FORCES D'ARCHIMEDE CRAYON
432 ARFRCR_1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,10.0,5.0,10.0) NOM_PARA:'X' PROL_GAUCHE:'CONSTANT' );
434 % FONCTION MULTIPLICATIVE DE LA FORCE D'ARCHIMEDE
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' );
442 % CHARGEMENT : FORCES D'ARCHIMEDE
443 % ----------------------------------------
448 ARCH_1=AFFE_CHAR_MECA(MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
453 FORCE_POUTRE:(GROUP_MA:'MAINTIEN'
455 FORCE_POUTRE:(GROUP_MA:('GRIL10')
457 FORCE_POUTRE:(GROUP_MA:('GRIL1')
459 FORCE_POUTRE:(GROUP_MA:('GRIL2')
461 FORCE_POUTRE:(GROUP_MA:('GRIL3')
463 FORCE_POUTRE:(GROUP_MA:('GRIL4')
465 FORCE_POUTRE:(GROUP_MA:('GRIL5')
467 FORCE_POUTRE:(GROUP_MA:('GRIL6')
469 FORCE_POUTRE:(GROUP_MA:('GRIL7')
471 FORCE_POUTRE:(GROUP_MA:('GRIL8')
473 FORCE_POUTRE:(GROUP_MA:('GRIL9')
476 FOARCH_1=AFFE_CHAR_MECA_F(MODELE:
477 <cataSTA5.cata.modele object at 0x41f6838c>
478 FORCE_POUTRE:(GROUP_MA:'GUID'
483 FORCE_POUTRE:(GROUP_MA:'CRAY'
490 % FORCE DE SERRAGE DE LA LIAISON GRILLE - CRAYON
496 % DEFINITION DE LA LISTE D'INSTANTS
501 L_FRIG=DEFI_LIST_REEL(DEBUT:0.0
502 INTERVALLE:(NOMBRE:100
505 % INRTERPRETATION DES FONCTIONS
510 F1=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
512 F2=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
514 F3=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
516 F4=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
518 F5=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
520 F6=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
522 F7=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
524 F8=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
526 F9=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
528 F10=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,0.0,43200.0,0.0) NOM_PARA:'INST' PROL_GAUCHE:'CONSTANT' );
530 FRIG1=CALC_FONC_INTERP(LIST_PARA:
531 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
532 PROL_DROIT:'CONSTANT'
533 PROL_GAUCHE:'CONSTANT'
540 FRIG2=CALC_FONC_INTERP(LIST_PARA:
541 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
542 PROL_DROIT:'CONSTANT'
543 PROL_GAUCHE:'CONSTANT'
550 FRIG3=CALC_FONC_INTERP(LIST_PARA:
551 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
552 PROL_DROIT:'CONSTANT'
553 PROL_GAUCHE:'CONSTANT'
560 FRIG4=CALC_FONC_INTERP(LIST_PARA:
561 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
562 PROL_DROIT:'CONSTANT'
563 PROL_GAUCHE:'CONSTANT'
570 FRIG5=CALC_FONC_INTERP(LIST_PARA:
571 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
572 PROL_DROIT:'CONSTANT'
573 PROL_GAUCHE:'CONSTANT'
580 FRIG6=CALC_FONC_INTERP(LIST_PARA:
581 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
582 PROL_DROIT:'CONSTANT'
583 PROL_GAUCHE:'CONSTANT'
590 FRIG7=CALC_FONC_INTERP(LIST_PARA:
591 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
592 PROL_DROIT:'CONSTANT'
593 PROL_GAUCHE:'CONSTANT'
600 FRIG8=CALC_FONC_INTERP(LIST_PARA:
601 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
602 PROL_DROIT:'CONSTANT'
603 PROL_GAUCHE:'CONSTANT'
610 FRIG9=CALC_FONC_INTERP(LIST_PARA:
611 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
612 PROL_DROIT:'CONSTANT'
613 PROL_GAUCHE:'CONSTANT'
620 FRIG10=CALC_FONC_INTERP(LIST_PARA:
621 <cataSTA5.cata.listr8 object at 0x41ffc9ec>
622 PROL_DROIT:'CONSTANT'
623 PROL_GAUCHE:'CONSTANT'
630 % DEFINITION DU FLUX NEUTRONIQUE RADIAL
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
639 FLUXAX1=LIRE_FONCTION(PROL_DROIT:'CONSTANT'
641 PROL_GAUCHE:'CONSTANT');
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
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' );
677 FLUXRD1=DEFI_NAPPE(PROL_DROIT:'CONSTANT'
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),
684 PROL_GAUCHE:'CONSTANT'
721 % DEFINITION DES MATERIAUX ET AFFECTATIONS
723 % **** DEFINITION DES MATERIAUX SANS FLUX NEUTRONIQUE ****
726 % FAMILLE ASSEMBLAGE : NUMERO_FAM
732 E_ES=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
734 NU_ES=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
736 AL_ES=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
738 MT_ES=DEFI_MATERIAU(ELAS_FO:(E:<fonction(42039b8c,
753 E_EI=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
755 NU_EI=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
757 AL_EI=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(100.0,2.0,300.0,3.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
759 MT_EI=DEFI_MATERIAU(ELAS_FO:(E:<fonction(4204086c,
771 MT_RIG=DEFI_MATERIAU(ELAS:(E:1.0
775 % FONCTION COUPLE EN FONCTION DE DRZ POUR LA LIAISON GRILLE/CRAYON
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' );
781 MT_RE1=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
796 MT_RE2=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
811 MT_RE3=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
826 MT_RE4=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
841 MT_RE5=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
856 MT_RE6=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
871 MT_RE7=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
886 MT_RE8=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
901 MT_RE9=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
916 MT_RE10=DEFI_MATERIAU(DIS_CONTACT:(EFFO_N_INIT:-35.0
930 % SYSTEME DE MAINTIEN
934 E_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
936 NU_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
938 AL_MA=DEFI_CONSTANTE(VALE:0.3);
940 SY_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
942 DS_MA=DEFI_CONSTANTE(VALE:0.3);
944 NP_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
946 MEY_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
948 MPY_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
950 MEZ_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
952 MPZ_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
954 CAY_MA=DEFI_CONSTANTE(VALE:0.3);
956 CBY_MA=DEFI_CONSTANTE(VALE:0.3);
958 CAZ_MA=DEFI_CONSTANTE(VALE:0.3);
960 CBZ_MA=DEFI_CONSTANTE(VALE:0.3);
962 MPX_MA=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
964 MT_MA=DEFI_MATERIAU(ELAS_FO:(E:<fonction(42065acc,
975 ECRO_LINE_FO:(SY:<fonction(4206e28c,
981 VMIS_POUTRE_FO:(CAZ:<fonction(4207692c,
1020 % **** DEFINITION DES MATERIAUX AVEC FLUX NEUTRONIQUE ****
1027 E_GRE=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1029 E_GRM=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1031 NU_GRE=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1033 NU_GRM=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1035 AL_GRE=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1037 AL_GRM=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1042 E_TU=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1044 NU_TU=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1046 AL_TU=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1051 E_CR=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
1053 NU_CR=DEFI_FONCTION(PROL_DROIT:'CONSTANT' VALE:(0.0,1.0,5.0,2.0) NOM_PARA:'TEMP' PROL_GAUCHE:'CONSTANT' );
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
1061 MT_GRE1=DEFI_MATERIAU(LEMAITRE:(UN_SUR_K:0.0
1065 ELAS_FO:(E:<fonction(4207ca6c,
1090 % GRILLES DE MELANGE
1094 MT_GRM1=DEFI_MATERIAU(LEMAITRE:(UN_SUR_K:0.0
1098 ELAS_FO:(E:<fonction(4207cd6c,
1123 % DEFINITION DES MATERIAUX VISCOPLASTIQUES ( TUBES ET CRAYONS )
1127 MT_TU1=DEFI_MATERIAU(LEMAITRE:(UN_SUR_K:0.0
1131 ELAS_FO:(E:<fonction(42084cac,
1157 MT_CR1=DEFI_MATERIAU(LEMAITRE:(UN_SUR_K:0.0
1161 ELAS_FO:(E:<fonction(4208c5ec,
1187 % AFFECTATION DES MATERIAUX A CHAUD - CYCLE
1193 A_MAT_1=AFFE_MATERIAU(MAILLAGE:
1194 <cataSTA5.cata.maillage object at 0x420d3e6c>
1195 AFFE:(GROUP_MA:('MAINTI_Y','MAINTI_Z')
1198 <cataSTA5.cata.mater object at 0x42076f8c> )
1199 AFFE:(GROUP_MA:'GRIL_I'
1202 <cataSTA5.cata.mater object at 0x4209392c> )
1203 AFFE:(GROUP_MA:'GRIL_E'
1206 <cataSTA5.cata.mater object at 0x4208cf6c> )
1207 AFFE:(GROUP_MA:'CRAY'
1210 <cataSTA5.cata.mater object at 0x4209ac6c> )
1211 AFFE:(GROUP_MA:'GUID'
1214 <cataSTA5.cata.mater object at 0x4209a2ec> )
1215 AFFE:(GROUP_MA:'EBOINF'
1218 <cataSTA5.cata.mater object at 0x420481ac> )
1219 AFFE:(GROUP_MA:('PI_PLE','PI_TRO')
1222 <cataSTA5.cata.mater object at 0x420481ac> )
1223 AFFE:(GROUP_MA:'EBOSUP'
1226 <cataSTA5.cata.mater object at 0x4204050c> )
1227 AFFE:(GROUP_MA:'RIGID'
1230 <cataSTA5.cata.mater object at 0x4204852c> )
1231 AFFE:(GROUP_MA:'ELA1'
1234 <cataSTA5.cata.mater object at 0x42048bec> )
1235 AFFE:(GROUP_MA:'ELA2'
1238 <cataSTA5.cata.mater object at 0x4204f24c> )
1239 AFFE:(GROUP_MA:'ELA3'
1242 <cataSTA5.cata.mater object at 0x4204f88c> )
1243 AFFE:(GROUP_MA:'ELA4'
1246 <cataSTA5.cata.mater object at 0x4204fecc> )
1247 AFFE:(GROUP_MA:'ELA5'
1250 <cataSTA5.cata.mater object at 0x4205652c> )
1251 AFFE:(GROUP_MA:'ELA6'
1254 <cataSTA5.cata.mater object at 0x42056b6c> )
1255 AFFE:(GROUP_MA:'ELA7'
1258 <cataSTA5.cata.mater object at 0x4205e1cc> )
1259 AFFE:(GROUP_MA:'ELA8'
1262 <cataSTA5.cata.mater object at 0x4205e80c> )
1263 AFFE:(GROUP_MA:'ELA9'
1266 <cataSTA5.cata.mater object at 0x4205ee4c> )
1267 AFFE:(GROUP_MA:'ELA10'
1270 <cataSTA5.cata.mater object at 0x420654ac> ));
1275 L_INST_1=DEFI_LIST_REEL(DEBUT:0.0
1276 INTERVALLE:(NOMBRE:1
1278 INTERVALLE:(NOMBRE:1
1280 INTERVALLE:(NOMBRE:1
1282 INTERVALLE:(NOMBRE:5
1284 INTERVALLE:(NOMBRE:1
1286 INTERVALLE:(NOMBRE:1
1288 INTERVALLE:(NOMBRE:1
1290 INTERVALLE:(NOMBRE:1
1292 INTERVALLE:(NOMBRE:1
1295 L_ARCH_1=DEFI_LIST_REEL(DEBUT:0.0
1296 INTERVALLE:(NOMBRE:1
1298 INTERVALLE:(NOMBRE:1
1300 INTERVALLE:(NOMBRE:1
1302 INTERVALLE:(NOMBRE:5
1304 INTERVALLE:(NOMBRE:1
1306 INTERVALLE:(NOMBRE:1
1308 INTERVALLE:(NOMBRE:1
1310 INTERVALLE:(NOMBRE:1
1312 INTERVALLE:(NOMBRE:1
1315 % CALCUL PHASE I A V DU CYCLE 1
1320 RESU=STAT_NON_LINE(PARM_THETA:0.5
1322 <cataSTA5.cata.cara_elem object at 0x41f6c98c>
1323 MODELE:<cataSTA5.cata.modele object at 0x41f6838c>
1325 <cataSTA5.cata.cham_mater object at 0x420a486c>
1327 <cataSTA5.cata.char_meca object at 0x41ff412c>
1333 <cataSTA5.cata.char_meca object at 0x41ffc52c>
1339 <cataSTA5.cata.char_meca object at 0x41fc4bac>
1345 <cataSTA5.cata.char_meca object at 0x41fe91cc>
1351 <cataSTA5.cata.char_meca object at 0x41fbbdac>
1357 <cataSTA5.cata.char_meca object at 0x41fab66c> )
1359 <cataSTA5.cata.char_meca object at 0x41fbb60c> )
1361 <cataSTA5.cata.char_meca object at 0x41fab36c> )
1363 <cataSTA5.cata.char_meca object at 0x41fab1ac> )
1364 SOLVEUR:(METHODE:'MULT_FRONT'
1366 NEWTON:(MATRICE:'TANGENTE'
1368 RECH_LINEAIRE:(ITER_LINE_MAXI:3)
1369 INCREMENT:(LIST_INST:
1370 <cataSTA5.cata.listr8 object at 0x420b3eec>
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'),
1382 CONVERGENCE:(ARRET:'OUI'
1383 RESI_GLOB_RELA:0.0001
1386 ARCHIVAGE:(LIST_INST:
1387 <cataSTA5.cata.listr8 object at 0x420bce0c> ));