خوارزمية مطالع التسيير...

خوارزمية مطالع التسيير...

اقدم لكم خوارزمية برنامج مطالع التسيير...

والتي تعتمد على استخراج مطلع اي نقطة على مدار البروج...

فكما نعلم ان مطلع اي نقطة قريبة من وسط السماء او وتد الارض يكون مطلعها الفلكي واذا كانت قريبة من الطالع يكون المطلع البلدي واذا كانت قريبة من الغارب يكون مطلعها هو مطلع النظير...

وتكون الحسابات مضنية اذا كانت النقطة بين جميع اولئك...

لذا اشتتقت قوانين جديدة تعتمد على الدوال المثلثية لاستخراج مطلع التسيير لاي نقطة بدون التفكير في اي ربع تقع!!!

وهذه هي المعادلات...

لدينا النقطة المفترض استخراج مطلع التسيير لها: L

ولدينا نقطة وسط السماء: M

ولدينا عرض البلد: D

1-نستخرج المطلع الفلكي للنقطة المفترضة A:

tan(A)=tan(L)*cos(23.46

2-نستخرج المطلع الفلكي لوسط السماء B:

tan(B)=tan(M)*cos(23.46

3-نستخرج قيمة X:

X=sin(D)*sin(A-B-I

حيث I تساوي صفرا...

4-نحسب قيمة جديدة لقيمة فرق المطالع I:

sin(I)=sin(A)*tan(23.46)*I/sqrt(1-I^2

ونستمر بتطبيق الفقرتين 3 و 4 حتى تقترب قيمة فرق المطالع I.

5-النتيجة النهائية: مطلع التسيير R:

R=A-I

ارجو من الاخ مناضل ان يزودنا بمثال بسيط على الطريقة القديمة حتى استطيع مقارنتها مع الطريقة الجديدة...

ودمتم...

----------------------------------

لقد اعتمدت على تثبيت الهيئة الفلكية عند الميلاد وبما انا لدينا قيمة درجة الكوكب البروجية نستطيع عن طريق هذه المعادلة استخراج مطلعه التسييري فاذا كان قريبا من الوتد السماء والارض يكون مطلعه الفلكي و اذا كان في الطالع والغارب يكون مطلعه البلدي للطالع والنظير للغارب واذا كان بين الاوتاد فسيكون مطلعه بين المطلعين...

جرب ذلك اخي العزيز وقارن النتائج...

مثال: نفرض انه لدينا الدرجة المطلوب اخراج مطلع التسيير لها 284.279 ونقطة وسط السماء 318.684 وعرض البلد 33.316667 نقوم بالحساب...

جيب تمام الميل الأعظم = 0.91733

ظل (أ)=ظل(284.279)*0.91733 يؤدي الى ان أ=285.5063

ظل (أو)=ظل(318.684)*0.91733 يؤدي الى ان أو=321.1191

س= جيب(33.316667)*جيب(285.5063-321.1911) يؤدي الى ان س=0.29661

حيب(ه)=جيب(285.5063)*ظل(23.46)*س/جذر(1-س2) يؤدي الى ان ه= 7.81684

نعود فنحسب س

س= جيب(33.316667)*جيب(285.5063-321.1191-7.81684) يؤدي الى ان س=-0.3376

حيب(ه)=-0.418186*س/جذر(1-س2) يؤدي الى ان ه= 8.6260

نعود فنحسب س

س= 0.549266*جيب(-35.6128-8.626) يؤدي الى ان س=-0.3832

حيب(ه)=-0.418186*س/جذر(1-س2) يؤدي الى ان ه= 9.9908

نعود فنحسب س

س= 0.549266*جيب(-35.6128-9.9908) يؤدي الى ان س=-0.39246

حيب(ه)=-0.418186*س/جذر(1-س2) يؤدي الى ان ه= 10.2788

وهكذا حتى تقترب قيمة ه...

تقترب قيمة ه حتى 10.355

قيمة مطلع التسسير للدرجة 284.279 هو

متس=285.5063-10.3550=275.1513

وهي قيمة مطلع التسيير للدرجة المفروضة...

الدرجة 14 الدقيقة 17 من الجدي ووسط السماء الدرجة 18 الدقيقة 41 من الدالي يكون تسييرها الدرجة 5 الدقيقة 9 من الجدي...

-------------------------------

هذا برنامج بلغة الكويك بيسك يحسب مطالع التسيير في الهيئة...

CLS

PI = 57.29577951#

INPUT "Ecliptic Longitude:", L

L = L / PI

INPUT "Ecliptic MidHeaven:", M

M = M / PI

INPUT "Geographic Lattitude:", D

CE = COS(23.46 / PI)

TE = TAN(23.46 / PI)

SD = SIN(D / PI)

A = ATN(TAN(L) * CE)

IF COS(L) < 0 THEN A = A + 180 / PI

IF A < 0 THEN A = A + 360 / PI

B = ATN(TAN(M) * CE)

IF COS(M) < 0 THEN B = B + 180 / PI

IF B < 0 THEN B = B + 360 / PI

SA = SIN(A)

I = 0

1 X = SD * SIN(A - B - I)

J = ATN(SA * TE * X / SQR(1 - X * X))

J = J / SQR(1 - J * J)

IF J <> I THEN I = J: GOTO 1

R = (A - I) * PI

PRINT "Regression:"; R

END

لا اعلم ماذا اسمي هذا ابداع ام اخلاص ام ثقافه ام تحدي
اذهلتني ابدعاتك المتناثره في ارجاء المنتدى
كل التقدير والاحترام

احسنت الاختيار موضوع مميز

ننتظر المزيد من التالق ( امتنانى )

احسنت الاختيار موضوعك قيم
بالتوفيق دائما بكل اختياراتك

أبداع بكل معنى الكلمة
احترامي وورودى

لكم منى كل التقدير على جمال الطرح
خالص احترامى ومودتتى

موضوع جميل جداً استمتعت به
ننتظر منكم المزيد من الابداع
اتمنى لكم السعاده والتوفيق..

احسنت الاختيار تـسلم عالطرح الرائع
يدوم عطائك المميز . تحياتى لشخصك

شكرا على الطرح الطيب والموضوع المميز

يسلموا لروعة الطرح المميز والانتقاء الجيد
يعطيك العافيه ,,,,, خالص احترامي

» خوارزمية عبور الشمس للتحاويل...