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
|
