function GetDifferents(Bmp1,Bmp2:TBitmap):Integer;,c2:PByte;,y,x1,y1,i,Diff:Integer;.PixelFormat:=pf24bit;.PixelFormat:=pf24bit;:=0;:=Max(Bmp1.Width,Bmp2.Width);:=Max(Bmp1.Height,Bmp2.Height);y:=0 to y1-1 doBmp1.Height gt; y then c1:=Bmp1.Scanline [y]; Bmp2.Height gt; y then c2:=Bmp2.Scanline [y]; x:=0 to x1-1 doi:=0 to 2 do(Diff,Integer(c1^lt;gt;c2^));(c1);(c2);;;:=Round(10000*(Diff/(x1*y1)));;RemoveBreak(Bmp:TBitmap);,y:Integer;:array of Boolean;, Max, TempStart, Start: Integer; (Arr, Bmp.Height); y:=0 to Bmp.Height - 1 do [y]:=False; x:=0 to Bmp.Width - 1 do if Bmp.Canvas.Pixels [x, y] lt; gt; $ FFFFFF then [y]:=True ;;;;:=0;:=0; y:=0 to Length (Arr) - 1 doArr [y] thenTemp=0 then TempStart:=y; (Temp); elseTemp gt; Max then:=Temp;:=TempStart ;;:=0 ;;; Temp gt; Max then:=Temp;:=TempStart ;;. Canvas.Draw ( 0, -Start, Bmp) ;. Height:=Max; (Arr, Bmp.Width); x:=0 to Length (Arr) - 1 do [x]:=False; y:=0 to Bmp.Height -1 do if Bmp.Canvas.Pixels [x, y] lt; gt; $ FFFFFF then [x]:=True ;;;;:=0;:=0; x:=0 to Length (Arr) - 1 doArr [x] thenTemp=0 then TempStart:=x; (Temp); elseTemp gt; Max then:=Temp;:=TempStart ;;:=0 ;;; Temp gt; Max then:=Temp;:=TempStart ;;. Canvas.Draw (-Start, 0, Bmp);
Bmp.Width:=Max ;;
{Порівняння з еталоном}
function GetChar(Bmp:TBitmap):Char;=laquo;ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789raquo;;,SizeEnd:Integer;:TBitmap;:Integer;:Byte;:Integer;:Integer;:=#0;:=Round(Bmp.Height*0.90);:=Round(bmp.Height*1.10);:=10000;:=TBitmap.Create;.PixelFormat:=pf24Bit;i:=SizeBegin to SizeEnd doc:=1 to Length (CharList) do.Width:=i*2;.Height:=i*2;.Canvas.FillRect(Rect(0,0,CharBmp.Width,CharBmp.Height));.Canvas.Font.Name:=laquo;Arialraquo;;.Canvas.Font.Size:=i;.Canvas.TextOut(0,0,CharList[c]);(CharBmp);:=GetDifferents(Bmp,CharBmp);Templt;Min then:=Temp;:=CharList [c] ;;;. Free ;; Prepare (Bmp: TBitmap): TBitmap;: array of array of Byte;, j, k: Integer;, Max: Integer;: array of array [0..2] of Integer;: TBitmap; f (x1, y1: Integer); (Size); [x1] [y1]:=2; BmpArr [x1 + 1] [y1]=1 then f (x1 + 1, y1); BmpArr [x1-1] [y1]=1 then f (x1-1, y1); BmpArr [x1] [y1 + 1]=1 then f (x1, y1 + 1); BmpArr [ x1] [y1-1]=1 then f (x1, y1-1) ;; d (x1, y1: Integer); [x1] [y1]:=0; BmpArr [x1 + 1] [y1]=2 then d (x1 + 1, y1); BmpArr [x1-1] [y1]=2 then d (x1-1, y1); BmpArr [x1] [y1 + 1]=2 then d (x1, y1 + 1 ); BmpArr [x1] [y1-1]=2 then d (x1, y1-1) ;; (BmpArr, Bmp.Width); i:=0 to Length (BmpArr) - 1 do (BmpArr [i], Bmp.Height); j:=0 to Bmp.Height - 1 do Bmp.Canvas.Pixels [i, j]=$ FFFFFF then
BmpArr [i] [j]:=0 [i] [j]:=1 ;; i:=0 to Bmp.Width - 1 doj:=0 to Bmp.Height - 1 doBmpArr [i] [j ]=1 then:=0; (i, j); (ArrSize, Length (ArrSize) +1); [Length (ArrSize) - 1] [0]:=Size; [Length (ArrSize) - 1] [1 ]:=i; [Length (ArrSize) - 1] [2]:=j ;;;:=ArrSize [0] [0]; k:=0 to Length (ArrSize) - 1 do ArrSize [k] [0 ] gt; Max then:=ArrSize [k] [0];:=Round (Max/10); k:=0 to Length (ArrSize) - 1 do ArrSize [k] [0] lt; Max then (ArrSize [ k] [1], ArrSize [k] [2]);:=TBitmap.Create; .Width:=Bmp.Width; .Height:=Bmp.Height; i:=0 to Bmp.Width - 1 doj:= 0 to Bmp.Height - 1 do BmpArr [i] [j]=0 then .Canvas.Pixels [i, j]:=$ FFFFFF .Canvas.Pixels [i, j]:=$ 000 000;:=TmpBmp ;;
{Сегментація} GetImageChars (Bmp: TBitmap): String;, j: Integer;: array of Boolean;: Boolean;: array [0..1] of array of Integer;: TBitmap;: Char;:= laquo ; raquo ;;. PixelFormat:=pf24Bit; (BmpArrX, Bmp.Width); i:=0 to Bmp.Width - 1 do [i]:=False; j:=0 to Bmp.Height - 1 doBmp.Canvas. Pixels [i, j]=0 then [i]:=True ;;;;:=False; i:=0 to Bmp.Width - 1 doBmpArrX [i] thennot ok then:=True; (CharPos [0], Length (CharPos [0]) + 1); [0] [Length (CharPos [0]) - 1]:=i ;; else if ok then:=False; (CharPos [1], Length (CharPos [1] ) +1); [1] [Length (CharPos [1]) - 1]:=i ;;. ProgressMax (Length (CharPos [0])) ;. ProgressReset; .Left:=Form1.Left; .Top: =Form1.Top + (Form1.Height - Form2.Height) div 2; .Show;:=TBitmap.Create; i:=0 to Length (CharPos [0]) - 1 do.Height:=Bmp.Height ;. Width:=CharPos [1] [i] -CharPos [0] [i] ;. Canvas.CopyRect (Rect (0,
, [1] [i] -CharPos [0] [i] ,. Height1) ,. Canvas, (CharPos [0] [i], 0, CharPos [1] [i], Bmp.Height - 1 )); (TmpBmp);:=Result + GetChar (TmpBmp);
//Прогрес распознаванія.VPic (TmpBmp);
Form2.ProgressAdd; .ProcessMessages ;;. Hide; .Free ;; TForm1.nOpenClick (Sender: TObject); dlgOpen.Execute then.Picture.Bitmap.LoadFromFile (dlgOpen.FileName) ;; TForm1.nExitClick (Sender: TObject) ;;; TForm1.nRaspoznClick (Sender: TObject) ;. Enabled:=false; .Picture.Bitmap:=Binarise (Image1.Picture.Bitmap) ;. Picture.Bitmap:=Prepare (Image1.Picture.Bitmap);.Text:=GetImageChars (Image1.Picture.Bitmap) ;. Enabled:=true ;;
Додаток Б Нейронні мережі
1. Введення в нейронні мережі
Теорія нейронних мереж включають широке коло питань з різних галузей науки: біоф...
