(12C) Add or Subtract Fractions

[Gamo]

Continue form post #1

Here is the "Multiply and Divide Fractions" program.

Most of the procedure is the same except

Only when calculate "Fractions Division" the last input must follow with [CHS]

Example: 153/15 ÷ 13/17

153 [ENTER] 15 [ENTER] 13 [ENTER] 17 [CHS] [R/S]

Display 867 [Y<>Y] 65

Answer is 867/65 // Denominator < Numerator find Mixed Fraction

[R/S] 13.0022 [X<>Y] 65

Answer is 13+ 22/65

------------------------------------------------------
Program: Multiply or Divide Fractions

Code:


01 STO 4
02 Rv
03 STO 3
04 Rv
05 STO 2
06 Rv
07 STO 1
08 RCL 4
09  1
10 X<>Y
------------------------------------------
11 X≤Y
12 GTO 22
13 RCL 1
14 RCL 3
15  x
16 STO 5
17 RCL 2
18 RCL 4
19  x
20 STO 6
----------------------------------------
21 GTO 33
22 RCL 4
23 CHS
24 STO 4
25 RCL 1
26 RCL 4
27  x
28 STO 5
29 RCL 2
30 RCL 3
--------------------------------------------------
31  x
32 STO 6
33 RCL 6
34 RCL 5
35 X≤Y
36 X<>Y
37 X<>Y
38  -
39 LSTx
40 X<>Y
-----------------------------------------------
41 X=0
42 GTO 44
43 GTO 35
44 X<>Y
45 STO 7
46  1
47 X<>Y
48 X≤Y
49 GTO 57
50 RCL 6
----------------------------------------------
51 RCL 7
52  ÷
53 RCL 5
54 RCL 7
55  ÷
56 GTO 59
57 RCL 6
58 RCL 5
59 R/S
60 STO 0
---------------------------------------------
61 X<>Y
62 X<>Y
63  ÷
64 LSTx
65 X<>Y
66 ENTER
67 FRAC
68 X<>Y
69 INTG
70 Rv
-------------------------------------------
71  x
72 EEX
73  4
74  ÷
75 Rv
76 Rv
77 Rv
78  +
79 FIX 4
80 RCL 0
81 X<>Y
82 GTO 00

Remark: This Multiply or Divide program will not work with negative fractions.

Try this challenging example: 676/13 x 3117/22

Answer: 81042/11 or 7367+ 5/11

Even on a fast 12C+ took about 10 seconds to compute.



Gamo