# Question:how to plot graph and insert arrow

## Question:how to plot graph and insert arrow

Maple

i want to plot two difrent graph in one diagram.. anyone how to do it?

restart; with(plots); n := .2; B := .5; Ec := 2.0; Pr := 1.0; N := .5; l := 1; rho := .5; c := 1; T := .5; T1 := .5; c1 := .2; c2 := .2; Gr := .5; blt := 5;

Eq1 := diff(f(eta), eta, eta, eta)+f(eta)*(diff(f(eta), eta, eta))-(diff(f(eta), eta))^2+l*B*H(eta)*(F(eta)-(diff(f(eta), eta)))+Gr*theta(eta)-Mn*(diff(f(eta), eta)) = 0;

Eq2 := G(eta)*(diff(F(eta), eta))+F(eta)^2+B*(F(eta)-(diff(f(eta), eta))) = 0;

Eq3 := G(eta)*(diff(G(eta), eta))+B*(f(eta)+G(eta)) = 0;

Eq4 := G(eta)*(diff(H(eta), eta))+H(eta)*(diff(G(eta), eta))+F(eta)*H(eta) = 0;

Eq5 := diff(theta(eta), eta, eta)+Pr*((diff(theta(eta), eta))*f(eta)-2*(diff(f(eta), eta))*theta(eta))+N*Pr*(theta1(eta)-theta(eta))/(rho*c*T)+N*Pr*Ec*(F(eta)-(diff(f(eta), eta)))^2/(rho*T1) = 0;

Eq6 := 2*F(eta)*theta1(eta)+G(eta)*(diff(theta1(eta), eta))+c1*(theta1(eta)-theta(eta))/(c*c2*T) = 0;

bcs1 := f(0) = 0, (D(f))(0) = 1, (D(f))(blt) = 0, F(blt) = 0, G(blt) = -f(blt), H(blt) = n, theta(0) = 1, theta(blt) = 0, theta1(blt) = 0;

L := [0, 1, 2];

for k to 3 do R := dsolve(eval({Eq1, Eq2, Eq3, Eq4, Eq5, Eq6, bcs1}, Mn = L[k]), [f(eta), F(eta), G(eta), H(eta), theta(eta), theta1(eta)], numeric, output = listprocedure); Y || k := rhs(R[3]); YP || k := rhs(R[5]); YR || k := rhs(R[6]); YQ || k := rhs(R[7]); YA || k := rhs(R[8]); YB || k := rhs(R[10]) end do;

plot([Y || (1 .. 3)], 0 .. 10, labels = [eta, (D(f))(eta)]);

this comands will comeout to diffrent graph in two diagram.. but i want two graph in one diagram.. any one know how to do it.. beside that.. i want to know how to insert arrow in diagram..

﻿