Perimeter v. Area
Author: Scott Farrar
Date: 26 November 2013

Applet adapted from a problem by Malcolm Swan, University of Nottingham

Show Rectangle

Show Others

Area

Perimeter

Clear Traces

B = (1, -2)
A = (0, -2)
l = Line(A, B)
R = (21.23, -2)
DragRectangle = (25.708995800341153, -3.4401446595315233)
a = Line(R, xAxis)
b = Line(DragRectangle, xAxis)
c = OrthogonalLine(DragRectangle, b)
d = OrthogonalLine(R, b)
R_3 = Intersect(b, d)
R_4 = Intersect(a, c)
poly1, a_1, d_1, b_1, c_1 = Polygon(R, R_4, DragRectangle, R_3)
DragTriangle = Point(l)
E = Point(l)
poly2, e, f, g, G = Polygon(DragTriangle, E, 3)
EquiTriangle: (Perimeter[poly2], Area[poly2])
H = (6, 10)
T_2 = (6.849771523448605, -3.9650117079685074)
T_1 = (10.661159382439976, -3.768548416267922)
poly3, j, h, i = Polygon(H, T_2, T_1)
Triangle: (Perimeter[poly3], Area[poly3])
Rect: (Perimeter[poly1], Area[poly1])
k: b_1 / c_1
DragSquare = Point(l)
D = Point(l)
Square, m, n, p, q, F, I = Polygon(DragSquare, D, 4)
DragPentagon = Point(l)
K = Point(l)
Pentagon, r, s, t, e_1, f_1, L, M, N = Polygon(DragPentagon, K, 5)
DragHexagon = Point(l)
P = Point(l)
Hexagon, g_1, h_1, i_1, j_1, k_1, l_1, Q, S, T, U = Polygon(DragHexagon, P, 6)
o = false
squ: (Perimeter[Square], Area[Square])
pent: (Perimeter[Pentagon], Area[Pentagon])
hex: (Perimeter[Hexagon], Area[Hexagon])
W = Point(l)
m_1 = OrthogonalLine(W, l)
DragCircle = Point(m_1)
p_1 = Circle(DragCircle, W)
circ: (Circumference[p_1], Area[p_1])
u = true
V = (10, 0)
Z = (0, 10)