Lunghezza non forzata

Lunghezza di riferimento. Es: lunghezza non forzata (nel caso della molla)

Punto di appoggio per i vettori

uDLvt Allungamento vettoriale

Misuratore vettoriale
uMs il suo punto d'appoggio.

Costante della molla

uA = (-1, 1.7)
uB = (1.3, 0.48)
u = Vector(uA, uB)
uL0 = 1.4 (slider from -5 to 5, step 0.1)
uSphere = Circle(uA, uL0)
uL = Length(u)
text2: uL + "   Lunghezza attuale"
uDL: uL - uL0
text3: uDL + "   Allungamento ∆L=L-L0"
uMs = (3.9, 2.94)
uDLvt = Vector(uMs, Translate[uMs, uDL * UnitVector[u]])
uk = 2 (slider from -5 to 5, step 0.1)
uF = Vector(uMs, Translate[uMs, -1.0 * 1.0 * 1.0 * uk * uDLvt])