Please use mathematica and share your code below to solve the following exercise:

P1) (L 1.4.1) Consider the function f (3:) = 3:2 2:1: + 1 which has a root at 1 | x/i. Write a program for the secant method to estimate the root. Use seeds 2 and 3. Theorem 1.4.1. Consider a twice differentiable real valued function f de- fined on an interval [a, b]. Suppose that f has a root at I in the interval but no relative extrema or inflection points, then the following holds. Each New- ton's method estimate r and secant method estimate x, satisfies i 0 and i = x1 - f(x1)/f' (x1) > 21. We denote the tangent for f at x1 by h. Since f is concave up, then h decreases faster than f in the interval [x1, x]. Therefore, r 0, f(12)