- Thread starter
- #1

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}];
```

Any ideas on how to finish this?

- Thread starter dwsmith
- Start date

- Thread starter
- #1

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}];
```

Any ideas on how to finish this?

- Thread starter
- #2

So I got rid of the table.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.Code:`f[r_][x_] := 1 + r*x + x^2; cps[r_] = x /. Quiet[Solve[f[r][x] == 0, x], Solve::ratnz]`

Any ideas on how to finish this?

Code:

```
f[r_][x_] := 1 + r*x + x^2;
cps[r_] = x /. Quiet[Solve[f[r][x] == 0, x], Solve::ratnz];
g[r_] = x /. Quiet[Solve[f[r][x] == 0, x], Solve::ratnz]
Plot[g[r], {r, -5, 5}, PlotStyle -> {Red, Thick}]
{1/2 (-r - Sqrt[-4 + r^2]), 1/2 (-r + Sqrt[-4 + r^2])}
Manipulate[Plot[f[r][x], {x, -4, 4}], {r, -10, 10}]
y[r_] = 1/2 (-r - Sqrt[-4 + r^2]);
t[r_] = 1/2 (-r + Sqrt[-4 + r^2]);
Plot[{y[r], t[r]}, {r, -5, 5},
PlotStyle -> {{Dashing[{Medium}], Red}, {Thick, Red}}]
```