From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Donjon/data/Triga_Model3D.x2m | 441 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 441 insertions(+) create mode 100644 Donjon/data/Triga_Model3D.x2m (limited to 'Donjon/data/Triga_Model3D.x2m') diff --git a/Donjon/data/Triga_Model3D.x2m b/Donjon/data/Triga_Model3D.x2m new file mode 100644 index 0000000..7b434c6 --- /dev/null +++ b/Donjon/data/Triga_Model3D.x2m @@ -0,0 +1,441 @@ +!*------------------ +!* TRIGA MARK II MOROCCAN RESEARCH REACTOR DIFFUSION CALCULATIONS +!* Hexagonal 3D Geometry 3D: HEXZ Symetry: COMPLETE +!* AUTORS: J.OTMAN, O. EL HAJJAJI & A. Hebert (EPM) +!*------------------ +LINKED_LIST HEX3D MATEX FMAP MACROFL MACRORE MYCOMPO TRACK SYSTEM FLUX + EDIT MACRO2 POWER MACFL ; +MODULE GEO: USPLIT: RESINI: CRE: TRIVAT: MACINI: TRIVAA: FLUD: FLPOW: +END: GREP: DELETE: ; +*--------- +* Compute side of hexagonal cell +*--------- +REAL Pitch := 4.353600 ; ! Pitch of Hexagonal Cell +REAL PI := 3.141592653589793238462 ; +REAL Side_Cell := Pitch 3.0 SQRT / ; ! Side of Hexagonal Cell +REAL Keff ; +PROCEDURE assertS ; +******************************************* +!* GEOMETRY +******************************************* +HEX3D := GEO: :: HEXZ 127 11 +EDIT 2 +HBC COMPLETE REFL +SIDE <> +Z- VOID Z+ VOID +MESHZ + -80.91315 ! Safety Plate + -79.68615 ! water universe Lower + -39.5474 ! Bottom Gridplate + -36.3474 ! Spacer Down (SS Down) + -28.53 ! Fuel element Lower Graphite + -19.05 ! Fuel Lower Part + 0.0 ! Fuel Upper Part + 19.05 ! Fuel element Upper Graphite + 26.92 ! Spacer Up (SS Up) + 29.185 ! Upper Gridplate + 32.385 ! Water universe Upper + 78.0 +SPLITL 1 +SPLITZ + 3 ! Safety Plate + 5 ! water universe Lower + 3 ! Bottom Gridplate + 3 ! Spacer Down (SS Down) + 5 ! Fuel element Lower Graphite + 10 ! Fuel Lower Part + 10 ! Fuel Upper Part + 5 ! Fuel element Upper Graphite + 3 ! Spacer Up (SS Up) + 3 ! Upper Gridplate + 5 ! Water universe Upper + SPLITH 0 ! Full hexagons + MIX +!******************************************* +!* 1st floor: Safety Plate +!******************************************* + 5 ! Ring 0 : + 5 5 5 5 5 5 ! Ring 1 : + 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 2 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 3 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 4 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 5 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 6 : + 5 5 5 5 5 5 +!******************************************* +!* 2nd floor: water universe Lower +!******************************************* + 3 ! Ring 0 : + 3 3 3 3 3 3 ! Ring 1 : + 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 2 : + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 3 : + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 4 : + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 5 : + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 6 : + 3 3 3 3 3 3 +!******************************************* +!* 3th floor: Bottom Gridplate +!******************************************* + 5 ! Ring 0 : + 5 5 5 5 5 5 ! Ring 1 : + 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 2 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 3 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 4 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 5 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 6 : + 5 5 5 5 5 5 +!******************************************* +!* 4th floor: Spacer Down (SS Down) +!******************************************* + 8 ! Ring 0 : + 8 8 8 8 8 8 ! Ring 1 : + 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 2 : + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 3 : + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 4 : + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 5 : + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 6 : + 8 8 8 8 8 8 +!******************************************* +!* 5th floor: Fuel element Lower Graphite +!******************************************* + 5 ! Ring 0 : + 6 6 6 6 6 6 ! Ring 1 : + 6 6 6 6 6 6 6 6 6 6 6 6 ! Ring 2 : + 13 6 6 13 6 6 13 6 6 13 6 6 13 6 6 6 6 6 ! Ring 3 : + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 ! Ring 4 : + 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 ! Ring 5 : + 3 6 4 4 6 4 3 4 6 4 6 4 3 3 4 4 6 4 3 3 4 6 6 4 3 4 6 6 4 4 ! Ring 6 : + 3 4 4 6 6 4 +!******************************************* +!* 6th floor: Fuel Lower Part +!******************************************* + 5 ! Ring 0 : + 1 1 1 1 1 1 ! Ring 1 : + 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 2 : + 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 ! Ring 3 : + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 4 : + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 5 : + 3 1 4 4 1 4 3 4 1 4 1 4 3 3 4 4 1 4 3 3 4 1 1 4 3 4 1 1 4 4 ! Ring 6 : + 3 4 4 1 1 4 +!******************************************* +!* 7th floor: Fuel Upper Part +!******************************************* + 5 ! Ring 0 : + 1 1 1 1 1 1 ! Ring 1 : + 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 2 : + 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 ! Ring 3 : + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 4 : + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 5 : + 3 1 4 4 1 4 3 4 1 4 1 4 3 3 4 4 1 4 3 3 4 1 1 4 3 4 1 1 4 4 ! Ring 6 : + 3 4 4 1 1 4 +!******************************************* +!* 8th floor: Fuel element Upper Graphite +!******************************************* + 5 ! Ring 0 : + 7 7 7 7 7 7 ! Ring 1 : + 7 7 7 7 7 7 7 7 7 7 7 7 ! Ring 2 : + 13 7 7 13 7 7 13 7 7 13 7 7 13 7 7 7 7 7 ! Ring 3 : + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ! Ring 4 : + 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ! Ring 5 : + 3 7 4 4 7 4 3 4 7 4 7 4 3 3 4 4 7 4 3 3 4 7 7 4 3 4 7 7 4 4 ! Ring 6 : + 3 4 4 7 7 4 + !******************************************* +!* 9th floor: Spacer Up (SS Up) +!******************************************* + 8 ! Ring 0 : + 8 8 8 8 8 8 ! Ring 1 : + 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 2 : + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 3 : + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 4 : + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 5 : + 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 ! Ring 6 : + 8 8 8 8 8 8 +!******************************************* +!* 10th floor: Upper Gridplate +!******************************************* + 5 ! Ring 0 : + 5 5 5 5 5 5 ! Ring 1 : + 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 2 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 3 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 4 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 5 : + 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ! Ring 6 : + 5 5 5 5 5 5 +!******************************************* +!* 11th floor: Water universe Upper +!******************************************* + 3 ! Ring 0 : + 3 3 3 3 3 3 ! Ring 1 : + 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 2 : + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 3 : + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 4 : + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 5 : + 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ! Ring 6 : + 3 3 3 3 3 3 +!******************************************* + ; +!******************************************* +HEX3D MATEX := USPLIT: HEX3D :: EDIT 0 + NGRP 2 MAXR 200000 + NREFL 11 RMIX 3 4 5 6 7 8 9 10 11 12 13 + NFUEL 2 FMIX 1 2 + ; +!******************************************* + TRACK := TRIVAT: HEX3D :: EDIT 2 + TITLE 'DONJON STUDY FOR TRIGA Mark-II (2 GROUPS).' + MAXR 55820 DUAL 1 2 + ; +!******************************************* +FMAP MATEX := RESINI: MATEX :: + EDIT 99 + ::: GEO: HEXZ 127 11 +EDIT 10 +HBC COMPLETE REFL +SIDE <> +Z- VOID Z+ VOID +MESHZ + -80.91315 ! Safety Plate + -79.68615 ! water universe Lower + -39.5474 ! Bottom Gridplate + -36.3474 ! Spacer Down (SS Down) + -28.53 ! Fuel element Lower Graphite + -19.05 ! Fuel Lower Part + 0.0 ! Fuel Upper Part + 19.05 ! Fuel element Upper Graphite + 26.92 ! Spacer Up (SS Up) + 29.185 ! Upper Gridplate + 32.385 ! Water universe Upper + 78.0 + SPLITL 1 + SPLITZ + 3 ! Safety Plate + 5 ! water universe Lower + 3 ! Bottom Gridplate + 3 ! Spacer Down (SS Down) + 5 ! Fuel element Lower Graphite + 10 ! Fuel Lower Part + 10 ! Fuel Upper Part + 5 ! Fuel element Upper Graphite + 3 ! Spacer Up (SS Up) + 3 ! Upper Gridplate + 5 ! Water universe Upper + MIX +!******************************************* +!* 1st floor: Safety Plate +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 +!******************************************* +!* 2nd floor: water universe Lower +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 +!******************************************* +!* 3th floor: Bottom Gridplate +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 +!******************************************* +!* 4th floor: Spacer Down (SS Down) +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 +!******************************************* +!* 5th floor: Fuel element Lower Graphite +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 +!******************************************* +!* 6th floor: Fuel Lower Part +!******************************************* + 0 ! Ring 0 : + 1 1 1 1 1 1 ! Ring 1 : + 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 2 : + 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 ! Ring 3 : + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 4 : + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 5 : + 0 1 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 1 1 0 0 0 1 1 0 0 ! Ring 6 : + 0 0 0 1 1 0 +!******************************************* +!* 7th floor: Fuel Upper Part +!******************************************* + 0 ! Ring 0 : + 1 1 1 1 1 1 ! Ring 1 : + 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 2 : + 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 1 1 1 ! Ring 3 : + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 4 : + 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! Ring 5 : + 0 1 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 1 1 0 0 0 1 1 0 0 ! Ring 6 : + 0 0 0 1 1 0 +!******************************************* +!* 8th floor: Fuel element Upper Graphite +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 + !******************************************* +!* 9th floor: Spacer Up (SS Up) +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 +!******************************************* +!* 10th floor: Upper Gridplate +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 +!******************************************* +!* 11th floor: Water universe Upper +!******************************************* + 0 ! Ring 0 : + 0 0 0 0 0 0 ! Ring 1 : + 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 2 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 3 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 4 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 5 : + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ! Ring 6 : + 0 0 0 0 0 0 +!******************************************* + ; +!******************************************* +******--- +* Set channel names +******--- + NHNAME +* Ring 0 (A) + - +* Ring 1 (B) +C01A01 C01B01 C01C01 C01D01 C01E01 C01F01 +* Ring 2 (C) +C02A01 C02A02 C02B01 C02B02 C02A02 C02C02 C02D01 C02D02 C02E01 C02E02 +C02F01 C02F02 +* Ring 3 (D) +C03A01 C03A02 C03A03 C03B01 C03B02 C03B03 C03C01 C03C02 C03C03 C03D01 +C03D02 C03D03 C03E01 C03E02 C03E03 C03F01 C03F02 C03F03 +* Ring 4 (E) +C04A01 C04A02 C04A03 C04A04 C04B01 C04B02 C04B03 C04B04 C04C01 C04C02 +C04C03 C04C04 C04D01 C04D02 C04D03 C04D04 C04E01 C04E02 C04E03 C04E04 +C04F01 C04F02 C04F03 C04F04 +* Ring 5 (F) +C05A01 C05A02 C05A03 C05A04 C05A05 C05B01 C05B02 C05B03 C05B04 C05B05 +C05C01 C05C02 C05C03 C05C04 C05C05 C05D01 C05D02 C05D03 C05D04 C05D05 +C05E01 C05E02 C05E03 C05E04 C05E05 C05F01 C05F02 C05F03 C05E04 C05F05 +* Ring 6 (G) + - C06A02 - - C06A05 - - - C06B03 - +C05B05 - - - - - C06C05 - - - + - C06D04 C06D05 - - - C06E03 C06E04 - - + - - - C06F04 C06F05 - +!******************************************* + NCOMB ALL + BTYPE INST-BURN + INST-BVAL SAME 0.0 +!******************************************* + ; + +!******************************************* +SEQ_ASCII Data.dds :: FILE 'Data.dds' ; +MYCOMPO := Data.dds ; +!******************************************* +*--- +*Fuel-map macrolib +*--- + ECHO "Recover fuel properties" ; + MACROFL := CRE: MYCOMPO FMAP :: EDIT 4 READ + TABLE MYCOMPO + MIX 1 'FE_Fuel 1' ENDMIX + MIX 2 'CR_Fuel 1' ENDMIX + ; +*--- +*Reflector macrolib +*--- + ECHO "Recover reflector properties" ; + MACRORE := CRE: MYCOMPO :: EDIT 4 NMIX 13 READ + COMPO MYCOMPO + MIX 3 'Water 1' ENDMIX + MIX 4 'RE_GRPH 1' ENDMIX + MIX 5 'CT_A1 1' ENDMIX + MIX 6 'FE_Gr 1' ENDMIX + MIX 7 'FE_Gr 1' ENDMIX + MIX 8 'FE_Spcr 1' ENDMIX + MIX 9 'FE_Spcr 1' ENDMIX + MIX 10 'Grid_Al 1' ENDMIX + MIX 11 'Grid_Al 1' ENDMIX + MIX 12 'Terminus 1' ENDMIX + MIX 13 'CR_AIR 1' ENDMIX + ; +!******************************************* + MACRO2 MATEX := MACINI: MATEX MACRORE MACROFL :: EDIT 0 ; + MACROFL MACRORE := DELETE: MACROFL MACRORE ; +!******************************************* +!*---- +!* Flux solution +!*---- +!******************************************* + SYSTEM := TRIVAA: MACRO2 TRACK :: + EDIT 2 ; +!******************************************* + FLUX := FLUD: SYSTEM TRACK :: + EDIT 4 ADI 2 ; +*-- +* flux and power: +*-- + POWER := FLPOW: FMAP FLUX TRACK MATEX :: + EDIT 10 PTOT 2.0 ; +*-- +!******************************************* +GREP: FLUX :: GETVAL K-EFFECTIVE 1 >>Keff<< ; +!******************************************* +ECHO "*-------------------------------------" ; +ECHO " K-Effective (Dragon/Donjon) :" Keff ; +ECHO "*-------------------------------------" ; + +assertS FLUX :: 'K-EFFECTIVE' 1 1.096410 ; +!******************************************* +END: ; +QUIT . -- cgit v1.2.3