首页 相关文章 强角点检测算子的Pascal实现代码

强角点检测算子的Pascal实现代码

  procedure CornerDetect(sWidth, sHeight: longint; Quality: extended);
  var
   i, j, fi, fj: longint;
   a, b, c, sum, MinAccept, MaxEigenvalue: extended;
  begin
   FeatureCount := 0;
   {
   下面采用Good Feature To Track介绍的方法
   J. Shi and C. Tomasi "Good Features to Track", CVPR 94
   }
   for i := 1 to sWidth - 2 do
   for j := 1 to sHeight - 2 do begin
   dx[i, j] := ImageGray[i - 1, j - 1] + 2 * ImageGray[i - 1, j] + ImageGray[i - 1, j + 1]
   - (ImageGray[i + 1, j - 1] + 2 * I...[ 查看全文 ]

2016-02-19 标签:

强角点检测算子的Pascal实现代码的相关文章

手机页面
收藏网站 回到头部