 برنامج تقسيم البيوت بطريقة القابسي...بسم الله الرحن الرحيم...
البرنامج:
هذ البرنامج بلغة كويك بيسك يحسب رؤوس البيوت الاثني عشر بطريقة القابسي...
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
علاوي...
|