Linear-prevod (GCL)

Variable Xx As Real
Variable X1 As Real
Variable Y1 As Real
Variable X2 As Real
Variable Y2 As Real
Variable X3 As Real
Variable Y3 As Real
Variable X4 As Real
Variable Y4 As Real
Variable X5 As Real
Variable Y5 As Real
Variable X6 As Real
Variable Y6 As Real
Variable Yy As Real

X1 = 30
Y1 = 995.651
X2 = 40
Y2 = 992.220
X3 = 50
Y3 = 988.040
X4 = 60
Y4 = 983.200
X5 = 70
Y5 = 977.760
X6 = 80
Y6 = 971.790

If Xx <=X2 Then Yy = ((Y2 - Y1)/(X2-X1))*(Xx-X1)+Y1 End If
If Xx >X2 and Xx <=X3 Then Yy = ((Y3 - Y2)/(X3-X2))*(Xx-X2)+Y2 End If
If Xx >X3 and Xx <=X4 Then Yy = ((Y4 - Y3)/(X4-X3))*(Xx-X3)+Y3 End If
If Xx >X4 and Xx <=X5 Then Yy = ((Y5 - Y4)/(X5-X4))*(Xx-X4)+Y4 End If
If Xx >X5 Then Yy = ((Y6 - Y5)/(X6-X5))*(Xx-X5)+Y5 End If