إحصائيات الموضوع | |
بسم الله الرحن الرحيم... البرنامج: هذ البرنامج بلغة كويك بيسك يحسب رؤوس البيوت الاثني عشر بطريقة القابسي... 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 علاوي... غير مبريء الذمه نقل الموضوع أو مضمونه بدون ذكر المصدر: منتديات الشامل لعلوم الفلك والتنجيم - من قسم: حسابات وبرامج
|
المشاركة : (2) | |
الاخ زياد علاوي ذكرت برنامج و نحن نري حسابات لا يفهمها 99 في المائة من الاعضاء الا تبسط الامور و تبين كيف تركيب جدول لاستخراج رؤؤس لبيوت الاثني عشر بطريقة القابسي و شكرا |
المشاركة : (3) | |
اقتباس :- الاخ زياد علاوي ذكرت برنامج و نحن نري حسابات لا يفهمها 99 في المائة من الاعضاء الا تبسط الامور و تبين كيف تركيب جدول لاستخراج رؤؤس لبيوت الاثني عشر بطريقة القابسي و شكرا علاوي... |
المشاركة : (4) | |
شكرًا لك اخي العزيز |
مواقع النشر (المفضلة) |
الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1) | |