El trabajo W realizado por una fuerza constante F cuando su punto de aplicación se desplaza a lo largo del vector PQ viene dada por una de estas expresiones:
1. W = ||proy pq F|| ||PQ||
2. W = F * PQ.
Realizar a continuación los siguientes ejercicios:
Se arrastra 10 pies por el suelo un objeto aplicando una fuerza de 85 libras. Calcular el trabajo realizado si la dirección de la fuerza forma un ángulo de 60° con la horizontal.
Datos:
Fuerza = 85 libras
ángulo = 60°
Desplazamiento: –> : 10 Pies
Usando la formula 1 se tiene:
W=cos(60) *||F|| ||PQ||
W=cos(60)*||85|| ||10||W= 425 libras-pies
Un vagón de juguete es arrastrado por un niño que tira con una fuerza de 15 libras de una varilla que forma 30° con la horizontal. Calcular el trabajo realizado al arrastrarlo 50 pies.
Datos:
Fuerza = 15 libras
ángulo = 30°
Desplazamiento: 50 pies.
Usando 1
W = cos (30) * ||F|| ||PQ||
W = cos(30)*(15)(50)W=649.5191 libras-pies
Escribir un Script dinámico en Mathematica que permita calcular esta formula conociendo los datos Fuerza, Ángulo, Desplazamiento.
Panel[DynamicModule[{v = ((fuerza)*(desplazamiento))* Cos [angulo],
fuerza = 1, desplazamiento = 1, angulo = 0},
Panel[Grid[{{Style["Calculadora de Fuerza", Bold],
SpanFromLeft}, {"Escribe la Fuerza:",
InputField[Dynamic[fuerza], FieldSize -> 10],
"Escribe Desplazamiento:",
InputField[Dynamic[desplazamiento],
FieldSize -> 10]}, {"Escribe Ángulo:",
InputField[Dynamic[angulo],
FieldSize -> 5]}, {"Trabajo Realizado:",
InputField[Dynamic[v], Enabled -> False]}}]]]]
