Lunghezza non forzata

Lunghezza di riferimento

Punto di appoggio per i vettori

uDLvt Allungamento vettoriale

Misuratore vettoriale
uMs il suo punto d'appoggio.

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