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 'ASQ Power' 59200 0. 7400.

vmult asq asq asq2
vec/cre scale(118400) R 118400*0.1
vmult asq2 scale asqerr

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

hi/put_vect/contents 100 asq2
hi/put_vect/errors 100 asqerr

hi/copy 100 101
hi/copy 100 200
hi/copy 100 201

vec/cre fit(4) R 25. 51.3 0.08 05
hi/fit 100(51.1:51.6) g+p0 '0Q' 4 fit
hi/fit 100(50.5:52.) g+p0 '0Q' 4 fit
vec/cre fit(5) R 2. 51.3 0.08 0.
hi/fit 101(51.1:52.) 'gp0.for' '0Q' 4 fit
hi/fit 101(50.5:52.) 'gp0.for' '0' 4 fit

vec/cre fit1(4) R 8.e-4 972.87 0.076 0.
hi/fit 200(972.:974.) g+p0 '0Q' 4 fit1
hi/fit 200(971.5:974.) g+p0 '0' 4 fit1
vec/cre fit1(4) R 8.e-4 972.87 0.014 0.
hi/fit 201(972.:974.) 'gp0.for' '0Q' 4 fit1
hi/fit 201(971.5:974.) 'gp0.for' '0' 4 fit1

fort/file 66 asq_fits.ps
graph/meta 66 -111
max 100 30.
hi/plo 100(50.:53.)
max 200 0.0008
hi/plo 200(971.5:974.)
max 101 26.
hi/plo 101(50.:53.)
max 201 0.0008
hi/plo 201(971.5:974.)
fort/close 66

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