ثامر أبو بلقيس
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:
السلام عليكم ورحمة الله وبركاته
لدينا مجموعتين تشملان عناصر معينة
العلاقات الممكن تصورها وفق هاتين المجموعتين هي :
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: