mathematic或者其它数学软件求二维曲线长度我要求一个平面曲线的长度,但是这个曲线的函数是个隐函数,不能分离y,因此不能用曲线积分来直接求~有谁知道怎样整啊~急用,我好不容易才求出这

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/07 08:53:24
mathematic或者其它数学软件求二维曲线长度我要求一个平面曲线的长度,但是这个曲线的函数是个隐函数,不能分离y,因此不能用曲线积分来直接求~有谁知道怎样整啊~急用,我好不容易才求出这

mathematic或者其它数学软件求二维曲线长度我要求一个平面曲线的长度,但是这个曲线的函数是个隐函数,不能分离y,因此不能用曲线积分来直接求~有谁知道怎样整啊~急用,我好不容易才求出这
mathematic或者其它数学软件求二维曲线长度
我要求一个平面曲线的长度,但是这个曲线的函数是个隐函数,不能分离y,因此不能用曲线积分来直接求~有谁知道怎样整啊~急用

,我好不容易才求出这个曲线.但是却求不出它的长度!

mathematic或者其它数学软件求二维曲线长度我要求一个平面曲线的长度,但是这个曲线的函数是个隐函数,不能分离y,因此不能用曲线积分来直接求~有谁知道怎样整啊~急用,我好不容易才求出这
好吧,这一切太搞笑了……因为就在这几天,知道上还出现了另一个标题为“二维曲线”的提问而我也已答了,我便以为这个回答数为1的提问是我答的那个,直到今天看团队主页的时候我才发现不对囧……然后,“请你贴代码吧”——虽然很想这么说,不过难得会有个向我这个小团队直接求助的人而且还被我无端放置了这么多天我这次就抄一下吧.



你要积分的是整条曲线而不单单是你给的图上的部分吧?那么,姑且先来看看曲线全貌:
img = ContourPlot[1/x + 3/4 (((y - 1/Sqrt[3])/x)^2 + 1) Exp[ArcTan[(y - 1/Sqrt[3])/x] - \[Pi]/6] == 0, {x, -3, 1}, {y, -(1/5), 4}, PlotPoints -> 70]





然后,一般地说,就是取点、寻根、构造插值函数了——一般来说确实是这样,但是试了一下,这个函数在x=0处的奇点似乎造成了不小的麻烦,我一时想不到正面的解决方法,但是,却想到了一个邪道的、最大限度利用Mathematica隐藏数值特性的做法——我们需要的是曲线上的点的坐标,那么,上面的这个图里不就已经含了这些坐标了吗?:
Total[EuclideanDistance @@@ 
  Partition[First@Cases[Normal@img, Line[a_] :> a, Infinity], 2, 1]]
  
  (* 9.85614 *)
上面这个代码是通过提取图像中的隐藏坐标来求解曲线的近似长度的,你对着帮助查一查,再适当解构一下我的代码,应该就能看懂.