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

馨馨 发表于 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

zzyong00 发表于 2016-5-15 15:51:00

以上为第一个问题

zzyong00 发表于 2016-5-15 15:51:00

那我上次改的记录格网点的位置对吗

馨馨 发表于 2016-5-16 07:53:00

If L > UBound(H) Then ReDim Preserve H(UBound(H) + 100), X(UBound(X) + 100), Y(UBound(Y) + 100), Z(UBound(Z) + 100)
这个是什么意思

馨馨 发表于 2016-5-16 08:40:00

如果点数多，原来定义的数组不够大，就再增加100个空间

查看完整版本: 用反距离加权算法插值出格网点高程