Tríangulos

Cuadrados

Triángulos

Cuadrados

Círculos

Círculos

Peso del círculo

Peso del triángulo

Peso del cuadrado

Borrar

el colgador está bloqueado

Mostrar pesos

Restaurar

¡Balanceado!

Desbalanceado

el colgador está desbloqueado

release = false
TV = 0 (slider from 0 to 20, step 0.01)
SV = 0 (slider from 0 to 20, step 0.01)
CV = 1 (slider from 0 to 20, step 0.01)
LC = 0 (slider from 0 to 100, step 1)
LS = 3 (slider from 0 to 100, step 1)
LT = 2 (slider from 0 to 100, step 1)
LV: (TV * LT) + (SV * LS) + (CV * LC)
RC = 0 (slider from 0 to 100, step 1)
RS = 1 (slider from 0 to 100, step 1)
RT = 5 (slider from 0 to 100, step 1)
RV: (TV * RT) + (SV * RS) + (CV * RC)
Tilt = If(LV ≟ 0 ∧ RV ≟ 0, 0, (LV - RV) / (LV + RV))
wdth: x(Corner[2]) - x(Corner[1])
RN: RT + RS + RC
LN: LT + LS + LC
mxn = Max(LN, RN)
lng: (0.6 * (y(Corner[4]) - y(Corner[1])) / Max[(1.5 * mxn), 10])
B: (Corner[4] + Corner[3]) / 2
A: B + (0, (-3 * lng))
f = Segment(A, B)
D: A + (1 / 6 * (wdth, 0))
α: (((release * Tilt) * 60))°
D' = Rotate(D, α, A)
InputBox1 = Textfield(LT)
InputBox2 = Textfield(LS)
InputBox3 = Textfield(RT)
InputBox4 = Textfield(RS)
InputBox5 = Textfield(LC)
InputBox6 = Textfield(RC)
InputBox7 = Textfield(CV)
T = Textfield(TV)
S = Textfield(SV)
E: A - (1 / 6 * (wdth, 0))
E' = Rotate(E, α, A)
k = Segment(E', D')
list1 = Sequence(Segment[E' + ((i - 1) * (0, (-1.5 * lng))), E' + ((i - 1) * (0, (-1.5 * lng))) + (0, (-0.5 * lng))], i, 1, LN)
LTlist = Sequence(trw[E' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, 1, LT)
LSlist = Sequence(sqw[E' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, 1 + LT, LT + LS)
LClist = Sequence(crc[E' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, 1 + LT + LS, LN)
list2 = Sequence(Segment[D' + ((i - 1) * (0, (-1.5 * lng))), D' + ((i - 1) * (0, (-1.5 * lng))) + (0, (-0.5 * lng))], i, 1, RN)
RTlist = Sequence(trw[D' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, 1, RT)
RSlist = Sequence(sqw[D' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, RT + 1, RT + RS)
RClist = Sequence(crc[D' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, 1 + RT + RS, RN)
C: (x(A), y(A))
lock = true

Tool: trw
point, height
Input: E, sgm
Output: poly1

poly1, h, e, i = Polygon(E, E + (sgm * (1 / sqrt(3), -1)), E + (sgm * (-1 / sqrt(3), -1)))

Tool: sqw
point,height
Input: F, sgm
Output: poly2

poly2, j, k, l, m = Polygon(F + (sgm * (-0.5, -1)), F + (sgm * (0.5, -1)), F + (sgm * (0.5, 0)), F + (sgm * (-0.5, 0)))

Tool: crc
point, diameter
Input: E, test
Output: c

test: 1
c = Circle(E + (0, ((-test)) / 2), test / 2)