+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (12C) Maximum Size of Square Area in a Rectangle (/thread-11034.html)
(12C) Maximum Size of Square Area in a Rectangle - Gamo - 07-11-2018 05:00 AM
This program calculate the exact "Maximum Size of the Square Area" and
how many Squares fit inside a Rectangle.
Procedure:
Given size of the Rectangle is
Length = 6
Width = 4
6 ENTER 4 // This input can be switch around (4 ENTER 6)
R/S --> 2 // Answer for the maximum square size
R/S --> 6 // Answer for how many square fit inside a rectangle
Program: Maximum Square Area inside a Rectangle
Quote:01 STO 1
02 X<>Y
03 STO 2
04 x
05 STO 3
06 RCL 1
07 RCL 2
08 X≤Y?
09 X<>Y
10 X<>Y
11 - // Subtraction or minus sign
12 LSTx
13 X<>Y
14 X=0?
15 GTO 17
16 GTO 08
17 X<>Y
18 R/S
19 ENTER
20 x
21 RCL 3
22 X<>Y
23 ÷
24 GTO 00
Gamo
RE: (12C) Maximum Size of Square Area in a Rectangle - Dieter - 07-11-2018 06:59 AM
(07-11-2018 05:00 AM)Gamo Wrote: This program calculate the exact "Maximum Size of the Square Area" and
how many Squares fit inside a Rectangle.
I am not sure if you have realized it, but this maximum square size simply is the Greatest Common Divisor (GCD) of the two numbers. So you can use the GCD program posted some time ago instead.
On the other hand the current program can be improved. Take a closer look: you store the input in R1 and R2 but then these two registers are only used once to recall the original input before the loop starts.
He is another version:
Code:
01 STO 0
02 X<>Y
03 STOx0 // store a*b in R0 while the input in X and Y is preserved
04 X≤Y?
05 X<>Y
06 X<>Y
07 -
08 X=0?
09 GTO 13
10 LSTx
11 X<>Y
12 GTO 04
13 LSTx
14 STO÷0 // divide a*b by (square size)^2
15 ST0÷0 // and keep the result in R0
16 RCL 0
17 X<>Y
18 GTO 00Example:
4 [ENTER] 6
[R/S] => 2
[X<>Y] => 6
Dieter