一切都是从一个故事开始的:
1650年,斯德哥尔摩街头,一个宁静的午后,笛卡尔邂逅了18岁的瑞典公主克里斯汀。
机遇巧合,一段纯粹、美好的爱情悄然萌发。
然而,没过多久,他们的恋情传到了国王的耳朵里。国王大怒,将笛卡尔放逐,而公主被软禁在宫中。 身体孱弱的笛卡尔不久便染上重病,在生命进入倒计时的那段日子,他日夜思念的还是街头偶遇的那张温暖的笑脸。他每天坚持给她写信,盼望着她的回音。然而,这些信都被国王拦截下来。在笛卡尔给克里斯汀寄出第十三封信后,他永远地离开了这个世界。此时,被软禁在宫中的小公主依然徘徊在皇宫的走廊里,思念着远方的情人。
这最后一封信上没有写一句话,只有一个方程:r=a(1-sinθ)。——传说中著名的心形函数。
不过,事实告诉我们,除非你的目标妹子也是一只Geeker(至少会用Mathematica或者MATLAB等软件),否则像笛卡尔这样单给一个函数的结局大概就是你推公式别人推妹子了……表白什么的还是选择更浅显易懂的方法吧。
在这个特殊的日子里,特意搜集了利用Stata绘制心形线的程序,代码如下
以下为输出结果
以上程序基于stata12运行,如果有stata14的话,还可以输入中文!祝大家好运!
注:如果图片中字符没有居中的话,请在前面输入空格调整!附上do文件
以上程序来自:
http://mp.weixin.qq.com/s?__biz= ... =21#wechat_redirect
接下来是R绘制心形线,代码如下:
注:操作平台为Rstudio,由于手头电脑没有装R,所以上述程序没有验证,就交给大家自己实践了!祝好运!
以上程序来自http://mp.weixin.qq.com/s?__biz=MzA4NTAyMjQ2Mg==&mid=206788501&idx=1&sn=53e07723fdb395a787e57ea53bffd332&scene=21#wechat_redirect
没有贴出matlab的程序,表示略遗憾!已经利用matlab抱得美人归的朋友不妨分享一下程序

[titter]
最后,感谢那些做出巨大贡献的程序猿,没有他们的代码,表白怎能如此风骚!!!