01-11-2019, 11:20 AM
ALG Mode program to solve Quadratic Equation of
aX^2 + bX + C = 0
------------------------------------------------
Procedure:
a [R/S] b [R/S] c [R/S] display X1 [R/S] display X2
If Error 0 is display the equation has complex roots of
X ± iY
Use following sequence:
[CLx] [CLx] [CLx] [GTO] 030 [R/S] display X [R/S] display ±Y
---------------------------------------------------------
Example:
x^2 + 25x - 300 = 0
1 [R/S] display 1
25 [R/S] display 156.25
300 [CHS] [R/S] display 8.86 // Answer X1
[R/S] display -33.86 // Answer X2
---------------------------------------------------------
-8X^2 - 25X - 1005 = 0
8 [CHS] [R/S] display -8
25 [CHS] [R/S] display 2.4414
1005 [CHS] [R/S] display Error 0
[CLx] [CLx] [CLx] [GTO] 030 [R/S] display -1.5625
[R/S] display 11.0988
Complex Answer of -1.5625 ± 11.0988
--------------------------------------------------------
Program: ALG Mode
Gamo
aX^2 + bX + C = 0
------------------------------------------------
Procedure:
a [R/S] b [R/S] c [R/S] display X1 [R/S] display X2
If Error 0 is display the equation has complex roots of
X ± iY
Use following sequence:
[CLx] [CLx] [CLx] [GTO] 030 [R/S] display X [R/S] display ±Y
---------------------------------------------------------
Example:
x^2 + 25x - 300 = 0
1 [R/S] display 1
25 [R/S] display 156.25
300 [CHS] [R/S] display 8.86 // Answer X1
[R/S] display -33.86 // Answer X2
---------------------------------------------------------
-8X^2 - 25X - 1005 = 0
8 [CHS] [R/S] display -8
25 [CHS] [R/S] display 2.4414
1005 [CHS] [R/S] display Error 0
[CLx] [CLx] [CLx] [GTO] 030 [R/S] display -1.5625
[R/S] display 11.0988
Complex Answer of -1.5625 ± 11.0988
--------------------------------------------------------
Program: ALG Mode
Code:
STO 0
R/S
÷ 2 ÷ RCL 0 CHS =
STO 1 X^2 - (R/S ÷ RCL 0) = STO 0
√X + RCL 1 = R/S
RCL 1 - RCL 0 √X = GTO 000
RCL 1 R/S RCL 0 CHS √X =
Gamo