طريقة لتوليد أرقام عشوائية مع ضمان عدم تكرارها

اقتباس

3 mod 7 =3

6 mod 7 =6

9 mod 7 =2

12 mod 7 =5

15 mod 7 =1

18 mod 7 =4

21 mod 7 =0

ولو اكملت بكون :

24 mod 7 = 3

فقد تكرر 3 مرة اخرى

ولن تكون 9

لذلك نستخدم 11

1 mod 11 = 1
2 mod 11 = 2 
3 mod 11 = 3
4 mod 11 = 4
5 mod 11 = 5
6 mod 11 = 6
7 mod 11 = 7 
8 mod 11 = 8
9 mod 11 = 9
10 mod 11= 10

ما رايك ؟

_______

ولكن لا فائدة فكيف استخدمها في سودوكو ؟؟

السلام عليكم ,,

شكراً جزيلاً على المعلومة أخ باسم, لم أكن أعرف أنه يمكن توليد أعداد عشوائية نضمن اختلاف الأرقام المكونة لها :)

هل هناك اسم لهذه النظرية ؟

تحياتي لك أخ باسم,,

اقتباس

طبعا يمكن توليد العدد r باستخدام الدالة Rnd مع اختبار باقي قسمته على n

اخي شلون بتكون رقم لا يقبل القسمة على الرقم الاولي مع ضمان انه لن يتكرر ؟؟

أخي أنا كتبت هذا الموضوع للفائدة العامة وليس للعبة سودوكو بعينها

ثم إن النظرية تقول الأعداد من r وحتى n*r

أما 24 فهي 8*3 يعني خارج نطاق المسموح به إذا كان العدد الأولي هو 7

وطبعا كما قلت أنت نستخدم الرقم 11 ولكن لا تأخذ قيمة r بواحد لأن هذا يجعل الأرقام نظامية وليست عشوائية

وبالنسبة للعبة سودوكو أنا لا أعرف لماذا تريد استخدام أرقام عشوائية المفروض أنك تريد حل اللعبة وليس توليد اللعبة استخدام أرقام عشوائية يكون في حالة توليد اللعبة أما في حالة حلها فأنت تحتاج إلى طريقة نظامية وليس طريقة عشوائية

لقد قمت بعمل برنامج بالفعل لحل هذه اللعبة لكن الحل يعتمد على الطريقة التي ذكرتها لك في موضوعك ولكن لحل المسائل الأكثر تعقيدا والتي تحتاج إلى استخدام التجربة والخطأ فإن الأمر سيتطلب وقت وجهد في البرمجة

هل يمكنك اخي بان تذكر كيف سويت برنامج

في موضوع سودوكو نفسه

_______________________

اقتباس

اقتباس

طبعا يمكن توليد العدد r باستخدام الدالة Rnd مع اختبار باقي قسمته على n

اخي شلون بتكون رقم لا يقبل القسمة على الرقم الاولي مع ضمان انه لن يتكرر ؟؟

Khaled.Alshaya كتب:

السلام عليكم ,,

شكراً جزيلاً على المعلومة أخ باسم, لم أكن أعرف أنه يمكن توليد أعداد عشوائية نضمن اختلاف الأرقام المكونة لها :)

هل هناك اسم لهذه النظرية ؟

تحياتي لك أخ باسم,,

لا أعرف لها اسما ولذلك اضطررت إلى وضع صياغة وإثبات لها بنفسي

مبرمج مبتدا كتب:

اخي شلون بتكون رقم لا يقبل القسمة على الرقم الاولي مع ضمان انه لن يتكرر ؟؟

هذا مثال

Private Sub Form_Load()
r = 0
n = 11
Dim x(10) As Integer
Randomize Timer
While r Mod n = 0
r = Int(Rnd() * 10)
Wend
For i = 1 To 11
x(i - 1) = (i * r) Mod n
Label1.Caption = Label1.Caption + Str$(x(i - 1)) + Chr$(13)
Next
End Sub

شيء جميل لكني لم افهم الكود هل بامكانك الشرح ؟؟

