المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : °®»[قرأت ... لك ]«®° العلاقات بين مجموعتين


ثامر أبو بلقيس
18-06-2016, 12:54 AM
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم ورحمة الله وبركاته
لدينا مجموعتين تشملان عناصر معينة
العلاقات الممكن تصورها وفق هاتين المجموعتين هي :

01 - الاتحاد أي العناصر المشتركة و غير مشنركة لهاتين المجموعتين

لا حظ الصورة :
http://store1.up-00.com/2016-06/146619840241.png

المنطقة المعبأة باللون الأحمر معبرة تماما عن اتحاد المجموعتين

لذلك قرأت لك مايلي :
نكتب في global functions
local function find(a, tbl)
for _,a_ in ipairs(tbl) do if a_==a then return true end end
end
function union(a, b)
a = {unpack(a)}
for _,b_ in ipairs(b) do
if not find(b_, a) then table.insert(a, b_) end
end
return a
end

ثم التطبيق في زر نجرب اتحاد المجموعتين : a و b
a={1,2,3,4,5}
b={3,4,5,6,7}
-------------------------------------
k = ""
n = union(a, b)
for i , m in pairs(n) do
k=k..m.."\r\n"
end
Dialog.Message("Notice",k);

:abc_152: :abc_152: :abc_152: :abc_152: :abc_152: :abc_152: :abc_152:

02 - التقاطع أي العناصر المشتركة فقط لهاتين المجموعتين

لا حظ الصورة :
http://store2.up-00.com/2016-06/1466198482171.png

المنطقة المعبأة باللون الأحمر معبرة تماما عن تقاطع المجموعتين
لذلك قرأت لك مايلي :
نكتب في global functions
local function find(a, tbl)
for _,a_ in ipairs(tbl) do if a_==a then return true end end
end
function intersection(a, b)
local ret = {}
for _,b_ in ipairs(b) do
if find(b_,a) then table.insert(ret, b_) end
end
return ret
end
ثم التطبيق في زر نجرب تقاطع المجموعتين : a و b
a={1,2,3,4,5}
b={3,4,5,6,7}
-------------------------------------
k = ""
n =intersection(a, b)
for i , m in pairs(n) do
k=k..m.."\r\n"
end
Dialog.Message("Notice",k);

:abc_152: :abc_152: :abc_152: فقط

03 - العناصر غير المشتركة لمجموعتين بالنسبة للمجموعة الأولى

لا حظ الصورة :
http://store1.up-00.com/2016-06/1466198558531.png

المنطقة المعبأة باللون الأحمر معبرة تماما عن العناصر غير مشتركة بين مجموعتين بالنسبة للمجموعة الأولى

لذلك قرأت لك مايلي :
نكتب في global functions
local function find(a, tbl)
for _,a_ in ipairs(tbl) do if a_==a then return true end end
end
function difference(a, b)
local ret = {}
for _,a_ in ipairs(a) do
if not find(a_,b) then table.insert(ret, a_) end
end
return ret
end
ثم التطبيق في زر :
a={1,2,3,4,5}
b={3,4,5,6,7}
-------------------------------------
k = ""
n =difference(a, b)
for i , m in pairs(n) do
k=k..m.."\r\n"
end
Dialog.Message("Notice",k);

:abc_152: :abc_152:
و للتعبير عن العناصر غير مستركة بالنسبة للمجموعة الثانية فقط غير تسمية المجموعتين a تصبح b و العكس

:abc_152: :abc_152:
هل بدر لك تساؤل ؟؟ نعم أكتبه
http://store1.up-00.com/2016-06/1466198643651.png
:abc_152: :abc_152: :abc_152: :abc_152:
موفق :abc_138:

abohmam
18-06-2016, 03:33 AM
جزاك الله خيرا أخى ثامر

بارك الله فيك وفى جهودك الدائمة

:abc_152:

فرح صالحي
18-06-2016, 03:50 PM
شـكــ وبارك الله فيك ـــرا لك :abc_152:... لك مني أجمل تحية .

أبو يوسف
20-06-2016, 12:23 PM
جزاك الله خيرا اخانا تامر :abc_152: وبارك الله فيك

عبد الهادي بهاب
06-02-2017, 11:27 AM
و لا يصدر منك الا ما هو متميز رغم انه قبر منذ فترة
لكن اتذكر قوله تعالى
{فَأَمَّا الزبد فَيَذْهَبُ جُفَآءً وَأَمَّا مَا يَنفَعُ الناس فَيَمْكُثُ فِي الأرض} [الرعد: 17]
تحياتي لك استاذ
سنحاول فهم الكود جيدا

ياسرهتهت
06-02-2017, 01:28 PM
بسم الله الرحمن الرحيم

بارك الله فيك استاذنا الفاضل

موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138: