plot - 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^(-cr))/c

和

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