While r Mod n = 0
r = Int(Rnd() * 10)
Wend

هنا أقوم بتوليد رقم عشوائي وأضعه في r ثم أختبر باقي القسمة على n فإن كان مساويا للصفر أقوم بتوليد رقم آخر

بعد ذلك أقوم بحساب الأعداد من r mod 11 وحتى r*11 mod 11 كما تقول النظرية وأضع الناتج في المتجه x

Label1.Caption = Label1.Caption + Str$(x(i - 1)) + Chr$(13)

يقوم باضافة الأعداد إلى الليبل بشكل متتابع

اقتباس

فإن كان مساويا للصفر أقوم بتوليد رقم آخر

بعد ذلك أقوم بحساب الأعداد من r mod 11 وحتى r*11 mod 11 كما تقول النظرية وأضع الناتج في المتجه x

وكانك تقول :

if ..... then

لكن لماذا استعملت while , wend و ماذا تفعل هذه الدالة ؟

if then تنفذ مرة واحدة فقط ماذا سيحدث إذا أعطت الدالة Rnd رقمين متتاليين يقبلان القسمة على n

أما while wend فتنفذ طالما الشرط متحقق يعني ستظل تولد أرقام عشوائية حتى يصبح باقي القسمة لا يساوي صفرا

شكرا اخي

ما الفرق بين while loop و while wend ??

_________

يعني اذا وضعت تايمر به if سيكون كانه while wend ??

تقصد بالتايمر for loop

إذا كان هذا قصدك فإن for loop تستخدم عندما تكون على علم مسبق بعدد المرات التي تريد تنفيذ مجموعة الأوامر بها أما إذا كنت لا تعلم كم مرة ستنفذ الأمر فكيف ستستخدم for loop لا بد حينها من while wend

while

wend

هي نفسها

do while

loop

لكن

do

loop while

مختلفة عنهم كما شرحت لك

شكرا علي هذه النظرية أخ باسم

ولا تحرمنا من أي نظريات أخري ..

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

اخى الفاضل باسم

بارك الله فيك على مجهوداتك , ولكن لى بعض التحفظ على هذه الطريقه

وهضرب مثلا بالكود اللى حضرتك وضعته

Private Sub Form_Load()
r = 0
n = 11
Dim x(10) As Integer
Randomize Timer
While r Mod n = 0
r = Int(Rnd() * 10)
Wend
For i = 1 To 11
x(i - 1) = (i * r) Mod n
Label1.Caption = Label1.Caption + Str$(x(i - 1)) + Chr$(13)
Next
End Sub

اولا : جملة

While r Mod n = 0
r = Int(Rnd() * 10)
Wend

ليس لها داعى , او يمكن استبدالها بــ

While r = 0
r = Int(Rnd() * 10)
Wend

لانه ببساطه r محصورة بين 0 و (n-1) حسب برنامجك, وبالتالى فلا يمكن ان تقبل القسمة على n باى حال من الاحوال.

ثانيا والاهم : هذه الطريقة البسيطة جميله ومفيده فى حالة اردنا متجه من الاعداد الصحيحة الغير مكررة داخل البرنامج , ولكن لمرة او عدد محدود من المرات, لانه ببساطه وعلى سبيل المثال فالكود اللى انت وضعه , يمكنك فقط الحصول على 10 متجهات تحقق الشرط المطلوب. وذلك اعتمادا على الفيمة التى ستعود بها r. وهى محصورة بين 0 و 10 طبعا.

بينما فعليا ورياضيا يمكننا الحصول على عدد يساوى مضرب الرقم 10 اى يساوى 3628800 متجها تحقق الشرط السابق(عناصرها عشوائية وغير مكررة). وهذا اذاكان طول المتجه المطلوب هو 10.

وبالتالى اخى الفاضل تعميم هذه الطريقة داخل البرامج هو مشكلة حقيقية , لانك هتعتقد ان البرنامج بيعطى قيم عشوائية , لكن هو فى الاساس بيعطى قيم نظامية (بس بيختار من 10 اختيارات فقط). على سبيل المثال فى برامج طرق الذكاء الاصطناعى , نقوم بتوليد متجهات عشوئية الاف الاف من المرات فى التنفيذة الواحدة. وباستخدام طريقتك ساحصل على نتائج مخادعه والسبب ذكرته.

