09152018, 07:02 AM
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]
See also on my YouTube channel here
https://youtu.be/yJOskANA4gM
Gamo
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

https://youtu.be/yJOskANA4gM
Gamo