-- Rumus Refraksi (Berdasarkan lokasi dan tinggi tempat) --
'Menggunakan metode pengulangan/iterasi Bennett (1982), formula (Meeus 1991)
Kerapatan = 1 - 0.0065 / (273.15 + 10) * Tinggi Tempat * 4.256
Jika (LintangTempat < -5.0016 Atau LintangTempat > 89.891), Maka
refr = 0
Jika (NilaiMutlak(TinggiTempatDiAtasPermukaanLaut + TinggiDiAtasHorison) > 0.000001 Dan LintangTempat <= 5), Maka
refr0 = -1
refr = 0
Lakukan iterasi sampai (NilaiMutlak(refr - refr0) > 0.01)
refr0 = refr
Jika (LintangTempat < -4.3425 Atau LintangTempat > 89.9225), Maka SudutRefraksi = 0
refr = 1 / Tan((LintangTempat + refr + 7.31 / (LintangTempat + refr + 4.4)) * PI / 180)
refr = refr * Kerapatan
refr = refr / 60
Lainnya
refr = 1.02 / Tan((LintangTempat + 10.3 / (LintangTempat + 5.11)) * PI / 180)
refr = refr * Kerapatan
refr = refr / 60
SudutRefraksi = refr
Akhir Iterasi