Performance Mandelbrot集合函数未按预期执行
这里有一个来自中国的例子Performance Mandelbrot集合函数未按预期执行,performance,clojure,Performance,Clojure,这里有一个来自中国的例子 （导入'java.awt.image.buffereImage '（java.awt颜色渲染提示）） （defn-逃逸 [^双a0^双b0^长深度] （循环[a a0，b b0，迭代0] （续） （=迭代深度）-1 ：其他（重现（+a0（-（*a a）（*b））） （+b0（适用于*[2 a b]）） （包括迭代(()())） （定义mandelbrot[rmin rmax imin imax &{：关键点[宽度高度深度] ：或{宽80高40深1000}] （让[man
（导入'java.awt.image.buffereImage
'（java.awt颜色渲染提示））
（defn-逃逸
[^双a0^双b0^长深度]
（循环[a a0，b b0，迭代0]
（续）
（<4（+（*a）（*b））迭代
（>=迭代深度）-1
：其他（重现（+a0（-（*a a）（*b）））
（+b0（适用于*[2 a b]））
（包括迭代(()())）
（定义mandelbrot[rmin rmax imin imax
&{：关键点[宽度高度深度]
：或{宽80高40深1000}]
（让[mandelbrot]帮忙
（fn[^双rmin^双rmax
^双imin^双imax
]
（让[跨步宽度（/（-rmax rmin）宽度）
步幅-h（/（-imax-imin）高度）]
（循环[x 0
y（十二月高度）
逃逸[]]
（如果（=x宽度）
（如果（零？y）
（分区宽度转义）
（第0次复发（第y年12月）逃逸）
（重复（包括x）y（联合逃逸）
（逃生（+rmin（*x大步-w））
（+imin（*y-h））
深度(()()()())))]
（mandelbrot帮助rmin rmax imin imax）））
（定义渲染文本）
[mandelbrot网格]
（doseq[行曼德布罗特网格]
（doseq[国际热核实验堆逃生区]
（打印）（如果（负？逸出iter）
\*
\（空间）
（println）））
（defn）渲染图像
[mandelbrot网格]
（让[调色板]
(二)
[c（范围500）]
（Color/getHSBColor 0.0 0.0（/（Math/log c）（Math/log 500щщ））
高度（mandelbrot网格计数）
宽度（计数（第一个mandelbrot网格））
img（BuffereImage.宽度高度BuffereImage/TYPE_INT_RGB）
^java.awt.Graphics2D g（.getGraphics img）]
（doseq[[y行]（地图索引向量mandelbrot栅格）
[x escape iter]（映射索引向量行）]
（.setColor g（如果（负）逸出iter）
（调色板0）
（调色板（mod（dec（count调色板））（inc-escape iter()()))
（.drawRect g x y 1 1））
（.g）
（img）
（do（时间）（曼德尔布罗特-2.25 0.75-1.51.5
：宽度1600：高度1200：深度1000）
零）
有什么我做错了吗？你从哪里得到的代码？这绝对不是书中（基于我的PDF副本，第449-452页）或。尤其是
转义（apply*[2 a b]）escape(defn- escape
[^double a0 ^double b0 depth]
(loop [a a0
b b0
iteration 0]
(cond
(< 4 (+ (* a a) (* b b))) iteration
(>= iteration depth) -1
:else (recur (+ a0 (- (* a a) (* b b)))
(+ b0 (* 2 (* a b)))
(inc iteration)))))
user> (do (time (mandelbrot -2.25 0.75 -1.5 1.5
:width 1600 :height 1200 :depth 1000))
nil)
"Elapsed time: 1987.460104 msecs"
（defn-escape
[^双a0^双b0深度]
（循环[a a0
b b0
迭代0]
（续）
（<4（+（*a）（*b））迭代
（>=迭代深度）-1
：其他（重现（+a0（-（*a a）（*b）））
（+b0（*2（*a b）））
（包括迭代(()())）
用户>（do（时间）（mandelbrot-2.25 0.75-1.51.5
：宽度1600：高度1200：深度1000）
零）
“运行时间：1987.460104毫秒”
将
深度^long转义（apply*[2 a b]）escape(defn- escape
[^double a0 ^double b0 depth]
(loop [a a0
b b0
iteration 0]
(cond
(< 4 (+ (* a a) (* b b))) iteration
(>= iteration depth) -1
:else (recur (+ a0 (- (* a a) (* b b)))
(+ b0 (* 2 (* a b)))
(inc iteration)))))
user> (do (time (mandelbrot -2.25 0.75 -1.5 1.5
:width 1600 :height 1200 :depth 1000))
nil)
"Elapsed time: 1987.460104 msecs"
（defn-escape
[^双a0^双b0深度]
（循环[a a0
b b0
迭代0]
（续）
（<4（+（*a）（*b））迭代
（>=迭代深度）-1
：其他（重现（+a0（-（*a a）（*b）））
（+b0（*2（*a b）））
（包括迭代(()())）
用户>（do（时间）（mandelbrot-2.25 0.75-1.51.5
：宽度1600：高度1200：深度1000）
零）
“运行时间：1987.460104毫秒”
将
深度^long