about summary refs log tree commit diff
path: root/usth/MATH2.4/hw/quadratic
blob: b6ea91a58a9325ab1b984268f5c6dc169f82fa49 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/env octave
disp ("Solve quadratic equation a*x^2 + b*x + c = 0");
a = input ("a = ");
while (a == 0)
  disp ("a must be nonzero");
  a = input ("a = ");
end
b = input ("b = ");
c = input ("c = ");

sd = sqrt(b*b - a*c*4);
disp ("The two solutions of the given quadratic equation are:");
x0 = (-b - sd) / a / 2
x1 = (-b + sd) / a / 2