General rules
nucleus(a=100-200)
database(ensdf)
outtofile(test.out)
findgamma(e=1200-1250)
gammaout(e,eli,jpii,jpif)
****This is what comes out in test.out, wrong, isn't it?
100Y (Z=39): 2
1241.66 1340.74
1240.12 1412.14 (3+)
100Y
2
1241.66 1340.74
1240.12 1412.14 (3+)
100Zr (Z=40): 1
1228.99 1441.44 (1,2+) 2+
100Zr
1
1228.99 1441.44 (1,2+) 2+
DataBase(SEnsdf) Nucleus(A=80-200) SelectBand(sd) BandOut Display(Plot)
"[[moller]][-1,0]mass"is the mass for the N-1,Z neighbor nuclide from the Moller database
Def(myvar1=if(isqm("%A"),500,"%a"))
FindOut(myvar1)
def(Z=nuclZ()) def(A=nuclA()) def(N=nuclN()) def(av=14.1) def(as=13) def(ac=0.595) def(aa=19) def(ap=33.5) def(Delta=ap/A^(3/4)*If(Even(A),If(Even(Z),-1,1),0)) def(mass0=Z*938.767+N*939.549-av*A +as*A^(2/3)+ac*Z^2/A^(1/3)+aa*(A-2*Z)^2/A+Delta) FindOut(mass0) FindOut(mass)
BUILD: DataBase(Ensdf) //define database SelectDS(decay) //select decay data sets dsout //output list of data sets to chart Display(level) //display level plot of selected data set END BUILD
Comments to:
F Chu (program),
P Ekström (manual)
All contents copyright © 1996, Isotopes Project, Berkeley Lab. All rights reserved.
Revised: