平面曲线的曲率圆的圆心位于法向量上，而三维空间里面的曲线，曲率圆圆心位于主法向量上，曲率圆位于密切平面上。本文，就用Mathematica来绘制空间曲线的曲率圆。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
曲线r[t_] := {Cos[2 t], 3 Sin[2 t], 2 Cos[t]};
2
计算曲率，Mathematica有内置命令：
3
绘制密切圆的自定义函数如下图：
4
画出t=0点的密切圆（也就是曲率圆）：miqie[0]
5
t=1点的密切圆：miqie[1]
6
曲线上密切圆的动态图：Manipulate[miqie[n], {n, 0, 2 Pi}]
上一篇：宝宝嘴边长小红点怎么办?