\START92\
\COMMENT=  Sekundäre Häufigkeitsverteilung 30.01.98 J.Garten
\NAME=hsek
\FILE=HSEK.92P
()
Prgm
Local  k,l,x
seq(x-0.5,x,0,int(l2[dim(l2)])+1)\->\l4
0\->\l4[1]
seq(0,x,0,int(l2[dim(l2)])+1)\->\l5
For  k,1,dim(l1)
 int(l1[k])+2\->\l
 l5[l]+1\->\l5[l]
EndFor
l5[2]\->\l5[1]
EndPrgm

\STOP92\