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