cobrems id=100
v/cre t(200)
get/c 100 t
v/cre x(200)
get/a 100 x
sigma tx=t*x
put/c 100 tx
cobrems id=200 f=dnidx(x)
get/c 200 t
get/a 200 x
sigma tx=t*x
put/c 200 tx
set hcol 1;set hwid 5;h/pl 100 c
set hcol 1205;set hwid 1;h/pl 200 sc
atit 'E?[g]! (GeV)' 'beam power (GeV/s/GeV)'
pict/print bremsint.gif
pict/print bremsint.eps