New answers tagged convolution
3
I'd suggest doing something like this
Clear[x, y, c, d, exp]
x[t_] := Exp[-2*t]*(HeavisideTheta[t + 2] - HeavisideTheta[t]) + (1 -
t/2)*(HeavisideTheta[t] - HeavisideTheta[t - 2])
y[t_] := -2*DiracDelta[t + 2] +
2*(HeavisideTheta[t] - HeavisideTheta[t - 2])
c[t_] := (c[t] = Convolve[x[d], y[d], d, t]);
kkkk = 4;
arr = Array[c, kkkk*8 + 1, {-4, ...
Top 50 recent answers are included
