إعـــــــلان

**ثامر أبو بلقيس ثامر أبو بلقيس** · 25-06-2013, 11:08 AM

السلام عليكم ... قمت بتجربة أعداد أولية و فعلا تتغير السرعة
بسبب تلك الدورة في البحث كما أشرت في بداية المشاركات ... لكن
سأعتمد مبدأ كل ما يبدأ الملف يفكر ويبحث ببطء فإن العدد أولي ..
لمباشرة العمل بها ....

هل تتوفر الاضافة mathex في الاصدار 8 ؟

سأحاول التفكير في التخفيف من البطء على الاقل بنسبة 50 بالمائة

**النصل القاطع النصل القاطع** · 25-06-2013, 12:08 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

لكن
سأعتمد مبدأ كل ما يبدأ الملف يفكر ويبحث ببطء فإن العدد أولي ..

لا تنفع هذه الفكرة (قد تؤدى للحكم على أعداد أولية بأنها غير أولية)
بمعنى أدق
فكرتك هذه مفيدة فى نفى عدم الأولية
و للمفارقة فهى لا تصلح لإثبات الأولية
للتوضيح
ماذا لو كنت تكشف عن رقم فردى يتكون من عشرة آلاف منزلة ؟؟
سيحدث تباطؤ سواء كان العدد أوليا أو غير أولى

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

سأحاول التفكير في التخفيف من البطء على الاقل بنسبة 50 بالمائة

فكرة جيدة
و أظنها تتمحور حول فكرة أخذ جذر الرقم أولا ثم القسمة على الأرقام أقل من الجذر
و عدم القسمة على الأرقام الأعلى من الجذر
أليس صحيح ؟
الدالة الأصلية

كود PHP:


function chk_prim(x)
x=Input.GetText("Input1");
x = String.ToNumber(x);
    if x<=0 then return false end
    if x<=2 then return true end
        if (Math.Mod(x, 2)==0) then return false end    
                for i=3,x/2,2 do
                 if (Math.Mod(x, i)==0) then
 return false end     
end
return true
end

إليك الدالة المعدلة و أطلعنى على فكرتك

كود PHP:


function chk_prim(x)
x=Input.GetText("Input1");
x = String.ToNumber(x);
    if x<=0 then return false end
    if x<=2 then return true end
    k = Math.Sqrt(x);
        if (Math.Mod(x, 2)==0) then return false end    
                for i=3,k,2 do
                 if (Math.Mod(x, i)==0) then
 return false end     
end
return true
end

تم إضافة السطر السادس (حساب جذر الرقم المراد الكشف عن أوليته)
و تعديل السطر الثامن (التعامل بالجذر كحد أقصى لحلقة for بدلا من جعل نصف الرقم هو الحد الأعلى)
الدالة تم تجربتها بنجاح
و تعطى النتائج الصحيحة بنصف الوقت
مثال
الرقم 16581067
نصفه يساوى 8290533
بينما جذره 4071
فرق كبير بين أن تدور الحلقة ثمانية ملايين مرة و بين أن تدور بضعة آلاف من المرات

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 25-06-2013, 01:24 PM

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

فضول كبير ورغبة في التعلم تدفعني أن أسأل عن الدالة Math.Floor لماذا لم تستعملها ؟
لأننا عند جذر العدد س سيعطينا الناتج ع و الذي سيكون كما تعرف أستاذي قد يكون بالفواصل
نستغل الدالة للتقريب إلى الاسفل و من ثمة بناء الفكرة سهرت الليل كله حول النقطة

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

تستهل كل الشكر و التقدير أنت و كل الاساتذة و الأعضاء
لم اتضايق أبدا فلكل ظروفه ووجب التماس الاعذار

**النصل القاطع النصل القاطع** · 25-06-2013, 01:34 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

فضول كبير ورغبة في التعلم تدفعني أن أسأل عن الدالة Math.Floor لماذا لم تستعملها ؟
لأننا عند جذر العدد س سيعطينا الناتج ع و الذي سيكون كما تعرف أستاذي قد يكون بالفواصل
نستغل الدالة للتقريب إلى الاسفل و من ثمة بناء الفكرة سهرت الليل كله حول النقطة

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

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

جرب هذا الكود و ستفهمنى تماما

كود PHP:


for i = 1,7.56 do
 Dialog.Message("Notice", i, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

عرفت أنه لا حاجة للدالة floor مع حدود الدالة for ؟
لم تصل الفكرة ؟؟
حسنا
جرب هذا الكود الذى يندر أن يتطرق إليه أحد من قبل
سنشترط طول الخطوة نصف
فى نفس الحلقة السابقة

كود PHP:


for i = 1,7.56,.5 do
 Dialog.Message("Notice", i, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

أظن الأمر بات واضحا جدا الأن

بالتوفيق أخى العزيز

**ثامر أبو بلقيس ثامر أبو بلقيس** · 25-06-2013, 01:44 PM

معلومة جديدة عني لم أكن أعرفها ومفيدة للغاية
جزاك الله خيرا و إن جد جديد حول إمكانية استغلال ناتج ناتج الجذر سنتواصل === تفكير نظري لا أكثر لا قواعد له رياضية صادفتها ===

موفق فيما فكرت فيه بخصوص أرقام التسجيل و تعقيد امكانية كسرها ... موفق

**النصل القاطع النصل القاطع** · 25-06-2013, 01:49 PM

بالتوفيق أخى
خالص تحياتى

**أبو فارس أبو فارس** · 27-06-2013, 02:05 PM

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

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

**رعد الحواسيب رعد الحواسيب** · 03-07-2013, 09:00 AM

بسم الله ماشاء الله تبارك الله عقلية الأستاذ خالد مع عقلية الأستاذ أبو قيس تخرج لنا أروع الأكواااد

سائرون على الدرب وراءكم إن شاء الله

وفقنا الله وإياكم لما يحبه ويرضاه

**ثامر أبو بلقيس ثامر أبو بلقيس** · 03-07-2013, 01:31 PM

أخي رعد ..... كمية الطيبة التي رافقت ردك زادك للموضوع توهجا

وفقك الله في كل مساعيك

**رعد الحواسيب رعد الحواسيب** · 03-07-2013, 02:51 PM

أعزك الله أخي أبو قيس ورفع شأنك

إعـــــــلان

العدد الأولي

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك