Added May 23, 2019.
From Math 5587 midterm I, Fall 2016, practice exam, problem 4.
Solve for
With with
Mathematica ✓
ClearAll["Global`*"]; pde = D[u[x, t], t] + t*D[u[x, t], x] == 0; ic = u[x,0]==Exp[x]; sol = AbsoluteTiming[TimeConstrained[DSolve[{pde,ic}, u[x, t], {x, t}], 60*10]];
Maple ✓
restart; pde := diff(u(x,t),t)+t*diff(u(x,t),x)=0; ic :=u(x,0)=exp(x); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve([pde,ic],u(x,t))),output='realtime'));
Hand solution
Solve
With initial conditions at
Equation (2) now becomes
From (5,6) solving for
Equation (3) gives
____________________________________________________________________________________