* ..+....1....+....2....+....3....+....4....+....5....+....6....+....7... * ... check W here , not Cd ... * * Define a flag *#define Flag_IRON * TITLE FLUKA Course Exercise - test spectr from Lead -> add Air after Lead * * use names everywhere and free format for geometry DEFAULTS PRECISIO * * beam definitions BEAM -1.35 -0.8 -1.7 PROTON BEAMPOS -0.1 * * Geometry * -------- GEOBEGIN COMBNAME 0 0 Cylindrical Target * * Bodies * ------ * * Blackhole to include geometry SPH BLK 0.0 0.0 0.0 10000. * Void sphere SPH VOID 0.0 0.0 0.0 1000. * Infinite cylinder ZCC TARG 0.0 0.0 5. * planes cutting the cylinder XYP ZTlow 0.0 XYP T1seg 1. XYP T2seg 7. XYP T3seg 9. XYP ZThigh 9.01 * END * * Regions * ------- * * Blackhole BLKHOLE 5 +BLK -VOID * * Target segment 1 TARGS1 5 +TARG -ZTlow +T1seg * Target segment 2 TARGS2 5 +TARG -T1seg +T2seg * Target segment 3 TARGS3 5 +TARG -T2seg +T3seg * Target segment 3 TARGS4 5 +TARG -T3seg +ZThigh * * Air around target INAIR 5 | +VOID -TARG | +VOID +ZTlow | +VOID -ZThigh END * GEOEND * * Materials definition * -------------------- MATERIAL 0.001965 CO2 COMPOUND 1. CARBON 2. OXYGEN CO2 * Define Cadmium *MATERIAL 48. 8.65 CADMIUM *MATERIAL 74. 19.3 TUNGSTEN MATERIAL 74. 19.3 182.W182 LOW-MAT W182 74. -2. 296. TUNGSTEN MATERIAL 74. 19.3 184.W183 LOW-MAT W183 74. -2. 296. TUNGSTEN MATERIAL 74. 19.3 Wmy COMPOUND .65034 W182 .34966 W183 Wmy *COMPOUND 0.2656 W182 .1428 W183 Wmy * * Assign materials * ---------------- ASSIGNMA BLCKHOLE BLKHOLE ASSIGNMA LEAD TARGS1 ASSIGNMA CO2 TARGS2 ASSIGNMA CO2 INAIR ASSIGNMA WATER TARGS3 * * If Flag_IRON is set, then IRON is assigned to the TARGS3 region * otherwise Cadmium is assigned #if Flag_IRON ASSIGNMA IRON TARGS4 #else *ASSIGNMA CADMIUM TARGS4 *ASSIGNMA TUNGSTEN TARGS4 ASSIGNMA Wmy TARGS4 #endif * * Scoring * ------------------------------ * * ===== USRBDX - fluence ======== * *USRBDX 99. NEUTRON -53. TARGS4 INAIR 78.85398BdxNeutr *USRBDX 5. 1.E-14 1. & * USRBDX 99. NEUTRON -53. TARGS1 TARGS2 78.85398BdxNeuAir USRBDX 5. 1.E-14 1. & * USRBDX 99. NEUTRON -53. TARGS2 TARGS3 78.85398BdxNeuWat USRBDX 5. 1.E-14 1. & * USRBDX 99. NEUTRON -53. TARGS3 TARGS4 78.85398BdxNeuWmy USRBDX 5. 1.E-14 1. & * USRBDX 99. NEUTRON -53. TARGS4 INAIR BdxNeuRes USRBDX 5. 1.E-14 1. & * * ===== USRBDX - current ======== * USRBDX -1. NEUTRON -51. TARGS1 TARGS2 NcurPb USRBDX 5. 1E-14 50. & * USRBDX -1. NEUTRON -51. TARGS2 TARGS3 NcurAir USRBDX 5. 1E-14 50. & * USRBDX -1. NEUTRON -51. TARGS3 TARGS4 NcurWat USRBDX 5. 1E-14 50. & * USRBDX -1. NEUTRON -51. TARGS4 INAIR NcurW USRBDX 5. 1E-14 50. & * * ============== use USRYIELD ============ * USRYIELD 1399. NEUTRON -21. TARGS1 TARGS2 NtotLead USRYIELD 5. 1E-14 24.3.14159265 0.0 3. & * USRYIELD 1399. NEUTRON -21. TARGS2 TARGS3 NtotAir USRYIELD 5. 1E-14 24.3.14159265 0.0 3. & * USRYIELD 1399. NEUTRON -21. TARGS3 TARGS4 NtotWat USRYIELD 5. 1E-14 24.3.14159265 0.0 3. & * USRYIELD 1399. NEUTRON -21. TARGS4 INAIR NtotW USRYIELD 5. 1E-14 24.3.14159265 0.0 3. & * * ========================================== * RANDOMIZ 1. * START 4000000. 0.0 STOP