البرنامج 19... برنامج تقسيم البيوت بطريقة القابسي...
تعتمد طريقة تقسيم البيوت بطريقة القابسي (وهي طريقة سهلة جدا) على الفرق بين مطالع الاوتاد الفلكية فانه عندما نريد ان نقسم البيوت بين وتدين نقسم الفرق بين مطالعهما الفلكية الى 3 اجزاء متساوية رأس كل جزء هو المطلع الفلكي لرأس أول البيت...
الخوارزمية:
المعلوم: هيئة فلكية (لا اعتبار للكواكب فيها) وفيها معلومان وهما درجة الطالع A ودرجة وسط السماء M...
المجهول: استخراج رؤوس البيوت الاثني عشر...
الحساب:
درجة الطالع A نحسب المطلع الفلكي لها RA...
TAN(RA)=TAN(A)*COS(23.45)__________1
درجة وسط السماء M نحسب المطلع الفلكي لها RM...
TAN(RM)=TAN(M)*COS(23.45)__________2
نحسب الفرق بين المطلعين ثم نقسمه على 3...
X=(RA-RM)/3__________3
هنا X هو حصة البيت في الربع الرابع (البيوت 10، 11، 12) والربع الثاني (البيوت 4، 5، 6)...
نحسب Y وهي حصة البيت في الربعين الأول والثالث...
Y=60-X__________4
رأس مطلع البيت الأول هو رأس مطلع الطالع...
RH(1)=RA__________5
رأس مطلع البيت التالي = رأس مطلع البيت السابق+Z
RH(I+1)=RH(I)+Z__________6
حيث Z هو احد الحصتين X أو Y بحسب رقم البيت...
ثم نعيد المطلع الى درجته البروجية ثانية بالمعادلة التالية...
TAN(H(I))=TAN(RH(I))/COS(23.45)__________7
فتكون H(I) هو مصفوفة تخزن فيها رؤوس البيوت الاثني عشر مقسمة بطريقة القابسي...
------------------------------------
البرنامج:
هذا البرنامج بلغة كويك بيسك يحسب رؤوس البيوت الاثني عشر بطريقة القابسي...
CLS
PI = 57.29577951#
INPUT "Ecliptic Ascendant:", A
A = A / PI
INPUT "Ecliptic MidHeaven:", M
M = M / PI
CE = COS(23.45 / PI)
RA = ATN(TAN(A) * CE)
IF COS(A) < 0 THEN RA = RA + 180 / PI
IF RA < 0 THEN RA = RA + 360 / PI
RM = ATN(TAN(M) * CE)
IF COS(M) < 0 THEN RM = RM + 180 / PI
IF RM < 0 THEN RM = RM + 360 / PI
X = RA - RM: IF X < 0 THEN X = X + 360 / PI
X = X / 3: Y = 60 / PI - X
DIM H(12)
H(1) = RA
FOR I = 2 TO 12
IF I < 5 OR (I > 7 AND I < 11) THEN Z = Y ELSE Z = X
H(I) = H(I - 1) + Z
NEXT I
FOR I = 1 TO 12
J = H(I)
J = ATN(TAN(J) / CE)
IF COS(H(I)) < 0 THEN J = J + 180 / PI
IF J < 0 THEN J = J + 360 / PI
H(I) = J * PI
PRINT "House No. "; I; " is:"; H(I)
NEXT I
END
------------------------------------
مثال: هيئة فلكية فيها الطالع 67.97 درجة ووسط السماء 318.656 درجة...
رؤوس البيوت بطريقة القابسي:
الأول: 67.97
الثاني: 91.067
الثالث: 114.225
الرابع: 138.656
الخامس: 175.778
السادس: 213.392
السابع: 247.97
الثامن: 271.067
التاسع: 294.225
العاشر: 318.656
الحادي عشر: 355.778
الثاني عشر: 33.392