المقاييس الإحصائية

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

الوسيط , المنوال , المدى هي مصطلحات مرتبطة بالإحصاء

01 - الوسيط الحسابي : بالمثال يتضح المقال لديك هاته الأعداد
{7,9,4,1,8,2}

لايمكنك مباشرة حساب الوسيط الحسابي إلا بالقيام بأهم شرط
وهو ترتيب الأعداد إما تنازليا أو تصاعديا
بهذا الشكل :
{1,2,4,7,8,9}

ستقوم الان ببناء دالة دورها استبعاد العنصر الأول و الأخير
وتستمر الحلقة في العمل إلى أن تصل إلى الوسط تماما
هنااا لدينا حالتين :
1 - إما عدد عناصر المصفوفة زوجي مثل المصفوفة أعلاه
فالبضرورة سيكون الوصول للمنتصف يشمل عددين
هناا في مثالنا : 4 و 7
الوسيط الحسابي في هذه الحالة هو مجموعهما مقسوم على 2
ويساوي : 5.5
2 - إما عدد عناصر المصفوفة فرديا مثال :
{1,2,4,7,8}
مباشرة الوسيط الحسابي هو 4
-------------- كود لحساب الوسيط الحسابي :
table={1,2,4,7,8,9}
Table.Sort(table, nil);
if Math.Mod(#table, 2)== 0 then
b = (table[#table/2] + table[#table/2+1])/2
else
b=table[Math.Ceil(#table/2)]
end
Dialog.Message("Notice", b);


----------------------------------------:abc_138::abc_138:--------------------

[ثامر أبو بلقيس]

2 - المنوال : هو العدد أو المفردة الأكثر تكرارا مقارنة بباقي العناصر

مثلا : لدينا المصفوفة :
{7,9,4,1,8,2}

فالمنوال بالضبط : لا يوجد لأن كل العناصر تكررت مرة واحدة

لكن في المصفوفة التالية :
{7,9,4,1,2,2}

واضح جدا أن المنوال يساوي أو هو : 2

وقد نصادف في مصفوفة أكثر من منوال

مثلا :
{12, 9,5,9,12,12,14,14,14};

هنا لدينا 12 و 14 أي منوالين كونهما تكررا بنفس عدد المرات

كيف نحسب المنوال :
t ={12, 9,5,9,12,12,14,14,14};
x={}
c={}
for k, v in pairs( t ) do
if x[v] == nil then
x[v] = 1
else
x[v] = x[v] + 1
end
end
y = 0
for k, v in pairs( x ) do
if v > y then
y = v
end
end
for k,v in pairs( x ) do
if v == y then
table.insert(c, k )
end
end
----------------------
for g , m in pairs(c)do
Dialog.Message("Notice", m);
end
-----------------------------------------------------

------------------------- :abc_138::abc_138:-------------------

[ثامر أبو بلقيس]

3 - المدى : هو اكبر قيمة - اصغر قيمه من المصفوفة
مثال :
{1,2,4,7,8,9}

أكبر قيمة هي 9
أصغر قيمة هي 1

9 - 1 = 8 و هي المدى كمقياس إحصائي

سيبقى كتابة الكود الأخير معبر عن مدى إهتمامك بما تقرأ
تقديري :abc_138:

[ياسرهتهت]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
شكراً لك استاذنا الكريم علي هذه الدروس الرائعة
بارك الله فيك وجعلها في ميزان اعمالك
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:

[azizsoft]

بسم الله الرحمن الرحيم

جزاكم الله خيرا

أستاذ أبو بلقيس ونفع بكم

:abc_022:

[أبو يوسف]

جزاك الله خيرا أخانا أبا بلقيس :abc_152: وبارك الله فيك

[أبو فارس]

خالص الشكر والامتنان على ما بذلتموه من جهود مباركة


وفقك الله وأثابك ونفع بك