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, 5 months ago) by greg
Branch:	MAIN
CVS Tags:	rad5R4, rad5R3, HEAD
Changes since 1.1:	+1 -0 lines
Log Message:	Added missing RCSid tag
#	Content
1	{ RCSid $Id$ }
2	{
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;