1、给出一条平面曲线：r = {t Sin[t], t 觊皱筠桡Cos[t]}；绘制曲线的图像：ParametricPlot[r, {t, -2 P足毂忍珩i, 5 Pi}, PlotStyle -> Blue]。
3、计算这个点位置上的切向量：qie = D[r, t] /. t -> Pi；原则是先求导再赋值。
5、算出切线的参数方旯皱镢涛程：Solve[{x, y} - r == u D[r, t] /. t -> Pi, {x, y}] // Values // Flatten；参数用u表示。
7、作出这条直线的图像：ContourPlot[Evaluate[Eliminate[{x, y} == Evaluate[ Solve[撑俯擂摔{x, y} - r == u D[r, t] /. t -> Pi, {x, y}] // Values // Flatten], u]], {x, -15, 15}, {y, -15, 15}, ContourStyle -> Pink]；图中的粉色直线与切向量重合，说明这真是切线。
