PDF complete version (5 MB) - ETH - LUE - ETH Zürich

Anhang 26
6.3 Nachbar
Public Sub tiefster_nachbar() 'sucht den tiefsten Stichproben-Nachbar
Dim verknuepfung As Recordset
Dim stp2 As Recordset
Dim stp As Recordset
Dim placebo As Database
Dim x As Long, y As Long, d, i As Integer, h, delta_x As Double, hbest As Double, stpin As Integer, stpout As Integer
Dim test As Integer
Set placebo = DBEngine.Workspaces(0).Databases(0)
Set verknuepfung = placebo.OpenRecordset("nachbarschaft")
Set stp = placebo.OpenRecordset("stp")
Set stp2 = placebo.OpenRecordset("stp")
Do Until verknuepfung.EOF
verknuepfung.Delete
verknuepfung.MoveNext
Loop
Do Until stp.EOF
stpout = stp![stp_id]
x = stp![x]
y = stp![y]
h = stp![hoehe]
d = 2501
hbest = 3000
test = 1
stp2.MoveFirst
Do Until stp2.EOF
If ((x - stp2![x]) ^ 2) < d And ((y - stp2![y]) ^ 2) < d Then
If stp2![hoehe]