#!/bin/sh 

# $Id: quadrat.awk,v 1.1 2005/04/21 16:02:14 rajo Exp $

# Author: Lubomir Host 'rajo' <host8 AT kepler.fmph.uniba.sk>
# Description: Solve quadrat equation


# Run this with awk:
exec awk '
function func(x)
{
	return ( A*x*x + B*x + C );
}

function solve1(y)
{ return( (-B + sqrt(B*B - 4*A*(C-y)))/(2*A) ); }

function solve2(y)
{ return( (-B - sqrt(B*B - 4*A*(C-y)))/(2*A) ); }

BEGIN{
	A = 258.2222434;
	B = -2899.936213;
	C = 8143.446857;
	det = sqrt(B*B - 4*A*C);
	printf "x_0 = %g\n", -B/(2*A);
	printf "y_min = %g\n", func(-B/(2*A));
	print "enter y:";
}

// {
	printf "x_1 = %g\nx_2 = %g\n", solve1($1), solve2($1); 
	print "enter y:";
} ' $* # end of awk script