Tag: หัวใจ

HappyValentinesDay

R code สำหรับวันแห่งความรัก 🙂 t<-seq(-pi, pi,0.05) colors<-rainbow(length(t)) x<-16*sin(t)^3 y<-13*cos(t)-5*cos(2*t)-2*cos(3*t)-1*cos(4*t) p<-c(“H”, “a”, “p”,”p”,”y”,”V”,”a”,”l”,”e”,”n”,”t”,”i”,”n”,”e”,”s”,”D”,”a”,”y”) plot(x,y, type=”p”,pch=p,col=colors,xlab=”X”,ylab=”Y”)