如何用动态阀值法将图形二值化？

[gidee]

只要给出算法代码
分不够可以再给

[谷戈]

procedure TForm1.Button1Click(Sender: TObject);
var valve: integer;
str1: string;
begin
try
str1 := inputbox('阀值输入', '输入二值化的阀值:', '200');
valve := StrToint(str1);
showmessage('比例：' + FloatToStr(CalPercent(image1.Picture.Bitmap, valve)));

except
application.MessageBox('必须输入0-255之间的数字！', '操作提示', MB_OK + MB_ICONINFORMATION);
end;
end;


function TForm1.CalPercent(const BitmapSouce: TBitmap; valve: integer): double; var
p, p1: PByteArray;
x, y: Integer;
Bmp: TBitmap;
Gray: byte;
WhiteNum, BlackNum: integer;
begin
WhiteNum := 0;
BlackNum := 0;
Bmp := TBitmap.Create;
Bmp.Assign(BitmapSouce);
Bmp.PixelFormat := pf24Bit;
for y := 0 to Bmp.Height - 1 do
begin
p := Bmp.scanline[y];
p1 := BitmapSouce.scanline[y];
for x := 0 to Bmp.Width - 1 do
begin
Gray := (p1[x * 3 + 2] * 299 + p1[x * 3 + 1] * 587 + p1[x * 3] * 114) div 1000;
if gray > valve then
begin
gray := 255;
inc(WhiteNum)
end
else
begin
gray := 0;
inc(BlackNum);
end ;

p[x * 3 + 2] := gray;
p[x * 3 + 1] := gray;
p[x * 3] := gray;
end;
end;

image2.Picture.Bitmap := bmp;
if WhiteNum = 0 then //全黑
result := 1000000000
else
Result := BlackNum / WhiteNum;
end;

valve为阀值，并能计算除黑白两种面积的比例；

[gidee]

老大，首先谢谢，但是你的不是动态阀值。
你还是全局的，有动态的请举手

[thirdapple]

双峰图取峰谷

[gidee]

自己顶自己

[Gide]

thirdapple(陨落雕) 给出具体的办法，分给你，不够可以再加