1 files changed, 15 insertions, 0 deletions
diff --git a/689/CH10/EX10.1/1.sce b/689/CH10/EX10.1/1.sce
new file mode 100644
index 000000000..b1d78f684
--- /dev/null
+++ b/689/CH10/EX10.1/1.sce
@@ -0,0 +1,15 @@
+clc; funcprot(0);
+//Example 10.1 Induced Drag
+
+// Initialisation of variables
+S = 39;
+C = 6;
+Cl = 0.8;
+
+// Calculations
+AR = S/C;
+alpha_i = 18.24*Cl/AR;
+Cd_i = Cl^2/(%pi*AR);
+ 
+//Results 
+disp(Cd_i,"Induced drag coefficient :", alpha_i, "Induced angle of attack (degree) :");
+\ No newline at end of file