美文网首页stata stata连享会
Stata: 姑娘的生日礼物

Stata: 姑娘的生日礼物

作者: stata连享会 | 来源:发表于2018-04-13 22:15 被阅读127次

    Stata 现场培训报名中

    知乎上截取的:

    Stata-心形-生日快乐!
    drop _all
    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)
    line b a
    
    gr_edit yaxis1.draw_view.setstyle, style(no)
    gr_edit xaxis1.draw_view.setstyle, style(no)
    gr_edit plotregion1.AddTextBox added_text editor .605 .33
    gr_edit plotregion1.added_text_new = 1
    gr_edit plotregion1.added_text_rec = 1
    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
    gr_edit plotregion1.added_text[1].style.editstyle size(large) editcopy
    gr_edit plotregion1.added_text[1].text = {}
    gr_edit plotregion1.added_text[1].text.Arrpush 亲爱的,生日快乐!
    

    美化一下:其实是有动画效果的——我的心在颤抖!

    drop _all
    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)
    line b a, lc(red*1.2) lw(*20)
    
    gr_edit yaxis1.draw_view.setstyle, style(no)
    gr_edit xaxis1.draw_view.setstyle, style(no)
    gr_edit plotregion1.AddTextBox added_text editor .605 .33
    gr_edit plotregion1.added_text_new = 1
    gr_edit plotregion1.added_text_rec = 1
    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
    gr_edit plotregion1.added_text[1].style.editstyle size(large) editcopy
    gr_edit plotregion1.added_text[1].text = {}
    gr_edit plotregion1.added_text[1].text.Arrpush 亲爱的,生日快乐!
    
    My_heart-Stata.png

    作者:章维龙
    链接:https://www.zhihu.com/question/25366124/answer/42388196
    来源:知乎

    关于我们

    联系我们

    • 欢迎赐稿: 欢迎将您的文章或笔记投稿至Stata连享会(公众号: StataChina),我们会保留您的署名;录用稿件达五篇以上,即可免费获得 Stata 现场培训 (初级或高级选其一) 资格。
    • 意见和资料: 欢迎您的宝贵意见,您也可以来信索取推文中提及的程序和数据。
    • 招募英才: 欢迎加入我们的团队,一起学习 Stata。合作编辑或撰写稿件五篇以上,即可免费获得 Stata 现场培训 (初级或高级选其一) 资格。
    • 联系邮件: StataChina@163.com

    Stata 现场培训报名中

    连玉君Stata现场班报名中

    欢迎加入Stata连享会(公众号: StataChina)

    往期精彩推文

    Stata连享会推文列表

    相关文章

      网友评论

        本文标题:Stata: 姑娘的生日礼物

        本文链接:https://www.haomeiwen.com/subject/xbghkftx.html