R 语言画的MM走光图片，太邪恶了，有图、有真相、有源代码！

biostar

R语言命令：

zz=curve(3*x*log(x)-1/36*exp(-(36*x-36/2.72)^4),xlim=c(0,1),ylim=c(-0.8,-2))
plot(zz$y,zz$x,type="l",xlab="x",xlim=c(-0.6,-2),ylim=c(0,0.9),ylab="y=3*x*log(x)-1/36*exp(-(36*x-36/2.72)^4)")


图片：