Advertisement
Guest User

math

a guest
Nov 21st, 2019
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. If[b^2 - 4*a*c > 0,
  2. Print["x1 = ", (-b + (b^2 - 4*a*c)^(1/2))/(2*a),
  3. " x2 = ", (-b - (b^2 - 4*a*c)^(1/2))/(2*a)];
  4. Print[a*x^2 + b*x + c];
  5. Plot[a*x^2 + b*x + c, {x,
  6. Min[(-b + (b^2 - 4*a*c)^(1/2))/(2*
  7. a), (-b - (b^2 - 4*a*c)^(1/2))/(2*a) - 2*a],
  8. Max[(-b + (b^2 - 4*a*c)^(1/2))/(2*
  9. a), (-b - (b^2 - 4*a*c)^(1/2))/(2*a)] + 2*a}],
  10. If[b^2 - 4*a*c == 0, Print["x = ", -b/2/a]; Print[a*x^2 + b*x + c];
  11. Plot[a*x^2 + b*x + c, {x, -b/2/a - 2*a, -b/2/a + 2*a}],
  12. Print["Brak rozwiazan"]; Print[a*x^2 + b*x + c];
  13. Plot[a*x^2 + b*x + c, {x, -b/a/2 - 4*a, -b/2/a + 4*a},
  14. PlotRange -> {Min, 200}]]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement