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