let p = windlf[D=10,x=85,y=15]
let q = sst[D=11,x=85,y=15]
set grid q
go regresst
ppl axlabp,-1,-1
plot/vs/nolab/sym=17/vlimits=24:36:1/hlimits=0:14:2/color p,q
ppl txlsze, 0.17
ppl axlsze 0.17 0.17
ppl dfltfnt tr
ppl plot
plot/dash=(0.3,0.1,0.3,0.1)/vs/over/line/col=black/vlimits=24:36:1/hlimits=0:14:2/nolab p,qhat