cal/cal/quadratic.cal

{
        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.1
Committed:	Sat Feb 22 02:07:21 2003 UTC (21 years, 2 months ago) by greg
Branch:	MAIN
CVS Tags:	rad5R2, rad4R2P2, rad5R0, rad5R1, rad3R7P2, rad3R7P1, rad4R2, rad4R1, rad4R0, rad3R5, rad3R6, rad3R6P1, rad3R8, rad3R9, rad4R2P1
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	Content
1	{
2	quadratic.cal - solve quadratic equation:
3
4	Ax^2 + Bx + C = 0
5	}
6
7	determ = BB - 4A*C;
8
9	root1 = (-B + sqrt(determ))/2/A;
10
11	root2 = (-B - sqrt(determ))/2/A;