1 files changed, 20 insertions, 0 deletions
diff --git a/746/CH9/EX9.09/9_09.sce b/746/CH9/EX9.09/9_09.sce
new file mode 100755
index 000000000..cef9919e3
--- /dev/null
+++ b/746/CH9/EX9.09/9_09.sce
@@ -0,0 +1,20 @@
+//Aerodynamic and Radius//
+pathname=get_absolute_file_path('9.09.sce')
+filename=pathname+filesep()+'9.09-data.sci'
+exec(filename)
+//Reynolds number:
+//Value of wD/2V:
+W=0.5*N*D/1000/V*2*%pi/60
+Red=V*D/v;
+//For this value, CL is obtained as:
+CL=0.3;
+//Aerodynamic lift(in N):
+FL=%pi/8*CL*(D/1000)^2*d*V^2;
+//Radius of curvature of the path in the vertical plane(in m) with topspin:
+Rts=V^2/(g+FL/(m/1000));
+//Radius of curvature without topspin(in m):
+Rwts=V^2/g;
+printf("\n\nRESULTS\n\n")
+printf("\n\nAerodynamic lift acting on the ball:%.3f N\n\n",FL)
+printf("\n\nRadius of curvature of the path when ball has topspin:%.3f m\n\n",Rts)
+printf("\n\nRadius of curvature of the path when ball has topspin: %.3f m\n\n",Rwts)