Untitled

case VERLET:	F = -k *(L - abs(p1 - p2) )* ((p1 - p2)/L) - d*p2 - m*g;		dv2 = (F/m); //aceleracion	p2 = 2*p2 - p2old + (dv2 * dt*dt);  //p(t+h) = 2*p(T) - p(t-h) + a*h*h	v2 = (p2 - p2old) / (2*dt);  //v(t+h)	p2old = p2;break;