## 15 Reputation

1 years, 308 days

## How do i clear this error...

Maple 18

blessing.mw please i really need your help on this, i have been trying to fix this error for a while now.

## How can i differentiate with dotted line...

Maple 18

Please can someone help me out, have been trying for a very long time now on how to differentiate the lines on the graph.......please find attachment below and correct..................................................................

restart;
with(plots):
#
# Define the ODE system
#
odeSys:= { (diff(F(eta), eta, eta, eta))*(1+epsilon-alpha((diff(F(eta), eta, eta))^2))+F(eta)*(diff(F(eta), eta, eta))+S*(diff(F(eta), eta))-(1/2)*S*eta*(diff(F(eta), eta, eta))-(diff(F(eta), eta))^2-M*(diff(F(eta), eta)), (diff(theta(eta), eta, eta))*(1+R)-delta*(diff(F(eta), eta))^2-Pr((3/2)*S*theta(eta)+(1/2)*S*eta*(diff(theta(eta), eta))-2*(diff(F(eta), eta))*theta(eta)+F*(diff(theta(eta), eta)))};
#
# Define the first set of boundary conditions
#
bcs1:= { F(0) = 0, (D(F))(0) = 1, (D(F))(inf) = 0, theta(0) = 1, theta(inf) = 0
}:

RVals:=[0.1, 0.5, 1]:
for k from 1 by 1 to numelems(RVals) do
pList:=[ epsilon = 0.18, M = 0.5, S = 1.5, delta = 0.3, Pr = 1.5, alpha = 0.4, R = RVals[k],inf=1
]:
sol1[k]:= dsolve( eval
( `union`( odeSys, bcs1),
pList
),
numeric
);
od:
display
( [ seq
( odeplot
( sol1[i],
[eta, theta(eta)],
eta=0..2
),
i=1..numelems(RVals)
)
],
color = [red, green, blue],
title = typeset( theta(eta), " versus ", eta),
titlefont = [times, bold, 20]
);

 Page 1 of 1
﻿