2 % LECTURE DES PARAMETRES
8 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13 % LECTURE DU MAILLAGE ET DEFINITIONS DES PROPRIETES ELEMENTS FINIS
17 ma1 = LIRE_MAILLAGE ();
19 &ma1 = DEFI_GROUP ( MAILLAGE : ma1
20 CREA_GROUP_NO : (GROUP_MA : ( fixati
35 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 % AFFECTATION DU MODELE
37 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 mo1 = AFFE_MODELE ( Maillage: ma1
40 % crayons combustibles
41 AFFE : ( GROUP_MA : crayons
42 PHENOMENE : 'MECANIQUE'
43 MODELISATION : 'POU_D_E'
46 AFFE : ( GROUP_MA : tub_guid
47 PHENOMENE : 'MECANIQUE'
48 MODELISATION : 'POU_D_E'
51 AFFE : ( GROUP_MA : (embo_sup, embo_inf)
52 PHENOMENE : 'MECANIQUE'
57 AFFE : ( GROUP_MA : pieds
58 PHENOMENE : 'MECANIQUE'
59 MODELISATION : 'POU_D_E'
63 AFFE : ( GROUP_MA : grilles
64 PHENOMENE : 'MECANIQUE'
65 MODELISATION : 'POU_D_E'
67 % liaison grille crayon
68 AFFE : ( GROUP_MA : li_gr_cr
69 PHENOMENE : 'MECANIQUE'
70 MODELISATION : 'DIS_TR'
73 AFFE : ( GROUP_MA : li_gr_gu
74 PHENOMENE : 'MECANIQUE'
75 MODELISATION : 'DIS_TR'
78 AFFE : ( GROUP_MA : maintien
79 PHENOMENE:'MECANIQUE',
80 MODELISATION:'POU_D_E'
81 % MODELISATION:'POU_D_T'
85 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
86 % AFFECTATION DES CARACTERISTIQUES GEOMETRIQUES ELEMENTAIRES
87 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89 cara1 = AFFE_CARA_ELEM ( MODELE : mo1
91 % Famille assemblage : numero_fam
94 POUTRE : ( GROUP_MA : cray
99 % tube guide partie courante
100 POUTRE : ( GROUP_MA : guid
105 % tube guide partie retrecie
106 POUTRE : ( GROUP_MA : retre
112 POUTRE : ( GROUP_MA : ( gril_i )
113 SECTION : 'RECTANGLE'
117 POUTRE : ( GROUP_MA : ( gril_e )
118 SECTION : 'RECTANGLE'
122 ORIENTATION : ( GROUP_MA : (gril_i , gril_e )
126 % systeme de maintien
127 POUTRE : ( GROUP_MA : (mainti_y , mainti_z )
128 SECTION : 'RECTANGLE'
132 ORIENTATION : ( GROUP_MA : (mainti_y )
136 ORIENTATION : ( GROUP_MA : (mainti_z )
141 COQUE : ( GROUP_MA : eboinf
146 POUTRE : ( GROUP_MA : pi_ple
148 CARA : ( 'A' , 'IZ' , 'IY' , 'JX' )
151 POUTRE : ( GROUP_MA : pi_tro
153 CARA : ( 'A' , 'IZ' , 'IY' , 'JX' )
154 VALE : (1. 2. 3. 4. )
156 ORIENTATION : ( GROUP_MA : (pi_ple pi_tro )
162 COQUE : ( GROUP_MA : ebosup
167 % liaison grille/crayon
168 DISCRET : ( GROUP_MA : elasti
179 % liaison grille/tube guide
180 DISCRET : ( GROUP_MA : rigid
192 ORIENTATION : ( GROUP_MA : (elasti
199 % DEFINITION DES CHARGES ET CONDITIONS LIMITES
200 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 % DEFINITION DES TEMPERATURES NODALES EVOLUTIVES
202 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 f_tp1_1 = DEFI_FONCTION ( NOM_PARA: 'X'
206 PROL_DROIT: 'CONSTANT'
207 PROL_GAUCHE: 'CONSTANT'
211 f_tp2_1 = DEFI_FONCTION ( NOM_PARA: 'X'
213 PROL_DROIT: 'CONSTANT'
214 PROL_GAUCHE: 'CONSTANT'
218 f_tp3_1 = DEFI_FONCTION ( NOM_PARA: 'X'
220 PROL_DROIT: 'CONSTANT'
221 PROL_GAUCHE: 'CONSTANT'
226 chtem1_1 = AFFE_CHAM_NO ( MAILLAGE : ma1
228 AFFE : ( GROUP_NO: (maintien, pieds
233 AFFE : ( GROUP_NO: (embo_sup, embo_inf)
234 NOM_CMP : ('TEMP_INF' 'TEMP'
236 FONCTION :(f_tp1_1,f_tp1_1,f_tp1_1))
239 chtem2_1 = AFFE_CHAM_NO ( MAILLAGE : ma1
241 AFFE : ( GROUP_NO: (maintien, pieds
246 AFFE : ( GROUP_NO: (embo_sup, embo_inf)
247 NOM_CMP : ('TEMP_INF' 'TEMP'
249 FONCTION :(f_tp2_1,f_tp2_1,f_tp2_1))
252 chtem3_1 = AFFE_CHAM_NO ( MAILLAGE : ma1
254 AFFE : ( GROUP_NO: (maintien, pieds
258 AFFE : ( GROUP_NO: (embo_sup, embo_inf)
259 NOM_CMP : ('TEMP_INF' 'TEMP'
261 FONCTION : (f_tp3_1,f_tp3_1,f_tp3_1))
262 AFFE : ( GROUP_NO: crayons
267 chth_1 = CREA_RESU ( TYPE_RESU : 'EVOL_THER'
269 CHAM_GD : ( CHAM_NO : chtem1_1
271 CHAM_GD : ( CHAM_NO : chtem1_1
273 CHAM_GD : ( CHAM_NO : chtem2_1
275 CHAM_GD : ( CHAM_NO : chtem3_1
277 CHAM_GD : ( CHAM_NO : chtem3_1
279 CHAM_GD : ( CHAM_NO : chtem2_1
281 CHAM_GD : ( CHAM_NO : chtem1_1
283 CHAM_GD : ( CHAM_NO : chtem1_1
287 % Chargement: charges thermo-mecaniques
288 % ----------------------------------------
290 therm_1 = AFFE_CHAR_MECA ( MODELE: mo1
291 TEMP_CALCULEE : chth_1
296 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297 % DEFINITION DES CONDITIONS LIMITES
298 % DES CONDITIONS DE CONTACT
299 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301 % Chargement: pesanteur
303 pesant_1 = AFFE_CHAR_MECA ( MODELE : mo1
304 PESANTEUR : (9.81 -1. 0. 0. )
308 % Conditions aux limites
310 cl_per_1 = AFFE_CHAR_MECA ( MODELE : mo1
311 % embout inferieur encastrement
312 DDL_IMPO : ( GROUP_NO : fixati
313 DX : 0. DY:0. DZ : 0.
314 DRX : 0. DRY : 0. DRZ : 0.
316 % embout inferieur appui simple
317 DDL_IMPO : ( GROUP_NO : appui
320 % embout superieur liaison guidee
321 DDL_IMPO : ( GROUP_NO : ebguide
323 DRX : 0. DRY : 0. DRZ : 0.
325 % liaison systeme de maintien embout superieur
326 DDL_IMPO : ( GROUP_NO : (lias_1, lias_2)
329 % liaison systeme de maintien embout superieur
330 LIAISON_GROUP : ( GROUP_NO_1 : lias_1
332 DDL_1 : 'DX' DDL_2 : 'DX'
336 LIAISON_GROUP : ( GROUP_NO_1 : lias_1
338 DDL_1 : 'DY' DDL_2 : 'DY'
342 LIAISON_GROUP : ( GROUP_NO_1 : lias_1
344 DDL_1 : 'DZ' DDL_2 : 'DZ'
348 LIAISON_GROUP : ( GROUP_NO_1 : lias_1
350 DDL_1 : 'DRY' DDL_2 : 'DRY'
354 LIAISON_GROUP : ( GROUP_NO_1 : lias_1
356 DDL_1 : 'DRZ' DDL_2 : 'DRZ'
362 cl_ctc = AFFE_CHAR_MECA ( MODELE : mo1
365 CONTACT : ( APPARIEMENT : 'NODAL'
368 VECT_NORM_2 : (-1. 0. 0.)
373 % Deplacement du systeme de maintien
375 cldi_f1 = DEFI_FONCTION ( NOM_PARA : 'INST'
376 PROL_DROIT : 'CONSTANT'
377 PROL_GAUCHE: 'CONSTANT'
388 cl_di_1 = AFFE_CHAR_MECA ( MODELE : mo1
389 % deplacement du systeme de maintien
390 DDL_IMPO : ( GROUP_NO : main_sup
395 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396 % DEFINITION DES FORCES EXTERIEURES
397 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 % Fonction multiplicative de la force hydrodynamique normee
401 hydr_f1 = DEFI_FONCTION ( NOM_PARA : 'INST'
402 PROL_DROIT : 'CONSTANT'
403 PROL_GAUCHE : 'CONSTANT'
414 % Profil des forces hydrodynamiques tubes guides a froid
418 hyfrtu_1 = DEFI_FONCTION (
422 PROL_DROIT : 'CONSTANT'
423 PROL_GAUCHE : 'CONSTANT'
426 % Profil des forces hydrodynamiques crayon a froid
430 hyfrcr_1 = DEFI_FONCTION (
434 PROL_DROIT : 'CONSTANT'
435 PROL_GAUCHE : 'CONSTANT'
439 %% Chargement : Forces hydrodynamiques
441 hydr_1 = AFFE_CHAR_MECA ( MODELE : mo1
444 FORCE_COQUE : ( GROUP_MA : ebosup
447 FORCE_COQUE : ( GROUP_MA : eboinf
450 FORCE_POUTRE : ( GROUP_MA : (gril10 )
453 FORCE_POUTRE : ( GROUP_MA : (gril1 )
456 FORCE_POUTRE : ( GROUP_MA : (gril2 )
458 FORCE_POUTRE : ( GROUP_MA : (gril3 )
460 FORCE_POUTRE : ( GROUP_MA : (gril4 )
462 FORCE_POUTRE : ( GROUP_MA : (gril5 )
464 FORCE_POUTRE : ( GROUP_MA : (gril6 )
466 FORCE_POUTRE : ( GROUP_MA : (gril7 )
468 FORCE_POUTRE : ( GROUP_MA : (gril8 )
470 FORCE_POUTRE : ( GROUP_MA : (gril9 )
473 toto_1 = DEFI_FONCTION (
477 PROL_DROIT : 'CONSTANT'
478 PROL_GAUCHE : 'CONSTANT'
481 fohydr_1 = AFFE_CHAR_MECA_F ( MODELE : mo1
483 % tubes guides et tube d'instrumentation
484 FORCE_POUTRE : ( GROUP_MA : (guid )
487 FORCE_POUTRE : ( GROUP_MA : cray
491 % Profil des forces d'Archimede tube guide
495 arfrtu_1 = DEFI_FONCTION (
499 PROL_DROIT : 'CONSTANT'
500 PROL_GAUCHE : 'CONSTANT'
503 % Profil des forces d'Archimede crayon
507 arfrcr_1 = DEFI_FONCTION (
511 PROL_DROIT : 'CONSTANT'
512 PROL_GAUCHE : 'CONSTANT'
515 % Fonction multiplicative de la force d'Archimede
517 arch_f1 = DEFI_FONCTION ( NOM_PARA : 'INST'
518 PROL_DROIT : 'CONSTANT'
519 PROL_GAUCHE : 'CONSTANT'
532 % Chargement : Forces d'Archimede
533 % ----------------------------------------
535 arch_1 = AFFE_CHAR_MECA ( MODELE : mo1
536 % systeme de maintien
537 FORCE_POUTRE : ( GROUP_MA : maintien
540 FORCE_COQUE : ( GROUP_MA : ebosup
543 FORCE_COQUE : ( GROUP_MA : eboinf
546 FORCE_POUTRE : ( GROUP_MA : (gril10 )
549 FORCE_POUTRE : ( GROUP_MA : (gril1 )
552 FORCE_POUTRE : ( GROUP_MA : (gril2 )
554 FORCE_POUTRE : ( GROUP_MA : (gril3 )
556 FORCE_POUTRE : ( GROUP_MA : (gril4 )
558 FORCE_POUTRE : ( GROUP_MA : (gril5 )
560 FORCE_POUTRE : ( GROUP_MA : (gril6 )
562 FORCE_POUTRE : ( GROUP_MA : (gril7 )
564 FORCE_POUTRE : ( GROUP_MA : (gril8 )
566 FORCE_POUTRE : ( GROUP_MA : (gril9 )
569 foarch_1 = AFFE_CHAR_MECA_F ( MODELE : mo1
571 % tubes guides et tube d'instrumentation
572 FORCE_POUTRE : ( GROUP_MA : guid
575 FORCE_POUTRE : ( GROUP_MA : cray
579 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 % FORCE DE SERRAGE DE LA LIAISON GRILLE - CRAYON
583 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589 % definition de la liste d'instants
591 l_frig = DEFI_LIST_REEL( Debut: 0.0
592 Intervalle : (Jusqu_a: 1000. Nombre: 100)
595 % Inrterpretation des fonctions
597 f1=DEFI_FONCTION ( NOM_PARA : 'INST'
598 PROL_DROIT : 'CONSTANT'
599 PROL_GAUCHE : 'CONSTANT'
601 0.00000E+00 0.00000E+00
602 4.32000E+04 0.00000E+00 ) );
603 f2=DEFI_FONCTION ( NOM_PARA : 'INST'
604 PROL_DROIT : 'CONSTANT'
605 PROL_GAUCHE : 'CONSTANT'
607 0.00000E+00 0.00000E+00
608 4.32000E+04 0.00000E+00 ) );
609 f3=DEFI_FONCTION ( NOM_PARA : 'INST'
610 PROL_DROIT : 'CONSTANT'
611 PROL_GAUCHE : 'CONSTANT'
613 0.00000E+00 0.00000E+00
614 4.32000E+04 0.00000E+00 ) );
615 f4=DEFI_FONCTION ( NOM_PARA : 'INST'
616 PROL_DROIT : 'CONSTANT'
617 PROL_GAUCHE : 'CONSTANT'
619 0.00000E+00 0.00000E+00
620 4.32000E+04 0.00000E+00 ) );
621 f5=DEFI_FONCTION ( NOM_PARA : 'INST'
622 PROL_DROIT : 'CONSTANT'
623 PROL_GAUCHE : 'CONSTANT'
625 0.00000E+00 0.00000E+00
626 4.32000E+04 0.00000E+00 ) );
627 f6=DEFI_FONCTION ( NOM_PARA : 'INST'
628 PROL_DROIT : 'CONSTANT'
629 PROL_GAUCHE : 'CONSTANT'
631 0.00000E+00 0.00000E+00
632 4.32000E+04 0.00000E+00 ) );
633 f7=DEFI_FONCTION ( NOM_PARA : 'INST'
634 PROL_DROIT : 'CONSTANT'
635 PROL_GAUCHE : 'CONSTANT'
637 0.00000E+00 0.00000E+00
638 4.32000E+04 0.00000E+00 ) );
639 f8=DEFI_FONCTION ( NOM_PARA : 'INST'
640 PROL_DROIT : 'CONSTANT'
641 PROL_GAUCHE : 'CONSTANT'
643 0.00000E+00 0.00000E+00
644 4.32000E+04 0.00000E+00 ) );
645 f9=DEFI_FONCTION ( NOM_PARA : 'INST'
646 PROL_DROIT : 'CONSTANT'
647 PROL_GAUCHE : 'CONSTANT'
649 0.00000E+00 0.00000E+00
650 4.32000E+04 0.00000E+00 ) );
651 f10=DEFI_FONCTION ( NOM_PARA : 'INST'
652 PROL_DROIT : 'CONSTANT'
653 PROL_GAUCHE : 'CONSTANT'
655 0.00000E+00 0.00000E+00
656 4.32000E+04 0.00000E+00 ) );
658 frig1 = CALC_FONC_INTERP ( FONCTION : f1
660 PROL_DROIT : 'CONSTANT'
661 PROL_GAUCHE : 'CONSTANT'
664 frig2 = CALC_FONC_INTERP ( FONCTION : f2
666 PROL_DROIT : 'CONSTANT'
667 PROL_GAUCHE : 'CONSTANT'
670 frig3 = CALC_FONC_INTERP ( FONCTION : f3
672 PROL_DROIT : 'CONSTANT'
673 PROL_GAUCHE : 'CONSTANT'
676 frig4 = CALC_FONC_INTERP ( FONCTION : f4
678 PROL_DROIT : 'CONSTANT'
679 PROL_GAUCHE : 'CONSTANT'
682 frig5 = CALC_FONC_INTERP ( FONCTION : f5
684 PROL_DROIT : 'CONSTANT'
685 PROL_GAUCHE : 'CONSTANT'
688 frig6 = CALC_FONC_INTERP ( FONCTION : f6
690 PROL_DROIT : 'CONSTANT'
691 PROL_GAUCHE : 'CONSTANT'
694 frig7 = CALC_FONC_INTERP ( FONCTION : f7
696 PROL_DROIT : 'CONSTANT'
697 PROL_GAUCHE : 'CONSTANT'
700 frig8 = CALC_FONC_INTERP ( FONCTION : f8
702 PROL_DROIT : 'CONSTANT'
703 PROL_GAUCHE : 'CONSTANT'
706 frig9 = CALC_FONC_INTERP ( FONCTION : f9
708 PROL_DROIT : 'CONSTANT'
709 PROL_GAUCHE : 'CONSTANT'
712 frig10= CALC_FONC_INTERP ( FONCTION : f10
714 PROL_DROIT : 'CONSTANT'
715 PROL_GAUCHE : 'CONSTANT'
719 % DEFINITION DU FLUX NEUTRONIQUE RADIAL
721 flux_f1=DEFI_FONCTION ( NOM_PARA : 'INST'
722 PROL_DROIT : 'CONSTANT'
723 PROL_GAUCHE : 'CONSTANT'
725 0.00000E+00 0.00000E+00
726 4.32000E+04 0.00000E+00
727 9.74520E+05 4.53280E+05
728 2.63880E+06 2.07785E+06
729 4.08780E+06 3.51279E+06
730 5.42844E+06 4.85677E+06
731 7.24500E+06 6.67627E+06
732 8.85348E+06 8.27977E+06
733 1.04609E+07 9.87261E+06
734 1.22029E+07 1.15869E+07
735 1.39446E+07 1.32952E+07
736 1.41437E+07 1.34902E+07
737 1.55632E+07 1.48753E+07
738 1.72361E+07 1.65069E+07
739 1.79482E+07 1.71992E+07
740 1.81901E+07 1.74334E+07
741 1.81937E+07 1.74352E+07
742 1.81973E+07 1.74352E+07
743 1.82009E+07 1.74352E+07
746 % Definition du flux axial pour le cycle 1
748 fluxax1 = LIRE_FONCTION ( UNITE : 60
749 PROL_GAUCHE : 'CONSTANT'
750 PROL_DROIT : 'CONSTANT'
753 fly_1_1 = DEFI_FONCTION (
755 PROL_DROIT :'CONSTANT'
756 PROL_GAUCHE :'CONSTANT'
758 -1.0080000000000D-01 3.8032834757835D-07
759 -8.8200000000000D-02 3.8083689458689D-07
760 -7.5600000000000D-02 3.8296082621083D-07
761 -6.3000000000000D-02 3.8584009971510D-07
762 -5.0400000000000D-02 3.8946100427350D-07
763 -3.7800000000000D-02 3.9259455128205D-07
764 -2.5200000000000D-02 3.9258457977208D-07
765 -1.2600000000000D-02 3.9294106125356D-07
766 0. 3.9399554843305D-07
767 1.2600000000000D-02 3.9293233618234D-07
768 2.5200000000000D-02 3.9256712962963D-07
769 3.7800000000000D-02 3.9256712962963D-07
770 5.0400000000000D-02 3.8942610398860D-07
771 6.3000000000000D-02 3.8579522792023D-07
772 7.5600000000000D-02 3.8290972222222D-07
773 8.8200000000000D-02 3.8077706552707D-07
774 1.0080000000000D-01 3.8026103988604D-07
777 fly_1_2 = DEFI_FONCTION (
779 PROL_DROIT :'CONSTANT'
780 PROL_GAUCHE :'CONSTANT'
782 -1.0080000000000D-01 4.3595566239316D-07
783 -8.8200000000000D-02 4.3866542022792D-07
784 -7.5600000000000D-02 4.4331463675214D-07
785 -6.3000000000000D-02 4.4911556267806D-07
786 -5.0400000000000D-02 4.5750658831909D-07
787 -3.7800000000000D-02 4.6647222222222D-07
788 -2.5200000000000D-02 4.6002938034188D-07
789 -1.2600000000000D-02 4.6004309116809D-07
790 0. 4.6686235754986D-07
791 1.2600000000000D-02 4.6003311965812D-07
792 2.5200000000000D-02 4.6000943732194D-07
793 3.7800000000000D-02 4.6643981481481D-07
794 5.0400000000000D-02 4.5746420940171D-07
795 6.3000000000000D-02 4.4906445868946D-07
796 7.5600000000000D-02 4.4325356125356D-07
797 8.8200000000000D-02 4.3859686609687D-07
798 1.0080000000000D-01 4.3587838319088D-07
801 fly_1_3 = DEFI_FONCTION (
803 PROL_DROIT :'CONSTANT'
804 PROL_GAUCHE :'CONSTANT'
806 -1.0080000000000D-01 4.9431891025641D-07
807 -8.8200000000000D-02 5.0005128205128D-07
808 -7.5600000000000D-02 5.1337197293447D-07
809 -6.3000000000000D-02 5.2915313390313D-07
810 -5.0400000000000D-02 5.3788069800570D-07
811 -3.7800000000000D-02 5.3504629629630D-07
812 -2.5200000000000D-02 5.3221189458689D-07
813 -1.2600000000000D-02 5.3136431623932D-07
814 0. 5.3135870726496D-07
815 1.2600000000000D-02 5.3135309829060D-07
816 2.5200000000000D-02 5.3218696581197D-07
817 3.7800000000000D-02 5.3500827991453D-07
818 5.0400000000000D-02 5.3782959401709D-07
819 6.3000000000000D-02 5.2909205840456D-07
820 7.5600000000000D-02 5.1330217236467D-07
821 8.8200000000000D-02 4.9997150997151D-07
822 1.0080000000000D-01 4.9423165954416D-07
825 fly_1_4 = DEFI_FONCTION (
827 PROL_DROIT :'CONSTANT'
828 PROL_GAUCHE :'CONSTANT'
830 -1.0080000000000D-01 5.5489957264957D-07
831 -8.8200000000000D-02 5.6477884615385D-07
832 -7.5600000000000D-02 5.9007781339031D-07
833 -6.3000000000000D-02 5.9726415598291D-07
834 -5.0400000000000D-02 6.0445049857550D-07
835 -3.7800000000000D-02 5.9840776353276D-07
836 -2.5200000000000D-02 5.8440651709402D-07
837 -1.2600000000000D-02 5.8263906695157D-07
838 0. 5.9153240740741D-07
839 1.2600000000000D-02 5.8262660256410D-07
840 2.5200000000000D-02 5.8438034188034D-07
841 3.7800000000000D-02 5.9836663105413D-07
842 5.0400000000000D-02 6.0439316239316D-07
843 6.3000000000000D-02 5.9719497863248D-07
844 7.5600000000000D-02 5.8999679487179D-07
845 8.8200000000000D-02 5.6469159544160D-07
846 1.0080000000000D-01 5.5480110398860D-07
849 fly_1_5 = DEFI_FONCTION (
851 PROL_DROIT :'CONSTANT'
852 PROL_GAUCHE :'CONSTANT'
854 -1.0080000000000D-01 6.1267200854701D-07
855 -8.8200000000000D-02 6.2962357549858D-07
856 -7.5600000000000D-02 6.5655413105413D-07
857 -6.3000000000000D-02 6.6164583333333D-07
858 -5.0400000000000D-02 6.5190242165242D-07
859 -3.7800000000000D-02 6.5212678062678D-07
860 -2.5200000000000D-02 6.3746616809117D-07
861 -1.2600000000000D-02 6.3547435897436D-07
862 0. 6.4509686609687D-07
863 1.2600000000000D-02 6.3546064814815D-07
864 2.5200000000000D-02 6.3743625356125D-07
865 3.7800000000000D-02 6.5207941595442D-07
866 5.0400000000000D-02 6.5183885327635D-07
867 6.3000000000000D-02 6.6156980056980D-07
868 7.5600000000000D-02 6.5646563390313D-07
869 8.8200000000000D-02 6.2952386039886D-07
870 1.0080000000000D-01 6.1256356837607D-07
873 fly_1_6 = DEFI_FONCTION (
875 PROL_DROIT :'CONSTANT'
876 PROL_GAUCHE :'CONSTANT'
878 -1.0080000000000D-01 6.5755128205128D-07
879 -8.8200000000000D-02 6.8336253561254D-07
880 -7.5600000000000D-02 6.9012072649573D-07
881 -6.3000000000000D-02 6.9687891737892D-07
882 -5.0400000000000D-02 6.9362571225071D-07
883 -3.7800000000000D-02 6.9074768518519D-07
884 -2.5200000000000D-02 6.8786965811966D-07
885 -1.2600000000000D-02 6.8586413817664D-07
886 0. 6.8585603632479D-07
887 1.2600000000000D-02 6.8584793447293D-07
888 2.5200000000000D-02 6.8783600427350D-07
889 3.7800000000000D-02 6.9069720441595D-07
890 5.0400000000000D-02 6.9355840455840D-07
891 6.3000000000000D-02 6.9679789886040D-07
892 7.5600000000000D-02 6.9002412749288D-07
893 8.8200000000000D-02 6.8325035612536D-07
894 1.0080000000000D-01 6.5743162393162D-07
897 fly_1_7 = DEFI_FONCTION (
899 PROL_DROIT :'CONSTANT'
900 PROL_GAUCHE :'CONSTANT'
902 -1.0080000000000D-01 6.9684526353276D-07
903 -8.8200000000000D-02 7.1406606125356D-07
904 -7.5600000000000D-02 7.3236502849003D-07
905 -6.3000000000000D-02 7.2076442307692D-07
906 -5.0400000000000D-02 7.1793500712251D-07
907 -3.7800000000000D-02 7.2835648148148D-07
908 -2.5200000000000D-02 7.1444747150997D-07
909 -1.2600000000000D-02 7.1130893874644D-07
910 0. 7.2107727920228D-07
911 1.2600000000000D-02 7.1129398148148D-07
912 2.5200000000000D-02 7.1441257122507D-07
913 3.7800000000000D-02 7.2830288461538D-07
914 5.0400000000000D-02 7.1786396011396D-07
915 6.3000000000000D-02 7.2067841880342D-07
916 7.5600000000000D-02 7.3226157407407D-07
917 8.8200000000000D-02 7.1395138888889D-07
918 1.0080000000000D-01 6.9671812678063D-07
921 fly_1_8 = DEFI_FONCTION (
923 PROL_DROIT :'CONSTANT'
924 PROL_GAUCHE :'CONSTANT'
926 -1.0080000000000D-01 7.3679362535613D-07
927 -8.8200000000000D-02 7.5423130341880D-07
928 -7.5600000000000D-02 7.7215633903134D-07
929 -6.3000000000000D-02 7.5865740740741D-07
930 -5.0400000000000D-02 7.5547774216524D-07
931 -3.7800000000000D-02 7.6662464387464D-07
932 -2.5200000000000D-02 7.5088461538462D-07
933 -1.2600000000000D-02 7.4313924501424D-07
934 0. 7.4863230056980D-07
935 1.2600000000000D-02 7.4312054843305D-07
936 2.5200000000000D-02 7.5084722222222D-07
937 3.7800000000000D-02 7.6656730769231D-07
938 5.0400000000000D-02 7.5540170940171D-07
939 6.3000000000000D-02 7.5856267806268D-07
940 7.5600000000000D-02 7.7204415954416D-07
941 8.8200000000000D-02 7.5410790598291D-07
942 1.0080000000000D-01 7.3665776353276D-07
945 fly_1_9 = DEFI_FONCTION (
947 PROL_DROIT :'CONSTANT'
948 PROL_GAUCHE :'CONSTANT'
950 -1.0080000000000D-01 7.7370940170940D-07
951 -8.8200000000000D-02 8.0144764957265D-07
952 -7.5600000000000D-02 8.0374358974359D-07
953 -6.3000000000000D-02 8.0603952991453D-07
954 -5.0400000000000D-02 8.0238372507123D-07
955 -3.7800000000000D-02 7.9936672008547D-07
956 -2.5200000000000D-02 7.9634971509972D-07
957 -1.2600000000000D-02 7.8317361111111D-07
958 0. 7.8316426282051D-07
959 1.2600000000000D-02 7.8315491452991D-07
960 2.5200000000000D-02 7.9631107549858D-07
961 3.7800000000000D-02 7.9930689102564D-07
962 5.0400000000000D-02 8.0230270655271D-07
963 6.3000000000000D-02 8.0593856837607D-07
964 7.5600000000000D-02 8.0362580128205D-07
965 8.8200000000000D-02 8.0131303418803D-07
966 1.0080000000000D-01 7.7356356837607D-07
969 fly_1_10 = DEFI_FONCTION (
971 PROL_DROIT :'CONSTANT'
972 PROL_GAUCHE :'CONSTANT'
974 -1.0080000000000D-01 7.9424198717949D-07
975 -8.8200000000000D-02 8.1225925925926D-07
976 -7.5600000000000D-02 8.3075516381766D-07
977 -6.3000000000000D-02 8.1540651709402D-07
978 -5.0400000000000D-02 8.1131071937322D-07
979 -3.7800000000000D-02 8.2297489316239D-07
980 -2.5200000000000D-02 8.0577403846154D-07
981 -1.2600000000000D-02 7.9717236467236D-07
982 0. 8.0284615384615D-07
983 1.2600000000000D-02 7.9715117521368D-07
984 2.5200000000000D-02 8.0573165954416D-07
985 3.7800000000000D-02 8.2291257122507D-07
986 5.0400000000000D-02 8.1122845441595D-07
987 6.3000000000000D-02 8.1530306267806D-07
988 7.5600000000000D-02 8.3063051994302D-07
989 8.8200000000000D-02 8.1211841168091D-07
990 1.0080000000000D-01 7.9408742877493D-07
993 fly_1_11 = DEFI_FONCTION (
995 PROL_DROIT :'CONSTANT'
996 PROL_GAUCHE :'CONSTANT'
998 -1.0080000000000D-01 8.1647845441595D-07
999 -8.8200000000000D-02 8.3510648148148D-07
1000 -7.5600000000000D-02 8.5487873931624D-07
1001 -6.3000000000000D-02 8.3969088319088D-07
1002 -5.0400000000000D-02 8.3502920227920D-07
1003 -3.7800000000000D-02 8.4651014957265D-07
1004 -2.5200000000000D-02 8.2973931623932D-07
1005 -1.2600000000000D-02 8.2549269943020D-07
1006 0. 8.3637909544160D-07
1007 1.2600000000000D-02 8.2547275641026D-07
1008 2.5200000000000D-02 8.2969319800570D-07
1009 3.7800000000000D-02 8.4644408831909D-07
1010 5.0400000000000D-02 8.3493945868946D-07
1011 6.3000000000000D-02 8.3957995014245D-07
1012 7.5600000000000D-02 8.5474786324786D-07
1013 8.8200000000000D-02 8.3495690883191D-07
1014 1.0080000000000D-01 8.1631641737892D-07
1017 fly_1_12 = DEFI_FONCTION (
1019 PROL_DROIT :'CONSTANT'
1020 PROL_GAUCHE :'CONSTANT'
1022 -1.0080000000000D-01 8.3948272792023D-07
1023 -8.8200000000000D-02 8.7002546296296D-07
1024 -7.5600000000000D-02 8.7608564814815D-07
1025 -6.3000000000000D-02 8.8214583333333D-07
1026 -5.0400000000000D-02 8.7589245014245D-07
1027 -3.7800000000000D-02 8.7128872863248D-07
1028 -2.5200000000000D-02 8.6668500712251D-07
1029 -1.2600000000000D-02 8.6321616809117D-07
1030 0. 8.6320432692308D-07
1031 1.2600000000000D-02 8.6319248575499D-07
1032 2.5200000000000D-02 8.6663764245014D-07
1033 3.7800000000000D-02 8.7121705840456D-07
1034 5.0400000000000D-02 8.7579647435897D-07
1035 6.3000000000000D-02 8.8202617521368D-07
1036 7.5600000000000D-02 8.7594667022792D-07
1037 8.8200000000000D-02 8.6986716524217D-07
1038 1.0080000000000D-01 8.3931196581197D-07
1041 fly_1_13 = DEFI_FONCTION (
1043 PROL_DROIT :'CONSTANT'
1044 PROL_GAUCHE :'CONSTANT'
1046 -1.0080000000000D-01 8.5508315527066D-07
1047 -8.8200000000000D-02 8.7546616809117D-07
1048 -7.5600000000000D-02 9.0944533475783D-07
1049 -6.3000000000000D-02 9.1292663817664D-07
1050 -5.0400000000000D-02 8.9653721509972D-07
1051 -3.7800000000000D-02 8.9547275641026D-07
1052 -2.5200000000000D-02 8.7405644586895D-07
1053 -1.2600000000000D-02 8.7004789886040D-07
1054 0. 8.8226549145299D-07
1055 1.2600000000000D-02 8.7002546296296D-07
1056 2.5200000000000D-02 8.7400534188034D-07
1057 3.7800000000000D-02 8.9539672364672D-07
1058 5.0400000000000D-02 8.9643376068376D-07
1059 6.3000000000000D-02 9.1279825498576D-07
1060 7.5600000000000D-02 9.0929576210826D-07
1061 8.8200000000000D-02 8.7530288461538D-07
1062 1.0080000000000D-01 8.5490491452991D-07
1065 fly_1_14 = DEFI_FONCTION (
1067 PROL_DROIT :'CONSTANT'
1068 PROL_GAUCHE :'CONSTANT'
1070 -1.0080000000000D-01 8.5798237179487D-07
1071 -8.8200000000000D-02 8.6880893874644D-07
1072 -7.5600000000000D-02 9.0299750712251D-07
1073 -6.3000000000000D-02 9.0948646723647D-07
1074 -5.0400000000000D-02 9.1597542735043D-07
1075 -3.7800000000000D-02 9.0500302706553D-07
1076 -2.5200000000000D-02 8.8214084757835D-07
1077 -1.2600000000000D-02 8.7779825498575D-07
1078 0. 8.8993732193732D-07
1079 1.2600000000000D-02 8.7777207977208D-07
1080 2.5200000000000D-02 8.8208974358974D-07
1081 3.7800000000000D-02 9.0492325498576D-07
1082 5.0400000000000D-02 9.1586574074074D-07
1083 6.3000000000000D-02 9.0935434472934D-07
1084 7.5600000000000D-02 9.0284294871795D-07
1085 8.8200000000000D-02 8.6864066951567D-07
1086 1.0080000000000D-01 8.5779665242165D-07
1089 fly_1_15 = DEFI_FONCTION (
1091 PROL_DROIT :'CONSTANT'
1092 PROL_GAUCHE :'CONSTANT'
1094 -1.0080000000000D-01 8.5773557692308D-07
1095 -8.8200000000000D-02 8.6180893874644D-07
1096 -7.5600000000000D-02 8.7862838319088D-07
1097 -6.3000000000000D-02 8.9924074074074D-07
1098 -5.0400000000000D-02 9.0872489316239D-07
1099 -3.7800000000000D-02 9.0174545940171D-07
1100 -2.5200000000000D-02 8.9476602564103D-07
1101 -1.2600000000000D-02 8.9122364672365D-07
1102 0. 8.9120993589744D-07
1103 1.2600000000000D-02 8.9119622507123D-07
1104 2.5200000000000D-02 8.9471118233618D-07
1105 3.7800000000000D-02 9.0166132478632D-07
1106 5.0400000000000D-02 9.0861146723647D-07
1107 6.3000000000000D-02 8.9910363247863D-07
1108 7.5600000000000D-02 8.7847257834758D-07
1109 8.8200000000000D-02 8.6163693019943D-07
1110 1.0080000000000D-01 8.5754362535613D-07
1113 fly_1_16 = DEFI_FONCTION (
1115 PROL_DROIT :'CONSTANT'
1116 PROL_GAUCHE :'CONSTANT'
1118 -1.0080000000000D-01 8.5903935185185D-07
1119 -8.8200000000000D-02 8.5690046296296D-07
1120 -7.5600000000000D-02 8.5831018518519D-07
1121 -6.3000000000000D-02 8.6167307692308D-07
1122 -5.0400000000000D-02 8.7125320512821D-07
1123 -3.7800000000000D-02 8.8563586182336D-07
1124 -2.5200000000000D-02 8.7089298433048D-07
1125 -1.2600000000000D-02 8.6842877492877D-07
1126 0. 8.7942111823362D-07
1127 1.2600000000000D-02 8.6840135327635D-07
1128 2.5200000000000D-02 8.7083814102564D-07
1129 3.7800000000000D-02 8.8554985754986D-07
1130 5.0400000000000D-02 8.7113977920228D-07
1131 6.3000000000000D-02 8.6153846153846D-07
1132 7.5600000000000D-02 8.5815313390313D-07
1133 8.8200000000000D-02 8.5672471509972D-07
1134 1.0080000000000D-01 8.5884116809117D-07
1137 fly_1_17 = DEFI_FONCTION (
1139 PROL_DROIT :'CONSTANT'
1140 PROL_GAUCHE :'CONSTANT'
1142 -1.0080000000000D-01 8.6388675213675D-07
1143 -8.8200000000000D-02 8.5563782051282D-07
1144 -7.5600000000000D-02 8.5087019230769D-07
1145 -6.3000000000000D-02 8.4755965099715D-07
1146 -5.0400000000000D-02 8.4761698717949D-07
1147 -3.7800000000000D-02 8.5133636039886D-07
1148 -2.5200000000000D-02 8.4844088319088D-07
1149 -1.2600000000000D-02 8.4633689458689D-07
1150 0. 8.4644658119658D-07
1151 1.2600000000000D-02 8.4630947293447D-07
1152 2.5200000000000D-02 8.4838479344729D-07
1153 3.7800000000000D-02 8.5125160256410D-07
1154 5.0400000000000D-02 8.4750480769231D-07
1155 6.3000000000000D-02 8.4742378917379D-07
1156 7.5600000000000D-02 8.5071064814815D-07
1157 8.8200000000000D-02 8.5545584045584D-07
1158 1.0080000000000D-01 8.6368108974359D-07
1161 fluxrd1 = DEFI_NAPPE (
1163 PROL_DROIT :'CONSTANT'
1164 PROL_GAUCHE :'CONSTANT'
1166 -1.0080000000000D-01
1167 -8.8200000000000D-02
1168 -7.5600000000000D-02
1169 -6.3000000000000D-02
1170 -5.0400000000000D-02
1171 -3.7800000000000D-02
1172 -2.5200000000000D-02
1173 -1.2600000000000D-02
1205 % DEFINITION DES MATERIAUX ET AFFECTATIONS
1206 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1208 % **** DEFINITION DES MATERIAUX SANS FLUX NEUTRONIQUE ****
1210 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1214 % Famille assemblage : numero_fam
1218 e_es = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1219 PROL_DROIT : 'CONSTANT'
1220 PROL_GAUCHE : 'CONSTANT'
1224 nu_es = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1225 PROL_DROIT : 'CONSTANT'
1226 PROL_GAUCHE : 'CONSTANT'
1230 al_es = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1231 PROL_DROIT : 'CONSTANT'
1232 PROL_GAUCHE : 'CONSTANT'
1236 mt_es = DEFI_MATERIAU ( ELAS_FO : ( E : e_es
1244 e_ei = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1245 PROL_DROIT : 'CONSTANT'
1246 PROL_GAUCHE : 'CONSTANT'
1250 nu_ei = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1251 PROL_DROIT : 'CONSTANT'
1252 PROL_GAUCHE : 'CONSTANT'
1256 al_ei = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1257 PROL_DROIT : 'CONSTANT'
1258 PROL_GAUCHE : 'CONSTANT'
1262 mt_ei = DEFI_MATERIAU ( ELAS_FO : ( E : e_ei
1268 mt_rig = DEFI_MATERIAU ( ELAS : ( E : 1.
1273 % Fonction couple en fonction de drz pour la liaison grille/crayon
1275 fotrac= DEFI_FONCTION ( NOM_PARA : 'DRZ'
1281 PROL_DROIT : 'LINEAIRE'
1282 PROL_GAUCHE: 'LINEAIRE' );
1285 mt_re1 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1294 mt_re2 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1303 mt_re3 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1312 mt_re4 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1321 mt_re5 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1330 mt_re6 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1339 mt_re7 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1348 mt_re8 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1357 mt_re9 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1366 mt_re10 = DEFI_MATERIAU ( DIS_CONTACT : (COULOMB : 1.
1376 %%%% %%%%%%%%%%%%%%%%%%%%%%%%
1378 % Systeme de maintien
1380 e_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1381 PROL_DROIT : 'CONSTANT'
1382 PROL_GAUCHE : 'CONSTANT'
1387 nu_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1388 PROL_DROIT : 'CONSTANT'
1389 PROL_GAUCHE : 'CONSTANT'
1394 al_ma = DEFI_CONSTANTE ( VALE : 0.3 );
1396 sy_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1397 PROL_DROIT : 'CONSTANT'
1398 PROL_GAUCHE : 'CONSTANT'
1403 ds_ma = DEFI_CONSTANTE ( VALE : 0.3 );
1405 np_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1406 PROL_DROIT : 'CONSTANT'
1407 PROL_GAUCHE : 'CONSTANT'
1412 mey_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1413 PROL_DROIT : 'CONSTANT'
1414 PROL_GAUCHE : 'CONSTANT'
1419 mpy_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1420 PROL_DROIT : 'CONSTANT'
1421 PROL_GAUCHE : 'CONSTANT'
1426 mez_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1427 PROL_DROIT : 'CONSTANT'
1428 PROL_GAUCHE : 'CONSTANT'
1433 mpz_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1434 PROL_DROIT : 'CONSTANT'
1435 PROL_GAUCHE : 'CONSTANT'
1440 cay_ma = DEFI_CONSTANTE ( VALE : 0.3 );
1442 cby_ma = DEFI_CONSTANTE ( VALE : 0.3 );
1444 caz_ma = DEFI_CONSTANTE ( VALE : 0.3 );
1446 cbz_ma = DEFI_CONSTANTE ( VALE : 0.3 );
1448 mpx_ma = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1449 PROL_DROIT : 'CONSTANT'
1450 PROL_GAUCHE : 'CONSTANT'
1455 mt_ma = DEFI_MATERIAU ( ELAS_FO : ( E : e_ma
1459 ECRO_LINE_FO: ( D_SIGM_EPSI:ds_ma
1461 VMIS_POUTRE_FO: ( NP : np_ma
1473 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1475 % **** DEFINITION DES MATERIAUX AVEC FLUX NEUTRONIQUE ****
1477 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1484 e_gre = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1485 PROL_DROIT : 'CONSTANT'
1486 PROL_GAUCHE : 'CONSTANT'
1491 e_grm = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1492 PROL_DROIT : 'CONSTANT'
1493 PROL_GAUCHE : 'CONSTANT'
1498 nu_gre = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1499 PROL_DROIT : 'CONSTANT'
1500 PROL_GAUCHE : 'CONSTANT'
1505 nu_grm = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1506 PROL_DROIT : 'CONSTANT'
1507 PROL_GAUCHE : 'CONSTANT'
1512 al_gre = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1513 PROL_DROIT : 'CONSTANT'
1514 PROL_GAUCHE : 'CONSTANT'
1519 al_grm = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1520 PROL_DROIT : 'CONSTANT'
1521 PROL_GAUCHE : 'CONSTANT'
1528 e_tu = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1529 PROL_DROIT : 'CONSTANT'
1530 PROL_GAUCHE : 'CONSTANT'
1536 nu_tu = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1537 PROL_DROIT : 'CONSTANT'
1538 PROL_GAUCHE : 'CONSTANT'
1543 al_tu = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1544 PROL_DROIT : 'CONSTANT'
1545 PROL_GAUCHE : 'CONSTANT'
1555 e_cr = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1556 PROL_DROIT : 'CONSTANT'
1557 PROL_GAUCHE : 'CONSTANT'
1563 nu_cr = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1564 PROL_DROIT : 'CONSTANT'
1565 PROL_GAUCHE : 'CONSTANT'
1570 al_cr = DEFI_FONCTION ( NOM_PARA : 'TEMP'
1571 PROL_DROIT : 'CONSTANT'
1572 PROL_GAUCHE : 'CONSTANT'
1578 % GRANDISSEMENT DES GRILLES
1582 % Grilles extremes 1 et 10
1584 mt_gre1 = DEFI_MATERIAU ( ELAS_FO : ( E : e_gre
1588 GRAN_IRRA:( FLUX_L :fluxax1
1599 % Grilles de melange
1601 mt_grm1= DEFI_MATERIAU ( ELAS_FO : ( E : e_grm
1605 GRAN_IRRA: ( FLUX_L :fluxax1
1616 % Definition des materiaux viscoplastiques ( tubes et crayons )
1619 mt_tu1 = DEFI_MATERIAU ( ELAS_FO : ( E : e_tu
1623 GRAN_IRRA: ( FLUX_L : fluxax1
1635 mt_cr1 = DEFI_MATERIAU (ELAS_FO : ( E : e_cr
1639 GRAN_IRRA: ( FLUX_L : fluxax1
1651 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1653 % AFFECTATION DES MATERIAUX A CHAUD - CYCLE
1655 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1657 a_mat_1 = AFFE_MATERIAU ( MAILLAGE : ma1
1659 % systeme de maintien
1660 AFFE : ( GROUP_MA : (mainti_y, mainti_z)
1664 % grilles de melange
1665 AFFE : ( GROUP_MA : gril_i
1669 % grilles de extremes
1670 AFFE : ( GROUP_MA : gril_e
1674 % crayons combustibles
1675 AFFE : ( GROUP_MA : cray
1680 AFFE : ( GROUP_MA : guid
1685 AFFE : ( GROUP_MA : eboinf
1690 AFFE : ( GROUP_MA :(pi_ple, pi_tro)
1696 AFFE : ( GROUP_MA : ebosup
1700 % liaison grille tubes guides
1701 AFFE : ( GROUP_MA : rigid
1706 % liaison grille crayon
1707 AFFE : ( GROUP_MA : ela1
1711 AFFE : ( GROUP_MA : ela2
1715 AFFE : ( GROUP_MA : ela3
1719 AFFE : ( GROUP_MA : ela4
1723 AFFE : ( GROUP_MA : ela5
1727 AFFE : ( GROUP_MA : ela6
1731 AFFE : ( GROUP_MA : ela7
1735 AFFE : ( GROUP_MA : ela8
1739 AFFE : ( GROUP_MA : ela9
1743 AFFE : ( GROUP_MA : ela10
1751 L_INST_1 = DEFI_LIST_REEL(
1753 INTERVALLE : (JUSQU_A: 0.5 NOMBRE: 1 )
1754 INTERVALLE : (JUSQU_A: 1000. NOMBRE: 1 )
1755 INTERVALLE : (JUSQU_A: 2000. NOMBRE: 1 )
1756 INTERVALLE : (JUSQU_A: 3000. NOMBRE: 5 )
1757 INTERVALLE : (JUSQU_A: 4000. NOMBRE: 1 )
1758 INTERVALLE : (JUSQU_A: 5000. NOMBRE: 1 )
1759 INTERVALLE : (JUSQU_A: 6000. NOMBRE: 1 )
1760 INTERVALLE : (JUSQU_A: 7000. NOMBRE: 1 )
1761 INTERVALLE : (JUSQU_A: 8000. NOMBRE: 1 ));
1763 L_ARCH_1 = DEFI_LIST_REEL(
1765 INTERVALLE : (JUSQU_A: 0.5 NOMBRE: 1 )
1766 INTERVALLE : (JUSQU_A: 1000. NOMBRE: 1 )
1767 INTERVALLE : (JUSQU_A: 2000. NOMBRE: 1 )
1768 INTERVALLE : (JUSQU_A: 3000. NOMBRE: 5 )
1769 INTERVALLE : (JUSQU_A: 4000. NOMBRE: 1 )
1770 INTERVALLE : (JUSQU_A: 5000. NOMBRE: 1 )
1771 INTERVALLE : (JUSQU_A: 6000. NOMBRE: 1 )
1772 INTERVALLE : (JUSQU_A: 7000. NOMBRE: 1 )
1773 INTERVALLE : (JUSQU_A: 8000. NOMBRE: 1 ));
1776 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1777 % CALCUL PHASE I A V DU CYCLE 1
1778 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1781 RESU = STAT_NON_LINE( MODELE : mo1
1782 CHAM_MATER : a_mat_1
1784 EXCIT :( CHARGE : arch_1 FONC_MULT: arch_f1 )
1785 EXCIT :( CHARGE : foarch_1 FONC_MULT: arch_f1 )
1786 EXCIT :( CHARGE : hydr_1 FONC_MULT: hydr_f1 )
1787 EXCIT :( CHARGE : fohydr_1 FONC_MULT: hydr_f1 )
1788 EXCIT :( CHARGE : cl_di_1 FONC_MULT: cldi_f1 )
1789 EXCIT :( CHARGE : cl_per_1 )
1790 EXCIT :( CHARGE : cl_ctc )
1791 EXCIT :( CHARGE : pesant_1 )
1792 EXCIT :( CHARGE : therm_1 )
1793 COMP_INCR :(RELATION :'VMIS_POU_LINE'
1794 GROUP_MA : maintien)
1795 COMP_INCR :(RELATION :'ASSE_COMBU'
1796 GROUP_MA : (crayons tub_guid ))
1797 COMP_INCR :( RELATION :'DIS_CONTACT'
1798 GROUP_MA : li_gr_cr)
1799 COMP_INCR :(RELATION :'ELAS'
1801 GROUP_MA :(embo_inf embo_sup pieds
1804 INCREMENT :( LIST_INST : l_inst_1
1808 NEWTON : ( MATRICE : 'TANGENTE'
1810 RECH_LINEAIRE : (ITER_LINE_MAXI: 3)
1811 CONVERGENCE : (RESI_GLOB_RELA: 1.E-4
1815 SOLVEUR : ( METHODE : 'MULT_FRONT'
1818 ARCHIVAGE : ( LIST_INST : l_arch_1)