R语言|做点儿好玩儿的东西

     电影《少年班》中两次出现过这样一道题：

     在电影的最后，出现了这道题的解答，是一条心形线。

     我觉得还挺有意思的，就试着用R语言做了一下。代码如下。

    

heart<-data.frame()
for(i in 1:4000)
{
  x=i*0.0005-1
  y=(x^2)^(1/3)+(1-x^2)^(1/2)
  heart<-rbind(heart,c(x,y))
  y=(x^2)^(1/3)-(1-x^2)^(1/2)
  heart<-rbind(heart,c(x,y))
}
colnames(heart)<-c('x','y')
plot(heart$y~heart$x,main='HEART',col='red')

     然后画出来的图形是这样的~

 

     

     嗯，等我有了喜欢的男孩子就把这段代码发给他~

     当然，他要是看不懂就没办法了……