PRÁC PRÁCTI TICA CA N° 3: CÁLC CÁLCUL ULO O DEL DEL FACTO ACTOR R DE DE FRI FRICC CCII
%l acto actorr 'e 'e ri ricc cció ión n 'e 'e an anni ning ng &ue'e &ue'e ser ser usa usa circular &or la órmula: , = $ (0/3) u$ " m/7g %l actor 'e ricción &ue'e ser usa'o &ara &re
∆P = ,*ρ = $ (0/3) ρ u$ " Pa 3on'e: u = 9 / π 3$ / 4 i el fujo est en la región laminar" 'on'e Re = 16/Re = */4 Para ara fuj fujo o turb turbul ulen ento to en una una tube tuber ra a sua suae e 'o 'o
1/√ = 4 log (Re √) - !"4 0a caracteriación 'el agua se obtiene a la te 4"??$ C 1! 1! ρ = 46"!4? @ A"41?> - !"!B$A > $ @ 4" ln µ = - 1!"D 1!"D4E 4E @ D41"6 D41"6A/(> A/(> @ 144"D 144"DB) B) " Pa a)
b)
e reuiere un intercambia'or 'e calor 1!! m 0a ca'a ca'a 'e &re &resió sión n total total mCim mCim tablas Ful ser la ca'a 'e &resión &ara la tu
SOLUCIÓN
a) Para fujo laminar la ecuación no lineal es:
() = - 16 / Re Para fujo turbulento:
() = - 1/(4 log (Re*srt () - !" %stas $ ecuaciones &ue'en ser comb usan'o la unción i . t,en . else Program 2 0% onlinnear %uations
(3) = 'P - $ * * r,o * u * u * 0 / 3
() = G (Re ; $1!!) >,en ( - 16 / Re) %ls 'P = 1!B!!! 0 = 1!! > = $D @ $EB1D &i = B1416 9 = !!!$D r,o = 46!4? @ > * (A41? @ > * (-!!B$A @ > * is = eC&(-1!D4E @ D416A / (> - 144DB)) u = 9 / (&i * 3 # $ / 4) Re = 3 * u * r,o / is 3(!) = !!1 (!) = !!!1 Calculate !alue" #$ NLE !a%&a'le"
1 $
1 $ B 4 D 6 E ? A
N#(l&(ea% e)uat(" 1 $
E*+l&c&t e)uat(" 1 $ B 4 D 6
E ? A
,e(e%al Sett&(-" Total number of equations Number of implicit equations Number of explicit equations Elapsed time Solution method Max iterations Tolerance F Tolerance X Tolerance m in
Data file: c:\users\usuario\desktop\prctica !"pol
b)
N EN TUBERÍA ASISTIDO CON POLYMATH
o &ara calcular la &5r'i'a 'e ricción &ara fujos 'e lui'os isot5rmic
ecir la ca'a 'e &resión 'ebi'a la &5r'i'a 'e ricción" seg8n la órmul
; $ 1!!" el actor 'e ricción 'e anning se calcula 'e Re 2 $ 1!!" se usa la correlación 'e
(<): -D >B - $"?AD C 1! -? >4 " 7g/mB s o
4)#$ ina'as en el imultaneous lgebrai %uation oler 'e &ara una ecuación o 0ineal
e ( - 1 / (4 * log(Re * srt()) - !4) # $)
(4??$e-D - > * $?ADe-?)))
.a%&a'le
.alue
3
.a%&a'le 'P 0 > &i 9 r,o is u Re
(3) = 'P - $ * * r,o * u * u * 0 / 3 = ! () = G (Re ; $1!!) >,en ( - 16 / Re) %lse ( - 1 / (4 * log(Re * srt()) - !4) # $) = !
'P = 1!B!!! 0 = 1!! > = $D @ $EB1D &i = B1416 9 = !!!$D r,o = 46!4? @ > * (A41? @ > * (-!!B$A @ > * (4??$e-D - > * $?ADe-?)))
!!B?A6DB !!!4DA!D
.alue 1!B%@!D 1!! $A?1D B1416 !!!$D AA4DE1D !!!!?AB1 $!A64A1 A1!%@!4
is = eC&(-1!D4E @ D416A / (> - 144DB)) u = 9 / (&i * 3 # $ / 4) Re = 3 * u * r,o / is
## $ % &"&&&& sec S'FENE(T #)& &"&&&&& &"&&&&& &"&&&&&
s en una tubera
a:
gitu' euialente 'e ccione el tubo 'e
Pol+mat,"
I(&t&al ,ue""
$/*0 11$%-!A -?6E%-1A
!!1 !!!1