【微分几何】空间曲线的曲率圆怎么绘制？

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}]