Triángulos

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 = 1 (slider from 0 to 20, step 0.01)
SV = 1.5 (slider from 0 to 20, step 0.01)
CV = 1 (slider from 0 to 20, step 0.01)
LC_1 = 0 (slider from 0 to 100, step 1)
LS_1 = 3 (slider from 0 to 100, step 1)
LT_1 = 2 (slider from 0 to 100, step 1)
LV: (TV * LT_1) + (SV * LS_1) + (CV * LC_1)
RC_1 = 0 (slider from 0 to 100, step 1)
RS_1 = 1 (slider from 0 to 100, step 1)
RT_1 = 5 (slider from 0 to 100, step 1)
RV: (TV * RT_1) + (SV * RS_1) + (CV * RC_1)
Tilt = If(LV ≟ 0 ∧ RV ≟ 0, 0, (LV - RV) / (LV + RV))
wdth: x(Corner[2]) - x(Corner[1])
RN: RT_1 + RS_1 + RC_1
LN: LT_1 + LS_1 + LC_1
mxn = Max(LN, RN)
lng: (0.55 * (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)
LT = Textfield(LT_1)
LS = Textfield(LS_1)
RT = Textfield(RT_1)
RS = Textfield(RS_1)
LC = Textfield(LC_1)
RC = Textfield(RC_1)
VC = Textfield(CV)
VT = Textfield(TV)
VS = 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_1)
LSlist = Sequence(sqw[E' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, 1 + LT_1, LT_1 + LS_1)
LClist = Sequence(crc[E' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, 1 + LT_1 + LS_1, 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_1)
RSlist = Sequence(sqw[D' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, RT_1 + 1, RT_1 + RS_1)
RClist = Sequence(crc[D' + (0, (-0.5 * lng)) + ((i - 1) * (0, (-1.5 * lng))), lng], i, 1 + RT_1 + RS_1, RN)
C_1: (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)