Question: How I can separate three functions

Hello,

How I can separate three functions (u__r,u__theta and u__phi) in the equation attached below.

Please also see attached figure. I want to calculate L11,L22,L33.

Thanks.

SEPARATE.mw
 

restart

B := simplify((r*(R+r*cos(theta))^2*(mu+lambda)*(diff(`u__θ`(r, theta, phi), r, theta))+2*r^2*(R+r*cos(theta))^2*(mu+(1/2)*lambda)*(diff(u__r(r, theta, phi), r, r))+r^2*(mu+lambda)*(R+r*cos(theta))*(diff(`u__φ`(r, theta, phi), phi, r))+mu*(R+r*cos(theta))^2*(diff(u__r(r, theta, phi), theta, theta))+(diff(u__r(r, theta, phi), phi, phi))*mu*r^2-3*(R+r*cos(theta))^2*(mu+(1/3)*lambda)*(diff(`u__θ`(r, theta, phi), theta))+(2*(R+2*r*cos(theta)))*r*(R+r*cos(theta))*(mu+(1/2)*lambda)*(diff(u__r(r, theta, phi), r))-r^2*sin(theta)*(mu+lambda)*(R+r*cos(theta))*(diff(`u__θ`(r, theta, phi), r))-3*r^2*(mu+(1/3)*lambda)*cos(theta)*(diff(`u__φ`(r, theta, phi), phi))-r*mu*sin(theta)*(R+r*cos(theta))*(diff(u__r(r, theta, phi), theta))-(2*(2*cos(theta)^2*r^2+2*cos(theta)*R*r+R^2))*(mu+(1/2)*lambda)*u__r(r, theta, phi)+r*`u__θ`(r, theta, phi)*sin(theta)*(3*r*(mu+(1/3)*lambda)*cos(theta)+R*mu))/(r^2*(R+r*cos(theta))^2))

``

``

 


 

Download SEPARATE.mw


 

Please Wait...