Plot3D[{Re[10*Sqrt[2]*Exp[t*(0.175*(1-y/10)+(y/10-0.001))/2000]*Sin[t*Sqrt[(0.175*(1-y/10)+(y/10-0.001))^2-4*10^8]+Pi/4]]},{t,-10^-4,10^-4},{y,-10,10}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.