[gb:540525b999][highlight=#FFFF00:540525b999]البرنامج رقم (13):[/highlight:540525b999][/gb:540525b999]
حساب مواقع كوكب معين في البروج.
(هذا البرنامج يضمن نسبة خطأ لا تتعدى البضعة دقائق في أسوأ الأحوال، فاذا كنتم غير مهتمين بدقة الدقائق فاستخدموا هذه المعادلات وإلا فالحساب السويسري أفضل طريقة وأصعبها!)
المدخلات: التاريخ والوقت والمنطقة الزمنية (ز) ومعلومات الكوكب (موقع الكوكب الوسيط في (1/1/2001) (سط) درجة كسرية وسرعة الكوكب الوسيطة (س) درجة/يوم ونقطة الحضيض (حض) درجة كسرية والاختلاف المركزي (هـ) وميل مستوي الكوكب (م) درجة كسرية ونقطة الجوزهر الصاعد (جك) درجة كسرية وطول المحور الأكبر لمدار الكوكب حول الشمس (رك) وحدة فلكية).
المخرجات: طول الكوكب البروجي (لك) ستينية وعرضه البروجي (عك) ستينية وبعده اللحظي عن الشمس (رك) وحدة فلكية.
المعادلات:
ندخل التاريخ الى البرنامج رقم (3) ليتحول الى أيام (د) وننقص منه ز/24.
ندخل التاريخ أيضا في البرنامج رقم (11) لحساب موقع الشمس البروجي (لش) درجة كسرية وبعد الأرض عن الشمس (رش) وحدة فلكية.
نحسب احداثيات الشمس:
الأحداثي السيني (سش)=رش*جيب تمام(لش).
الأحداثي الصادي (صش)=رش*جيب(لش).
وسط الكوكب (مك)=سط+س*د-حض درجة كسرية.
ندخل وسط الكوكب (مك) مع الأختلاف المركزي (هـ) الى البرنامج رقم (10) لنحصل على الزاوية الحقيقية للكوكب من الحضيض (حك) درجة كسرية.
الزاوية من الحمل: (شك)=حك+حض. درجة كسرية.
نحسب بعد الكوكب (رك): رك=ر*(1-هـ*هـ)/(1+هـ*جيب تمام(حك)) وحدة فلكية.
الأحداثي السيني للكوكب (سك)=رك*(جيب تمام(م/2)^2*جيب تمام(شك)+جيب(م/2)^2*جيب(2*جك-شك)).
الأحداثي الصادي للكوكب (صك)=رك*(جيب تمام(م/2)^2*جيب(شك)+جيب(م/2)^2*جيب تمام(2*جك-شك)).
الأحداثي العيني للكوكب (زك)=رك*(جيب(م)*جيب(جك-شك)).
نهاية الحسابات:
طول الكوكب البروجي (لك): ظل(لك)=(صك+صش)/(سك+سش) درجة كسرية ندخلها في البرنامج رقم (1) فتتحول الى ستينية.
عرض الكوكب البروجي (عك): ظل(عك)=زك/(جذر2((سك+سش)^2)+(صك+صش)^2))) درجة كسرية ندخلها في البرنامج رقم (1) فتتحول الى ستينية.