غريبة
من تفسير العلامة أحمذو ولد زياد رحمه الله المسمى بذي الفاتحتين عازيا للذهب الإبريز لليدالي:
وروي أن سفينة في لجة البحر الأعظم فيها مسلمون وكفار فأشرفوا على الغرق فقالوا: “نقترع فمن وقعت عليه القرعة ألقيناه في البحر لتنجو السفينة وبعض الناس فنظر الرئيس المسلم إليهم وهم جالسون فقال ليس هذا حكما مرضيا وإنما الحكم أن تعد الجماعة فكل من كان تاسعا ألقيناه فارتضوا ذلك ولم يزل يعدهم ويلقي التاسع إلى أن ألقى الكفار كلهم وسلم المسلمون.
من تفسير العلامة أحمذو ولد زياد رحمه الله المسمى بذي الفاتحتين عازيا للذهب الإبريز لليدالي:
وروي أن سفينة في لجة البحر الأعظم فيها مسلمون وكفار فأشرفوا على الغرق فقالوا: “نقترع فمن وقعت عليه القرعة ألقيناه في البحر لتنجو السفينة وبعض الناس فنظر الرئيس المسلم إليهم وهم جالسون فقال ليس هذا حكما مرضيا وإنما الحكم أن تعد الجماعة فكل من كان تاسعا ألقيناه فارتضوا ذلك ولم يزل يعدهم ويلقي التاسع إلى أن ألقى الكفار كلهم وسلم المسلمون.وهذه صورة ذلك:
1. عدد ركاب السفينة 30 شخصا 15 مسلمون و15 كفار أجلسوا في شكل دائرة.
2. المسلمون يمثلون بالنقاط الحمر والكفار يمثلون زرقا.
3. قرر رئيس المركب أن يبدأ العد من الأربعة الحمر الأول ذات اليمين ويرمى التاسع في البحر فكانت نتيجة ذلك أن رمى بأعدائهم من الكفار وبقي المسلمون وسلموا.
4. تضبط كيفية ترتيب الركاب بالبيت التالي على أن تكون الحروف المهملة للمسلمين والمعجمة للكفار:
ويضبط أيضا ببيت آخر:
[| [( الله يقضي بكل يسر****ويرزق الضيف حيث كانا )] |] 5. انظر تفسير سورة الكهف عند قوله تعالى:
فيما يلي خوارازمية تمكن من حساب المواقع التي يجب ان يوجد فيها المسلمون من أجل إنقاذهم بالطريقة المشروحة في المقال
في الأخير تطبيق الخوارازمية باستخدام لغة البرمجة vba مع البرنامج Excel:
:Tant que Compteur inférieur à 30/2
a partir de la position en cour<=== chercher le 9eme élément actif<==== si l’élément est allié alors<==== I========>à partir du début, chercher le premier ennemi non encore tué
le permuter avec l’élément en cours<============= fin Toper l’élément en cours tué Calculer la prochaine position active fin tant que
()Sub p_test
Dim p1, pe As Range
Dim ci, i, j, ip As Integer
ci = 0
ip = 1
Set p1 = Range(“A1”).CurrentRegion
Set pe = Range(“C1”).CurrentRegion
For i = 1 To 30
pe.Cells(i, 1) = 0
Next
While ci < 15 'chercher le premier element à elimier cp = 1 j = ip While cp <= 9 If pe.Cells(j, 1) = 0 Then cp = cp + 1 x_j = j End If j = j + 1 If j > 30 Then j = 1
Wend
j = x_j
If p1.Cells(j, 1) = 1 Then ‘ il s’agit d’un allié
For k = 1 To 30
If p1.Cells(k, 1) = 0 And pe.Cells(k, 1) = 0 Then
i_x = k
Exit For
End If
Next
(x = p1.Cells(i_x, 1
(p1.Cells(i_x, 1) = p1.Cells(j, 1
p1.Cells(j, 1) = x
End If
pe.Cells(j, 1) = 1
ci = ci + 1
If j + 1 > 30 Then j = 0
If pe.Cells(j + 1, 1) = 0 Then
ip = j + 1
Else ‘ chercher 1er element actif
xk = 0
k = j + 1
While xk < 1 If pe.Cells(k, 1) = 0 Then xk = k End If k = k + 1 If k > 30 Then k = 1
Wend
ip = xk
End If
Wend
End Sub
فعلا أمر غريب ذكره أيضا العلامة محنض بابه بن امين في مباحثه قائلا أن هذا النوع ليس من الشريعة.
لا أعجب أن يوجد الذكاء في تلك الفترة فارياضيات اكتشف أغلبها منذ قرون كثيرة والعجب عندي هو ان يدرك ربان سفينة مهددة بالغرق واللحظة حرجة للغاية أن المسلمين مرتبون بهذا الترتيب الذي أقل ما يمكن أن نقول أنه غير بديهي.
أما اليوم وبالوسائل المتاحة وبورقة وقلم يمكن أن ننجز خوارزما يحدد لنا وضعية الحلقة لكي ننتقي منها الأعداء.
soub7ane allah