画出一棵圣诞树

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

Stata在第八版之后关于画图的功能突飞猛进，建议为Stata搞一个画展，呵呵。

        刚无意中搜到画圣诞树的编程，与君Merry X'mas  ！

   附出处：http://blog.sina.com.cn/s/blog_629bb7580101cgw3.html

        这个Stata博客上有很多很多实用的Tips，建议大家搜藏并阅读，可以当做工具书用咯，遇到问题可以在此查询。
                                                                           

       附画圣诞树的代码：

1. capture program drop MerryChristmas
   
2. program define MerryChristmas
   
3. di "{break}"
   
4. forval i=0(4)16 {
   
5.   forval j=1(2)9 {
   
6.    local n=`i'+`j'
   
7.    local tree=" "
   
8.    forval k=1/`n' {
   
9.     if `n'==1 {
   
10.      local tree="`tree'"+"{res}*"
    
11.     }
    
12.     else if uniform()>0.8 {
    
13.      local tree="`tree'"+"{error}*"
    
14.     }
    
15.     else {
    
16.      local tree="`tree'"+"{text}*"
    
17.     }
    
18.    }
    
19.    di "{center:`tree'}"
    
20.   }
    
21. }
    
22. di "{center:{input}==圣诞快乐==}"
    
23. di "{center:{input}==Merry Christmas==}"
    
24. di "{hline}"
    
25. end
    
26. MerryChristmas
    
27. exit

复制代码

      在此，附上连老师的蝴蝶和小花~方便大家看画展。
      https://bbs.pinggu.org/thread-2479550-1-1.html
      https://bbs.pinggu.org/thread-2807559-1-1.html

   大家伙儿，谁还有关于stata画画的do文件记得上传分享哦~~

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：圣诞树 Christmas Program capture Uniform 圣诞树

画个日历，看看啥时候过大年~到时候给咱坛友发福利！

1. ssc install cal
   
2. 
   
3. cal

复制代码

出处：http://blog.sina.com.cn/s/blog_629bb75801018p3v.html

情人节~~！！2月14日~~

1. drop _all
   
2. range t 0 2*_pi 1000
   
3. gen x=16*sin(t)^3
   
4. gen y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
   
5. egen x_min=min(x)
   
6. egen x_max=max(x)
   
7. egen y_min=min(y)
   
8. egen y_max=max(y)
   
9. gen a=(x-x_min)/(x_max-x_min)
   
10. gen b=(y-y_min)/(y_max-y_min)
    
11. line b a
    
12. gr_edit yaxis1.draw_view.setstyle, style(no)
    
13. gr_edit xaxis1.draw_view.setstyle, style(no)
    
14. gr_edit plotregion1.AddTextBox added_text editor .7055394244311991 .2810707216715078
    
15. gr_edit plotregion1.added_text_new = 1
    
16. gr_edit plotregion1.added_text_rec = 1
    
17. gr_edit plotregion1.added_text[1].style.editstyle  angle(default) size(medsmall) color(red) horizontal(left) vertical(middle) margin(zero) linegap(zero) drawbox(no) boxmargin(zero) fillcolor(bluishgray) linestyle( width(thin) color(black) pattern(solid)) box_alignment(east) editcopy
    
18. gr_edit plotregion1.added_text[1].style.editstyle size(large) editcopy
    
19. gr_edit plotregion1.added_text[1].text = {}
    
20. gr_edit plotregion1.added_text[1].text.Arrpush Happy Valentine's Day

复制代码

版主厉害！！！

SpencerMeng 发表于 2015-1-7 10:59
情人节~~！！2月14日~~

版主太强了~~

Alfred_G 发表于 2015-1-7 19:25
版主太强了~~

俺只是搬运工，嘻嘻嘻。您喜欢就行！

谢谢版主的分享