Mathematica .Please help solving question 6 and 7. Ive done them but want to compare the results.

File Edit Insert Format CellGraphics Evaluation Palettes Window Help where F is a constant called the effort, and represents how much the fishermen are working to catch halibut. We think of F as the proportion of the population that are removed each year, and due to how the equations work out, it is useful to think of F as a proportion of the growth rate r so we can easily compare the two) 6. Clearly p = 0 is an equilibrium solution. There is another equilibrium solution, which we will call peq. Considering r, K, and F just as symbols (use Clear[r,K,F] if necessary), find this equilibrium solution (in terms of r, K, and F) The Solve[ ] command may be useful here, so look up the syntax for it in the Mathematica help Clear [ode, p, pe, t, R, c, sol, k, f, F, rl; ol Solve[rp (1- p/k) Fp e, p] Fk+kr 7. Now set K 80.5, r = 0.71 again. Choose a few different values of F as a proportion of r, and for each one, plot a few solutions to the ODE for different (non-equilibrium) initial conditions, along with its direction field and the solution p p q all combined with Show . Be sure to look at at least one F that is more than r, and a few that are less than r 0.5 R -FK+KR fIt, p.1-.71 p (1-p/80.5)-.5.71p/.p . 1775K-0.355 (1 0.0062 11 18 K) K /. { {0.355 0.355), K ) 80.5, R > .71} dirField VectorPlot[ (1, f[t, p]), (t, -100, 10e), (p, -100, 1ee), Vectorscale, Automatic, None), vectorstyle-, {Gray, Arrowheads [0]} File Edit Insert Format CellGraphics Evaluation Palettes Window Help where F is a constant called the effort, and represents how much the fishermen are working to catch halibut. We think of F as the proportion of the population that are removed each year, and due to how the equations work out, it is useful to think of F as a proportion of the growth rate r so we can easily compare the two) 6. Clearly p = 0 is an equilibrium solution. There is another equilibrium solution, which we will call peq. Considering r, K, and F just as symbols (use Clear[r,K,F] if necessary), find this equilibrium solution (in terms of r, K, and F) The Solve[ ] command may be useful here, so look up the syntax for it in the Mathematica help Clear [ode, p, pe, t, R, c, sol, k, f, F, rl; ol Solve[rp (1- p/k) Fp e, p] Fk+kr 7. Now set K 80.5, r = 0.71 again. Choose a few different values of F as a proportion of r, and for each one, plot a few solutions to the ODE for different (non-equilibrium) initial conditions, along with its direction field and the solution p p q all combined with Show . Be sure to look at at least one F that is more than r, and a few that are less than r 0.5 R -FK+KR fIt, p.1-.71 p (1-p/80.5)-.5.71p/.p . 1775K-0.355 (1 0.0062 11 18 K) K /. { {0.355 0.355), K ) 80.5, R > .71} dirField VectorPlot[ (1, f[t, p]), (t, -100, 10e), (p, -100, 1ee), Vectorscale, Automatic, None), vectorstyle-, {Gray, Arrowheads [0]}