График показывает другой ответ на аналогичные аргументы

Question

Я только начал изучать математику, так что прости меня, если это простой вопрос.Я пытаюсь выяснить, почему Plot, содержащее выражение с ReplaceAll, отличается от Plot с Set.У меня есть:

Clear["Global`*"]
I0[t_] = HeavisidePi[(t - 1/2 10^-9)/10^-9];
sol = DSolve[{D[I2[t], t]*R == I1[t]/C0, I0[t] == I1[t] + I2[t], 
    I2[0] == 0}, {I1[t], I2[t]}, t];
I2 = I2[t] /. sol[[1]];
Plot[I2 /. {C0 -> 5*10^-12, R -> 500}, {t, -2 10^-9, 10^-8}]
C0 = 5*10^-12;
R = 500;
Plot[I2, {t, -2 10^-9, 10^-8}]

По некоторым причинам первый Plot дает правильный ответ, а второй неправильный.Я ожидал таких же ответов.В чем причина разницы?

Answer 1

Да, это интересно.Если t установлено первым, то значение t = 0.5* 10^-9 равно 0,181269, но если оно останется символическим до тех пор, пока не будет получено значение 0,402672

a = Plot[
   I2 /. {C0 -> 5*10^-12, R -> 500}, {t, -2 10^-9, 10^-8}];

b = Plot[Evaluate[
    I2 /. {C0 -> 5*10^-12, R -> 500}], {t, -2 10^-9, 10^-8}];

x = 0.5* 10^-9;

c = I2 /. t -> x /. {C0 -> 5*10^-12, R -> 500}

0,181269

d = I2 /. {t -> x, C0 -> 5*10^-12, R -> 500}

0.402672

Show[{a, b, ListPlot[{{x, c}, {x, d}}]}, PlotRange -> All]