Plot[NevilleThetaS[1, m], {m, -1, 1}]