(12C) Maximum Size of Square Area in a Rectangle - Printable Version +- 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 00``` Example: 4 [ENTER] 6 [R/S]   => 2 [X<>Y] => 6 Dieter