(15C) Regular Polygons

[Eddie W. Shore]

Inputs (Store values before running the program):
R0: n, number of sides
R1: s, length of each side

Outputs:
R2: θ, Internal Angle
R3: A, Area
R4: P, Perimeter

Formulas Used (Degrees Mode Used):

Internal Angle: θ = 180° - 360°/n
Area: A = (s^2 * n)/(4 * tan (180°/n))
Perimeter: P = s * n

Code:


Step    Key    Code
001    LBL C    42, 21, 13
002    DEG    43, 7
003    1    1
004    8    8
005    0    0
006    ENTER    36
007    ENTER    36
008    2    2
009    *    20
010    RCL÷ 0    45, 10, 0
011    -    30
012    STO 2    44, 2
013    R/S    31
014    RCL 1    45, 1
015    X^2    43, 11
016    RCL* 0    45, 20, 0
017    1    1
018    8    8
019    0    0
020    RCL÷ 0    45, 10, 0
021    TAN    25
022    4    4
023    *    20
024    ÷    10
025    STO 3    44, 3
026    R/S    31
027    RCL 0    45, 0
028    RCL* 1    45, 20, 1
029    STO 4    44, 4
030    RTN    43, 32

Example: R0 = n = 5, R1 = s = 4. Output: θ = 108°, A ≈ 27.5276, P = 20