torus mathematica plot. {k0 -> 0. First Derivative; WRT New; S