基于所有先前方程结果的 Mathematica 绘图

Question

我有剧情
Plot[40500*x^(-0.1), {x, 1, 100}, 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.

有办法吗？

Answer 1

运行 x = 3

的一些例子

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

114574.

这可以使用 Sum:

找到

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

或使用Fold

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

114574.

FoldList 输出中间步骤。

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

{0, 40500., 78287.8, 114574.}

累加到100并舍弃初始零值：

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

Mathematica plotting based on all previous equation results