original

new

ratio

length

area

perimeter

A = (-0.13636363636363785, 2.6781818181818204)
B = (-1.5909090909090917, 0.732727272727275)
C = (0.6636363636363618, -0.43090909090908863)
D = (1.1545454545454525, 2.86)
poly1, a, b, c, d = Polygon(A, B, C, D)
e = 3 (slider from 0 to 5, step 0.1)
E = (-1.481818181818183, 1.8781818181818193)
A' = Dilate(A, e, E)
B' = Dilate(B, e, E)
C' = Dilate(C, e, E)
D' = Dilate(D, e, E)
poly1', a', b', c', d' = Polygon(A', B', C', D')
distanceB'C' = Distance(B', C')
Midpoint(B', C')
TextB'C': "\overline{" + (Name[B']) + (Name[C']) + "} \, = \, " + distanceB'C'
distanceBC = Distance(B, C)
Midpoint(B, C)
TextBC: "\overline{" + (Name[B]) + (Name[C]) + "} \, = \, " + distanceBC
distanceB'D' = Distance(B', D')
Midpoint(B', D')
TextB'D': "\overline{" + (Name[B']) + (Name[D']) + "} \, = \, " + distanceB'D'
distanceBD = Distance(B, D)
Midpoint(B, D)
TextBD: "\overline{" + (Name[B]) + (Name[D]) + "} \, = \, " + distanceBD
Textpoly1: "Area of  " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + poly1
text1: "Area of A'B'C'D = " + poly1' + ""
BC = Distance(B, C)
B2: BC
C2 = Distance(B', C')
B3 = Area(A, B, C, D)
C3 = Area(A', B', C', D')
D2: C2 / B2
D3: C3 / B3
B4 = Perimeter(Polygon[A, B, C, D])
C4 = Perimeter(Polygon[A', B', C', D'])
D4: C4 / B4