道格拉斯佩克法

使用道格拉斯算法实现栅格数据的压缩 If tbshuchu.Text = "" Then MessageBox.Show("您没有输入坐标点！") Exit Sub End If If Not IsNumeric(tbfazhi.Text) Then MessageBox.Show("先输入阀值啊大哥！！") Exit Sub End If t = (tbfazhi.Text) ^ 2 c = a * diany(0) - dianx(0) b = -(dianx(num - 1) - dianx(0)) a = diany(num - 1) - diany(0) '构建起始点连接成的直线 tb.Text = "需要保留点的坐标为：" & vbCrLf & "(" & dianx(0) & "," & diany(0) & ")"