I consider a PDE system (?pdsolve,numeric)

PDE := {diff(u(x,t),t)=-1/20*diff(v(x,t),x,x),
diff(v(x,t),t)=diff(u(x,t),x,x)}:

IBC := {u(x,0)=sin(Pi*x), u(0,t)=0, u(1,t)=0,
v(x,0)=1-x, v(0,t)=1, v(1,t)=0}:

pds := pdsolve(PDE, IBC, numeric, spacestep=1/50);

Suppose, I need to use the data diff(u(x,t),x,x)  or diff(v(x,t),x,x) at x=0.

Hello, I am trying to solve the following BVP,

Eq1 := -mu0*M*(diff(theta(eta), eta))*exp(-M*theta(eta))*abs(diff(f(eta), eta))^m*(diff(f(eta), eta))

+mu0*exp(-M*theta(eta))*(m+1)*abs(diff(f(eta), eta))^m*(diff(f(eta), eta, eta))+theta(eta) = 0;

Eq2 := G*(diff(theta(eta), eta, eta))+mu0*exp(-M*theta(eta))*abs(diff(f(eta), eta))^(m+2) = 0;

bc := f(-1) = 0, f(1) = 0, theta(-1) =0.5, theta(1) = -0.5;

m:=-0.3 (or 0.3) :M:=1:mu0:=0.5:G:=3:

Hello every one, 

Here I will recall the PDE and its numerical solutiion provided by Maple help. 

PDE := diff(u(x,t),t)=-diff(u(x,t),x);

IBC := {u(x,0)=sin(2*Pi*x),u(0,t)=-sin(2*Pi*t)};

pds := pdsolve(PDE,IBC,numeric,time=t,range=0..1);

p1:=pds:-plot(t=0,numpoints=50):
p2:=pds:-plot(t=1/8,numpoints=50,color=blue):
p3:=pds:-plot(t=1/4,numpoints=50,color=green):
plots[display]({p1,p2,p3});

I want to export data...

Hello everyone,

I am trying to execute a procedure but its not giving me the desired output.

Please have a look.

Ad_proc.mw

Thanks

Hello every one,

I have a question about summing data from an ode.

ode:=diff(T(x),x$2)-T(x)^2=0;

bc:=T(0)=1,T(n)=0;

n:=3:

Thanks