1 files changed, 15 insertions, 0 deletions
diff --git a/689/CH10/EX10.2/2.sce b/689/CH10/EX10.2/2.sce
new file mode 100644
index 000000000..0963a4df7
--- /dev/null
+++ b/689/CH10/EX10.2/2.sce
@@ -0,0 +1,15 @@
+clc; funcprot(0);
+//Example 10.2 Horse Power Required for Induce Drag
+
+// Initialisation of variables
+W = 2000;
+b = 38;
+alt = 10000;
+V = 80*1.467;
+
+// Calculations
+Di = (363*(W/b)^2)/V^2
+HP_Di = Di*V/550;
+
+//Results 
+disp(HP_Di,"Horse power required to overcome induced drag (HP) :");
+\ No newline at end of file