情報もお絵かきの時間

情報科学の課題で、「美しいと思う絵をプログラムで描け」というのが出たのだが、今日ようやくその課題をやっつけた

def mandelbrot(a,b) 

  x=0.0; y=0.0; 

  for n in 0..TMAX do 

    x1 = x*x - y*y - a 

    y1 = 2.0*x*y - b 

    x=x1; y=y1; 

    if (x*x+y*y > 4.0) then return n end 

  end 

  return -1; 

end 

マンデルブロ来た、これで勝つる。

描画のためのソースは非常に短くて手抜きであるのだが、提出するために座標を調節するのに結構手間取った。