1 files changed, 15 insertions, 0 deletions
diff --git a/689/CH8/EX8.15/15.sce b/689/CH8/EX8.15/15.sce
new file mode 100644
index 000000000..49dab16ab
--- /dev/null
+++ b/689/CH8/EX8.15/15.sce
@@ -0,0 +1,15 @@
+clc; funcprot(0);
+//Example 8.15  Center of Pressure 
+
+// Initialisation of variables
+WbyS = 8;        //Wing Loading
+V = 100*1.467;
+CMo = -0.067;
+
+// Calculations
+Cl = (2*WbyS/(rho*V^2))
+CM_qtrChrd = CMo;
+CP =  0.25 - CM_qtrChrd/Cl;
+
+//Results 
+disp(CP*100,"Center of Pressure in % of chord length:");
+\ No newline at end of file