用反距离加权算法插值出格网点高程

馨馨 · 发表于 2016-5-11 22:25:00

建立规则格网的DEM原数据是TXT文件已经TXT文件的高程点展在CAD上了，画好规则格网了问题：（1）怎么记录这些离散点在哪个方格里（2）用反距离加权插值法计算格网点高程，4-6个离散点参与运算(怎么找出是那几个离散点，怎么记录这些离散点)设置d UBound(H) Then ReDim Preserve H(UBound(H) + 100), X(UBound(X) + 100), Y(UBound(Y) + 100), Z(UBound(Z) + 100)
      Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
      If X(L) >= Xmax Then
         Xmax = X(L)
      End If
      If Y(L) >= Ymax Then
         Ymax = Y(L)
      End If
      If X(L)  0 Then
            intTmp = IREG(i, j)
            Do
                  Debug.Print intTmp; ",";
                  intTmp = IP(intTmp)
            Loop While intTmp > 0

            Debug.Print , "在网格" & i & ":" & j & "内"
         End If
      Next j
Next i
End Sub
[/code]