A Mathematica code for Yin-Yang grid