7.1.4 problem number 4

problem number 421

Added January 2, 2019.

Problem 1.4 from Handbook of first order partial differential equations by Polyanin, Zaitsev, Moussiaux.

Solve for w(x,y) wy=wf(x,y)

Mathematica

ClearAll["Global`*"]; 
pde =  D[w[x, y], y] == w[x, y]*f[x, y]; 
sol =  AbsoluteTiming[TimeConstrained[DSolve[pde, w[x, y], {x, y}], 60*10]];
 

{{w(x,y)c1(x)exp(1yf(x,K[1])dK[1])}}

Maple

restart; 
pde := diff(w(x,y),x)=w(x,y)*f(x,y); 
cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,w(x,y))),output='realtime'));
 

w(x,y)=_F1(y)ef(x,y)dx

____________________________________________________________________________________