END OF AN ERA, FRACTALFORUMS.COM IS CONTINUED ON FRACTALFORUMS.ORG

JuliaArea {
final:
  int ct = 0
  int p = 0
  int seed = 385472
  WHILE (p < @julpoints)
    int i = 0
    seed = random(seed)
    float r = 2*(seed/#randomrange)
    seed = random(seed)
    complex x = r + (0,2)*(seed/#randomrange)
    WHILE (i < @juliters && |x| < 2)
      x = sqr(x)+#pixel
      i = i + 1
    ENDWHILE
    IF (|x| < 2)
      ct = ct + 1
    ENDIF
    p = p + 1
  ENDWHILE
  #index = (ct*16)/(#pi*@julpoints)
default:
  title = "Julia Area"
  param julpoints
    caption = "Number of samples"
    default = 3000
    min = 1
  endparam
  param juliters
    caption = "Julia maximum iterations"
    default = 30
    min = 1
  endparam
}