diff options
Diffstat (limited to '629/CH11/EX11.7')
-rw-r--r-- | 629/CH11/EX11.7/ex11_7.txt | 2 | ||||
-rw-r--r-- | 629/CH11/EX11.7/example11_7.sce | 20 |
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 |