- #1
Dustinsfl
- 2,281
- 5
Code:
f[r_][x_] := 1 + r*x + x^2;
A = Table[
cps[r_] = x /. Quiet[Solve[f[r][x] == 0, x], Solve::ratnz], {r, -5,
5, 0.01}];
I want to then tell mathematica to check the derivative of f with each value from the table, plot the values, but make the lines where there derivative in less than 0 solid and dashed for greater than 0.
Any ideas on how to finish this?