summaryrefslogtreecommitdiff
path: root/548/CH4/EX4.23/4_23.sce
diff options
context:
space:
mode:
Diffstat (limited to '548/CH4/EX4.23/4_23.sce')
-rwxr-xr-x548/CH4/EX4.23/4_23.sce10
1 files changed, 10 insertions, 0 deletions
diff --git a/548/CH4/EX4.23/4_23.sce b/548/CH4/EX4.23/4_23.sce
new file mode 100755
index 000000000..6949698a0
--- /dev/null
+++ b/548/CH4/EX4.23/4_23.sce
@@ -0,0 +1,10 @@
+pathname=get_absolute_file_path('4_23.sce')
+filename=pathname+filesep()+'4_23data.sci'
+exec(filename)
+t=5.2*x/Re^0.5;disp(t,"t=","boundary layer thickness t=5.2*x/Re^0.5")
+D=q*S*Cf;disp(D,"D=","drag on one surface of the plate given by D=q*s*Cf")
+disp(2*D,"Dn=","Net drag Dn is two times both surface i.e 2D")
+printf("\Answer:\n")
+printf("\n\Boundary layer thickness at downstream edge: %f m\n\n",t)
+printf("\n\The drag force on plate: %f N\n\n",2*D)
+