T. Djamaluddin
LAPAN, Bandung
Pengetahuan tentang trigonometri bola membantu penghitungan arah qiblat. Ini adalah pengetahuan dasar bagi mahasiswa tahun pertama astronomi atau ilmu falak. Perhitungannya hanya satu rumus sehingga mudah dibuatkan program yang sederhana. Program Basic ini saya buat tahun 1990 saat kuliah di Kyoto atas permintaan teman-teman di Jepang.
=====================================================
10 ‘************************************
20 ‘
30 ‘ QIBLA DIRECTION
40 ‘ (DZULQAIDAH 1410/JUNE 1990)
50 ‘
60 ‘ CALCULATED BY T.DJAMALUDDIN
70 ‘ DEPT. OF ASTRONOMY
80 ‘ KYOTO UNIVERSITY
90 ‘ SAKYO-KU, KYOTO 606, JAPAN
100 ‘
110 ‘***********************************
120 INPUT “Latitude (deg.) (South : negative) =”;PHI
130 INPUT “Longitude (deg.) (West : negative) =”;LAMD
140 RAD = 3.14159/180
150 K = (90 – 21.43)*RAD
160 M = (90 – PHI)*RAD
170 P = ABS(LAMD – 39.75)*RAD
180 N =ATN(SIN(P)/(SIN(M)/TAN(K)-COS(M)*COS(P)))/RAD
190 IF N<0 THEN N=N+180
200 S$ = ” degrees from North to East”
210 SW$= ” degrees from North to West”
220 IF LAMD>39.75 OR LAMD<(-180+39.75) THEN S$ = SW$
230 PRINT : PRINT : PRINT “Qibla direction is “;
240 IF N=0 AND PHI>21.43 THEN PRINT “South”: END
250 IF N=0 AND PHI<21.43 THEN PRINT “North”: END
260 SS$=”determined by yourself. You are in Mecca area.”
270 IF N=0 AND PHI=21.43 THEN PRINT SS$: END
280 PRINT USING “###.##”;N;: PRINT S$
290 PRINT: INPUT “CONTINUED(Y/N) “;YN$
300 IF YN$ =”Y” OR YN$ = “y” THEN GOTO 120
310 SYSTEM
=====================================================
Ini contoh keluaran untuk kota-kota Kyoto, Kobel, dan Jakarta:
Filed under: 2. Hisab-Rukyat | 10 Comments »