Family of triangles inside box

https://www.reddit.com/r/geogebra/comments/y0seq1/help_with_scripting/

Scripting

size = 6

Ax = Slider(-size, size, 0.01, 1, 200, false, true, false, false)
Ay = Slider(-size, size, 0.01, 1, 200, false, true, false, false)
Bx = Slider(-size, size, 0.01, 1, 200, false, true, false, false)
By = Slider(-size, size, 0.01, 1, 200, false, true, false, false)
Cx = Slider(-size, size, 0.01, 1, 200, false, true, false, false)
Cy = Slider(-size, size, 0.01, 1, 200, false, true, false, false)

SetVisibleInView(Ax, 1, false)
SetVisibleInView(Ay, 1, false)
SetVisibleInView(Bx, 1, false)
SetVisibleInView(By, 1, false)
SetVisibleInView(Cx, 1, false)
SetVisibleInView(Cy, 1, false)

SetValue(Ax, RandomUniform(-size, size))
SetValue(Ay, RandomUniform(-size, size))
SetValue(Bx, RandomUniform(-size, size))
SetValue(By, RandomUniform(-size, size))
SetValue(Cx, RandomUniform(-size, size))
SetValue(Cy, RandomUniform(-size, size))

A = (Ax, Ay)
B = (Bx, By)
C = (Cx, Cy)

triangle = Polygon(A, B, C)

Scripting (shorter version)

size = 6

Ln = 1...3

Execute(Zip("X"+1+" = Slider(-size, size, 0.01, 1, 200, false, true, false, false)", k, Ln))
Execute(Zip("Y"+1+" = Slider(-size, size, 0.01, 1, 200, false, true, false, false)", k, Ln))

Execute(Zip("SetVisibleInView(X"+k+", 1, false)", k, Ln))
Execute(Zip("SetVisibleInView(Y"+k+", 1, false)", k, Ln))

Execute(Zip("SetValue(X"+k+", RandomUniform(-size, size))", k, Ln))
Execute(Zip("SetValue(Y"+k+", RandomUniform(-size, size))", k, Ln))

A = (X1, Y1)
B = (X2, Y2)
C = (X3, Y3)

triangle = Polygon(A, B, C)

Family of triangles inside box

Scripting

Scripting (shorter version)

Nuove risorse

Scopri le risorse

Scopri gli argomenti