Vb sabe encontrar la ordenada de una línea recta de un punto a otros dos puntos (código fuente)
Subcomando privado 1_Click()
Una línea recta desde el primer punto hasta dos o tres puntos debe tratarse como una línea vertical.
Dim x(3) es Doble, y(3) es Doble
Ajusta k a doble precisión
x(1) = 3: y( 1 ) = 2
x(2) = 1: y(2) = 1
x(3) = 2: y(3) = 0
Si x(2) = x(3) o y(2) = y(3), entonces
Si y(2) = y(3), entonces
y ( 0) = y(2)
x(0) = x(1)
Otros
x(0) = x(2)
y(0) = y(1)
Terminará si...
Otros
k = (y(3) - y (2)) / (x(3) - x(2))
x(0)=(y(1)-y(2)+k * x(2)+x(1 ) /k)/(k+1/k)
y(0)= y(1)-(x(0)-x(1))/k
Si ... La depuración finalizará
. Imprimir x(0), y(0)
Conector final