\START92\
\COMMENT=
\NAME=defempvf
\FILE=DEFEMPVF.89P
()
Prgm
DelVar y1
Define y1(x)=sum(seq(when(x\>=\loldpx[k-1] and x<loldpx[k],loldps[k-1],0),k,2,dim(loldpx),1))/m+when(x\>=\loldpx[dim(loldpx)],1,0)
Style 1,"Dot"
EndPrgm
\STOP92\