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)