Problem #4: Please, refer to the picture of Excercise 3: Write a VBA code that correspond with the situation:

Re-do problem #3 (you can reuse steps 1 and 2 as is) but create a program in VBA to perform step 3.

Use your machine's epsilon as the value (in %) for es. You may use the pseudocode presented in class as a starting point (remember there are a couple lines missing!)

FUNCTION Bisect(xl, xu, xr, es, imax) iter = 0 DO xrold = xr xr = (xl + xu)/2 iter = iter + 1 IF xr 0 THEN ea = (xr - xrold)/xr)*100 END IF test = f(xr) * f(xu) IF test THEN ELSE IF test THEN ELSE ea = 0 END IF IF |ea| = imax THEN EXIT DO LOOP Bisect = xr END Bisect

Problem #3 In Excel, setup the cantilevered beam example using the 4 step approach for finding non-linear roots. To restate the problem: A cantilevered beam with one free end has a force (P) applied to it at some distance a. Find the value of a here the deflection of the end of the beam is exactly 100 in, given P 100 lbs (length of the beam) 1200 in Emodulus of Elasticity) :1x107 psi, and I (moment of Inertia) 21.3 in ecall that the equation for the deflection at x a is Pa o perform step 3 using the bisection method ns Problem #3 In Excel, setup the cantilevered beam example using the 4 step approach for finding non-linear roots. To restate the problem: A cantilevered beam with one free end has a force (P) applied to it at some distance a. Find the value of a here the deflection of the end of the beam is exactly 100 in, given P 100 lbs (length of the beam) 1200 in Emodulus of Elasticity) :1x107 psi, and I (moment of Inertia) 21.3 in ecall that the equation for the deflection at x a is Pa o perform step 3 using the bisection method ns