Added Nov 25, 2018.
Problem 12.2.5 (a) from Richard Haberman applied partial differential equations book, 5th edition
Solve for \(u(x,t)\)
With \(\omega (x,0)=f(x)\).
See my HW 12, Math 322, UW Madison.
Mathematica ✓
ClearAll["Global`*"]; pde = D[w[x, t], t] + c*D[w[x, t], x] == Exp[2*x]; ic = w[x, 0] == f[x]; sol = AbsoluteTiming[TimeConstrained[Simplify[DSolve[{pde, ic}, w[x, t], {x, t}, Assumptions -> c > 0 && x > 0 && t > 0]], 60*10]];
Maple ✓
restart; pde := diff(w(x,t),t)+c*diff(w(x,t),x)=exp(2*x); ic:=w(x,0)=f(x); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve([pde,ic],w(x,t)) assuming t>0,x>0,c>0),output='realtime'));
Hand solution
Using the method of characteristics, the systems of characteristic lines are (from the PDE itself)
With initial conditions at \(s=0\)
And \(u\left ( x,0\right ) =f\left ( x\right ) \) becomes
Equation (2) gives
From (5,6) solving for \(t_{2}\) gives
Equation (3) gives
Integrating
Using (7,4,5) in the above gives the solution
My solution is not the same as CAS, but it was verified OK using Maple pdetest.
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________