summaryrefslogtreecommitdiff
path: root/629/CH11/EX11.7
diff options
context:
space:
mode:
Diffstat (limited to '629/CH11/EX11.7')
-rw-r--r--629/CH11/EX11.7/ex11_7.txt2
-rw-r--r--629/CH11/EX11.7/example11_7.sce20
2 files changed, 22 insertions, 0 deletions
diff --git a/629/CH11/EX11.7/ex11_7.txt b/629/CH11/EX11.7/ex11_7.txt
new file mode 100644
index 000000000..c2146dbad
--- /dev/null
+++ b/629/CH11/EX11.7/ex11_7.txt
@@ -0,0 +1,2 @@
+
+The wing area = 394 ft^2 and the minimum induced drag = 86.1 lbf. \ No newline at end of file
diff --git a/629/CH11/EX11.7/example11_7.sce b/629/CH11/EX11.7/example11_7.sce
new file mode 100644
index 000000000..781e79bdf
--- /dev/null
+++ b/629/CH11/EX11.7/example11_7.sce
@@ -0,0 +1,20 @@
+clear
+clc
+//Example 11.7 WING AREA FOR AN AIRPLANE
+T=-67+460; //temperature [°R]
+R=1716; //[ft.lbf/slug.°R]
+//1ft^2=144in^2
+p=3.3*144; //pressure[lbf/ft^2]
+rho=p/(R*T) //[slug/ft^3]
+CL=0.2;
+Vo=600; //[ft/s]
+W=10000; //weight [lbf]
+//for steady flight,
+FL=W
+//Wing area
+S=2*W/(rho*Vo^2*CL) //[ft^2]
+b=54; //span of wing [ft]
+CDi=CL^2/(%pi*(b^2/S)) //min.induced drag coefficient
+//Induced drag
+Di=(rho*Vo^2*CDi*S)/2 //[lbf]
+printf("\nThe wing area = %.f ft^2 and the minimum induced drag = %.1f lbf.\n",S,Di) \ No newline at end of file