Question: Simplifying an equation

I am not able to simplify my equation, any help would be appreciated ! I want the V[0]^2/r[0]  term to be eliminated

restart:with(Student[VectorCalculus]): 

R1:=rho(diff(u(r,theta,z,t)*(V[0])^2/r[0],t)+ u(r,theta,z,t)*V[0](diff(u(r,theta,z,t)*V[0]/r[0],r))+v(r,theta,z,t)*V[0]/(r*r[0])*diff(u(r,theta,z,t)*V[0],theta)+w(r,theta,z,t)*V[0]*diff(u(r,theta,z,t)*V[0]/r[0],z)-(v(r,theta,z,t)*V[0])^2/(r*r[0])) +diff(p(r,theta,z,t)*rho*V[0]^2/r[0],r); simplify(R1*r[0]/V[0]^2);

rho((diff(u(r, theta, z, t), t))*V[0]^2/r[0]+u(r, theta, z, t)*V[0]((diff(u(r, theta, z, t), r))*V[0]/r[0])+v(r, theta, z, t)*V[0]^2*(diff(u(r, theta, z, t), theta))/(r*r[0])+w(r, theta, z, t)*V[0]^2*(diff(u(r, theta, z, t), z))/r[0]-v(r, theta, z, t)^2*V[0]^2/(r*r[0]))+(diff(p(r, theta, z, t), r))*rho*V[0]^2/r[0]

 

((diff(p(r, theta, z, t), r))*rho*V[0]^2+rho((w(r, theta, z, t)*V[0]^2*(diff(u(r, theta, z, t), z))*r+(diff(u(r, theta, z, t), t))*V[0]^2*r+u(r, theta, z, t)*V[0]((diff(u(r, theta, z, t), r))*V[0]/r[0])*r*r[0]-v(r, theta, z, t)^2*V[0]^2+v(r, theta, z, t)*V[0]^2*(diff(u(r, theta, z, t), theta)))/(r*r[0]))*r[0])/V[0]^2

(1)

 

Download 1.mw

 

 

Please Wait...