Roots of a quadratic function: Difference between revisions
Content added Content deleted
m (→{{header|R}}) |
m (→{{header|R}}) |
||
| Line 1,835: | Line 1,835: | ||
if (abs(b - r) > abs(b + r)) { |
if (abs(b - r) > abs(b + r)) { |
||
z <- (-b + r) / (2 * a) |
z <- (-b + r) / (2 * a) |
||
| ⚫ | |||
} else { |
} else { |
||
z <- (-b - r) / (2 * a) |
z <- (-b - r) / (2 * a) |
||
c(z, c / (z * a)) |
|||
} |
} |
||
| ⚫ | |||
} |
} |
||