1 files changed, 18 insertions, 0 deletions
diff --git a/746/CH7/EX7.04/7_04.sce b/746/CH7/EX7.04/7_04.sce
new file mode 100755
index 000000000..b6e3ab182
--- /dev/null
+++ b/746/CH7/EX7.04/7_04.sce
@@ -0,0 +1,18 @@
+//speed and force//
+pathname=get_absolute_file_path('7.04.sce')
+filename=pathname+filesep()+'7.04-data.sci'
+exec(filename)
+//Velocity of prototype in ft/sec
+Vp1=Vp*6080/3600
+//Reynolds number of prototype:
+Rep=Vp1*Dp/vp
+//Rep=Rem
+//Therefore:
+Rem=Rep;
+//Velocity of air for wind tunnel(in ft/sec):
+Vm=Rem*vm/(Dm/12)
+//Drag force on prototype(in lbf):
+Fp=Fm*(dp/dm)*(Vp1/Vm)^2*(Dp/(Dm/12))^2
+printf("\n\nRESULTS\n\n")
+printf("\n\nTest speed in air: %.3f ft/sec\n\n",Vm)
+printf("\n\nDrag force on prototype: %.3f lbf\n\n",Fp)