# TITLE:  Quadratic with Complex Coefficients
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   19Sep1996
# MAKE:   CASIO     
# MODEL:  fx6300G or greater
# SIZE:   233
# NOTES:  This will solve AX^2+BX+C=0
#         where A,B,C are themselves complex.
#         You are asked for the real and imaginary
#         parts of A,B,C.


@@ Program 1

Mcl
"AX^2+BX+C=0"
"RE A"?->A:"IM A"?->B
"RE B"?->C:"IM B"?->D
"RE C"?->E:"IM C"?->F
1/2(A^2+B^2)->G
C^2-D^2-4AE+4BF->X
2CD-4AF-4BE->Y
X=0=>Y=0=>Goto 1
Pol(X,Y)
Lbl 1
Rec(sqrt I,J/2)+C->H
J+D->L:I-C->M:J-D->K
"1ST ROOT":-GAH-GBL_
"+I":GBH-GAL_
"2ND ROOT":GAM+GBK_
"+I":GAK-GBM