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

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