(Subscript[S, ij])=((Δ (Subscript[t, j])-Δ (Subscript[t, i]))/(j-i))1≤i+(Subscript[ϵ, 1])<j≤n   where   (Subscript[ϵ, 1])is   optimally   0,1,2,or   3Δ (Subscript[t, 0,1st])=median{(Subscript[S, ij]),1≤i≤(Subscript[ϵ, 1])<j≤n}