Thanks, Tcl seems to be very interesting. As I looked for performance information I found this page:
http://www.timestretch.com/FractalBenchmark.html
I translated their mandelbrot test code to AutoHotkey to see its performance. I was very astonished about the results. AutoHotkey is 11.45 times
slower than Python. Maybe AHK has weakness in math operations as I haven't realized yet that AHK is slow on my regular scripts.
Code:
; For details look at http://www.timestretch.com/FractalBenchmark.html
#Singleinstance force
#NoEnv
SetBatchLines, -1
SetWinDelay, -1
SetControlDelay, -1
Gui, Font,s4, Courier New
Gui, Add, Text, vText w250 h500, Please wait ...
Gui, Font, s9
Gui, Add, Text, vResult w250 y+5, Please wait ...
Gui, Show, w250 h530
mandelbrot_run()
mandelbrot(x, y)
{
cr := y - 0.5
ci := x
zi := 0.0
zr := 0.0
BAILOUT := 16
MAX_ITERATIONS := 1000
Loop
{
temp := zr * zi
zr2 := zr * zr
zi2 := zi * zi
zr := zr2 - zi2 + cr
zi := temp + temp + ci
if (zi2 + zr2 > BAILOUT) {
return A_Index
}
if (A_Index > MAX_ITERATIONS) {
return 0
}
}
}
mandelbrot_run()
{
output := ""
date := A_TickCount
y := -39
Loop
{
wholeoutput := wholeoutput output "`n"
output := ""
GuiControl,,Text,%wholeoutput%
x := -39
Loop
{
if (mandelbrot(x/40.0, y/40.0) = 0) {
output .= "*"
}
else
{
output .= " "
}
x++
If x = 39
break
}
y++
If y = 39
break
}
date2 := A_TickCount
wholeoutput := wholeoutput output
GuiControl,,Result, % "Autohotkey Elapsed " ((date2-date) / 1000)
GuiControl,,Text,%wholeoutput%
return false
}
Login
Register
FAQ
Search
