New answers tagged

1 vote
Accepted

Insert a nonlinear PDE in Mathematica

ClearAll[h, x, n, t] hx = D[h[x, t], x]; ht = D[h[x, t], t]; sqrtTerm = Sqrt[1 + 4*n*Abs[hx]]; ode = -Sign[hx]*1/2*D[ h[x, t]*(sqrtTerm - 1), x] == -ht Just do ...
Nasser's user avatar
  • 142k

Top 50 recent answers are included