zoukankan      html  css  js  c++  java
  • 图象差分算法

    RGBMAP : Array   [0..639,0..479,0..2]   of   byte;  
       
       
      //清晰度的算法  
      Function   AF_Definition(StartX,   StartY,   Width,   Height:integer):single;  
      Var  
          Result_Y:   double;  
          X1,Y1   :integer;  
          Y_C,Y_U,Y_D,Y_R,Y_L:   double;  
      begin  
          Result_Y:=0;  
       
          IF   (StartX=0)   OR   (StartY=0)   then  
              begin  
                StartX:=1;  
                StartY:=1;  
              end;  
       
       
       
            For   X1   :=StartX     to   (StartX+Width-2)   do  
            begin  
                  For   Y1   :=StartY   to   (StartY+Height-2)   do  
                  begin  
                      Y_C   :=0.299*RGBMAP[X1][Y1][2]+0.578*RGBMAP[X1][Y1][1]+0.114*RGBMAP[X1][Y1][0];  
                      Y_L   :=0.299*RGBMAP[X1-1][Y1][2]+0.578*RGBMAP[X1-1][Y1][1]+0.114*RGBMAP[X1-1][Y1][0];  
                      Y_R   :=0.299*RGBMAP[X1+1][Y1][2]+0.578*RGBMAP[X1+1][Y1][1]+0.114*RGBMAP[X1+1][Y1][0];  
                      Y_U   :=0.299*RGBMAP[X1][Y1-1][2]+0.578*RGBMAP[X1][Y1-1][1]+0.114*RGBMAP[X1][Y1-1][0];  
                      Y_D   :=0.299*RGBMAP[X1][Y1+1][2]+0.578*RGBMAP[X1][Y1+1][1]+0.114*RGBMAP[X1][Y1+1][0];  
       
                      Result_Y:=Abs(Y_C-Y_L)+Abs(Y_C-Y_R)+Abs(Y_C-Y_U)+Abs(Y_C-Y_D)+Result_Y;  
                  end;  
              end;  
              Result:=Result_Y/1000;  
      end;  
       
      procedure   FillRGBMAP(D:integer);  
        var  
          X1,Y1,i,R,G,B:   integer;  
          C:   longint;  
          StrTmp   :   string;  
          Mybmp   :Tbitmap;  
      begin  
          Mybmp   :=   Tbitmap.Create   ;  
          StrTmp:=IntToStr(D);  
          StrTmp:=format('%0.3d',[StrToInt(StrTmp)]);  
       
          try  
              Mybmp.LoadFromFile('c:\test\test('+   StrTmp   +').bmp');  
              for   i   :=0   to   255   do  
              Gray[i]:=0;  
       
       
              For   Y1   :=   0   to   BMPHeight-1   do  
              begin  
                  For   X1   :=   0   to   BMPWidth-1   do  
                  begin  
                        C   :=   Mybmp.Canvas.Pixels[X1,Y1];  
                        R   :=   C   and   $FF;  
                        G   :=   ((C   and   $FF00)   div   $100);  
                        B   :=   ((C   and   $FF0000)   div   $10000);  
       
                        RGBMAP[X1][Y1][0]:=   B;  
                        RGBMAP[X1][Y1][1]:=   G;  
                        RGBMAP[X1][Y1][2]:=   R;  
                  end;  
              end;  
          except  
              MessageDlg('Image   File   Format   Error   ,   RePlugin   Again!!',mtConfirmation,   [mbOK],   0);  
          end;  
      end;

  • 相关阅读:
    1058 A+B in Hogwarts (20分)
    我的Vue之小功能统计
    H5如何用Canvas画布生成并保存带图片文字的新年快乐的海报
    微信小程序之特殊效果及功能
    移动端H5适配方法(盒子+图片+文字)
    5分钟教你3种实现验证码功能
    微信小程序动态生成保存二维码
    微信授权获取code(微信支付)
    H5微信自定义分享链接(设置标题+简介+图片)
    带你走近WebSocket协议
  • 原文地址:https://www.cnblogs.com/toosuo/p/971795.html
Copyright © 2011-2022 走看看