R 语言画的MM走光图片(三维立体版)，太邪恶了，有图、有真相、有源代码！

xiaoliu

R 语言画的MM走光图片(三维立体版)源代码：



a1<-seq(0,2,0.01)
b1<-seq(0,1,0.01)
f<-function(a1,b1) ifelse(a1<=1, 11*a1*log10(a1)*b1*(b1-1)+exp(-((25*a1-25/exp(1))^2+(25*b1-25/2)^2)^3)/25, 11*(a1-1)*log10(abs(a1-1))*b1*(b1-1)+exp(-((25*(a1-1)-25/exp(1))^2+(25*b1-25/2)^2)^3)/25)
c1<-outer(a1,b1,f)
persp(a1,b1,c1,theta=30,phi=30,expand=0.5,col="lightyellow")



图片：

yzhlinscau

so real!!!

Brave_Heart

谁啊，这么……

千与千寻

lihai a 佩服

biogemini

厉害，佩服

林下溪源

。。。。。。。。。

生命的傀儡

顶礼膜拜啊

小平房

期待大神画全身像

Simon

小平房 发表于 2014-7-2 11:43
期待大神画全身像

一同期待。。。。

changqingmingzi

好牛逼，我也要学会写这样的代码{:soso_e130:}