1 files changed, 22 insertions, 0 deletions
diff --git a/3821/CH7/EX7.8/Example7_8.sce b/3821/CH7/EX7.8/Example7_8.sce
new file mode 100644
index 000000000..0214e4013
--- /dev/null
+++ b/3821/CH7/EX7.8/Example7_8.sce
@@ -0,0 +1,22 @@
+///Chapter No 7 Fluid Mechanics
+////Example 7.8 Page No:118
+/// Find Power required to maintain the speed of upper plate
+//Input data
+clc;
+clear;
+dy=1.5*10^-4;      //Two horizontal plates are placed in m
+mu=0.12;            //Space between plates  Ns/m**2
+A=2.5;              //Upper area is required to move in m**2
+du=0.6;             //Speed rerlated to lower plate in m/s
+
+
+////(1)Calculation
+tau=mu*(du/dy);   //Shear stress N/m**2
+F=tau*A;            //Force in N
+P=F*du;             //Power required to maintain the speed of upper plate in W
+
+
+//Output 
+printf('Shear stress=%f N/m^2 \n ',tau);
+printf('Force=%f N \n ',F);
+printf('Power required to maintain the speed of upper plate=%f W \n ',P);