《几个非常有趣的函数图象.doc》由会员分享，可在线阅读，更多相关《几个非常有趣的函数图象.doc（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、几个非常有趣的函数图象爱的方程式一个加强版的爱的方程式：(x2 + (9/4)y2 + z2 - 1)3 - x2z3 - (9/80)y2z3 = 0。下面是本人亲自用Mathematica绘的图，发出来给大家看看。Tupper自我指涉公式：图象里竟然包含式子本身你认为，一个函数图象里是否有可能包含这个函数本身的“图象”？难以置信的是，还真有人构造了这样一个东西。2001年，Jeff Tupper发表的一篇论文里提到了这样一个有趣的不等式：在0 = x = 105，n = y = n + 16的围，这个不等式对应的图象是这个样子：其中，n = 2886149你会觉得这个很神奇吗？你也许会想，
2、天哪，这个是怎么构造出来的啊！但仔细思考之后，你会发现这个一点都不神奇。事实上明白了道理之后你可以构造出无数个这样的式子来。现在给你一些时间让你思考一下，你能否看出其中的奥秘？隐藏在函数里的问候不知是哪个牛人发现了这样一个有趣的函数f(x,y)=e(-x2-y2/2) * cos(4x) + e(-3(x+0.5)2+y2/2)，它可以说是“函数界”里的Hello World，因为当z充分小的时候（比如取0z0.001），函数图象是两个大大的字母，向电脑前的你表示最真挚的问候。看来，以后打招呼又有新的方式了。 另外一些有趣的问题是，有没有牛人能找到一个并不太复杂的，可以显示“Hello Wor
3、ld”的初等函数呢？或者更实用一些的，想要创作一个“XXX我爱你函数”需要花多长时间，函数本身会有多复杂？曲线拟合法构造Hello world!函数又一个有创意的想法！下面这个函数在自然数点上的取值正好构成了Hello world!的ASCII码，是当之无愧的Hello world函数：round( 96.75 - 21.98*cos(x*1.118) + 13.29*sin(x*1.118) - 8.387*cos(2*x*1.118)+ 17.94*sin(2*x*1.118) + 1.265*cos(3*x*1.118) + 16.58*sin(3*x*1.118)+ 3.988*cos
4、(4*x*1.118) + 8.463*sin(4*x*1.118) + 0.3583*cos(5*x*1.118)+ 5.878*sin(5*x*1.118)这是这个函数的图像：来源：.poromenos.org/node/89如果你不信的话，我用这个函数写了一个Mathematica的Hello world!，你可以亲自试一试：FromCharacterCodeTableRound96.75 - 21.98*Cosx*1.118 + 13.29*Sinx*1.118- 8.387*Cos2*x*1.118 + 17.94*Sin2*x*1.118+ 1.265*Cos3*x*1.118 +
5、 16.58*Sin3*x*1.118+ 3.988*Cos4*x*1.118 + 8.463*Sin4*x*1.118+ 0.3583*Cos5*x*1.118 + 5.878*Sin5*x*1.118, x, 0, 11阴阳图极坐标函数刚才在网上发现了上面这猛图。急着想验证一下，但不知道Mathematica如何画极坐标的隐函数，于是写了一个Free Pascal的小程序。大家也可以试着把这个小程序粘贴到Free Pascal里运行一下看看。$ASSERTIONS+uses graph,math;function f(t,r:extended):extended;begin exit(co
6、s(t-r)-sin(t) * (r*4-2*r*2*cos(2*t+2.4)+0.9)+(0.62*r)*1000);end;var i,j,gd,gm:integer; t,r:extended;begin gd:=D8bit; gm:=m640x480; InitGraph(gd,gm,); Assert(graphResult=grOk); for i:=0 to 1000 do for j:=0 to 1000 do begint:=(2*pi)*i/1000;r:=2*j/1000;if f(t,r)0 then PutPixel(round(cos(t)*r*100)+300,round(sin(t)*r*100)+200,15) end; readln; CloseGraph;end.果然不出所料，下面就是程序运行的结果：其它一些代数函数图象：查看更多：www1-c703.uibk.ac.at/mathematik/project/bildergalerie/gallery.html9 / 9