Finding Unit Normal Vector Mathematica