Cómo utilizar vb para implementar la interpolación lineal

Según el diagrama de bloques del software de interpolación (ver /ly/zhudian/yuanli.htm):

Cálculo de subdesviación()

Desviación = Abs(x Punto final) × z Movimiento Punto - x Punto en movimiento × Abs(z Punto final)

End Sub

Sub Interpolación()

Atenuar c como entero

Seleccionar Banderas de cuadrante de caso

Caso 1: Interpolación del primer cuadrante

Hacer hasta x mover z mover gt; = Total de pasos

Si la desviación gt = 0 Entonces

p>

x movimiento = x movimiento 1:

Línea - Paso(0, paso x), vbRed

Else

Punto de movimiento z = z -punto de movimiento 1:

Línea -Paso(paso-z, 0), vbRed

Fin si

Cálculo de desviación

Bucle

Caso 2: 'Interpolación del segundo cuadrante

c = x-step(x-step, 0), vbRed

End If

Cálculo de desviación

Bucle

Caso 2: Interpolación del segundo cuadrante

c = xEnd: xEnd = zEnd: zEnd = -c

c = xStep: xStep = zStep: zStep = -c

Hacer hasta xMovement zMovement gt; = Total de pasos

Si desviación gt = 0 Entonces

xMovimiento = xMovimiento 1:

Línea -Step(x paso, 0), vbRed

Else

z movimiento = z movimiento 1:

Línea -Step(0, paso z), vbRed

End If

Cálculo de desviación

Bucle

Ejemplo 3: ' Interpolación del tercer cuadrante <

xStep = -xStep: zStep = -zStep

Hacer hasta xStep zStep gt; = Total de pasos

Si desviación gt = 0 Entonces

xStep = xStep 1:

Línea -Step(0, xStep), vbRed

Else

zMotion = zMotion 1:

Línea -Step(zStep, 0), vbRed

Fin si

Cálculo de desviación

Bucle

Caso 4: Interpolación del cuarto cuadrante

c = xEndpoint: xEndpoint = -zEndpoint: zEndpoint = c

c = x-paso: x-paso = -z-paso: z-paso = c

Hacer Hasta el punto de movimiento x punto de movimiento z gt; = pasos totales

Si la desviación gt; = 0

punto de movimiento x = punto de movimiento x 1: Línea -Paso( x-step, 0), vbRed

Else

zMotion = zMotion 1: Línea -Step(0, zStep), vbRed

Fin si

Cálculo de desviación

Bucle

Selección final

End Sub