100分求助 能不能提供一些有关图像分割的算法和实现代码！谢谢

Question

procedure Tzy.Cyan1;
var
  newbmp: TBitmap;
  i,bmpheight,bmpwidth:integer;
begin
  newbmp:= TBitmap.Create;
  newbmp.Width:=image1.Width;
  newbmp.Height:=image1.Height;
  bmpheight:=image1.Height;
  bmpwidth:=image1.Width;  for i:=0 to bmpheight do
  begin
    newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i));
    //newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),yuset.image1.Canvas,Rect(0,bmpheight-i,bmpwidth,i));
    zy.Canvas.Draw(220,37,newbmp);
  end;
  newbmp.free;
end; procedure Tzy.cyan2;
var
  newbmp:TBitmap;
  i,j,bmpheight,bmpwidth:integer;
  xgroup,xcount:integer;
begin
  newbmp:= TBitmap.Create;
  newbmp.Width:=image1.Width;
  newbmp.Height:=image1.Height;  bmpheight:=image1.Height;
  bmpwidth:=image1.Width;
  xgroup:=16;
  xcount:=bmpheight div xgroup;  for i:=0 to xcount do
  for j:=0 to xgroup do
  begin
    newbmp.Canvas.CopyRect(Rect(0,xcount*j+i-1,bmpwidth,xcount*j+i),image1.Canvas, Rect(0,xcount*j+i-1,bmpwidth,xcount*j+i));
    zy.Canvas.Draw(220,37,newbmp);
  end;
  newbmp.Free;
end;

Answer 1

请问这是用的什么算法，最好能结合一点理论 谢谢