Mathematica - 数值和分析图不重叠

Question

我想在 Mathematica 中绘制像指数这样的简单函数。 我在使用以下代码时遇到问题：

A[r_, c_] := Exp[-c r]
IntNum[r_?NumericQ, c_] := Integrate[A[t, c], {t, 0, r}]
IntAnal[r_, c_] := -(1/c) Exp[-c r]
Plot[{IntNum[r, 1], IntAnal[r, 1]}, {r, 0, 3}]

我不明白为什么这两个函数没有给出相同的情节。

Answer 1

由于：

A[r_, c_] := Exp[-c r]
Integrate[A[t, c], {t, 0, r}]

  

（1 - E ^（ - c r））/ c

和

(1 - E^(-c r))/c != -(1/c) Exp[-c r]