This preview shows pages 1–3. Sign up to view the full content.
This preview has intentionally blurred sections. Sign up to view the full version.
View Full Document
Unformatted text preview: APPENDIX A) SAMPLE CALCULATIONS PROCEDURES For the calculation of experimental friction factor(Inserted into the FORTRAN code) 2 exp 2 v L D P f w = (Experimental friction factor) w A m v = For the calculation of orifice coefficient(Inserted into the FORTRAN code) ) ( 2 ) 1 ( 2 1 2 1 4 P P C U  = s cm V 3 49 . 272 = cm D o 905 . 1 = 2 848785 . 2 cm A = A V U o = ) ( 2 1 ) 1 ( 2 1 2 1 4 P P U C  = For the maximum velocity in the pipe(Inserted into the FORTRAN code) 5 . max ) 2 ( P C U = (Maximum Velocity) 98 . = C (Given as the data) p A V v = (Average velocity) = v D Re (Reynolds Number) Reynolds Number Calculated Friction Factor(Inserted into the FORTRAN code)   = A D f log Re 0452 . 5 7065 . 3 / log 4 1 898 . 1098 . 1 Re 149 . 7 5497 . 2 / + = D A 13 . = D B) FORTRAN Code REAL DELTAPFIRST(7), DELTAPSECOND(7), DELTAPTHIRD(7), *DELTAPFOURTH(7), FEXPFIRST(7), FEXPSECOND(7), FEXPTHIRD(7),...
View
Full
Document
 Spring '11
 ahmetarslan

Click to edit the document details