用Mathematica跑程序
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/25 19:36:00
用Mathematica跑程序
In[1]:=Integrate[(x-0.006)/((x-0.006)^2+(8-7)^2+(7-5)^2)^(3/2),{x,-1,1}]
为什么这个式子什么反应也没有?
In[1]:=Integrate[(x-0.006)/((x-0.006)^2+(8-7)^2+(7-5)^2)^(3/2),{x,-1,1}]
为什么这个式子什么反应也没有?
![用Mathematica跑程序](/uploads/image/z/5819030-62-0.jpg?t=%E7%94%A8Mathematica%E8%B7%91%E7%A8%8B%E5%BA%8F)
Clear[x];
NIntegrate[(x - 0.006)/((x - 0.006)^2 + (8 - 7)^2 + (7 - 5)^2)^(3/2), {x, -1, 1}]
NIntegrate[(x - 0.006)/((x - 0.006)^2 + 5)^(3/2), {x, -1, 1}]
这样快.
再问: Clear[x];
NIntegrate[(x-0.006)/((x-0.006)^2+(y-y1)^2+(z-z1)^2)^(3/2)-(x+0.006)/((x+0.006)^2+(y-y1)^2+(z-z1)^2)^(3/2),{y1,-1,1},{z1,-1,1}]
实际上我求的是五重积分,为什么解不出来?
ps:解答中的修改是什么意思,为什么一下就有结果了?
再答: NIntegrate数值积分比符号积分快。
NIntegrate[(x - 0.006)/((x - 0.006)^2 + (8 - 7)^2 + (7 - 5)^2)^(3/2), {x, -1, 1}]
NIntegrate[(x - 0.006)/((x - 0.006)^2 + 5)^(3/2), {x, -1, 1}]
这样快.
再问: Clear[x];
NIntegrate[(x-0.006)/((x-0.006)^2+(y-y1)^2+(z-z1)^2)^(3/2)-(x+0.006)/((x+0.006)^2+(y-y1)^2+(z-z1)^2)^(3/2),{y1,-1,1},{z1,-1,1}]
实际上我求的是五重积分,为什么解不出来?
ps:解答中的修改是什么意思,为什么一下就有结果了?
再答: NIntegrate数值积分比符号积分快。