1 files changed, 8 insertions, 0 deletions
diff --git a/548/CH6/EX6.9/6_09.sce b/548/CH6/EX6.9/6_09.sce
new file mode 100755
index 000000000..b5388a5ed
--- /dev/null
+++ b/548/CH6/EX6.9/6_09.sce
@@ -0,0 +1,8 @@
+pathname=get_absolute_file_path('6_09.sce')
+filename=pathname+filesep()+'6_09data.sci'
+exec(filename)
+V1=sqrt(2*Wl*cos(a)/(D1*Cl));disp(V1,"V1=","V1=sqrt(2*Wl*cos(a)/(D1*Cl))","For altitude 3048 meter:")
+V2=sqrt(2*Wl*cos(a)/(D2*Cl));disp(V2,"V2=","V2=sqrt(2*Wl*cos(a)/(D2*Cl))","For altitude 609.6 meter:")
+printf("\Answer:\n")
+printf("\Velocity at equilibrium glide angle at 3048 m: %f m/s\n",V1)
+printf("\n\Velocity at equilibrium glide angle at 609.6 m: %f m/s\n\n",V2)
+\ No newline at end of file