$\textsf{0}$

$\textsf{1}$

$\textsf{TRY ANOTHER}$

\text{bottomtext.}

$\text{ANIMATE}$

Restart

\text{Drag to fill in\
the grid.}

G: (15.5, -2.5)
U: (15.5, -2.5)
V = Midpoint(G, U)
Q: (x(V), 1.5)
A: (0, 0)
B: (10, 0)
poli1Border, f, g, h, i, C, D = Polygon(A, B, 4)
E: (3, -7)
megaGrid: Join[Sequence[Sequence[(j, k), j, 0, 10], k, 0, 10]] \ Sequence[(0, k), k, 0, 10]
END = Point(megaGrid)
I: (x(END) - 1, y(END))
K: (x(I), y(D))
L: (x(END), 0)
quadPoli, l, q, s, t, a, b = Polygon(A, L, END, I, K, D)
value = Area(quadPoli)
microGrid: Join[Sequence[Sequence[(j, k), j, 0, 10], k, 0, 10, 1]] \ Sequence[(0, k), k, 0, 10, 1]
F: (28, y(E))
ptGrid = Sequence((k, y(E)), k, x(E), x(F), Distance[E, F] / 100)
poli1Fill, j, m, n, p, M, N = Polygon(A, B, 4)
T = (-5, -5)
J = (-2, 0)
P1 = (-16.666694750524204, -8.99010110779141)
P1' = Mirror(P1, yAxis)
P1'' = Mirror(P1', xAxis)
P1''' = Mirror(P1'', yAxis)
peep, p1, p1', p1'', p1''' = Polygon(P1, P1', P1'', P1''')
segmDec = Segment(E, F)
longTicks1 = Sequence(Segment[(t, y(E) - 0.8), (t, y(E) + 0.8)], t, x(E), x(F), Distance[E, F] / 10)
mediumTicks1 = Sequence(Segment[(t, y(E) - 0.5), (t, y(E) + 0.5)], t, x(E), x(F), Distance[E, F] / 20)
shortTicks1 = Sequence(Segment[(t, y(E) - 0.2), (t, y(E) + 0.2)], t, x(E), x(F), Distance[E, F] / 100)
segmGrid = Sequence(E + (k / 100 * (F - E)), k, 0, 100)
squareDiv = Zip({Segment[(k, 0), (k, 10)], Segment[(0, k), (10, k)]}, k, 1…10)
valDec: value / 100
labelValDec: "" + (LaTeX[valDec]) + ""
O = (-9.06916765321244, -0.784480030218815)
R = (-7.842997904580821, -2.4047757694820264)
v = Vector(O, R)
isClicked = false
CC: (26, 5)
c = Circle(CC, 5)
r = Radius(c)
CV: (x(CC), y(CC) + r)
allCfr = Sequence(Rotate[CV, ((-t) * (360°) / 100), CC], t, 0, 99)
k = Segment(CC, CV)
allRad = Sequence(Segment[Rotate[CC, t, CC], Rotate[CV, t, CC]], t, 0°, 360°, 36°)
leng = Length(allCfr)
CP = Rotate(CV, ((-value) * (360°) / 100), CC)
fracSect = Sector(c, CP, CV)
cFill = Circle(CC, 5)
PD: (x(E) + (value * Length[segmDec] / 100), y(E))
RP1 = (14, -2)
RP2: (x(RP1) + 4, y(RP1))
RP3: (x(RP2), y(RP2) + 3)
RP4: (x(RP1), y(RP3))
labelFrac: "\frac{" + (LaTeX[value]) + "}{100}"
LP1 = If(20 ≤ value ≤ 50, CP + UnitVector[Segment[CC, CP]], CP + (1.5 * UnitVector[Segment[CC, CP]]))
textPerc: "\hphantom{11} \vphantom{^3_3}" + (LaTeX[value]) + "\%\hphantom{11}"
H = Point(yAxis)
H' = Mirror(H, x = x(V))
P: (x(Q), 11)
sep1 = Segment(P, Q)
S = (7.484123953314423, 7.098039782413025)
u = Vector(S, END + (0.2, 0.2))
tabOrder: {textOnboard, END, textPerc, labelFrac, labelValDec}
W = (14, -2)
Z = (17, -2)
sep2 = Segment(W, H)
sep3 = Segment(Z, H')