【文件属性】:
文件名称:道格拉斯佩克法
文件大小: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
网友评论
- 我是下载下来用来看逻辑的~感谢楼主,很清楚~
- 我是下载下来用来看逻辑的~感谢楼主,很清楚~
- 感觉还不错