I have this system. I have found the equilibrium points and I want to find the Jacobian Matrix of each point. But I am stuck. Could you help me, please?
r = 1;
b = 1;
c = 0.01;
μ = 0.4;
deq1 = x'[t] == r*x[t] - b*x[t]^2 - c*x[t]*y[t] - 0.75*x[t]*y[t]/(a + x[t])
deq2 = y'[t] == -μ*y[t] + 0.75*x[t]*y[t]/(a + x[t])
equilibrio = NSolve[{r*x[t] - b*x[t]^2 - c*x[t]*y[t] - 0.75*x[t]*y[t]/(a + x[t]) ==0, -μ*y[t] + 0.75*x[t]*y[t]/(a + x[t]) == 0}, {x[t], y[t]}]
jacobian := D[{f, g}, {{x, y}}]
f = r*x[t] - b*x[t]^2 - c*x[t]*y[t] - 0.75*x[t]*y[t]/(a + x[t])
g = -μ*y[t] + 0.75*x[t]*y[t]/(a + x[t])
MatrixForm[jacobian]