1 files changed, 15 insertions, 0 deletions
diff --git a/689/CH8/EX8.16/16.sce b/689/CH8/EX8.16/16.sce
new file mode 100644
index 000000000..74fa68127
--- /dev/null
+++ b/689/CH8/EX8.16/16.sce
@@ -0,0 +1,15 @@
+clc; funcprot(0);
+//Example 8.16  Center of Pressure 
+
+// Initialisation of variables
+CMo = -0.27;
+alpha = 6;
+Cl = 0.84;
+Cd = 0.06;
+
+// Calculations
+CP_approx = -CMo/Cl;
+CP_exact = -CMo/(Cl*cosd(alpha)+Cd*sind(alpha));
+
+//Results 
+disp(CP_exact*100,"Exact CP (%chord length) :",CP_approx*100,"Approximate CP (%chord length)");
+\ No newline at end of file