Trabajo (Vectores)

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]}}]]]]