0

I try for this ... I try for this

I want to see the result like this

Plots from web

Plot[(-1.047-1.50133 I)*E^((-0.34381+1.35844 I) t) *(1+ Erf[(0.72714+0.9341 
I)* Sqrt(t))+((-1.047+1.50133 I)*E^((-0.34381-1.35844 I) t)*
1+Erf[(0.72714-0.9341 I)*Sqrt(t))]
Erergo
  • 3
  • 2

1 Answers1

0

In seems that your function has an imaginary part of zero for all inputs in range:

expr[t_] := (-1.047 - 1.50133 I)*
   E^((-0.34381 + 1.35844 I) t)*(1 + Erf[(0.72714 + 0.9341 I) *Sqrt[t]]) + (-1.047 + 
     1.50133 I)*E^(( -0.34381 - 1.35844 I) t)*(1 + Erf[(0.72714 - 0.9341  I)*Sqrt[t]])

Table[Im[expr[t]], {t, 0, 15, 0.1}] // Union
{0.}
Mr.Wizard
  • 271,378
  • 34
  • 587
  • 1,371