12/4/2008 12:46:48 PM

Your First Program in Astrology

Arun K. Bansal

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.

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

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

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

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

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

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

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

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

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

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.

About FuturePointIndia.com | Advertise With Us | Feedback | Contact Us | Home

© 1998-2008 FuturePointIndia.com (P) Ltd. - All rights reserved - Disclaimer - Privacy Policy

Top

Future Point (P) Ltd..
Head Office: X-35, Okhla Phase-II, New Delhi-110020, Ph. 091-011-40541000,40541008,40541009,40541010
Branch Office: D-68, Hauz Khas, New Delhi-110016,Ph:091-011-40541020
e-Mail: mail@futurepointindia.com

Site Created by Future Point (P) Ltd.