It is a R script of painting Chinese graph Yin&Yang