Posts

Posted on

Code for computing Thrikkarthika, the New Festival of Lights !

input” YEAR ” to myear

set cent on
set date brit

use ahasx
loca for myear = year
store ahargana to ah1
skip
store ahargana to ah2

use long20
loca for lmoo > 26.66 .AND. lmoo < 40 .and. ahargana > ah1 .and. ahargana < ah2 .and. lsun> 210 .and. lsun< 240
display

store date to dt
?dt

Program shows 27/11/2023 as date for above.

Posted on

Calculation of next New Moon !

A simple code will get us the date for the next New Moon, called in our language as Black Moon / Karutha Vavu

use long8
locate for abs(elongation) < 12 .and. recno() > 1340
?date

Date for next New Moon shown as 14/09/23

Posted on

Code for calculating Narayaneeyam Day

input” YEAR ” to myear

set cent on
set date brit

use ahasx

loca for myear = year
store ahargana to ah1
skip
store ahargana to ah2

use long20
loca for lsun > 237 .and. lsun < 238 .and. ahargana > ah1 .and. ahargana < ah2
store date to dt
store lsun to lx1
skip-1
store date to dt1

xd = lx1 -270

lx = xd*3600/149.58

?”Solstice at hours before IM “,lx, xd
?”Solstice at hrs “,lx,”on”, dt1

?dt

Posted on

Code for calculating Meena Bharani

There is a 24 degree or 24 days difference between Tropical and Sidereal. IF you go by Sayana, add 24 degrees or days.

input” YEAR ” to myear

set cent on
set date brit

use ahas

loca for myear = year

store ahargana to ah1
skip
store ahargana to ah2

use long20

loca for ahargana > ah1 .and. ahargana < ah2 .and. lsun > 329 .and. lsun < 360 .and. lmoo > 13.3333 .and. lmoo < 26.666666
store date to dt

?dt

   

 

 

New Page 7

 

 

Posted on

Code for computing Thiruvathira

input” YEAR ” to myear

set cent on
set date brit

use ahas

loca for myear = year

store ahargana to ah1
skip
store ahargana to ah2

use long20

loca for lmoo > 66.66 .and. lmoo < 80 .and. lsun > 240 .and. lsun < 270 .and. ahargana > ah1 .and. ahargana< ah2

store date to dt

?dt

display

Posted on

Code for computing Tula Varsha, Tula Vishu

input” YEAR ” to myear

set cent on
set date brit

use ahas

loca for myear = year

store ahargana to ah1
skip
store ahargana to ah2

use long20

loca for ahargana > ah1 .and. ahargana< ah2 .and. lsun > 180 .and. lsun < 181
store date to string

display

?”Date”, string

store lsun to lx1

lq = 66.3333 – lx1

if lq > .7748
string= string+1
endif

?string

Posted on

Code for calculating date for Thiruvathira Njattuvela

set cent on
set date brit

use ahas

loca for myear = year

store ahargana to ah1
skip
store ahargana to ah2

use long20

loca for ahargana > ah1 .and. ahargana< ah2 .and. lsun > 65.6666 .and. lsun < 80
store date to string

display

?”Date”, string

    More info at                         Facebook Axis Bank

 

 

https://ajiio.in/woslXgV

 
               

 

Posted on

Code for the computation of Onam

set cent on
set date brit

use long20

go 1300

store ahargana to ahx

store recno() to rn

loca for lsun > 120 .and. ahx > 1871600 .and. lmoo > 280 .and. lmoo < 293.33 .and. recno() > 1300

store date to string

display

?”Date”, string

Program shows date as 29/08/2023