$H = ($C - int($C / 4) - int((8*$C+13) / 25) + 19*$G + 15) % 30;