# Question:To find the table values of Nusselt and Skin friction

## Question:To find the table values of Nusselt and Skin friction

Maple 2018

odeSys := {diff(Theta(x), x, x)+Pr*(R*(diff(Theta(x), x))*f(x)+Nb*(diff(Theta(x), x))*(diff(Phi(x), x))+Nt*(diff(Theta(x), x))^2), N2*(diff(G(x), x, x))-N1*(2*G(x)+diff(f(x), x, x))-N3*R*((diff(f(x), x))*G(x)-f(x)*(diff(G(x), x))), diff(Phi(x), x, x)+R*Sc*f(x)*(diff(Phi(x), x))+Nt*(diff(Theta(x), x, x))/Nb, (1+N1)*(diff(g(x), x, x))+R*((diff(g(x), x))*f(x)-g(x)*(diff(f(x), x)))-M*g(x)+2*Kr*(diff(f(x), x)), (1+N1)*(diff(f(x), x, x, x, x))-R*((diff(f(x), x))*(diff(f(x), x, x))-f(x)*(diff(f(x), x, x, x)))+N1*(diff(G(x), x, x))-M*(diff(f(x), x, x))-2*Kr*(diff(g(x), x))}; cond := f(0) = 0, (D(f))(0) = 1, g(0) = 0, Theta(0) = 1, G(0) = -n*((D@@2)(f))(0), Phi(0) = 1, f(1) = lambda, (D(f))(1) = 0, g(1) = 0, Theta(1) = 0, G(1) = n*((D@@2)(f))(1), Phi(1) = 0; ans := {};

n := .5; N1 := 0.; N2 := 1.0; N3 := .1; lambda := .1; M := .1; Kr := .1; Sc := 1.0; Nb := .1; Pr := 1.0; Nt := .1; R := .5;

ans := dsolve*{cond, eval*odeSys};

hello these are the pde and Boundary conditions  i want to calculate the value of f''(0) ,Theta(0) and  Phi(0)

what is the proper cammand to get the table values for the given equation
NBVs := [eval(ans(N1*G(x)+(1+N1)*(diff(f(x), x, x))), x = 0), eval(ans(-(diff(Theta(x), x))), x = 0), eval(ans(-(diff(Phi(x), x))), x = 0)];

﻿