summaryrefslogtreecommitdiff
path: root/548/CH4/EX4.28/4_28.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /548/CH4/EX4.28/4_28.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '548/CH4/EX4.28/4_28.sce')
-rwxr-xr-x548/CH4/EX4.28/4_28.sce10
1 files changed, 10 insertions, 0 deletions
diff --git a/548/CH4/EX4.28/4_28.sce b/548/CH4/EX4.28/4_28.sce
new file mode 100755
index 000000000..214d6c3e4
--- /dev/null
+++ b/548/CH4/EX4.28/4_28.sce
@@ -0,0 +1,10 @@
+pathname=get_absolute_file_path('4_28.sce')
+filename=pathname+filesep()+'4_28data.sci'
+exec(filename)
+Ds=q*S*0.074/Re^0.2;disp(Ds,"Ds=","Ds=q*S*0.074/Re^0.2","turbulent drag over complete area(A+B)");
+Da=q*A*0.074/Ret^0.2;disp(Da,"Da=","Da=q*A*0.074/Ret^0.2","turbulent drag over area A");
+disp(Ds-Da,"Db=","turbulent drag over area B Db:");Db=Ds-Da;
+Dl=q*A*1.328/Ret^0.5;disp(Dl,"Dl=","Dl=q*A*1.328/Ret^0.5","laminar drag over area A");
+Dn=Db+Dl;disp(Dn,"Dn=","Dn=Db+Dl","Net drag Dn")
+printf("\Answer:\n")
+printf("\n\Skin friction Drag over wings of biplane(4 surfaces): %f N\n\n",4*Dn)