<\/p>\n\n\n\n
Vishu = Day when Sun crosses 0 Degree in the Sidereal Zodiac, when his Gross RA s 0, Longitude = 0 and his declination = 0 Degree.<\/p>\n\n\n\n
input” YEAR ” to myear<\/p>\n\n\n\n
set cent on
set date brit<\/p>\n\n\n\n
use ahasx<\/p>\n\n\n\n
loca for myear = year
store ahargana to ah1
skip
store ahargana to ah2<\/p>\n\n\n\n
use long20<\/p>\n\n\n\n
loca for lsun > 0 .and. lsun < 1 .and. ahargana > ah1 .and. ahargana < ah2<\/p>\n\n\n\n
store date to dt
store lsun to lx1<\/p>\n\n\n\n
skip-1
display<\/p>\n\n\n\n
store lsun to lx3
store date to dt1<\/p>\n\n\n\n
lx =lx3-0
hx= lx*3600\/149.58<\/p>\n\n\n\n
?”in Mins from Solstice”,hx,lx<\/p>\n\n\n\n
if abs(lx) > .2205 .and. lx1 < 0<\/p>\n\n\n\n
dtx =dt1
else
dtx =dt
endif<\/p>\n\n\n\n
?dtx
wait<\/p>\n","protected":false},"excerpt":{"rendered":"
Vishu = Day when Sun crosses 0 Degree in the Sidereal Zodiac, when his Gross RA s 0, Longitude = 0 and his declination = 0 Degree. input” YEAR ” to myear set cent onset date brit use ahasx loca for myear = yearstore ahargana to ah1skipstore ahargana to ah2 use long20 loca for lsun … <\/p>\n