Printable View
درود به همه برنامه نویس های گل:لبخند:
من به خاطر یک پروژه مجبور به یادگیری پردازش تصویر شدم ،چون خودم دلفی کار می کنم و دیدم توی سایت
مخصوصاً در بخش دلفی چنین چیزی کمه تصمیم گرفتم هر تابع و مثالی که می بینم برای این جور کارا به درت می خوره رو در این تاپیک قرار بدم.
امید وارم مفید باشه .
موفق باشید.
توسط این توابع می تونید فیلتر EDGE رو بر روی عکس مورد نظرتون اعمال کنید.
اینم کد
...
type
TRGBTripleArray = array [0 .. 10000] of TRGBTriple;
PRGBTripleArray = ^TRGBTripleArray;
T3x3FloatArray = array [0 .. 2] of array [0 .. 2] of Extended;
function Convolve(ABitmap: TBitmap; AMask: T3x3FloatArray;
ABias: Integer): TBitmap;
var
LRow1, LRow2, LRow3, LRowOut: PRGBTripleArray;
LRow, LCol: Integer;
LNewBlue, LNewGreen, LNewRed: Extended;
LCoef: Extended;
begin
LCoef := 0;
for LRow := 0 to 2 do
for LCol := 0 to 2 do
LCoef := LCoef + AMask[LCol, LRow];
if LCoef = 0 then
LCoef := 1;
Result := TBitmap.Create;
Result.Width := ABitmap.Width - 2;
Result.Height := ABitmap.Height - 2;
Result.PixelFormat := pf24bit;
LRow2 := ABitmap.ScanLine[0];
LRow3 := ABitmap.ScanLine[1];
for LRow := 1 to ABitmap.Height - 2 do
begin
LRow1 := LRow2;
LRow2 := LRow3;
LRow3 := ABitmap.ScanLine[LRow + 1];
LRowOut := Result.ScanLine[LRow - 1];
for LCol := 1 to ABitmap.Width - 2 do
begin
LNewBlue := (LRow1[LCol - 1].rgbtBlue * AMask[0, 0]) +
(LRow1[LCol].rgbtBlue * AMask[1, 0]) +
(LRow1[LCol + 1].rgbtBlue * AMask[2, 0]) +
(LRow2[LCol - 1].rgbtBlue * AMask[0, 1]) +
(LRow2[LCol].rgbtBlue * AMask[1, 1]) +
(LRow2[LCol + 1].rgbtBlue * AMask[2, 1]) +
(LRow3[LCol - 1].rgbtBlue * AMask[0, 2]) +
(LRow3[LCol].rgbtBlue * AMask[1, 2]) +
(LRow3[LCol + 1].rgbtBlue * AMask[2, 2]);
LNewBlue := (LNewBlue / LCoef) + ABias;
if LNewBlue > 255 then
LNewBlue := 255;
if LNewBlue < 0 then
LNewBlue := 0;
LNewGreen := (LRow1[LCol - 1].rgbtGreen * AMask[0, 0]) +
(LRow1[LCol].rgbtGreen * AMask[1, 0]) +
(LRow1[LCol + 1].rgbtGreen * AMask[2, 0]) +
(LRow2[LCol - 1].rgbtGreen * AMask[0, 1]) +
(LRow2[LCol].rgbtGreen * AMask[1, 1]) +
(LRow2[LCol + 1].rgbtGreen * AMask[2, 1]) +
(LRow3[LCol - 1].rgbtGreen * AMask[0, 2]) +
(LRow3[LCol].rgbtGreen * AMask[1, 2]) +
(LRow3[LCol + 1].rgbtGreen * AMask[2, 2]);
LNewGreen := (LNewGreen / LCoef) + ABias;
if LNewGreen > 255 then
LNewGreen := 255;
if LNewGreen < 0 then
LNewGreen := 0;
LNewRed := (LRow1[LCol - 1].rgbtRed * AMask[0, 0]) +
(LRow1[LCol].rgbtRed * AMask[1, 0]) +
(LRow1[LCol + 1].rgbtRed * AMask[2, 0]) +
(LRow2[LCol - 1].rgbtRed * AMask[0, 1]) +
(LRow2[LCol].rgbtRed * AMask[1, 1]) +
(LRow2[LCol + 1].rgbtRed * AMask[2, 1]) +
(LRow3[LCol - 1].rgbtRed * AMask[0, 2]) +
(LRow3[LCol].rgbtRed * AMask[1, 2]) +
(LRow3[LCol + 1].rgbtRed * AMask[2, 2]);
LNewRed := (LNewRed / LCoef) + ABias;
if LNewRed > 255 then
LNewRed := 255;
if LNewRed < 0 then
LNewRed := 0;
LRowOut[LCol - 1].rgbtBlue := trunc(LNewBlue);
LRowOut[LCol - 1].rgbtGreen := trunc(LNewGreen);
LRowOut[LCol - 1].rgbtRed := trunc(LNewRed);
end;
end;
end;
function Get_EDGE(imgSource: TImage): TBitmap;
var
LMask: T3x3FloatArray;
begin
LMask[0, 0] := -1;
LMask[1, 0] := -1;
LMask[2, 0] := -1;
LMask[0, 1] := -1;
LMask[1, 1] := 8;
LMask[2, 1] := -1;
LMask[0, 2] := -1;
LMask[1, 2] := -1;
LMask[2, 2] := -1;
Result := Convolve(imgSource.Picture.Bitmap, LMask, 0);
end;
//Example
procedure Tfrm_Main.btn_RunClick(Sender: TObject);
begin
img_2.Picture.Bitmap := Get_edge(img_1);
end;
اینم پروژه.
موفق باشید.
توسط این کامپوننت و نمونه جالبی که دارهشما می تونید با استفاده از وب کم یک شئ متحرک را شناسایی کنید .
با تابع زیر می تونید میزان روشنایی یک تصویر رو تغییر بدید.
...
const
MaxPixelCount = 32768;
type
pRGBArray = ^TRGBArray;
TRGBArray = ARRAY [0 .. MaxPixelCount - 1] OF TRGBTriple;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
img_Original.Picture.Bitmap.PixelFormat := pf24bit;
img_Dest.Picture.Bitmap.PixelFormat := pf24bit;
trckbr_Br.Position := 0;
lbl_Value.Caption := '0';
end;
procedure Brightness(imgSource, imgDest: TImage; BrValue: integer;
lblValu: TLabel);
function Min(a, b: integer): integer;
begin
if a < b then
result := a
else
result := b;
end;
function Max(a, b: integer): integer;
begin
if a > b then
result := a
else
result := b;
end;
var
i, j: integer;
OrigRow, DestRow: pRGBArray;
begin
// get brightness increment value
// value := TTrackBar(Sender).Position;
if BrValue <= 0 then
lblValu.Caption := IntToStr(BrValue)
else
lblValu.Caption := Format('+%d', [BrValue]);
// for each row of pixels
for i := 0 to imgSource.Picture.Height - 1 do
begin
OrigRow := imgSource.Picture.Bitmap.ScanLine[i];
DestRow := imgDest.Picture.Bitmap.ScanLine[i];
// for each pixel in row
for j := 0 to imgSource.Picture.Width - 1 do
begin
// add brightness value to pixel's RGB values
if BrValue > 0 then
begin
// RGB values must be less than 256
DestRow[j].rgbtRed := Min(255, OrigRow[j].rgbtRed + BrValue);
DestRow[j].rgbtGreen := Min(255, OrigRow[j].rgbtGreen + BrValue);
DestRow[j].rgbtBlue := Min(255, OrigRow[j].rgbtBlue + BrValue);
end
else
begin
// RGB values must be greater or equal than 0
DestRow[j].rgbtRed := Max(0, OrigRow[j].rgbtRed + BrValue);
DestRow[j].rgbtGreen := Max(0, OrigRow[j].rgbtGreen + BrValue);
DestRow[j].rgbtBlue := Max(0, OrigRow[j].rgbtBlue + BrValue);
end;
end;
end;
imgDest.Repaint;
end;
//Example
procedure TForm1.trckbr_BrChange(Sender: TObject);
var
value: integer;
begin
value := TTrackBar(Sender).Position;
Brightness(img_Original,img_Dest,value,lbl_Value)
end;
پروژه
توسط توابع زیر می توانید یک عکس را کلید عددی خاص خود کد و دیکد کنید.
...
var
BitmapOriginal: TBitmap;
BitmapEncrypted: TBitmap;
// Don't bother trying to understand structure of pixels within scanline.
// Just find length of scanline in bytes and process all bytes.
PROCEDURE EncryptImage(imgDest: TImage; SeedEncrypt: Integer);
VAR
i: Integer;
j: Integer;
RandomValue: BYTE;
rowIn: pByteArray;
rowOut: pByteArray;
ScanlineByteCount: Integer;
BEGIN
IF Assigned(BitmapEncrypted) THEN
BitmapEncrypted.Free;
BitmapEncrypted := TBitmap.Create;
BitmapEncrypted.Width := BitmapOriginal.Width;
BitmapEncrypted.Height := BitmapOriginal.Height;
BitmapEncrypted.PixelFormat := BitmapOriginal.PixelFormat;
// Copy palette if palettized image
IF BitmapOriginal.PixelFormat IN [pf1bit, pf4bit, pf8bit] THEN
BitmapEncrypted.Palette := CopyPalette(BitmapOriginal.Palette);
// This finds the number of bytes per scanline regardless of PixelFormat
ScanlineByteCount := ABS(Integer(BitmapOriginal.Scanline[1]) -
Integer(BitmapOriginal.Scanline[0]));
TRY
RandSeed := SeedEncrypt
EXCEPT
RandSeed := 79997 // use this prime number if entry is invalid
END;
FOR j := 0 TO BitmapOriginal.Height - 1 DO
BEGIN
rowIn := BitmapOriginal.Scanline[j];
rowOut := BitmapEncrypted.Scanline[j];
FOR i := 0 TO ScanlineByteCount - 1 DO
BEGIN
RandomValue := Random(256);
rowOut[i] := rowIn[i] XOR RandomValue
END
END;
imgDest.Picture.Graphic := BitmapEncrypted;
END { EncryptImage };
PROCEDURE DecryptImage(imgDest: TImage; SeedDecrypt: Integer);
VAR
BitmapDecrypted: TBitmap;
i: Integer;
j: Integer;
RandomValue: BYTE;
rowIn: pByteArray;
rowOut: pByteArray;
ScanlineByteCount: Integer;
begin
BitmapDecrypted := TBitmap.Create;
BitmapDecrypted.Width := BitmapEncrypted.Width;
BitmapDecrypted.Height := BitmapEncrypted.Height;
BitmapDecrypted.PixelFormat := BitmapEncrypted.PixelFormat;
// Copy palette if palettized image
IF BitmapEncrypted.PixelFormat IN [pf1bit, pf4bit, pf8bit] THEN
BitmapDecrypted.Palette := CopyPalette(BitmapEncrypted.Palette);
// This finds the number of bytes per scanline regardless of PixelFormat
ScanlineByteCount := ABS(Integer(BitmapEncrypted.Scanline[1]) -
Integer(BitmapEncrypted.Scanline[0]));
TRY
RandSeed := SeedDecrypt
EXCEPT
RandSeed := 79997 // use this prime number if entry is invalid
END;
FOR j := 0 TO BitmapEncrypted.Height - 1 DO
BEGIN
rowIn := BitmapEncrypted.Scanline[j];
rowOut := BitmapDecrypted.Scanline[j];
FOR i := 0 TO ScanlineByteCount - 1 DO
BEGIN
RandomValue := Random(256);
rowOut[i] := rowIn[i] XOR RandomValue
END
END;
imgDest.Picture.Graphic := BitmapDecrypted;
END { DecryptImage };
نحوه استفاده
procedure TForm1.FormCreate(Sender: TObject);
begin
IF Assigned(BitmapOriginal) THEN
BitmapOriginal.Free;
BitmapOriginal := TBitmap.Create;
BitmapOriginal := img_Original.Picture.Bitmap;
end;
procedure TForm1.btn_DecryptClick(Sender: TObject);
begin
DecryptImage(img_Decrypted, 12);
end;
procedure TForm1.btn_EncryptClick(Sender: TObject);
begin
EncryptImage(img_Encrypted, 12);
end;
پروژه
با سلام
یه سورس داشتم که از خودش یا تیکه های اون میتونید استفاده کنید .
با این کدها میتونید کارهای زیر رو انجام دهید :
Invert
AddColorNoise
AddMonoNoise
AntiAlias
Contrast
FishEye
GrayScale
Lightness
Darkness
Saturation
SplitBlur
GaussianBlur
Mosaic
Twist
Splitlight
Tile
SpotLight
Trace
Emboss
Solorize
Posterize
Rotate
رمز : نام کاربری
موفق و پیروز باشید
سلام
بابا بی خواب "شنبه 09 دی 1391 04:14 صبح" کمی به خودت استراحت بده
چرا از ImageEn یا OpenCV استفاده نمی کنی؟
اینم یک کتاب درمورد پردازش تصویر در دلفی
زبان : انگلیسی
تعداد صفحه : 42
منبع : imageprocessingindelphi (البته باید از راه های غیر معمول برای ورود استفاده کنید)
موفق باشید.
درود به همه
الان داشتم نگاهی به گذشته مینداختم (عکس زیر)، یهو زد به سرم یه برنامه بنویسم که رنگ پوست رو توی اون تصویر تشخیص بدم و ناگهان کد زیر پدید آمد.
(با استفاده از رنگ پوست و کمی کار بیشتر میشه صورت رو توی تصاویر رنگی تشخیص داد امّا برای تشخیص صورت بهتره از فضای رنگ HSV استفاده بشه)
مواد لازم :
یک عدد Button به نامbtn_Run تا کدهای زیر رو توی رویداد کلیکش بنویسید.
دو عدد Image به نام های img_1وimg_2 که هردو باید حاوی یک تصویر از نوع BMP باشند ، همین
اینم عکس برنامه :
کد برنامه رو کمی تغییر دادم ،کیفیتش بهتر شد.
{...}
uses
System.Math;
procedure TForm1.btn_RunClick(Sender: TObject);
var
x, Y: INTEGER;
R, G, B: BYTE;
Ptr: PByteArray;
function isSkinRGB(R, G, B: BYTE): boolean;
// R > 95 and G > 40 and B > 20 and
// max{R,G,B}-min{R,G,B} > 15 and
// |R-G| > 15 and R > G and R > B
begin
if (R > 95) and (G > 40) and (B > 20) and
(MAX(MAX(R, G), B) - MIN(MIN(R, G), B) > 15) and (Abs(R - G) > 15) and
(R > G) and (R > B) then
RESULT := true
else
RESULT := false;
end;
begin
For Y := 0 To img_1.Height - 1 do
begin
Ptr := img_1.Picture.Bitmap.Scanline[Y];
For x := 0 To img_1.Width - 1 do
begin
B := Round(Ptr[(x * 3) - 3]);
R := Round(Ptr[(x * 3) - 4]);
G := Round(Ptr[(x * 3) - 2]);
if isSkinRGB(R, G, B) then
img_2.Picture.Bitmap.Canvas.Pixels[x, Y] := RGB(R, 0, 0);
end;
end;
end;
اگر هم خواستید فقط قسمت های تعیین شده رو نشون بدید به img_2 یک عکس کاملاً سفید با اندازه تصویر اول قرار بدید (برای اینکه می خوایم اون قسمت ها روش چاپ کنیم)
و خط زیر رو توی برنامه بالا پیدا کنید :
img_2.Picture.Bitmap.Canvas.Pixels[x, y] := RGB(R, 0, 0);
و با کد زیر جایگزین کنید :
img_2.Picture.Bitmap.Canvas.Pixels[x, y] := RGB(R,G, B);
اینم تصویر از برنامه با حالت جدید :
موفق باشید.
درود به همه:لبخند:
امروز می خوام یه نمونه با حال برای تشخیص پلاک خودرو(فعلاً تعیین ناحیه شماره پلاک) براتون بذارم.
ابتدا
uses math;
بعد
procedure RGBtoHSL(R, G, B: Integer; var H, S, L: Integer);
var
Delta: Double;
CMax, CMin: Double;
Red, Green, Blue, Hue, Sat, Lum: Double;
begin
Red := R / 255;
Green := G / 255;
Blue := B / 255;
CMax := Max(Red, Max(Green, Blue));
CMin := Min(Red, Min(Green, Blue));
Lum := (CMax + CMin) / 2;
if CMax = CMin then
begin
Sat := 0;
Hue := 0;
end
else
begin
if Lum < 0.5 then
Sat := (CMax - CMin) / (CMax + CMin)
else if (CMax < 1) then
Sat := (CMax - CMin) / (2 - CMax - CMin);
Delta := CMax - CMin;
if Red = CMax then
Hue := (Green - Blue) / Delta
else if Green = CMax then
Hue := 2 + (Blue - Red) / Delta
else
Hue := 4.0 + (Red - Green) / Delta;
Hue := Hue / 6;
if Hue < 0 then
Hue := Hue + 1;
end;
H := Round(Hue * 360);
S := Round(Sat * 100);
L := Round(Lum * 100);
end;
{------------------------}
FUNCTION RGBTripleToY(CONST RGB: TRGBTriple): Integer;
BEGIN
WITH RGB DO
RESULT := Integer(77 * rgbtRed + 150 * rgbtGreen + 29 * rgbtBlue) SHR 8
END { RGBtoY };
بعد کد زیر رو توی یک button بنویسید.
var
bmp, bmp1: TBitmap;
x, y, ScanlineBytes: Integer;
p1, p2: pbytearray;
RVALUE, bvalue, gvalue, num: Integer;
hVALUE, sVALUE, lVALUE: Integer;
tm1, tm2: Integer;
begin
self.DoubleBuffered := true;
num := 0;
bmp := TBitmap.Create;
bmp1 := TBitmap.Create;
bmp.Assign(OroginalColorImage.Picture.Bitmap);
bmp1.Assign(OroginalColorImage.Picture.Bitmap);
bmp.PixelFormat := pf24bit;
bmp1.PixelFormat := pf24bit;
for y := 0 to bmp.Height - 3 do
begin
p1 := bmp.ScanLine[y];
p2 := bmp1.ScanLine[y];
begin
for x := 0 to bmp.Width - 3 do
begin
RVALUE := p2[3 * x + 1];
gvalue := p2[3 * x] + 2;
bvalue := p2[3 * x];
RGBtoHSL(RVALUE, gvalue, bvalue, hVALUE, sVALUE, lVALUE);
lVALUE := lVALUE;
lVALUE := Min(100, lVALUE);
if (hVALUE > 170) and (hVALUE <= 230) then
begin
num := num + 1;
p1[3 * x] := 255;
p1[3 * x + 1] := 255;
p1[3 * x + 2] := 255;
end
else if (hVALUE > 40) and (hVALUE < 80) then
begin
p1[3 * x] := 200;
p1[3 * x + 1] := 200;
p1[3 * x + 2] := 200;
end
else if hVALUE > 340 then
begin
p1[3 * x] := 150;
p1[3 * x + 1] := 150;
p1[3 * x + 2] := 150;
end
else if lVALUE > 80 then
begin
p1[3 * x] := 100;
p1[3 * x + 1] := 100;
p1[3 * x + 2] := 100;
end
else
begin
p1[3 * x] := 0;
p1[3 * x + 1] := 0;
p1[3 * x + 2] := 0;
end;
end;
end;
end;
ImageHistoStretched.Picture.Bitmap.Assign(bmp);
bmp.free;
bmp1.free;
گفتن نداره ولی :
OroginalColorImage یک کنترل TImage است و باید عکس رو درونش قرار بدید.
در انتها
ضمیمه 100909
نکته : این فقط یک نمونه ساده بیشتر نیست و حساسیتش هم به رنگه پلاکه و با پلاک ایران کار نمی کنه !
کمی هم باید تلاش کنید.
موفق باشید.
اینم عکس ماشینی که توی نمونه است.
درود
در پست های قبلی کدی برای تشخیص رنگ پوست در فضای RGB قرار دادم ،اما کمی مشکل داشت این یکی خیلی بهتره.
function Is_Skin(const R, G, B: Byte): Boolean; inline;
function Max(const A, B: Integer): Integer; inline;
begin
if A > B then
Result := A
else
Result := B;
end;
function Min(const A, B: Integer): Integer; inline;
begin
if A < B then
Result := A
else
Result := B;
end;
begin
if ((R > 95) and (G > 40) and (B > 20) and (Max(R, Max(G, B)) - Min(R,
Min(G, B)) > 15) and (abs(R - G) > 15) and (R > G) and (R > B)) then
Result := True
else
Result := False;
end;
procedure Get_SkinColor(const AInput: TBitmap; AOut: TBitmap;
AspecifyByColor: BOOL = False; AspecifyColor: TColor = clRed);
var
iHeight, iWidth: Longint;
pScanLine: Pointer;
RGBBitmap: TRGBTriple;
begin
with AOut do
begin
Height := AInput.Height;
Width := AInput.Width;
// PixelFormat := pf32bit;
for iHeight := Height - 1 downto 0 do
begin
pScanLine := AInput.ScanLine[iHeight];
for iWidth := 0 to Width - 1 do
begin
// Read RGB from scan line
RGBBitmap :=
TRGBTriple(Pointer(Longint(pScanLine) +
(iWidth * SizeOf(TRGBTriple)))^);
if Is_Skin(RGBBitmap.rgbtRed, RGBBitmap.rgbtGreen, RGBBitmap.rgbtBlue)
then
begin
if AspecifyByColor then
begin
AOut.Canvas.Pixels[iWidth, iHeight] := AspecifyColor;
end
else
begin
AOut.Canvas.Pixels[iWidth, iHeight] :=
RGB(RGBBitmap.rgbtRed, RGBBitmap.rgbtGreen, RGBBitmap.rgbtBlue);
end;
end;
end;
end;
end;
end;
اینم طرز استفاده :
procedure TForm1.btn_RunClick(Sender: TObject);
begin
Get_SkinColor(img_1.Picture.Bitmap, img_4.Picture.Bitmap { ,true,clWhite { } )
end;
درود به همه
اینم یه نمونه خیلی خوب برای تشخیص پلاک خودرو
حتماً امتحانش کنید
موفق باشید.
درود
اینم یک نمونه خوب برای OCR با استفاده از شبکه عصبی.
موفق باشید.
مهندس جون/ مطمئنی این کد ocr هست؟نقل قول:
درود
اینم یک نمونه خوب برای OCR با استفاده از شبکه عصبی.
موفق باشید.
من کد رو نیگا کردم. قضیه چیز دیگه ای هستا...
والا من هنوز وقت نکردم موشکافیش کنم ببینم چه خبره فقط یکی دوتا تست کردم :نقل قول:
نوشته شده توسط Gold
یک یا چند حرفو به شبکه دادم و منتظر شدم تا یاد بگیره بعد همون حروفو توی یک عکس به برنامه دادم اونم تشخیص داد و متن حاوی اون حروفو به من داد.
بازم میگم کدشو مطالعه نکردم.
اگه اشتباه کردم ببخشید.:متفکر:
درود
بازم یه نمونه از OCR در دلفی 100%.
موفق باشید.
https://barnamenevis.org/images/misc/pencil.png
دوست من OCR این ها نیست ها!
در OCR مهم ترین فن استفاده از شیکه عصبی هست.
مطمئنی درست کد گذاشتی؟
دارم روی کامپوننتی کار می کنم که استفاده از شبکه عصبی رو آسون می کنه. به امید خدا تموم که شد یک نمونه می گذارم.
در این روش شما، که البته جواب هم می ده، روش مقایسه و امتیاز استفاده شده.
این روش در مقیاس های بزرگ یا نزدیک خیلی کارایی نداره. مثل تشخیص دستخط یا تشخیص چهره یا صدا..
درودنقل قول:
نوشته شده توسط You-See
ممنون از توجهت
منم نگفتم که اینا حرفه ای هستن:لبخند:
فکر کنم اولی از شبکه استفاده کنه ها !!!
(من این نمونه ها رو صرفاً برای نمونه گذاشتم و نه بیشتر ،متاسفانه وقت هم نکردم که ببینم چه خبره اگه ممکنه خودتون زحمت تحلیل یکیشون رو بکشید.)
آقا این پست رو زدم برای تشکر ویژه و اینکه مایوس نشی و ادامه بدی.
خسته نباشی.(اشاره به اون آواتار خسته ام)
خیلی ممنون:لبخند:نقل قول:
نوشته شده توسط Gold
گفتی آواتار : باورکن اون موقع تقریباً یک هفته خواب نداشتم هر روز 3 یا 4 ساعت می خوابیدم پوستم کنده شد
اما حالا نه :لبخند:
خدا کنه زودتر تموم بشه :لبخند:نقل قول:
دارم روی کامپوننتی کار می کنم که استفاده از شبکه عصبی رو آسون می کنه. به امید خدا تموم که شد یک نمونه می گذارم.
تاحالا از FANN (Fast Artificial Neural Network Library) توی دلفی استفاده کردید؟؟
یکی از دوستام که تو همین خطه گفت چیز خیلی جالبی اما برای ++C !
کسی چنین چیزی برای Delphi سراغ نداره ؟
نه ازش استفاده نکردم.
فعلا دارم رو مفاهیم شبکه دوره می کنم تا خوب یادم بیاد و انواعش و محدودیت هاش رو بدونم.
عناصرش و کارکرد هاش رو همین طور.
البته اگر زورم برسه و علمم قد بده ..
اون نمونه ای که در پست 15 معرفی کردم شاید کمکت کنه :نقل قول:
نوشته شده توسط You-See
اونطور که از توضیحاتش معلومه ،بدک نیستنقل قول:
{************************************************* ******************************
Form TTrainingForm
------------------
File Name : TrainingFrm.pas
Language : Delphi 2005
Author : Theo Zacharias (theo_yz@yahoo.com)
Description : TTrainingForm is a class form that provide a user interface
for training the backpropagation neural net.
Last modified on June 14, 2005
************************************************** *****************************}
متاسفانه من با شبکه ای عصبی آشنایی زیادی ندارم.
برای OCR کدوم نوع بهتره ،اگه ممکنه در این باره کمی توضیح بدید.
سر فرصت نگاه می ندازم حتما.
اجالتا:
استفاده از شبکه های عصبی "می تونه" در تشخیص الگو بهتر باشه.
ممکنه راههای ساده تر و سریعتری هم باشه، اما شبکه عصبی از نظر یادگیری بهتره.
توضیح اجمالی شبکه عصبی:
همون طور که مغز از نرون ها تشکیل شده، و ارتباط هر نرون با نرون های مجاور تعیین کننده ی تصمیم هست، از طرفی مفهوم حافظه این وسط وجود داره، و در نهایت تشدید کننده و تقلیل دهنده هم موثره، مدلی از برنامه نویسی بوجود اومد که اساس اون رو نرون تشکیل می داد.
هر نرون واحدی هست که یک ورودی به شکل ماتریس می گیره، با توجه به مقدار آستانه ی تحریک (بایاس) بر اساس تابعی که درش تعبیه شده (توابع برای کارهای مختلف فرق داره) اون ماتریس رو نگاشت می کنه به ماتریسی که به خروجی می ره.
یادگیری در این سیستم در حقیقت تغییر اون ماتریس به یک ماتریس جدید هست.
جالبه بدونید که هر داده ای در تمام درایه های ماتریس ذخیره می شه نه فقط یک درایه! چیزی مثل هولوگرام،
مثل عدسی، اگر یک ذره بین بتونه انعکاس شمع رو رو کاغذ درست کنه، نصف عدسی هم می تونه تمام تصویر قبلی رو درست کنه فقط محو تر،
به زبان شبکه های عصبی یعنی اگر ماتریس کوچکتر باشه دقت تشخیص کمتر می شه!!!
ان شا ا... سر فرصت کامل تر می گم.
بابت توضیحات بالا خیلی ممنون
الان کمی سرچ بازی کردم اینا گیرم امد فکر کنم کمکت کنه (واسه من زوده:کف:)0
روسی بلیدی ؟؟ منم بلد نیستم ولی خدا یش دم همشون گرم.
NeuralBase
کامپوننت برای کار با شبکه های عصبی درDelphi نمونه هم داره ،ولی باید روش کار کنید.
مثلاً یک نمونه از شبکه Hopfield که معمولاً برای تشخیص حروف استفاده میشه همراشه که یه مشکل کوچولو داره .
چند مقاله خوب در مورد Hopfield
Neural Network Classifier
Hopfield model of neural network for pattern recognition
ا
اینم لینک دانلود FANN برای دلفی
پسوردش : www.aiportal.ru
اینم یه مثال ازش (تست نکردم)
موفق باشید و روز خوش
(خودم هم برم کمی در این باره مطالعه کنم:لبخند:)
- تکه تکه کردن یک عکس که پرینت آن در یک صفحه جا نمی شود..
گاهی پیش میاد که تصویری داریم که تو یک پرینت جا نمی شه.
خب این برنامه رو قدیما نوشته بودم برای همین کار. در حقیقت یک تصویر رو به چند تصویر تکه تکه می کنه.
با کمی کار روی سورسش چیز جالبی ازش در میاد.
برنامه خیلی سریع نوشته شده، ممکنه اصول درش خیلی رعایت نشده باشه اما یک ایده می تونه باشه.
درود
اینم یه نمونه ساده برای تشخیص متن (از یک عکس)
خیلی ساده و در بعضی مواقع هم کاربردی
تصویر برنامه قبل از عمل :
قبلا یه نمونه گذاشته بودم که الان لینکش خرابه و اون نمونه رو فعلاً زوی این سیستم ندارم
اما این هم خوبه:چشمک:
نقل قول:
نوشته شده توسط بهروز عباسی
سلام چرا نام کاربری من فایلو اکسترکت نمیکنه