力源分享 http://blog.sciencenet.cn/u/chenkuifu

博文

你相信这是条数学曲线吗? 精选

已有 6665 次阅读 2017-11-26 17:03 |系统分类:科普集锦

数学曲线也可以有魅力无限的表现。


蝴蝶曲线最初Temple H.Fay.发现的。曲线有参数式和极坐标两种形式。参数式为




极坐标形式为

Mathematica使用极坐标方式画图非常方便。用代码:

PolarPlot[E^Sin[q] - 2 Cos[4 q] + Sin[(2 q - Pi)/24]^5, {q, 0, 2 Pi}]就可以画出下面的"单薄“的蝴蝶了。

如果想让蝴蝶看起来更像回事,那么可以把代码中的极角参数q多转几圈(上图只转了一圈),比如代码PolarPlot[E^Sin[q] - 2 Cos[4 q] + Sin[(2 q - Pi)/24]^5, {q, 0, 20 Pi}]产生了如下效果


其实极坐标式的第三项不是很关键,如果把它去掉(代码:PolarPlot[E^Sin[q] - 2 Cos[4 q] , {q, 0, 2 Pi}]),效果如下。它是蝴蝶外形的主框架。


第三项在极坐标画图转圈过程,微调极径的长度,使得圈圈不重合,从而蝴蝶的图案得以丰富。其关键是对极径扰动,其扰动周期与2Pi尽量不同步,这样每周的图案都有点差异,实现饱满感。所以第三项不用这么复杂,比如改成Cos[q/11]就实现了如下效果(代码PolarPlot[-E^Sin[q] + 2 Cos[4 q] + Cos[q/11], {q, 0, 20 Pi}])

如果想更漂亮一些,可以去坐标轴,可以上色,如代码PolarPlot[E^Sin[q] - 2 Cos[4 q] + Cos[q/11], {q, 0, 20 Pi},  Axes -> False, ColorFunction -> (Hue[#3] &), PlotStyle -> Thick,  ColorFunctionScaling -> False]就得到这样漂亮的蝴蝶。

如果想持续看到数学曲线的精彩,请扫描-识别-关注下面的微信公众号。




https://blog.sciencenet.cn/blog-510768-1086935.html

上一篇:从逐差法到对差法
下一篇:I LOVE U的数学表达
收藏 IP: 114.251.216.*| 热度|

10 刘克 姬扬 韦玉程 张云 杨涛只 鲍海飞 黄永义 杨正瓴 徐传胜 zjzhaokeqin

该博文允许注册用户评论 请点击登录 评论 (2 个评论)

数据加载中...
扫一扫,分享此博文

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2024-11-13 15:49

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部