用Mathematica学习微分几何——曲线论(一)
来源:网络收集 点击: 时间:2024-02-18圆柱螺旋的参数方程是:
r:={Cos,Sin,t/6}
ParametricPlot3D,{t,0,6*Pi}]

圆柱螺旋是正则曲线,因为r≠0。
r:={Cos,Sin,t/6}
r
r.r//FullSimplify

求圆柱螺旋r在t=π/3时的切线方程:
r:={Cos,Sin,t/6}
p={x,y,z};
p-r==a r
消去参数a,就得到螺旋线的切线方程:
r:={Cos,Sin,t/6}
p={x,y,z};
Eliminate-a r==0,a]
再用Rule指定t-π/3就行了。

求r的法平面的方程:
r:={Cos,Sin,t/6}
p={x,y,z};
因为法平面和切向量垂直,所以(p-r).(r)==0
这就是法平面方程。

求螺旋线在{t,0,t}之间的弧长:
r:={Cos,Sin,t/6}
Integrate.r],{t,0,t}]
Mathematica有一个专门求曲线的弧长的函数:
ArcLength,{t,0,t}]

如果把正则曲线的弧长记为s,有:
s=s
求出s和t的反函数:t=t,就得到了曲线的自然参数方程:
r:=(r)/.t-6*s/Sqrtr//Simplify//TraditionalForm
此时,自然参数方程是:
r:={Cos],Sin],s/Sqrt}

在自然参数下,r的微商的模长是1。
r:={Cos],Sin],s/Sqrt}
r
r
r.r
r.r//Simplify

在常规参数方程转化为自然参数方程时,Mathematica需要先Clear。
MATHEMATICA微分几何版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_63061.html