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 1（ - C R））/ C

和

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