(11C) Arithmetic with Fractions

[Gamo]

Program to add, subtract, multiply, divide, simplify to lowest term and
convert to mixed fraction.

In the form of

a/b [+ - x ÷] c/d = e/f

If f ˂ e
then get the result for Mixed Fraction of g+ h/f

Procedure:

a [ENTER] b [ENTER] c [ENTER] d [A]

[A] Store Fractions
[B] For Add or Subtract
[C] For Multiply
[D] For Divide
[E] For Mixed Fraction

Each [B] [C] [D] give answer display of e [X<>Y] f as fraction of e/f
If f ˂ e press [E] give answer display of g.000h [X<>Y] f of g+ h/f

-----------------------------------------------------------------------------------------
Example:

111/33 + 7/17

111 [ENTER] 33 [ENTER] 7 [ENTER] 17 [A] display 0.0000

[B] display 706 [X<>Y] 187

Answer is 706/187 // Answer f ˂ e

[E] display 3.0145 [X<>Y] 187

Answer of Mixed Fraction is 3+ 145/187
-----------------------------------------------------------------------------------------
Example:

1001/98 x 123/321

1001 [ENTER] 98 [ENTER] 123 [ENTER] 321 [A] display 0.0000

[C] display 5863 [X<>Y] 1498

Answer is 5863/1498 // Answer f < e

[E] display 3.1369 [X<>Y] 1498

Answer of Mixed Fraction is 3+ 1369/1498
-----------------------------------------------------------------------------------------

Program: [Total of 135 program steps]

Code:


LBL A  // For Fraction input
STO 4
Rv
STO 3
Rv
STO 2
Rv
STO 1
CLx
RTN
-----------------------------------------------------------------------------------------
LBL B   // For Add or Subtract Fractions
RCL 2
RCL 4
X≤Y
X<>Y
X<>Y
STO 0
X<>Y
ENTER
*LBL 1
ENTER
ENTER
RCL 0
÷
FRAC
X=0
GTO 2
Rv
+
GTO 1
*LBL 2
+
STO 5
RCL 2
÷
RCL 1
x
RCL 5
RCL 4
÷
RCL 3
x
+
STO 6
RCL 5
*LBL 3
-
LSTx
X<>Y
ABS
X≠Y
GTO 3
STO 7
1
X<>Y
X>Y  
GTO 4
RCL 5
RCL 6
RTN
*LBL 4
RCL 5
RCL 7
÷
RCL 6
RCL 7
÷
RTN  <--You can stop here and continue to LBL E if need only + and - Fraction
-----------------------------------------------------------------------------------------
LBL C  // For Multiply Fractions
RCL 1
RCL 3
x
STO 5
RCL 2
RCL 4
x
STO 6
RCL 5
GTO 5
-----------------------------------------------------------------------------------------
LBL D  // For Divide Fractions
RCL 1
RCL 4
x
STO 5
RCL 2
RCL 3
x
STO 6
RCL 5
GTO 5
-----------------------------------------------------------------------------------------
LBL 5
-
LSTx
X<>Y
ABS
X≠Y
GTO 5
STO 7
1
X<>Y
X>Y
GTO 6
RCL 6
RCL 5
RTN
*LBL 6
RCL 6
RCL 7
÷
RCL 5
RCL 7
÷
RTN
-----------------------------------------------------------------------------------------
LBL E   // For Mixed Fraction
STO 8
X<>Y
X<>Y
÷
LSTx
X<>Y
ENTER
FRAC
X<>Y
INT
Rv
x
EEX
4
÷
R^
+
FIX 4
RCL 8
X<>Y
RTN
-----------------------------------------------------------------------------------------

See also on my YouTube channel here

https://youtu.be/yJOskANA4gM

Gamo