Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- If[b^2 - 4*a*c > 0,
- Print["x1 = ", (-b + (b^2 - 4*a*c)^(1/2))/(2*a),
- " x2 = ", (-b - (b^2 - 4*a*c)^(1/2))/(2*a)];
- Print[a*x^2 + b*x + c];
- Plot[a*x^2 + b*x + c, {x,
- Min[(-b + (b^2 - 4*a*c)^(1/2))/(2*
- a), (-b - (b^2 - 4*a*c)^(1/2))/(2*a) - 2*a],
- Max[(-b + (b^2 - 4*a*c)^(1/2))/(2*
- a), (-b - (b^2 - 4*a*c)^(1/2))/(2*a)] + 2*a}],
- If[b^2 - 4*a*c == 0, Print["x = ", -b/2/a]; Print[a*x^2 + b*x + c];
- Plot[a*x^2 + b*x + c, {x, -b/2/a - 2*a, -b/2/a + 2*a}],
- Print["Brak rozwiazan"]; Print[a*x^2 + b*x + c];
- Plot[a*x^2 + b*x + c, {x, -b/a/2 - 4*a, -b/2/a + 4*a},
- PlotRange -> {Min, 200}]]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement