أولاً مشكورون على الإهتمام لكن توقعوا الردود متأخرة لعدم جاهزيتي كالسابق لعدة ظروف خارجية :(
أما عن الأخ الجليل الفاروق بن تيم فسؤالك عن التبسيط للمعادلات و فهي أكثر من مبسطة فالكود سورس أو الشيفرة
جد واضحة و مبسطة لوغاريتميا و مرفوقة بالتعليق إن كان لازماً
أما عن الأخ اللطيف ilanamlas بخصوص المعنى الكلمة المبهمة لديك فهي تعني دالة إختزال العدد الأكبر من 360
درجة أو الأصغر من 0 درجة يعني بعبارة أخرى أنها تقوم بجعل العدد محصور بين 0 و 360 درجة و يمكننا الإستغناء عنها في أماكن معينة لكن وضعتها مبسطة جدا و قد أدخلتها في الحساب ليسهل علنا تتبع خارج أو فاضل الحساب :P
و هي مكتوبة على الشكل التالي:
'////////////////////////////////////////////////////////////////////////////
' Fonction Convetion
'///////////////////////////////////////////////////////////////////////////
Public Function Angle_360_Deg(ByVal Angle As Double) As Double
If Angle > 360 Then
Angle = ((Angle / 360) - Fix(Angle / 360)) * 360
End If
If Angle < 0 Then
Angle = (((Angle / 360) - Fix(Angle / 360)) * 360) + 360
End If
Angle_360_Deg = Angle
End Function
'///////////////////////////////////////////////////////////////////////////
و كلمة Angle تعني أي زاوية درج سواءاً أكبر أو أصغر من محيط الدائرة 360 درجة
أما عن كلمة a فهي عدد ثابت و قيمته محدودة مسبقاً و هي :
مثلاً بالنسبة لكوكب عطارد نجد
Const a = 0.3870986
و بالنسبة للشمس هي :
Const a = 1.0000002
--و هي معرّفة في أعلى الدالة ما عليك سوى الإنتباه لتفاصيل الكوك سورس أو الشيفرة---و تعني البعد المتوسط للكوكب و هو نصف القطر الكبير لمدار الكوكب و تختلف حسب كل كوكب
أتمنى أني قد أوضحت ما فيه الكفاية و ما عليكم إلا تتبع الكود خطوة خطوة مع قراءة التعليق التوضيحي
أما عن نسبة الخطأ لحساب القمر فهي تقريباً :wink:
طول القمر الحقيقي بالدرج حسب برنامج Ayour الفلكي
= 352.6371839734
و عن زيت 7 الذي يعتمد على الأزياج السويسرية مثلاً :
نجد القيمة = 352.6461111077
و الفرق هو 0.0089271343 درجة أي 1 ق 4 ني تقريباً :shock:
و سبب تفوق الحساب السويسري هو إضافة التصحيحات الثانوية كلن يوجد تقويم حساب غير السوسري و يختلف أيضا معه في بضعة أجزاء الثواني ... :roll: لكن ما يهمنا نحن ليست الدقة المتناهية قدر فهم خطوات الحساب و الدوال المعتمدة لنكون على بيّنة من أمرنا 8) :mrgreen:
و الله المستعان على أمره و بالتوفيق إن شاء الله :P