* * TEST CASE TCM10 * MACROSCOPIC CROSS SECTIONS * FIXED SOURCE PROBLEM * CARTESIAN 2 X 2 ASSEMBLY * TSAI-LOYALKA SEMI-INFINITE PROBLEM * * REF: R. Roy, "The Cyclic Characteristics Method," * Int. Conf. Physics of Nuclear Science and Technology, * Long Island, NY, October 1998, pp. 407-414. * LINKED_LIST LOYA LOY25 TRACK FLUX EDITION MACRO SYS MACRO100 MACRO050 MACRO010 MACRO005 MACRO000 ; SEQ_BINARY LOYATRK ; STRING PolarAng := "CACB" ; MODULE GEO: EXCELT: MCCGT: MAC: ASM: FLU: EDI: DELETE: END: ; PROCEDURE assertV ; INTEGER i n := 1 1 ; * * MACROSCOPIC CROSS SECTIONS MACRO100 := MAC: :: NGRO 1 NMIX 2 READ INPUT MIX 1 TOTAL 1.0 SCAT 1 1 1.00 FIXE 1.0 MIX 2 TOTAL 1.0 SCAT 1 1 1.00 ; MACRO050 := MAC: :: NGRO 1 NMIX 2 READ INPUT MIX 1 TOTAL 1.0 SCAT 1 1 0.50 FIXE 1.0 MIX 2 TOTAL 1.0 SCAT 1 1 0.50 ; MACRO010 := MAC: :: NGRO 1 NMIX 2 READ INPUT MIX 1 TOTAL 1.0 SCAT 1 1 0.10 FIXE 1.0 MIX 2 TOTAL 1.0 SCAT 1 1 0.10 ; MACRO005 := MAC: :: NGRO 1 NMIX 2 READ INPUT MIX 1 TOTAL 1.0 SCAT 1 1 0.05 FIXE 1.0 MIX 2 TOTAL 1.0 SCAT 1 1 0.05 ; MACRO000 := MAC: :: NGRO 1 NMIX 2 READ INPUT MIX 1 TOTAL 1.0 SCAT 1 1 0.00 FIXE 1.0 MIX 2 TOTAL 1.0 SCAT 1 1 0.00 ; * GEOMETRIES ENTERED WITH SYMMETRIES * LOYA - 2 X 2 REGIONS * LOY25 - 25 X 25 REGIONS LOYA := GEO: :: CAR2D 2 2 X- REFL X+ VOID MESHX 0.00 0.52 1.00 Y- REFL Y+ REFL MESHY 0.00 0.52 1.00 MIX 1 2 2 2 ; LOY25 := GEO: LOYA :: SPLITX 13 12 SPLITY 13 12 ; * SOLUTION FOR LOY25 TRACK LOYATRK := EXCELT: LOY25 :: TITLE 'TCM10: LOYANABE-MAYNARD 24X24 ' MAXR 625 TRAK TSPC 12 100.0 ; TRACK := MCCGT: TRACK LOYATRK :: EDIT 1 <> 2 AAC 1 TMT SCR 0 EPSI 1E-5 MAXI 100 KRYL 30 HDD 0.0 ; REPEAT IF i 1 = THEN MACRO := MACRO100 ; ELSEIF i 2 = THEN MACRO := MACRO050 ; ELSEIF i 3 = THEN MACRO := MACRO010 ; ELSEIF i 4 = THEN MACRO := MACRO005 ; ELSEIF i 5 = THEN MACRO := MACRO000 ; ENDIF ; SYS := ASM: MACRO TRACK LOYATRK :: EDIT 2 ARM ; FLUX := FLU: MACRO TRACK SYS LOYATRK :: TYPE S ; * SOLUTION FOR LOY25 * FLUX AT X=Y= 0.50, 0.70 AND 0.98 * SEE TABLE 2. (ref. p. 412) EDITION := EDI: FLUX MACRO TRACK :: EDIT 2 SAVE MERGE REGION 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 ; IF i 1 = THEN assertV FLUX :: 'FLUX' (*GROUP*) 1 (*REGION*) 30 1.708198 ; ELSEIF i 2 = THEN assertV FLUX :: 'FLUX' (*GROUP*) 1 (*REGION*) 30 0.7793926 ; ELSEIF i 3 = THEN assertV FLUX :: 'FLUX' (*GROUP*) 1 (*REGION*) 30 0.5732016 ; ELSEIF i 4 = THEN assertV FLUX :: 'FLUX' (*GROUP*) 1 (*REGION*) 30 0.5556656 ; ELSEIF i 5 = THEN assertV FLUX :: 'FLUX' (*GROUP*) 1 (*REGION*) 30 0.5392905 ; ENDIF ; SYS FLUX MACRO EDITION := DELETE: SYS FLUX MACRO EDITION ; EVALUATE i := i 1 + ; UNTIL i 6 = ; LOYATRK := DELETE: LOYATRK ; ECHO "test TCM10 completed" ; END: ; QUIT "LIST" .