I'm having trouble figuring out the code for problems 6 and 7. I don't need the solution just the code I need to input into Mathematica

a Problem 6 Compute and simplity the unit tangent vector T for r() (sint, cost, sin3t). aposr (t) (sin[t_], Cos[t l, sin(3t )i r (t)-D[r, t] simplify[r/Norm[r'l, Assumptions T>e] et: Tag Times in (Sin!t!l, Costt], Sin[3 tit is Protected. Set: Tag Times in (Costi-Sinit], 3 Cos(3 tilt is Protected. Cos[t Sint) 3 Cos(3t) t is Protected. * Set: Tag Times in V11+9 Cos 611+9 Cos 6t 11 9 Cos 6t Problem 7 Compute and simplify the unit normal vector N for r(t)-(sin t,cos t,sin 3t (Note that N is a built-in function in Mathematica so you can't call your vector N Abs Cos t Cos t Sin t Abs Cos t Cost Abs Sint Cos 3t Cos t Sin 3t: Abs Cos 3 t Tvpe here to search