من العنوان أريد كود يحول اي صورة الى صورة رقمية ويخزنها في الاكسل على هيئة أرقام 0 و 1
من أفتح ملف الاكسل احصل الارقام مش الصورة .
أرجو ان يكون سؤالي واضح ويلقي اهتمامكم.
البرنامج المستخدم هو الماتلاب
من العنوان أريد كود يحول اي صورة الى صورة رقمية ويخزنها في الاكسل على هيئة أرقام 0 و 1
من أفتح ملف الاكسل احصل الارقام مش الصورة .
أرجو ان يكون سؤالي واضح ويلقي اهتمامكم.
البرنامج المستخدم هو الماتلاب
[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]
جزاك الله كل خير …متمنية لك دوام التوفيق والنجاح.
هذا بالضبط ما أحتاجه
بس أنا عندي نوعين من الصور Gray & Binary
هل هذا الكود يصلح للاثنين !
أنا أعمل على مشروع تخرج عن تحسين الصور .
أنتهيت من برمجة فلترين أحدهما ب Gray image والثاني ب Binary image
والمطلوب فقط أني أسوي Generation لكل واحد منهم …
سؤالي هل سيكون في تغير بالكود الذي طرحته.
شاكرة جدا مساعدتك الطيبة.
بالنسبة لمقاس الصورة فهي 64*64 ولكن لا اعرف كود تحديد المقاس
[CENTER]لا عادي اذا هذه صور صغيرة
نعم الكود من المفروض يصلح لجميع انواع الصور
لاننا نقوم بتحويل الصورة الى النظام الثنائي مباشرة
فقط قومي بتغيير السطر الثاني
Binary_Im=im2bw(Image);
لانني نسيت ان يكون التحويل نسبيا
فيكون
Binary_Im=im2bw(Image, graythresh(Image));
[/center]
تنفذ معي الكود … أشكرك جزيل الشكر لتواصلك وتقديم مساعدتك.