#!/usr/bin/perl
# quad.pl - Don Yang (uguu.org)
# Solve quadratic equation
#
# 05/21/03


print "f(0.0) = "; $y1 = <STDIN>;
print "f(0.5) = "; $y2 = <STDIN>;
print "f(1.0) = "; $y3 = <STDIN>;

$a = 2 * $y1 + 2 * $y3 - 4 * $y2;
$b = -3 * $y1 + 4 * $y2 - $y3;
$c = $y1;
print "a = $a, b = $b, c = $c\n";