Show unit squares

Show area computations

Show perimeter computations

A = (-0.8735713503176015, -3.023204297520658)
B = (0.5329086496824, -1.8390442975206642)
C = (1.9171486496824006, -1.7059442975206645)
D = (1.0120686496824003, -2.6908842975206646)
q1, a, b, c, d = Polygon(A, B, C, D)
E = (-2.167873442677601, 2.207195702479337)
F = (-1.2446334426776016, 1.6339157024793352)
G = (-0.8634934426776004, 2.287055702479337)
H = (-0.3577134426776003, 1.6481757024793366)
I = (0.6272265573224, 2.1805757024793366)
J = (0.3344065573223999, 0.7430957024793363)
K = (-0.8368734426776004, -0.02888429752066389)
L = (-2.061393442677601, 0.6898557024793364)
poly1, e, f, g, h, i, j, k, l = Polygon(E, F, G, H, I, J, K, L)
m = Segment(K, A)
M = (-1.428841256257598, 0.3202779174193334)
q2, m_1, n, p, q = Polygon(M, M + (0, 1), M + (1, 1), M + (1, 0))
N = (-4.673872576117604, -2.9881725443806744)
lsf = 2 (slider from 0.1 to 4, step 0.05)
text1: "Length Scale Factor = " + lsf + ""
A' = Dilate(A, lsf, N)
B' = Dilate(B, lsf, N)
C' = Dilate(C, lsf, N)
D' = Dilate(D, lsf, N)
q1', a', b', c', d' = Polygon(A', B', C', D')
K' = Dilate(K, lsf, N)
A'_1 = Dilate(A, lsf, N)
m' = Segment(K', A'_1)
E' = Dilate(E, lsf, N)
F' = Dilate(F, lsf, N)
G' = Dilate(G, lsf, N)
H' = Dilate(H, lsf, N)
I' = Dilate(I, lsf, N)
J' = Dilate(J, lsf, N)
K'_1 = Dilate(K, lsf, N)
L' = Dilate(L, lsf, N)
poly1', e', f', g', h', i', j', k'_1, l' = Polygon(E', F', G', H', I', J', K'_1, L')
q2' = Dilate(q2, lsf, N)
M' = Dilate(M, lsf, N)
vlns = Sequence(Segment[M' + (i, 0), M' + (i, lsf)], i, 1, floor(lsf))
hlns = Sequence(Segment[M' + (0, i), M' + (lsf, i)], i, 1, floor(lsf))
o = false
areaYellow: round((poly1 * 10)) / 10
areaBlue: round((poly1' * 10)) / 10
text2: "Area of yellow flower = " + (LaTeX[areaYellow]) + " cm$^2$"
text3: "Area of blue flower = " + (LaTeX[areaBlue]) + " cm$^2$"
areaRatio: round((100 * poly1' / poly1)) / 100
text4: "Ratio of flower areas
(factor area changes by) = " + areaRatio + ""
r = true
s = Perimeter(poly1)
perimYellow: round((10 * Perimeter[poly1])) / 10
perimBlue: round((10 * Perimeter[poly1'])) / 10
perimRatio: round((100 * Perimeter[poly1'] / Perimeter[poly1])) / 100
text5: "Perimeter of yellow flower = " + perimYellow + " cm"
text6: "Perimeter of blue flower = " + perimBlue + " cm"
text7: "Ratio of perimeters
(factor perimeter changes by) = " + perimRatio + ""
t = true
stemYellow: round((10 * m)) / 10
stemBlue: round((10 * m')) / 10
text8: "Length of yellow flower stem = " + stemYellow + " cm"
text9: "Length of blue flower stem = " + stemBlue + " cm"