Advanced Search

Question: replace function u__0(r, theta, t) with f[1, 1](r, theta)

Question:replace function u__0(r, theta, t) with f[1, 1](r, theta)

9009134 110 Maple 2018
substitution
June 18 2019
0

How I can replace function u__0(r, theta, t) with f[1, 1](r, theta) in attached file.

I want in equation I have only f[1,1] function.

Thanks 

replace.mw
 

````

> 

"f[1, 1](r, theta):=`u__0`(r, theta,t) "

proc (r, theta) options operator, arrow, function_assign; u__0(r, theta, t) end proc

 (1)
``````````
> 

"L[1, 1](r, theta):=-`A__0`*(∂)/(∂r) (F*(∂)/(∂r)`u__0`(r,theta))-1/(2)*`A__0`*(∂)/(∂r) (`K__1`*`u__0`(r,theta))+1/(2)*`A__0`*`K__1`*(∂)/(∂r)`u__0`(r,theta)-1/(2)*`A__0`*(∂)/(∂ r) (`H__1`*`u__0`(r,theta))+1/(2)*`A__0`*`H__1`*(∂)/(∂r)`u__0`(r,theta)+`K__3`*`A__0`*`u__0`(r,theta)-1/(2)*`A__0`*(∂)/(∂ r) (`K__4`*`u__0`(r,theta))+1/(2)*`A__0`*`K__4`*(∂)/(∂r)`u__0`(r,theta)+`A__0`*`K__5`*`u__0`(r,theta)-2*`A__0`*(∂)/(∂ theta) ((`H__2`)/(r)*(∂)/(∂theta)`u__0`(r,theta))+(1)/(4)*`A__0`*l^(2)*((∂)^(2))/(∂ r ∂ theta)(mu*((∂)^(2))/(∂r ∂theta)`u__0`(r,theta))+(1)/(4)*`A__0`*l^(2)*((∂)^(2))/(∂theta^(2))(mu*((∂)^(2))/(∂ theta^(2))`u__0`(r,theta))+rho*`A__0`*`K__16`*((∂)^(2))/(∂t^(2))`u__0`(r,theta);"

proc (r, theta) options operator, arrow, function_assign; -A__0*(diff(F*(diff(u__0(r, theta), r)), r))-(1/2)*A__0*(diff(K__1*u__0(r, theta), r))+(1/2)*A__0*K__1*(diff(u__0(r, theta), r))-(1/2)*A__0*(diff(H__1*u__0(r, theta), r))+(1/2)*A__0*H__1*(diff(u__0(r, theta), r))+K__3*A__0*u__0(r, theta)-(1/2)*A__0*(diff(K__4*u__0(r, theta), r))+(1/2)*A__0*K__4*(diff(u__0(r, theta), r))+A__0*K__5*u__0(r, theta)-2*A__0*(diff(H__2*(diff(u__0(r, theta), theta))/r, theta))+(1/4)*A__0*l^2*(diff(mu*(diff(u__0(r, theta), r, theta)), r, theta))+(1/4)*A__0*l^2*(diff(mu*(diff(u__0(r, theta), theta, theta)), theta, theta))+rho*A__0*K__16*(diff(u__0(r, theta), t, t)) end proc

 (2)

``


 

Download replace.mw

 
Please Wait...