! Created automatically by tsplot

! Read compact datafile ADV10KU.MA7
open "ADV10KU.MA7"
lread header
set chronstart -5519
set chronend 1996
vread "(13F6.0)" 0 value0;
close
set $missing = 9990

! Normalize value0
mean value0 m
popsd value0 sd
subtract m from value0
divide value0 by sd

! Read compact datafile ADV10KU.MA7
open "ADV10KU.MA7"
lread header
set chronstart -5519
set chronend 1996
vread "(13F6.0)" 0 value1;
close
set $missing = 9990

! Normalize value1
mean value1 m
popsd value1 sd
subtract m from value1
divide value1 by sd

vextend value1 mask 0 0
!!!tspad value1 10
filter value1 smooth1 25
mask smooth1 mask
mask value1 mask

! Set up page
portrait
figure 5,3 92,128
pitch 12  centred  fmove 50,101  text "finland"
pitch 8

graphregion 0,75 100,25


! Draw gridlines
frame graph
dataregion 0,2000 0,1
dash medium
move 500,0  draw 500,1
move 1000,0  draw 1000,1
move 1500,0  draw 1500,1
move 0,0.5  draw 2000,0.5
dash off

! Yaxis
dataregion -6000,-4000 -3,3
yaxis step 1 missing ends annot 0
tick left 1
tick right 1
gmove 3,90  starting  text "6000 - 4000 BC"

! Extract required bit of each dataset and plot
pen thin
vextend value0 data 0 0
chop data 1 1520
tsmode histogram  tsmode offset
tsplot data -5520 1
pen normal
pen thick
vextend smooth1 data 0 0
chop data 1 1520
tsmode simple
tsplot data -5520 1
pen normal
graphregion 0,50 100,25


! Draw gridlines
frame graph
dataregion 0,2000 0,1
dash medium
move 500,0  draw 500,1
move 1000,0  draw 1000,1
move 1500,0  draw 1500,1
move 0,0.5  draw 2000,0.5
dash off

! Yaxis
dataregion -4000,-2000 -3,3
yaxis step 1 missing ends annot 0
tick left 1
tick right 1
gmove 3,90  starting  text "4000 - 2000 BC"

! Extract required bit of each dataset and plot
pen thin
vextend value0 data 0 0
chop data 1521 2000
tsmode histogram  tsmode offset
tsplot data -4000 1
pen normal
pen thick
vextend smooth1 data 0 0
chop data 1521 2000
tsmode simple
tsplot data -4000 1
pen normal
graphregion 0,25 100,25


! Draw gridlines
frame graph
dataregion 0,2000 0,1
dash medium
move 500,0  draw 500,1
move 1000,0  draw 1000,1
move 1500,0  draw 1500,1
move 0,0.5  draw 2000,0.5
dash off

! Yaxis
dataregion -2000,0 -3,3
yaxis step 1 missing ends annot 0
tick left 1
tick right 1
gmove 3,90  starting  text "2000 - 1 BC"

! Extract required bit of each dataset and plot
pen thin
vextend value0 data 0 0
chop data 3521 2000
tsmode histogram  tsmode offset
tsplot data -2000 1
pen normal
pen thick
vextend smooth1 data 0 0
chop data 3521 2000
tsmode simple
tsplot data -2000 1
pen normal
graphregion 0,0  100,25


! Draw gridlines
frame graph
dataregion 0,2000 0,1
dash medium
move 500,0  draw 500,1
move 1000,0  draw 1000,1
move 1500,0  draw 1500,1
move 0,0.5  draw 2000,0.5
dash off

! Yaxis
dataregion 0,2000 -3,3
yaxis step 1 missing ends annot 0
tick left 1
tick right 1
gmove 3,90  starting  text "1 - 2000 AD"

! Extract required bit of each dataset and plot
pen thin
vextend value0 data 0 0
chop data 5521 1996
tsmode histogram  tsmode offset
tsplot data 0 1
pen normal
pen thick
vextend smooth1 data 0 0
chop data 5521 1996
tsmode simple
tsplot data 0 1
pen normal
xaxis missing first step 500 annot 0
xaxis from 1 to 1 step 1 annot 0
pitch 3  pmove 99.5,5  starting  pen thin  text up `Thu 30-Sep-99 14:21    /dave3/f023/treering/external/mauri99    tsplot -informat compact -sigma 3 -papersize a4 -msd auto -raw ADV10KU.MA7 thin -smooth 25 ADV10KU.MA7 thick -title finland -debug`