;$Id: ppdf.pro,v 1.1 2013/07/20 03:32:43 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=12,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/koen/RFP/fig/pfrac.ps
;
!p.charsize=1.7
!x.margin=[8.8,.5]
!y.margin=[3.2,.5]
;
restore,'pdf.sav'
!p.multi=[0,3,1]
plot_io,xx,yy,xst=0
plot,xx,integr(xx*yy,x=xx,/rev)/(total(xx*yy)*(xx(1)-xx(0))),xst=0,yst=0
plot_oo,integr(xx*yy,x=xx,/rev)/(total(xx*yy)*(xx(1)-xx(0))),integr(yy,x=xx,/rev),xr=[.02,1],yr=[.01,1]
;
vvv=grange(.01,1.,100)
p=.2
bbb=(1.-.3*alog(vvv))*vvv
oplot,bbb,vvv,li=1
vv=.16 & oplot,[1,1]*.25,[.01,vv],li=3 & oplot,[.02,.25],[1,1]*vv,li=3
END