电影《少年班》中两次出现过这样一道题：
在电影的最后，出现了这道题的解答，是一条心形线。
我觉得还挺有意思的，就试着用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') 然后画出来的图形是这样的~
嗯，等我有了喜欢的男孩子就把这段代码发给他~
当然，他要是看不懂就没办法了……
版权声明：本文为Gyf_001000001000原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。