Task $1($of $1)$

Consider a beam with weight, W $,$ and subjected to two applied forces, $F_1$&$F_2,$ as shown below:

The resultant force magnitude, $F_R$ and angle $A_R$ along with the distance, $x_R,$ from point A at which

the resultant force would act can be found using the following set of equations:

$F_{Rx}=F_{1}cos(A_1)-F_{2}cos(A_2)$

$F_{Ry}=F_{1}sin(A_1)-F_{2}sin(A_2)-W$

$F_R=\sqrt[\phantom{2}]{F_{Rx}^2+F_{Ry}^2}$

$A_R=ta{n}^{-1}(\frac{F_{Ry}}{F_{Rx}})$

$x_R=\frac{F_{2y}*L-W*(\frac{L}{2})}{F_{Ry}}$

Download the starter Excel file from Cavnas: HW$\_$W$10$D$2\_$Task$1.$xlsm

Open the file and create a VBA macro called Resultant that does the following:

Accesses the values from the worksheet for the various attributes of the system $,$

$A_2,W,$ and L $)$

Calculates the magnitude and angle of the resultant force $(F_R,A_R)$ as well as the distance

from point A at which the resultant force would act $(x_R)$

Displays the calculated values for the resultant Force in the appropriate cell

Test Case:

Inputs: $F_1=100N,A_1=60,F_2=50N,A_2=45,W=500N,L=10m$

Outputs: $F_R=448\mathrm{.}99N,A_R=-88\mathrm{.}13,x_R=6\mathrm{.}36m$

Notes:

All trig functions in Excel expect units of radians for the angle

The value for Pi in VBA is accessed by using the Excel Pi function:

WorksheetFunction.Pi$()$

The inverse tangent can be calculated using the atn$()$ function in VBA