\START92\
\COMMENT=
\NAME=defempfk
\FILE=DEFEMPFK.9XP
()
Prgm
\(C)\ keine Parametervorgabe, def. y6(x)
EntfVar y6
Definier y6(x)=Summe(Folge(when(x\>=\lneupx[k-1] and x<lneupx[k],lneups[k-1],0),k,2,Dim(lneupx),1))/m+when(x\>=\lneupx[Dim(lneupx)],1,0)
ZeiStil 1,"Dot"
EndPrgm
\STOP92\