Graph Mathematica基于所有以前的方程式结果进行绘图

我有一个情节

Plot[40500*x^（-0.1），{x，1100}，PlotRange->{0，50000}]

我试图画出这些y值的累积值。我将试着用一个例子来解释：

我正试着去

for x=1: 40500*1^(-0.1) 
for x=2: 40500*(2^(-0.1)+1^(-0.1)) 
for x=3: 40500*(3^(-0.1)+2^(-0.1)+1^(-0.1)) 
and so on up to x=100.

---

有办法吗？

为

x=3运行一些示例

for x=3: 40500*(3^(-0.1)+2^(-0.1)+1^(-0.1)) 

可以使用
Sum
找到该值：

Sum[40500*i^(-0.1), {i, 3}]

或者使用
折叠

Fold[#1 + 40500*#2^(-0.1) &, 0, {1, 2, 3}]

折叠列表
输出中间步骤

FoldList[#1 + 40500*#2^(-0.1) &, 0, {1, 2, 3}]

累积到100并丢弃初始零值：

ListLinePlot[Rest[FoldList[#1 + 40500*#2^(-0.1) &, 0, Range[100]]]]

有一个。请查看FoldList文档中的示例，看看这是否能满足您的需要。谢谢！我刚刚意识到我需要的实际上是集成。我很笨，我花了那么多时间寻找我问题的答案。
FoldList[#1 + 40500*#2^(-0.1) &, 0, {1, 2, 3}]

{0, 40500., 78287.8, 114574.}

ListLinePlot[Rest[FoldList[#1 + 40500*#2^(-0.1) &, 0, Range[100]]]]