520！！！Stata和R助力表白

有心人！

此处32个赞

sounds interesting~

专业表白 异常精彩

对心形图稍作了些修改，更简洁，如下：
clear
range t 0 2*_pi 1000
gen x=16*sin(t)^3
gen y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
egen x_min=min(x)
egen x_max=max(x)
egen y_min=min(y)
egen y_max=max(y)
gen a=(x-x_min)/(x_max-x_min)
gen b=(y-y_min)/(y_max-y_min)

#delimit ;
  line b a,
  lcolor(red) lwidth(*8)
  text(0.6 0.5 "写上祝福吧！" "（小伙伴们，学Stata的动力来了吗）",
       linegap(*2) color(green) size(*1.8))
  xscale(off) yscale(off)
  ;
#delimit cr

Captain-CUI 发表于 2016-5-20 08:16
一切都是从一个故事开始的：
1650年，斯德哥尔摩街头，一个宁静的午后，笛卡尔邂逅了18岁的瑞典公主克里斯 ...

有点意思

Captain-CUI 发表于 2016-5-20 08:16
一切都是从一个故事开始的：
1650年，斯德哥尔摩街头，一个宁静的午后，笛卡尔邂逅了18岁的瑞典公主克里斯 ...

牛人

好赞 如此接地气

beanyao 发表于 2016-5-20 16:35
简直棒呆

[handshake]

zhangbaoqian 发表于 2016-5-20 19:34
不知道有没有可以在mathamatica，上运行的程序呢，我发现matlab的程序无法在其上运行。如果可以知道的话，明 ...

增加了MATLAB的程序，论坛公众号里也有推送！