Your First program in Astrology

 

 

Many students of astrology want to learn programming in astrology. Below we are listing a program which will run on Casio F x 795P or F x 880P Pocket Computers.

This program will accept your date of birth, time of birth and longitude, latitude, time zone for the place of birth and display the tenth house, the ascendant and planet degrees one by one.

  • 'Data Input

  • 10 IN PUT "D-O-B"; A

    20 A=A/10000 : P=INT (A): A=Frac (A) *100 : S=INT (A) : T=FRAC (A) *10000

    30 INPUT "T-O-B"; Q

    40 INPUT "LAT:" ; N

    50 INPUT "LONG:" ; O

    60 $= "MCLA SU MOMAME JU VE SA RA":Z=1: C=360

    70 Q=Q/24 + FRAC Q/36 : S=S + 1 : IF S<4 THEN S =S + 12 : T=T - 1

  • 'Epoch

  • 80 T=P+Q-715938 + INT (365.25* T + INT (30.6*S) + INT (T/400 - INT (T/100))

  • 'Ayanamsa

  • 90 T=T * 1 E-4 : U=C* FRAC (27.3777851*T) - 2.813 : Y= -.3823* T - 23.298 : R=0

    100 PRINT DMS$ (-Y) : V=258.954 + T/11.3 : W=U + V - Y + O + Q*C + 97.5 + FRAC O/1.5

  • 'Ascendant

  • 110 S=23.444 : X=COS W * COS S: GOSUB 290 : W=W + 90 : P=.016726 - T/9E4

    120 X=COS W * COS S - SIN S * TAN (N+FRAC (N/1.5)) : GOSUB 290: GOSUB 250

  • 'Moon

  • 130 P=45.891 + C * FRAC (362.91647 *T) : Q=44.233 + 2*C*FRAC (338.63192*T)

    140 R=C* FRAC (734.96391*T + .6823) : S=6289*SIN P + 1274 * SIN (Q - P)

    150 S=S + 658 * SIN Q + 214 * SIN (P + P) -186 * SIN U - 114 * SIN R - 59 * SIN (P + P - Q)

    160 S=S + 57 * SIN (Q - P - U) + 53 * SIN (P + Q) + 46 * SIN (Q - U) + 41 * SIN (P - U)

    170 S=S - 35 * SIN (Q/2) - 30 * SIN (P + U) - 15 * SIN (R - Q) - 13 * SIN (R + P)

    180 S=S + 9 * (SIN (3*P) + Sin (Q + Q - P - P) - Sin (Q - P + U) - Sin (Q + U) : J=0

    190 G=131763.5826 * T - 81.742 + 1E-3 * (S - 11 * (Sin (R - P) - Sin (Q + Q - P))) : GOSUBC

  • 'Correction for Jup & Sat

  • 200 E (J)=0 : FOR I=1 TO 6 : READ P,Q,R : E(J) = E (J) + P * 1 E-3 * Sin (C * FRAC (Q*T + R))

    210 NEXT I : J=J + 1: GOTO 180 + 20 * J

  • 'Planet Degrees

  • 220 FOR I= 3 TO 7 : READ J, K, L, M, N, P, R, S, Q: U=C*FRAC (J + K*T) : IF I=5 THEN U=U+E

    230 V=L + T/M : P=N + T/P : IF I=7 THEN U= U + F

    240 GOSUB 250 : NEXT I : G =155.44 - 529.92 * T : GOSUB C : END

  • 'Sun

  • 250 W=X : X=U + P * 180/PI * Sin W : IF ABS (W - X) >1 E-4 THEN 250

    260 X=1 - P * COS X : G=V - R + 2 * ATN (TAN (W/2)/TAN (ACS P/2))

    270 IF R=0 THEN Y=G: O=X: GOTO C

    280 V=G-Sin (2 * G)/Q : W=V + R - Y: X=Cos W + O/X/S/Cos G * Cos V

  • 'MC & Ascendent
  • 290 G=Y + ATN (Sin W/X) : IF X < 0 THEN G=G+180

    360 G=C * FRAC (1 + FRAC (G/C) : X=INT (G/30) + 1 + .01 * INT (1 + 12 * FRAC (G/40))

    370 PRINT MID $ (Z,2); G - .4 * FRAC G; X: Z=Z + 2: RETURN

  • 'Data for Planets

  • 380 DATA 330, .03, .438, 56, 2.756, .886, 45, 2.274, .436, 37, .448, .13

    390 DATA 23, 1.378, .44, 23, 1.826, 1.826, .94, 810, .0296, .94, 185, .8955, .993

    400 DATA 117, .4475, .625, 13, .483, .325, 8, .881, .44, 8, 2.756, .37

    410 DATA .78628, 14.5561326, -47.976, 8.2, .093368, 4E4, 25, 1.52369, 67

    420 DATA .39668, 113.6759566, 53.535, 23, .205626, 2E5, 25, .3871, 4.67

    430 DATA .68356, 2.3079254, -9.611, 17, .048433, 2E4, 77, 5.20256, 134

    440 DATA .117, 44.5036166, 107.71, 349, .006792, -8E4, 53, .7233, 20

    450 DATA .52326, .9290067, 68.975, 6.49, .055685, -1E4, 90, 9.55475, 37

Steps 10-40 accept the birth details, 50-80 initialize the variables. T as computed in step 80 is the no. of days calculated from 1 Jan 1900. Ayanamsa is calculated in step 90 & printed in step 100 as 'Y'. Mid heaven is calculated by step 290 & printed by step 360 & 370. Step 120 and subroutine 290 gives ascendant. Subroutine at 250 Computes sun degree. Steps 130 to 190 calculate Moon degree. Steps 200 & 210 compute corrections for Jupiter & Saturn. Steps 220 to 240 is the main loop to compute planet degrees for Mars to Saturn. At the end of 240 we compute Mean Rahu degree by evaluating G.




Click Here to read similar articles on futuresamachar.com

Make Free Online Horoscope

Best astrology software leostar

Baglamukhi chowki

Astrology software for android mobile/tab

shop.futurepointindia.com