delphi FMX使用模糊集合进行灰度变换

//模糊灰度变换
procedure mohuhuidu(b : TBitmap);
var
   x, y , I : Integer;
   //黑 灰  亮 三个输入隶属度函数
   dark , gray, bright : array [0..255] of single;
   rwdata : TBitmapData ;
   p: PByteArray;
begin
   //初始化三个输入隶属度函数
   for I := 0 to 255 do
   begin
      if i<=63 then
      begin
        dark[i] := 1;
        gray[i] := 0;
        bright[i] := 0;
      end
      else if i>=191 then
      begin
        dark[i] := 0;
        gray[i] := 0;
        bright[i] := 1;
      end
      else if i<=127 then
      begin
        dark[i] := (127-i)*1/64;
        gray[i] := 1-dark[i];
        bright[i] := 0;
      end
      else
      begin
        dark[i] := 0;
        gray[i] := (i-127)*1/64;
        bright[i] := 1-gray[i];
      end;
   end;
   //遍历图像赋值
   if  b.Map( TMapAccess.ReadWrite, rwdata)  then
   begin
        for y := 0 to rwdata.Height - 1 do
        begin
            p := rwdata.GetScanline(y);
            for x := 0 to rwdata.Width - 1 do
            begin
               p[x*4] := round(
                         (dark[p[x*4]]*0+gray[p[x*4]]*127+bright[p[x*4]]*255)
                         /(dark[p[x*4]]+gray[p[x*4]]+bright[p[x*4]])
                         );
               p[x*4+1] := p[x*4];
               p[x*4+2] := p[x*4];
            end;
        end;
   end;
   b.Unmap(rwdata);
end;

结果： 

原理：