问如何在Mathematica中绘制积分？
EN

Stack Overflow用户

提问于 2018-12-18 02:59:52

回答 1查看 808关注 0票数 -4

我需要用图表表示这个整数：integral

Integrate[1/Sqrt[x], {x, 1, Infinity}]

有人能帮我吗？

我需要用图表来证明这个inequality

Sum[1/Sqrt[n], {n, 2, Infinity}] > 
 Integrate[1/Sqrt[x], {x, 1, Infinity}]

我用来绘制它的总和：

b = Table[Sum[1/sqrt(n),{k,n}],{n,2,100}]
ListPlot[b]

但是我不知道如何处理积分

发布于 2018-12-18 03:50:07

请将公式作为代码发布，而不是作为图像。这是一个图表：

f = Function[x, 1./Sqrt[x]]
ll = 1
ul = 5
Plot[f[x], {x, ll, ul}, AxesOrigin -> {0, 0}, Filling -> Axis]

阴影区域对应于

Integrate[f[x], {x, ll, ul}]

如果将ul更改为Infinity，则此积分将不会计算

0==Limit[f[x], x -> Infinity]

也就是说，正如@Rohit所观察到的，积分发散了。

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/53821491

复制

相似问题

问如何在Mathematica中绘制积分？EN