1 files changed, 7 insertions, 0 deletions
diff --git a/548/CH6/EX6.16.d/6_16d.sce b/548/CH6/EX6.16.d/6_16d.sce
new file mode 100755
index 000000000..6621cb4d7
--- /dev/null
+++ b/548/CH6/EX6.16.d/6_16d.sce
@@ -0,0 +1,7 @@
+pathname=get_absolute_file_path('6_16d.sce')
+filename=pathname+filesep()+'6_16d_data.sci'
+exec(filename)
+Z=1+sqrt(1+(3/((L_Dmax)^2*(2*Tf/W)^2)))
+R_Cmax=sqrt(W*Z/(3*D*Cdo*S))*(2*Tf/W)^1.5*[1-(Z/6)-(1.5/(Z*(2*Tf/W)^2*(L_Dmax)^2))]
+printf("\Answer:\n")
+printf("\n\Maximum Rate of Climb for CJ-1: %f m/s\n\n",R_Cmax)
+\ No newline at end of file