又一个牛B函数：阴阳图极坐标函数

Brain Storm | 2008-04-02 12:25| 9 Comments | 本文内容遵从CC版权协议 转载请注明出自matrix67.com

    刚才在网上发现了上面这张猛图。急着想验证一下，但不知道Mathematica如何画极坐标的隐函数，于是写了一个Free Pascal的小程序。大家也可以试着把这个小程序粘贴到Free Pascal里运行一下看看。

{$ASSERTIONS+}
uses graph,math;
 
function f(t,r:extended):extended;
begin
   exit((cos(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
   begin
      t:=(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.

 
    果然不出所料，下面就是程序运行的结果：

      

 
每一次提到这类的东西，我都有一种把原来的那些牛B东西一起列出来的冲动。大家不要说我赚PV哦。
爱的方程式
爱的方程式3D版
数学公式生成的色情图片
Tupper自我指涉公式
隐藏在函数里的问候

Posted in Brain Storm
Tags: FreePascal, Pascal语言, 函数, 图形, 惊奇数学事实, 代码
Trackback: http://www.matrix67.com/blog/archives/480/trackback
我猜您可能还喜欢：

• 绝对牛B！由多联骨牌拼出的钟表盘面
• 非传递性骰子：A比B好，B比C好，A不一定比C好
• 牛B的正则表达式：素数判定与线性方程求解
• 牛B的Mathematica：寻找开头和结尾都是字母y的形容词
• 神奇的分形艺术（四）：Julia集和Mandelbrot集
• 爱的方程式
• 隐藏在函数里的问候
• 趣题：构造函数使得平面上任意小的圆内均包含函数上的点

9 条回复

• 
  楼层: 沙发 | 2008-04-02 12:30 | xxjx 说：

  这是沙发了吧，哈哈。改版后第一个沙发。
  这个函数还真是奇妙。

• 
  楼层: 板凳 | 2008-04-02 15:33 | CmYkRgB123 说：

  不错 可是我的FP为什么编译失败？

• 
  楼层: 地毯 | 2008-04-02 15:34 | HDQ 说：

  的确很强大...
  很好

• 
  楼层: 地板 | 2008-04-02 17:40 | chenbl5c 说：

  编译失败's time

• 
  楼层: 地下室 | 2008-04-02 18:02 | donglixp 说：

  http://web.aanet.com.au/superseed/ajmcrae/TupperPlot/TupperPlot.html

• 
  楼层: 地基 | 2008-04-02 18:06 | donglixp 说：

  http://www.dgp.toronto.edu/~mooncake/papers/SIGGRAPH2001_Tupper.pdf

• 
  楼层: 地壳 | 2008-04-02 20:52 | LouX 说：

  想问问大牛同志,这个WORDPRESS注册用户时怎么收不到邮件...
  还有你那个TAGCLOUD是怎么弄出来的什么插件 ?
  谢了 .
  鄙人也用WORDPRESS.

• 
  楼层: 地幔 | 2008-04-03 16:50 | hzxswyg 说：

  这是什么软件啊

• 
  楼层: 地核 | 2008-04-06 19:26 | Infinte 说：

  Mathematica 6里面可以用ContourPlot来绘图，不过效率……

您也随便说几句吧：