文件名称：道格拉斯佩克法
文件大小：364KB
文件格式：ZIP
更新时间：2015-09-07 09:58:06
道格拉斯算法 压缩图片
使用道格拉斯算法实现栅格数据的压缩 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) & ")"
【文件预览】：
道格拉斯-佩克法
----Form1.vb(1KB)
----bin()
--------Release()
--------Debug()
----垂距法_TemporaryKey.pfx(2KB)
----obj()
--------Release()
--------垂距法.vbproj.FileListAbsolute.txt(1KB)
--------Debug()
----My Project()
--------Resources.Designer.vb(3KB)
--------Application.myapp(510B)
--------Resources.resx(5KB)
--------Settings.Designer.vb(3KB)
--------Application.Designer.vb(1KB)
--------Settings.settings(279B)
--------AssemblyInfo.vb(1KB)
----Form1.resx(6KB)
----Form1.Designer.vb(7KB)
----道格拉斯-佩克法.vbproj(5KB)
道格拉斯-佩克法.sln