Added Sept 12, 2019.
Taken from Peter Olver textbook, Introduction to Partial differential equations.
Solve for
Mathematica ✓
ClearAll["Global`*"]; pde = D[u[t, x], {t}] +2* D[u[t, x], {x}] == 0; ic = u[-1,x]==x/(1+x^2); sol = AbsoluteTiming[TimeConstrained[DSolve[{pde,ic}, u[t, x], {t, x}], 60*10]];
Maple ✓
restart; pde := diff(u(t, x), t) +2*diff(u(t, x),x) =0; ic:=u(-1,x)=x/(1+x^2); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve([pde,ic],u(t,x))),output='realtime'));
Hand solution
Solve
Solution
Let
Eq (3) says that
Now that we found
At
From the above then (1) can be written as
The following is an animation of the solution
3D |
2D |
|
|
Source code used for the above
____________________________________________________________________________________