1 files changed, 19 insertions, 0 deletions
diff --git a/587/CH6/EX6.2/example6_2.sce b/587/CH6/EX6.2/example6_2.sce
new file mode 100755
index 000000000..a705ad377
--- /dev/null
+++ b/587/CH6/EX6.2/example6_2.sce
@@ -0,0 +1,19 @@
+clear;
+clc;
+
+//Example6.2[Finding Convection Coefficient from Drag Measurement]
+//Given:-
+//Properties of air
+rho=1.204;//[kg/m^3]
+Cp=1007;//[J/kg.K]
+Pr=0.7309;//Prandtl number
+w=2;//Width of plate[m]
+L=3;//Characteristic length of plate[m]
+v=7;//velocity of air[m/s]
+Fd=0.86;//Total grag force[N]
+//Solution:-
+As=2*w*L;//Since both sides of plate are exposed to air flow[m^2]
+//For flat plates drag force is equivalent to friction coefficient Cf
+Cf=Fd/(rho*As*(v^2)/2);
+h=(Cf*rho*v*Cp)/(2*(Pr^(2/3)));//[W/m^2.degree Celcius]
+disp("respectively","W/m^2.degree Celcius",h,"and",Cf,"Friction Factor and average heat transfer coefficient are")