How to convert a file from mathematica notebook to maple worksheet?

Ask a Question

Create a Post

Question:How to convert a file from mathematica notebook to maple worksheet?

Posted: Jayaprakash J 25 Product: Maple 17

September 10 2019

tittle.6.mw

$"Manipulate[Module[{sol,p1,p2,sys,tbleq,eq,init,sol1,solDTM,xDTM}, Np=10;H=1; sol=NDSolve[{alpha D[u[x,t],{x,2}]== D[u[x,t],{t,1}],u[-1,t]== 1,u[1,t]== 1,u[x,0]== Exp[-1000 (x+1)^2 (1-x)^2]},u[x,t],{x,-1,1},{t,0,1}]; p1=Plot[u[x,t]/.sol/.t-> ta,{x,-1,1},Frame-> True,PlotStyle->{Red,Thick},GridLines->Automatic,PlotRange->{0,1}]; eq[k_]:=alpha (k+2) (k+1) F[k+2][t]- F[k]'[t]==0; tbleq=Table[eq[i],{i,0,Np}]; init=Table[F[k][0]== If[k==0,0,0],{k,0,Np}]; sol1=Solve[{Sum[(1/H)^k F[k][t],{k,0,Np+2}]==1,Sum[(-1/H)^k F[k][t],{k,0,Np+2}]==1},{F[Np+1][t],F[Np+2][t]}]; sys=Join[tbleq/.sol1,init]//Flatten; solDTM=NDSolve[sys//Flatten,Table[F[k],{k,0,Np}],{t,0,0.5}]; xDTM[x_]:= Sum[((x/H)^k) F[k][t]/.sol1/.solDTM,{k,0,Np+2}]; p2=Plot[xDTM[x]/.t-> ta,{x,-1,1},Frame->True,GridLines->Automatic,PlotStyle->{Dashed,Thick,Blue},PlotRange->{0,1}]; Show[p1,p2,ImageSize->{580,400}]],{{alpha,1,"thermal diffusivity"},0.1,2,0.1,Appearance-> "Labeled"},{{ta,0.075,"time"},0.01,0.1,0.005,Appearance-> "Labeled"}] "$

Download tittle.6.mw

306 views
More...

Contact Author

Subscribe

Generate PDF

Answer

Reply

Share

Branch

Create a new Post in reply

Ask a related Question

Flag

Answer this Question Add a Comment

Share via:

E-Mail Address:
Password:
Remember Me:	Automatically sign in on future visits

E-Mail Address:
Password:
Remember Me:	Automatically sign in on future visits

Ask a Question

Create a Post

Question: How to convert a file from mathematica notebook to maple worksheet?

Question:How to convert a file from mathematica notebook to maple worksheet?

306 views
More...

Contact Author

Subscribe

Generate PDF

Answer

Reply

Share

Branch

Create a new Post in reply

Ask a related Question

Flag

Preview

Preview

Save this setting as your default sorting preference?

Ask a Question

Create a Post

Generating PDF…

Save this setting as your default sorting preference?
Note: You can change your preference any time in your account settings
Don't show this again

From:
To:

Custom Message (optional):

Ask a Question

Create a Post

Question: How to convert a file from mathematica notebook to maple worksheet?

Question:How to convert a file from mathematica notebook to maple worksheet?

306 views More... Contact Author Subscribe Generate PDF Answer Reply Share Branch Create a new Post in reply Ask a related Question Flag

Preview

Preview

Save this setting as your default sorting preference?

Ask a Question

Create a Post

Generating PDF…

306 views
More...

Contact Author

Subscribe

Generate PDF

Answer

Reply

Share

Branch

Create a new Post in reply

Ask a related Question

Flag