4-05-2018 Parte 2 - Bloque PDF
4-05-2018 Parte 2 - Bloque PDF
4-05-2018 Parte 2 - Bloque PDF
HIPÓTESIS :
a. Fluido es del tipo newtoneano
b. Perfil de velocidades es lineal
PARA EL BLOQUE m1 :
Fx = m1 . ax
In[ ]:=
δ V1
Fx = Ft - Fv = m1 * [Eq .1]
δt
PARA EL BLOQUE m2 :
In[ ]:=
Fy = m2 * ay
m2 *δ V2
Fy = m2 * g - Ft = [Eq .2]
δt
In[ ]:=
m 2 * ⅆ V2
Solvem2 * g - Ft == , Ft
resuelve ⅆt
1. × ⅆ 12 m2
Out[ ]= F1 → - 1. - 9.81 m2 +
ⅆ1
t v (m1 + m2 )
ⅆt = μ*v*A
ⅆv
0 0 (m2 * g) - h
v m1 + m 2
ⅆv
μ*v*A
0 - h
+ g * m2
(-m1 + m2 ) μ * v * A v
[t]t0 = * Log m2 * g - 0
μ* A h
-(m1 - m2 ) μ * v * A
t= * Log 1 -
μ* A m2 * g * h
m2 * g * h -μ * v * A
V= * 1 - ⅇ m2 *g*h
μ * A
4-05-2018 Parte 2_ Bloque.nb 3
In[ ]:=
t := 1(*s*)
V := 1 (* m *)
s
m1 := 5 (*kg*)
m2 := 1(*kg*)
A := 25 * 10-4 (*m2 *)
h := 0.5 * 10-3 (*m*)
g := 9.81 (* m2 *)
s
In[ ]:=
m2 * g * h -μ * t* A
μ := 1.29536
In[ ]:=
t2 := Range[0, 5, 0.25]
rango
In[ ]:=
m2 * g * h -μ * t2 * A
1.5
1.0
Out[ ]=
0.5
1 2 3 4 5
In[ ]:=
Export["bloque.xls" V, t2]
exporta
Out[ ]= bloque.xls
bloque.xls