2b2
set csiz 0.6
zone 2 1
opt nsta
opt fit
set fit 111
hi/de 0
clr
vec/de *

vec/read f,asq,darm '020906_2253_cal.txt'

1d 100 'DARM Power' 59200 0. 7400.
1d 101 'DARM Power' 59200 0. 7400.

vmult darm darm darm2
vec/cre scale(59200) R 59200*0.31622
vmult darm2 scale darmerr

vec/inp darmerr(411) darmerr(410)
vec/inp darmerr(412) darmerr(413)
vec/inp darmerr(7783) darmerr(7782)
vec/inp darmerr(7784) darmerr(7785)

hi/put_vect/contents 100 darm2
hi/put_vect/contents 101 darm2
hi/put_vect/errors 101 darmerr
hi/put_vect/errors 100 darmerr

hi/copy 100 200
hi/copy 101 201

vec/cre fit(4) R 0.02 51.3 0.08 0.
hi/fit 100(51.2:51.7) g+p0 '0Q' 4 fit
*vec/inp fit(4) 0.0056
hi/fit 100(50.:53.) g+p0 '0' 4 fit

hi/fit 101(50.:53.) 'gp0.for' '0' 4 fit

vec/cre fit(4) R 0.05 972.87 0.07 0.007
hi/fit 200(972.5:973.1) g+p0 '0Q' 4 fit
hi/fit 200(971.5:974.) g+p0 '0' 4 fit
vec/cre fit(4) R 0.05 972.87 0.07 0.007
hi/fit 201(972.:973.) 'gp0.for' '0Q' 4 fit
hi/fit 201(971.5:974.) 'gp0.for' '0' 4 fit

fort/file 66 darm_fits.ps
graph/meta 66 -111
max 100 0.02
hi/plo 100(50.:53.)
max 200 0.06
hi/plo 200(971.5:974.)
max 101 0.02
hi/plo 101(50.:53.)
max 201 0.06
hi/plo 201(971.5:974.)
fort/close 66

fort/file 66 darm_fits.eps
graph/meta 66 -113
hi/plo 101(50.:53.)
hi/plo 201(971.5:974.)
fort/close 66