4-05-2018 Parte 2 - Bloque PDF

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 3

EJERCICIO BLOQUE

Un bloque de masa "m1" se desliza sobre una delgada capa de aceite,


el espesor de la pelicula de aceite es "h" y el área del bloque es "A". Coando
se suelta la masa "m2" ejerce una tensión en la cuerda causando que el
bloque se acelere. Despreciando la fricción en la polea y la resistencia
del aire desarrolle una expresión algebraica para la fuera de corte
que actúa sobre el bloque cuando este se mueve a una velocidad "v".
Obtenga una ecuaciín diferencial para la velocidad del bloque como
una función del tiempo. La masa m1 = 5[Kg], m2 = 1[Kg], A = 25 cm 2 ,
m
h = 0.5[mm], si se toma 1[s] para alcanzar la velocidad de 1 ,
s
encuentre la viscosidad del aceite y grafique
la curva para la velocidad en función del tiempo.

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

(*Ft → fuerza de rension en la cuerda,


Fv → fuerza corte que se opone al movimiento del bloque.*)
2 4-05-2018 Parte 2_ Bloque.nb

PARA EL BLOQUE m2 :
In[ ]:=

 Fy = m2 * ay

m2 *δ V2
 Fy = m2 * g - Ft = [Eq .2]
δt
In[ ]:=
m 2 * ⅆ V2
Solvem2 * g - Ft == , Ft 
resuelve ⅆt

1. × ⅆ 12 m2
Out[ ]= F1 → - 1. - 9.81 m2 + 
ⅆ1

La fuerza cortante en un fluido se calcula mediante la siguiente expresion :


δv μ*v*A
Fv = μ * , donde δv = v, yδy = h, asi se tiene : FV =
δy h

V1 = V2 = V, si se sustituye "v", Ft y Fv en la Eq .1, se tendrá :


m2 * δv m1 * δv μ * v * A δv
m2 * g - - Fv = → (m2 * g) - = (m1 * m2 ) *
δt δt h δt
(*Ecuacion diferencial requerida*)

Mediante integración se obtendrá lo siguiente :

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

SolveV ⩵ * 1 - ⅇ m1*m2*h , μ  (* N*s


2
, tambien llamado Pascal 1.29536segundo*)
m
resuelve μ * A

Solve: 1.29536` is not a valid variable.

Out[ ]= Solve[False, 1.29536]

μ := 1.29536
In[ ]:=

t2 := Range[0, 5, 0.25]
rango

In[ ]:=

m2 * g * h -μ * t2 * A

ShowPlot * 1 - ⅇ m1*m2*h , {t2, 0, 5}


μ * Agráfica
mue⋯ representación

1.5

1.0

Out[ ]=

0.5

1 2 3 4 5

In[ ]:=

Export["bloque.xls" V, t2]
exporta

Out[ ]= bloque.xls

bloque.xls

También podría gustarte

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy