cal/cal/quadratic.cal

{ RCSid $Id$ }
{
        quadratic.cal - solve quadratic equation:

        Ax^2 + Bx + C = 0
}

determ = B*B - 4*A*C;

root1 = (-B + sqrt(determ))/2/A;

root2 = (-B - sqrt(determ))/2/A;
Revision:	1.2
Committed:	Wed Nov 21 18:10:45 2018 UTC (5 years, 6 months ago) by greg
Branch:	MAIN
CVS Tags:	rad5R4, rad5R3, HEAD
Changes since 1.1:	+1 -0 lines
Log Message:	Added missing RCSid tag
#	User	Rev	Content
1	greg	1.2	{ RCSid $Id$ }
2	greg	1.1	{
3			quadratic.cal - solve quadratic equation:
4
5			Ax^2 + Bx + C = 0
6			}
7
8			determ = BB - 4A*C;
9
10			root1 = (-B + sqrt(determ))/2/A;
11
12			root2 = (-B - sqrt(determ))/2/A;