直接指令貌似没有,只能自己按第一类曲线积分的积分规则编制式子来进行计算,总之,为了了解曲线形貌先让我们ContourPlot一下： 　　Table[ContourPlot[x^(2n)+y^(2n)==1,{x,-1,1},{y,-1,1}],{n,1,10}] 　　好,曲线形貌这下了解了.（其实数学够强的话这步都可以省略.）你肯定不是想要解析解吧（这类曲线也大多没解析解……）,那么： 　　Table[8NIntegrate[Sqrt[D[Sin[t]^(1/n),t]^2+D[Cos[t]^(1/n),t]^2],{t,0,Pi/4}],{n,1,10}] 　　这里用了参数式,并且用了8分之1弧来计算,因为不这么做会有警告信息,理由可能是这簇曲线在顶点附近的变化太激烈了.（竖着看的时候……）当然另一种方法是增加精度或者递推分割数,但那样并不是什么时候都有效……

　　谢谢~Table[8NIntegrate[Sqrt[D[Sin[t]^(1/n),t]^2+D[Cos[t]^(1/n),t]^2],{t,0,Pi/4}],{n,1,10}]是什么意思呀？8分之1弧？D是什么意思呀？麻烦啦我们数学实验的考试题

　　……同学，找个mathematica的入门书看看吧，或者装个8.0的中文版多查查帮助。Table是产生一个列表，在这里列表元素依次是n=1，2，3……时的弧长。D是求导数，里面的积分式其实就是积出了八分之一弧长再乘了一个8，NIntegrate是数值积分，剩下的基本就是传统数学式，没啥不懂了吧。