$\textsf{0\%}$

$\textsf{100\%}$

$\textsf{TRY ANOTHER}$

\text{bottomtext.}

$\text{ANIMATE}$

Restart

$\textsf{0}$

$\textsf{1}$

\text{Drag to explore}

countQuestion = 1
E: (-14, -3)
allPerc = Shuffle(Sequence[t, t, 1, 99, 1])
givenPerc = Element(allPerc, Mod[countQuestion, Length[allPerc]] + 1)
F: ((-x(E)), y(E))
ptGrid = Sequence((k, y(E)), k, x(E), x(F), Distance[E, F] / 100)
P = Point(ptGrid)
valPerc: (Distance[E, P] / Distance[E, F] * 100)
END: (floor(valPerc / 10) + 1, valPerc - (10 * floor(valPerc / 10)))
L: (x(END), 0)
I: (x(END) - 1, y(END))
B: (10, 0)
A: (0, 0)
poli1Fill, j, m, n, p, M, N = Polygon(A, B, 4)
poli1Border, f, g, h, i, C, D = Polygon(A, B, 4)
K: (x(I), y(D))
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''')
segmPerc = 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)
megaGrid: Join[Sequence[Sequence[(j, k), j, 0, 10], k, 0, 10]] \ Sequence[(0, k), k, 0, 10]
microGrid: Join[Sequence[Sequence[(j, k), j, 0, 10], k, 0, 10, 0.25]] \ Sequence[(0, k), k, 0, 10, 0.25]
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)
G: E - (0, 4)
H: F - (0, 4)
segmNum = Segment(G, H)
u = Vector(E, G)
longTicks2 = Translate(longTicks1, u)
mediumTicks2 = Translate(mediumTicks1, u)
shortTicks2 = Translate(shortTicks1, u)
Q: (x(P), y(G))
labelValPerc: "" + (LaTeX[valPerc]) + "\%"
valDec: valPerc / 100
labelValDec: "" + (LaTeX[valDec]) + ""
textDisplayEquiv: "" + (LaTeX[valPerc]) + "\%=" + (LaTeX[valDec]) + "=\frac{" + (LaTeX[valPerc]) + "}{100}"
poli2 = If(x(P) ≠ x(F), Polygon[A, L, END, I, K, D], poli1Fill)
O = (-9.06916765321244, -0.784480030218815)
R = (-7.842997904580821, -2.4047757694820264)
v = Vector(O, R)
isClicked = true
textQuestion: "\text{Move the point to " + (LaTeX[givenPerc]) + "\%.}"
tabOrder: {textQuestion, textDisplayEquiv, textOnboard, v, P}
S = (-14.543139745317879, -1.8705160932925349)
U = (-13.492137103633633, -1.8705160932925349)
onboarding = true
pulsingSpeed: 8
pulsing = 0.5 (slider from 0 to 1, step 0.1)
pulsingObject = circlePixels(P, 7 + (7 * pulsing), Corner[1], Corner[3], Corner[5])
correct: givenPerc ≟ valPerc

Tool: circlePixels
circlePixels(A,pixelRadius,Corner1,Corner3,Corner5
Input: A, pixelRadius, Corner1, Corner3, Corner5
Output: newCircle

pointRadius: (pixelRadius / x(Corner5) * (x(Corner3) - x(Corner1)))
newCircle = Circle(A, pointRadius)