1 files changed, 37 insertions, 0 deletions
diff --git a/965/CH7/EX7.10/10.sci b/965/CH7/EX7.10/10.sci
new file mode 100644
index 000000000..5a0ad2a18
--- /dev/null
+++ b/965/CH7/EX7.10/10.sci
@@ -0,0 +1,37 @@
+clc;
+clear all;
+disp("Laminar flow over plate")
+
+x=0.28;//m
+U=3;//m/s velocity of air
+rho=1.1374;//kg/m^3 density of air
+k=0.02732;// W/(m.C)
+cp=1005;// kJ/kg.K
+v=1.6768*10^(-5);//mm^2/s kinematic viscosity of air
+Pr=0.7;// Prandlt number
+Ts=56;// degree C
+Ta=20;// degree C
+A=0.28*0.28;//m^2
+Rex=U*x/v;// Reynold's number
+Rex
+delta=5*x*1000/(Rex)^0.5;//mm
+disp("mm",delta,"Boundary layer thickness =")
+Cfx=0.664/(Rex)^0.5;
+disp(Cfx,"local friction coefficient =")
+Cf=1.328/(Rex)^0.5;
+disp(Cf,"Average friction coefficient =")
+tau=Cfx*0.5*rho*U^2;// shear stress
+disp("N/m^2",tau,"Shear stress , =")
+deltath=delta/(Pr)^(1/3);
+disp("mm",deltath,"Thickness of thermal boundary level =")
+hx=0.332*(k/x)*Rex^0.5*Pr^(1/3);
+disp("W/(m^2.C)",hx,"Local convective heat transfer coefficient, hx =")
+h=0.664*(k/x)*Rex^0.5*Pr^(1/3);
+disp("W/(m^2.C)",h,"average convective heat transfer coefficient, h =")
+Qconv=h*A*(Ts-Ta);
+disp("W",Qconv,"Rate of heat transfer by convection, Qconv =")
+tau=0.01519;
+Fd=tau*A;
+disp("N",Fd,"drag force on one the plate, =")
+m=5*rho*U*0.00626/8;
+disp("kg/s",m,"Total mass flow rate through the  boundary =")