用R画不同罩杯 统计还能用来做这种事情。。。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

这是一个简单的应用，被称为“R绘制你的乳房”的创建与R产生乳腺癌相似图形。
This is a simple apps, called “Draw Your Breast with R“  created with R to generate Breast alike graphics.
With this Draw Your Breast with R apps, you can change 4 parameters which are Theta, Phi, Expand and Color to generate graphics like below:

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：parameters Parameter generate Graphics paramete 统计 罩杯 generate created 乳腺癌

真牛啊。可否共享code

yinot 发表于 2012-4-1 03:10
真牛啊。可否共享code

3D 的：

1. a1<-seq(0,2,0.01)
   
2. b1<-seq(0,1,0.01)
   
3. 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(a1-1)*b1*(b1-1)+exp(-((25*(a1-1)-25/exp(1))^2+(25*b1-25/2)^2)^3)/25)
   
4. c1<-outer(a1,b1,f)
   
5. plot(1)
   
6. persp(a1,b1,c1,theta=30,phi=30,expand=0.5,col=”red”)

复制代码

更多：Draw Your Breast - A R Apps (for fun)

谁要是第二个那种罩杯就太恐怖了。

这。。。。

....

很牛叉

现学现用！ 去“设计”你的罩杯吧 ： 罩杯应用

kaichew 发表于 2012-4-1 13:01
3D 的：更多：Draw Your Breast - A R Apps (for fun)

运行到：
c1<-outer(a1,b1,f)
会产生警告信息：
In log10(a1 - 1) : 产生了NaNs
并作不出图像，请问什么原因

xingzhaoh 发表于 2012-4-11 10:27
运行到：
c1

是吗？
你去云端R 试试吧～
小心代码的符号，尤其是 “”， 应该是""。

1.     a1<-seq(0,2,0.01)
   
2.     b1<-seq(0,1,0.01)
   
3.     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(a1-1)*b1*(b1-1)+exp(-((25*(a1-1)-25/exp(1))^2+(25*b1-25/2)^2)^3)/25)
   
4.     c1<-outer(a1,b1,f)
   
5.     plot(1)
   
6.     persp(a1,b1,c1,theta=30,phi=30,expand=0.5,col="red")

复制代码