1 files changed, 21 insertions, 0 deletions
diff --git a/689/CH5/EX5.4/4.sce b/689/CH5/EX5.4/4.sce
new file mode 100644
index 000000000..a17dceaa7
--- /dev/null
+++ b/689/CH5/EX5.4/4.sce
@@ -0,0 +1,21 @@
+clc; funcprot(0);
+//Example 5.4 Inclined Flat Plates   
+
+// Initialisation of variables
+Cl = 0.73;     // From Figure
+Cd = 0.164;     // From Figure
+l = 12;
+w = 2;
+alpha = 12;
+V = 50;
+rho = 0.002378;
+
+// Calculations
+A = l*w;
+L = (Cl*rho*A*V^2)/2;
+D = (Cd*rho*A*V^2)/2;
+R = sqrt(L^2+D^2);
+
+//Results 
+disp(R,"Total Force (lb) :", D ,"Force Parallel to Airstream (lb):",L,"Force Parallel to Airstream (lb):");
+