Fractal With Nokia 6300 And More

1980年伟大的Benoit B. Mandelbrot为了获得图中右侧的这个函数图像, 他急匆匆地赶往Westchester的IBM计算机研究中心, 原因是当时他所在的哈佛的计算机系统已经无法满足他的计算要求. 而时至今日, 如果你拥有一台常见的移动电话, 你就可以在你手中非常轻易地获得28年前Mandelbrot的伟大发现, 甚至可能是更高的图像分辩率.

今天你所需要的仅仅是安装一个CellularBasic到你的手机中, 它是免费且开源的, 这样你就可以在任何时候任何地点把你的手机变成一台非同反响的图形计算器, 我甚至愿意把它称为计算机. 下面就是两段程序, 分别是著名的是 Feigenbaum Function 和 Mandelbrot set, 是的, 不用怀疑, 一台Nokia 6300完全可以轻易计算出Mandelbrot set.

Mandelbrot set

cls
q=50
x1=0:y1=0:x=0:y=0
for a=-2 to 1 step 0.02
 for b=-1.5 to 1.5 step 0.02
  for i=0 to 15
   x=x1*x1-y1*y1+a
   y=2*x1*y1+b
   x1=x:y1=y
    if x>2 or x<-2 then exit for end if
    if y>2 or y<-2 then exit for end if
  next i
   t=255-i*15
    color t,t,t
    pset a*q+145,b*q+90
   x1=0:y1=0:x=0:y=0
 next b
next a

Feigenbaum Function

cls
for r=3 to 4 step .004
 x=.35
  for i=1 to 70
   x=x*r*(1-x)
    if i>30 then
     pset x*200+10,(r-3)*200
    end if
  next i
next r