Mr. skystar Pak

## 15 Reputation

8 years, 265 days

## Data from a graph...

Maple 15

I draw a 3d graph and now i want the table of this graph. how can we get a table from the data of a plotted graph.

May grapg was obtained from the following commands

restart;
plot3d(1/2*(q^(2*n)-5.*q^n+(2.*q-1)^n+3), q = 2 .. 15, n = 2 .. 20);

## ODE, infinite domain...

Maple

TQ.mw

Can any one help for finding the solution of these differntial equations and then plotting the graph for differnt values of M

(FILE ATTACHED)

 >
 (1)
 >
 >
 (2)
 >

## how do i copy paste from maple work shee...

Maple , MaplePrimes

How can i copy paste some differential equations with boundary conditions from maple work sheet to here

## Multiple plot for different values of M...

Maple

I m using the follwing commands for ploting the five differnt values of M

```with(plots):
SDfd1 := odeplot(dsol[1], [eta, diff(f(eta), eta)], -1 .. 1, color = green, axes = box);
SDfd2 := odeplot(dsol[2], [eta, diff(f(eta), eta)], -1 .. 1, color = red, axes = box);
SDfd3 := odeplot(dsol[3], [eta, diff(f(eta), eta)], -1 .. 1, color = blue, axes = box);
SDfd4 := odeplot(dsol[4], [eta, diff(f(eta), eta)], -1 .. 1, color = black, axes = box);
SDfd5 := odeplot(dsol[5], [eta, diff(f(eta), eta)], -1 .. 1, color = pink, axes = box);
display([SDfd1, SDfd2, SDfd3, SDfd4, SDfd5], labels = ["η", "f ' (η)"],
labeldirections = [horizontal, vertical], labelfont = [italic, 16], axes = boxed,
axesfont = [times, 14], thickness = 3);```

But i do not want in colors.....i need graph without colors in different styles. how can ? Moreover i need legend which must be in centre of graph or within the box. It must not on left, right ,up or below. can some one help ?

## Library, Shooting, ode...

Maple

what does it means and what it will do. Can some one help me for solving this

Shootlib := "C:/Shoot9"; libname := Shootlib, libname; with(Shoot);

while i m receiving the following message:

"Error, invalid input: with expects its 1st argument, pname, to be of type {`module`, package}, but received Shoot "

Full program is :

restart; Shootlib := "C:/Shoot9"; libname := Shootlib, libname; with(Shoot);
with(plots):
N1 := 1.0; N2 := 2.0; N3 := .5; Bt := 6; Re_m := N1*Bt; gamma1 := 1;
FNS := {f(eta), fp(eta), fpp(eta), g(eta), gp(eta), m(eta), mp(eta), n(eta), np(eta), fppp(eta)};
ODE := {diff(f(eta), eta) = fp(eta),
diff(fp(eta), eta) = fpp(eta),
diff(fpp(eta), eta) = fppp(eta),
diff(g(eta), eta) = gp(eta),
diff(gp(eta), eta) = N1*(2.*g(eta)+(eta-2.*f(eta))*gp(eta)+2.*g(eta)*fp(eta)+2.*N2*N3*(m(eta)*np(eta)-n(eta)*mp(eta))),
diff(m(eta), eta) = mp(eta),
diff(mp(eta), eta) = Re_m*(m(eta)+(eta-2.*f(eta))*mp(eta)+2.*m(eta)*fp(eta)),
diff(n(eta), eta) = np(eta),
diff(np(eta), eta) = Re_m*(2.*n(eta)+(eta-2.*f(eta))*np(eta)+2.*N2/N3*m(eta)*gp(eta)),
diff(fppp(eta), eta) = N1*(3.*fpp(eta)+(eta-2.*f(eta))*fppp(eta)-2.*N2*N2*m(eta)*(diff(mp(eta), eta)))
}:

blt := 1.0;
IC := { f(0) = 0,
fp(0) = 0,
fpp(0) = alpha1,
g(0) = 1,
gp(0) = beta1,
m(0) = 0,
mp(0) = beta2,
n(0) = 0,
np(0) = beta3,
fppp(0) = alpha2
};
BC := { f(blt) = .5,
fp(blt) = 0,
g(blt) = 0,
m(blt) = 1,
n(blt) = 1};
infolevel[shoot] := 1;

 1 2 Page 1 of 2
﻿