تحويل الصورة الى صورة رقمية


(system) #1

من العنوان أريد كود يحول اي صورة الى صورة رقمية ويخزنها في الاكسل على هيئة أرقام 0 و 1

من أفتح ملف الاكسل احصل الارقام مش الصورة .

أرجو ان يكون سؤالي واضح ويلقي اهتمامكم.

البرنامج المستخدم هو الماتلاب


(Ahmed) #2

[CENTER]في سطر واحد

xlswrite('FileName',double(im2bw(imread('cameraman.tif'))))

او بالتفصيل

Image=imread('cameraman.tif');
Binary_Im=im2bw(Image);
Numeric_Image=double(Binary_Im);
xlswrite('FileName',Numeric_Image);

الشرح
قمنا بقراءة الصورة
ثم
تحويلها الى قيم منطقية 1 و 0

ثم
تحويلها الى قيم عددية 1 و 0

ثم
تخزينها في ملف Excel
FileName

الناتج

[COLOR=Red]نصيحة
لاتخزني الصور الكبيرة لانها ستكون ذات حجم كبير ويصعب فتحها

[/color]
[/center]


(system) #3

جزاك الله كل خير …متمنية لك دوام التوفيق والنجاح.

هذا بالضبط ما أحتاجه
بس أنا عندي نوعين من الصور Gray & Binary

هل هذا الكود يصلح للاثنين !

أنا أعمل على مشروع تخرج عن تحسين الصور .

أنتهيت من برمجة فلترين أحدهما ب Gray image والثاني ب Binary image

والمطلوب فقط أني أسوي Generation لكل واحد منهم …

سؤالي هل سيكون في تغير بالكود الذي طرحته.

شاكرة جدا مساعدتك الطيبة.


(system) #4

بالنسبة لمقاس الصورة فهي 64*64 ولكن لا اعرف كود تحديد المقاس


(Ahmed) #5

[CENTER]لا عادي اذا هذه صور صغيرة
نعم الكود من المفروض يصلح لجميع انواع الصور
لاننا نقوم بتحويل الصورة الى النظام الثنائي مباشرة

فقط قومي بتغيير السطر الثاني

Binary_Im=im2bw(Image);

لانني نسيت ان يكون التحويل نسبيا
فيكون

Binary_Im=im2bw(Image, graythresh(Image));

[/center]


(system) #6

تنفذ معي الكود … أشكرك جزيل الشكر لتواصلك وتقديم مساعدتك.