diff options
author | priyanka | 2015-06-24 15:03:17 +0530 |
---|---|---|
committer | priyanka | 2015-06-24 15:03:17 +0530 |
commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1052/CH14/EX14.3/143.sce | |
download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip |
initial commit / add all books
Diffstat (limited to '1052/CH14/EX14.3/143.sce')
-rwxr-xr-x | 1052/CH14/EX14.3/143.sce | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/1052/CH14/EX14.3/143.sce b/1052/CH14/EX14.3/143.sce new file mode 100755 index 000000000..504d620a3 --- /dev/null +++ b/1052/CH14/EX14.3/143.sce @@ -0,0 +1,26 @@ +clc;
+//Example 14.3
+//page no 152
+printf("Example 14.3 page no 152\n\n");
+//calculate the friction factor by using different equation's
+R_e=14080//reynolds no
+K_r=0.004//relative roughness
+//(a) by PAT proposed equation
+f_a=0.0015+[8*(R_e)^0.30]^-1
+printf("\n fanning friction factor f_a=%f ",f_a);
+//equation for 5000<R_e>50000
+f_b1=0.0786/(R_e)^0.25
+printf("\n friction factor f_b1=%f ",f_b1);
+// equation for 30000<R_e>1000000
+f_b2=0.046/(R_e)^0.20
+printf("\n friction factor f_b2=%f ",f_b2);
+// equation for the completely turbulent region
+f_c=1/[4*(1.14-2*log10(K_r))^2]
+printf("\n friction factor f_c=%f ",f_c);
+//equation given by jain
+f_d=1/[2.28-4*log10(K_r+21.25/(R_e^.9))]^2
+printf("\n friction factor f_d=%f ",f_d);
+f_e=0.0085 //from figur 14.2
+printf("\n friction factor f_e=%f",f_e);
+f_av=(f_a+f_b1+f_b2+f_c+f_d+f_e)/6
+printf("\n average friction f_av=%f ",f_av);
|