Bácsatyai László: Magyarországi vetületek - NymE GEO portál

212
X_1 = X_1 / p
Y_1 = Y_1 / p
Z_1 = Z_1 / p
X_2 = X_2 / p
Y_2 = Y_2 / p
Z_2 = Z_2 / p
__________________________________
5.3.-2.
__________________________________
For l = 1 To p
X = X_Y_Z(l, 1) - X_1
Y = X_Y_Z(l, 2) - Y_1
Z = X_Y_Z(l, 3) - Z_1
m = 0: f = 3: Rem **** A polinom fokszáma ****
For i = 0 To f
For j = 0 To f - i
For k = 0 To f - i - j
m = m + 1
Matrix(l, m) = X ^ i * Y ^ j * Z ^ k
Next k
Next j
Next i
Next l
__________________________________
5.3.-3.
__________________________________
Private Sub Normal_Matrix()
Static i As Integer
Static j As Integer
Static k As Integer
Static p As Integer
Static t As Integer
p = Pontok_Szama
t = Tagok_Szama
Rem ******** Normálmátrix összeállítása ********
For i = 1 To t
For j = 1 To t + 1
Normal(i, j) = 0#
Next
Next
For i = 1 To t
For j = 1 To t
For k = 1 To p
Normal(i, j) = Normal(i, j) + Matrix(k, i) * Matrix(k, j)
Next k