تويت
السلام عليكم ورحمة الله وبركاته
جيد .... حتى لا يبق الموضوع مجرد عنوانا
ونيابة عن كل المهتمين
هذا حل يعطي نتائج صحيحة لأي مربع سحري درجة ثالثة
لا يهم الثابت = 15 بل الأهم أن يكون الثابت من قواسم 3 يمكن تجربة
ثوابت أخرى لمعاينة كل النتائج و التي بالمنطق ستكون 8 احتمالات
غير فقط العدد 15 لترى النتائج
ملاحظة : في أقرب فرصة سيتم تهذيب الكود بطريقة رياضية محتكرة عفوا أقصد مختصرة
يحول البلقيسات لبلقيس واحدة
بالتوفيق
جيد .... حتى لا يبق الموضوع مجرد عنوانا
ونيابة عن كل المهتمين
هذا حل يعطي نتائج صحيحة لأي مربع سحري درجة ثالثة
لا يهم الثابت = 15 بل الأهم أن يكون الثابت من قواسم 3 يمكن تجربة
ثوابت أخرى لمعاينة كل النتائج و التي بالمنطق ستكون 8 احتمالات
غير فقط العدد 15 لترى النتائج
كود PHP:
x =15
if Math.Mod(x, 3)==0 then
mil =x/3
---------------------------------------
belkiss1=mil+1;belkiss2=mil-4;belkiss3=mil+3;
---------------------------------------
belkiss4=mil+2;belkiss5=mil;belkiss6=mil-2
---------------------------------------
belkiss7=mil-3;belkiss8=mil+4;belkiss9=mil-1
my_table = {{belkiss1,belkiss2 ,belkiss3 ,belkiss4,belkiss6,belkiss7,belkiss8,belkiss9},
{belkiss9,belkiss8 ,belkiss7 ,belkiss6,belkiss4,belkiss3,belkiss2,belkiss1},
{belkiss9,belkiss6 ,belkiss3 ,belkiss8,belkiss2,belkiss7,belkiss4,belkiss1},
{belkiss1,belkiss4 ,belkiss7 ,belkiss2,belkiss8,belkiss3,belkiss6,belkiss9},
{belkiss3,belkiss6 ,belkiss9 ,belkiss2,belkiss8,belkiss1,belkiss4,belkiss7},
{belkiss7,belkiss4 ,belkiss1 ,belkiss8,belkiss2,belkiss9,belkiss6,belkiss3},
{belkiss7,belkiss8 ,belkiss9 ,belkiss4,belkiss6,belkiss1,belkiss2,belkiss3},
{belkiss3,belkiss2 ,belkiss1 ,belkiss6,belkiss4,belkiss9,belkiss8,belkiss7},
};
for i = 1,8 do
b1 =my_table[i][1].."|"..my_table[i][2].."|"..my_table[i][3].."\r\n"..my_table[i][4].."|"..belkiss5.."|"..my_table[i][5].."\r\n"..my_table[i][6].."|"..my_table[i][7].."|"..my_table[i][8]
Dialog.Message("الاحتمــال"..i, b1);
end
end
يحول البلقيسات لبلقيس واحدة
بالتوفيق
تعليق