Question: not answer found for dsolve??

hi

in attached file below not answer found for dsolve?

please help me

thanks..

dsove.mw

> 

restart

> 

J := 1:

> 

PDE := diff(T(z, t), z, z)-.2*(diff(T(z, t), t, t)) = int(.7703831837*(diff(T(z, tau), tau, tau))/(t-tau)^.3, tau = 0 .. t):

> 

with(inttrans):

> 

sol := laplace(PDE, t, s):

> 

> 

sol2 := subs([laplace(T(z, t), t, s) = U(z, t), T(z, 0) = sin(J*Pi*z), (D[2](T))(z, 0) = 0], sol)

diff(diff(U(z, t), z), z)-.2000000000*s^2*U(z, t)+.2000000000*s*sin(Pi*z) = -1.000000000*s^.3000000000*sin(Pi*z)+1.000000000*s^1.300000000*U(z, t)

(1)
> 

> 

sol3 := dsolve([sol2, (D[1](U))(0, t) = 0, (D[1](U))(1, t) = 0], U(z, t))

"sol3 := "

(2)
> 

U(z, t) = invlaplace(rhs(sol3), s, t)

Error, invalid input: rhs expects 1 argument, but received 0

 
> 

sol4 := simplify(subs(z = 0, rhs(sol3)))

Error, invalid input: rhs expects 1 argument, but received 0

 
> 

``

> 

``



Download dsove.mw

 

Please Wait...