## 35 Reputation

0 years, 348 days

## Animation of the plots...

Maple 2018

How to get the animation graphs for eta =0..10

 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 > with(plots):   cols := [red, blue,green, black]:  plotA:= display   ( [ seq       ( odeplot         ( Ans[k],[eta,D(f)(eta)],           eta=0..10,           color=cols[k]         ),         k=1..numelems(KrVals)       )     ],     'axes'= 'boxed',labels=[eta,'f(eta)']   );
 > with(plots):   cols := [red, blue, green,black]: plotC:= display( [ seq( odeplot         ( Ans[k],[eta,Theta(eta)],           eta=0..10,           color=cols[k]         ),         k=1..numelems(KrVals)       )     ],     'axes'= 'boxed',labels=[eta,'Theta(eta)']   );
 >

 >

i need like this demo plot

## Ode exact solutions...

Maple 2022

 >
 >
 >
 >
 >
 >
 >
 >
 >
 >
 >

How to find the exact solution of ODE's

## Ode equations solution ...

Maple 2018

How to solve this type of ode in maple

need the value of S, Q, E

Maple 2018

dust_paper.pdf

## time dependent 2d plot...

Maple 2018
 > restart:
 > ra:=2: b1:=1.41: na:=0.7: we:=0.5: eta[1]:=4*0.1: d:=0.5:   xi:=0.1: m:=na: ea:=0.5: pr:=21: gr:=0.1: R:=0.9323556933:
 > PDE1:=ra*(diff(f(x,t),t))=+b1*(1+ea*cos(t))+(1/(R^2))*((diff(f(x,t),x,x))+(1/x)*diff(f(x,t),x));   IBC:= {D[1](f)(0,t)=0,f(1,t)=0,f(x,0)=0};
 (1)
 >