هنقول ما احنا ممكن نختار r اكبر من 10 وبالتالى عندنا عدد لا نهائى من الاختيارات؟ نقولك لا مش ممكن لان ببساطه الاعداد المولده من r وحتى n*r هو نفسها المولده من n*r الى n*n*r وبالتالى مهما كبرت r هنحصل على نفس التكرارات ومفيش جديد.

والخلاصة اخى الفاضل انه بطريقتك يمكننا توليد عدد من المتجهات تحقق الشرط السابق (عناصرها عشوائية وغير مكررة) وهذا العدد يساوى

n*(n-1)

بينما فى الحقيقة يوجد عدد يساوى مضروب n من هذه المتجهات

n!

اخى الفاضل انا هنا لا اهاجم طريقتك , ولكنى فقط احاول توضيح مجال عملها حتى لا تستخدم فيما لا تقدر عليه.

اتمنى اكون وضحت مقصدى , والله الموفق ,,,

اخي باسم لقد سالت كثيرا

ولكنك تجاوب وانا لا افهم طريقة الاستخدام :)

هل لك تضع امثلة بسيطة جدا وشرحها

مع شكري

كلامك صحيح أخي عماد لكن أنا أيضا لي ملاحظتين عليه وتعقيب

اقتباس

هنقول ما احنا ممكن نختار r اكبر من 10 وبالتالى عندنا عدد لا نهائى من الاختيارات؟ نقولك لا مش ممكن لان ببساطه الاعداد المولده من r وحتى n*r هو نفسها المولده من n*r الى n*n*r وبالتالى مهما كبرت r هنحصل على نفس التكرارات ومفيش جديد.

الأعداد المتولدة من

r to n*r

هي نفسها المتولدة من

(n+1)*r to n*(n+1)*r

وليس كما قلت أعلاه

اقتباس

والخلاصة اخى الفاضل انه بطريقتك يمكننا توليد عدد من المتجهات تحقق الشرط السابق (عناصرها عشوائية وغير مكررة) وهذا العدد يساوى

n*(n-1)

الأمر أسوأ من ذلك لأنك ستحصل على n طريقة فقط

لكن عموما للتغلب على هذه المشكلة جزئيا يمكن استخدام n كبيرة وبالتالي ستحصل على عدد أكبر من المتجهات بل ويمكن أيضا استخدام

أو n لأي أس لكن بشرط أن تكون n عدد أولي وألا تقبل r القسمة على n

بل ويمكن تعميم ذلك لأي عددين n و r بشرط ألا يكون بينهما عوامل مشتركة يعني مثلا

حيث n عدد أولي و r لا تقبل القسمة على n

وقد استطعت أن أثبت ذلك بالفعل

لكن المشكلة أنك إذا كبرت n فإن عدد المتجهات سيزيد وفي نفس الوقت نطاق الأرقام أيضا سيزيد

عموما سأحاول التفكير في حل لهذه الجزئية الأخيرة

وتحياتي العطرة

اقتباس

الأمر أسوأ من ذلك لأنك ستحصل على n طريقة فقط

آسف n-1 طريقة وليس n

هذا رابط من ويكيبيديا به مجموعة من طرق توليد الأرقام العشوائية

http://en.wikipedia.org/wiki/List_of_pseud...mber_generators

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

أخى باسم

اقتباس

الأعداد المتولدة من

r to n*r

هي نفسها المتولدة من

(n+1)*r to n*(n+1)*r

كلامك مضبوط.

اقتباس

اقتباس

الأمر أسوأ من ذلك لأنك ستحصل على n طريقة فقط

الأمر أسوأ من ذلك لأنك ستحصل على n طريقة فقط

برضه كلامك مضبوط , اسف ضربت عدد المتجهات فى عدد عناصر كل متجه.

شكرا على الرابط , وبالله التوفيق ,,,