Computation of Exaltation Strength- Definition & Code

NP means Neecha Point, the Point of Debilitation of the Planet. The Debilitation Point of Jupiter is 275 degrees.

To get the Oocha Bala, the Exaltation Strength of the Planet, the Longitude of the Neecha Point is deducted from the Longitude of the Planet and divided by 3

npsun = 190

npmoon = 213
npmars = 118
npmerc = 345
npjup = 275
npven = 177
npsat = 20

use pp
go 1
store rad to lsun
go 2
store rad to lmar
go 3
store rad to ljup
go 4
store rad to lven
go 5
store rad to lsat
go 6
store rad to lmerc
go 7
store rad to lmoo

ds = abs(lsun – npsun)

if ds > 180
ds = 360 – ds
endif

dm = abs(lmar-npmars)

if dm > 180
dm = 360 – dm
endif

dj = abs(ljup-npjup)

if dj > 180
dj = 360 – dj
endif

dv = abs(lven – npven)

if dv > 180
dv = 360 -dv
endif

dst = abs(lsat-npsat)

if dst > 180
dst = 360 – dst
endif

dme = abs(lmerc-npmerc)

if dme > 180
dme = 360 – dme
endif

dmo = abs(lmoo-npmoon)

if dmo > 180
dmo = 360 – dmo
endif

USE SHAD
APPEND BLANK
REPL PLANET WITH 'OOCHABALA'
REPL SUN WITH DS/3
REPL MOON WITH DMO/3
REPL MARS WITH DM/3
REPL MERC WITH DME/3
REPL JUP WITH DJ/3
REPL VEN WITH DV/3
REPL SAT WITH DST/3