dofile("definitions.Quanty")
 
G.Print({{"file","Spectra.dat"}})
G.MultiplyByEnergy()
G.Print({{"file","Spectra.MultiplyByEnergy.dat"}})
 
 
gnuplotScript = gnuplotHead .. [[
set output "Spectra.MultiplyByEnergy.ps"
plot "Spectra.dat"  using 1:(-$3  ) title 'T1' with lines ls  1,\
     "Spectra.MultiplyByEnergy.dat"  using 1:(-$3) title 'T1 * Energy' with lines ls  2
]]
 
file = io.open("Spectra.MultiplyByEnergy.gnuplot", "w")
file:write(gnuplotScript)
file:close()
 
os.execute("gnuplot Spectra.MultiplyByEnergy.gnuplot")
os.execute("convert -density 1024 Spectra.MultiplyByEnergy.ps -resize 1024 Spectra.MultiplyByEnergy.png")