Red de conocimiento informático - Problemas con los teléfonos móviles - Vb sabe encontrar la ordenada de una línea recta de un punto a otros dos puntos (código fuente)

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