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: