* make plot of neutrino paper requncies versus time
* jl 6/2000 at KEK

* preliminaries... clear the decks

  ve/del *
  hi/del *
  pic/del *

  option nsta
  option ndat
  option linx
  option liny
  option nbox

SET TFON  22
SET CFON  30
SET VFON  20
SET GFON  20
SET LFON  22

opt zfl
opt ndat
opt ngrid
opt nstat
*opt utit
set lwid 8
set PASS 7

title_global 'Neutrino Papers versus Date in Preprint Server"'

* number of xxx.lanl papers with the words neutrino or quark
* in each year 1991 - 6/15/2000

ve/cr gnu(9)   r   75  174  246  310  385  443  706  831  406
ve/cr quark(9) r  258  600  873 1064 1180 1274 1354 1373  577
ve/cr year(9)  r 1992 1993 1994 1995 1996 1997 1998 1999 2000
ve/cr gnufrac(9)

sigma year = year + 0.5

sigma gnufrac = gnu / quark

null 1992.0 2001.0 0.0 1.0 
atit 'year' 'fraction of neutrino articles' ! 220

gra 9 year gnufrac c*

atit 'year' 'fraction of neutrino articles' ! 220

pic/prin neutrinos.ps