In[]:=
nucNames={"Be-7","Na-24","Mn-54","Fe-55","Fe-59","Co-57","Co-58","Co-60","Cu-64","Cu-67","U-237","U-240","Np-239","Np-240m","Am-241","Cm-242","Ge-77","As-77","Se-77m","As-78","Br-82","Br-83","Rb-88","Sr-89","Sr-90","Y-90","Sr-91","Y-91m","Y-91","Sr-92","Y-92","Y-93","Zr-95","Nb-95m","Nb-95","Zr-97","Nb-97m","Nb-97","Mo-99","Tc-99m","Ru-103","Rh-103m","Ru-105","Rh-105m","Rh-105","Ru-106","Rh-106","Pd-109","Ag-109m","Pd-111m","Pd-111","Ag-111m","Ag-111","Pd-112","Ag-112","Ag-113","Cd-115m","Cd-115 ","In-115m","Cd-117","In-117m","In-117 ","Sn-121","Sn-123 ","Sn-125","Sb-125","Sb-126","Sn-127","Sb-127","Te-127m","Te-127","Sb-128 ","Sb-129","Te-129m","Te-129 ","I-130","Te-131m","Te-131 ","I-131","Te-132","I-132","I-133","I-135","Cs-136","Cs-137","Ba-137m","Ba-139","Ba-140","La-140","La-141","Ce-141","La-142","Ce-143","Pr-143","Ce-144","Pr-144","Pr-145","Nd-147","Pm-147","Nd-149","Pm-149","Pm-150","Pm-151","Sm-153","Eu-155","Sm-156","Eu-156","Eu-157","Gd-159","Tb-161"};
In[]:=
lrn=Length[nucNames]
Out[]=
110
*************************************************************************
1) Radio Nuclides RB 1
*************************************************************************
1) Radio Nuclides RB 1
*************************************************************************
In[]:=
setRn[]:=Module[{lrn,i,rnSelL},lrn=Length[nucNamesA];For[i=1,i≤lrn,i++,rnSelL[i]=0];rnSelL]rnSelL=setRn[];
In[]:=
nucNames;
*************************************************************************
selectNuclides[i_,name_] Sets up the array of radio buttons so the user can select which nuclides to include in the radiation dose calculation
*************************************************************************
selectNuclides[i_,name_] Sets up the array of radio buttons so the user can select which nuclides to include in the radiation dose calculation
*************************************************************************
In[]:=
selectNuclides[i_,name_]:=DynamicModule[{nuc},setRn[];Dynamic[{name[[i]],RadioButton[Dynamic[rnSelL[i]],0],RadioButton[Dynamic[rnSelL[i]],1],rnSelL[i]}]];(***************************************)lrn=Length[nucNames];rnb=Table[selectNuclides[i,nucNames],{i,1,lrn}];
***********************************************************************
showSelected[] shows which nuclides from the list of radio nuclide radio buttons.
***********************************************************************
showSelected[] shows which nuclides from the list of radio nuclide radio buttons.
***********************************************************************
In[]:=
showSelected[]:=DynamicModule[{nuc,irnb,pr=False,rnb1,rb,rk},rnb1={};selRnKeys={};testInit[{lrn,nuc,rnSelL,rnb1}];For[nuc=1,nuc≤lrn,nuc++,irnb=rnSelL[nuc];If[irnb0,Continue[],];
If
[
pr
,
Print
[
"1-selectNuclides, irnb="
,
irnb
,
" nuc="
,
nuc
,
" irnb==1 = "
,
irnb1],];rb=rnb[[nuc]];rk=nucNames[[nuc]];AppendTo[rnb1,rb];AppendTo[selRnKeys,rk];];rnb1]rnb
In[]:=
Dynamic[showSelected[]](*showselectedradionuclidesRB1*)Dynamic[selRnKeys];Dynamic[rnb]
Out[]=
showSelected[]
Click the right hand Radio Button for each Nuclide below to include it in the list of RadioNuclides to include in radiation dose calculations.
A list of included Nuclides appears above.
A list of included Nuclides appears above.
Out[]=
rnb