Welcome to Fractal Forums

Sub Grid()
With Range(Cells(1, 1), Cells(1900, 1900))
    .ColumnWidth = 0.08
    .RowHeight = 0.75
End With
End Sub
Function iterateQueen(ByVal i As Double, j As Double)
Dim ien, jen, ienz, jenz, mag As Double
Dim patri As Integer
ien = i * i - j * j
jen = 2 * i * j
patri = 1
For k = 1 To 1000
    ien = ien * ien - jen * jen + i
    jen = 2 * ien * jen + j
    mag = Sqr(ien * ien + jen * jen)
    If mag > 2 Then
        patri = 0
        Exit For
    End If
Next k
iterateQueen = patri
End Function
Sub drawMandelbrot()
Dim pocitadloi, pocitadloj As Integer
Dim i, j As Double
' pro mandelbrotovu mnozinu i od -1 do 1, j od -2 do 1
For i = -2 To 2 Step 0.003
    pocitadloi = pocitadloi + 1
    pocitadloj = 0
    For j = -1 To 1 Step 0.003
        pocitadloj = pocitadloj + 1
        If iterateQueen(i, j) = 1 Then Cells(pocitadloi, pocitadloj).Interior.ColorIndex = 3
        DoEvents
    Next j
Next i
End Sub

Sub Grid()
With Range(Cells(1, 1), Cells(1900, 1900))
    .ColumnWidth = 0.08
    .RowHeight = 0.75
End With
End Sub

Function iterateQueen(ByVal i As Double, j As Double)
Dim ien, jen, ienz, jenz, xmag, ymag As Double
Dim patri As Integer
xmag = i * i
ymag = j * j
ien = i
jen = j
patri = 1
For k = 1 To 1000
    jen = 2 * ien * jen + j
    ien = xmag - ymag + i
    xmag = ien * ien
    ymag = jen * jen
    If xmag + ymag > 4 Then
        patri = 0
        Exit For
    End If
Next k
iterateQueen = patri
End Function

Sub drawMandelbrot()
Dim pocitadloi, pocitadloj As Integer
Dim i, j As Double
' pro mandelbrotovu mnozinu i od -1 do 1, j od -2 do 1
For i = -2 To 2 Step 0.003
    pocitadloi = pocitadloi + 1
    pocitadloj = 0
    For j = -1 To 1 Step 0.003
        pocitadloj = pocitadloj + 1
        If iterateQueen(i, j) = 1 Then Cells(pocitadloi, pocitadloj).Interior.ColorIndex = 3
        DoEvents
    Next j
Next i
End Sub

Sub drawMNoAxis()
Dim pocitadloi, pocitadloj, iterate As Integer
Dim i, j As Double

' pro mandelbrotovu mnozinu i od -1 do 1, j od -2 do 1
For i = -0.45 To -0.4 Step 0.00006
    pocitadloi = pocitadloi + 1
    pocitadloj = 0
    For j = 0.32 To 0.38 Step 0.00006
        pocitadloj = pocitadloj + 1
        iterate = iterateM22(i, j)
            If iterate > 20 Then Cells(pocitadloi, pocitadloj).Interior.Color = RGB((iterate - 5) * 5, iterate, 255 / iterate)
        DoEvents
    Next j
Next i
        

End Sub
Function iterateM22(ByVal j As Double, i As Double)
Dim ien, jen, ienz, jenz, mag As Double
Dim patri As Integer


ien = i * i - j * j + i
ien = Sqr(Abs(ien))
jen = 2 * i * j + j
jen = Sqr(Abs(jen))
ienz = ien
jenz = jen
patri = 1

For k = 1 To 1000
    ien = ienz * ienz - (jenz * jenz) + i
    jen = 2 * ienz * jenz + j
    ienz = ien
    jenz = jen
    mag = Sqr(ien * ien + jen * jen)
    If mag > 2 Then
        patri = k
        Exit For
    End If
    patri = k
Next k
iterateM22 = patri
        
End Function

Sub Grid()
With Range(Cells(1, 1), Cells(1900, 1900))
    .ColumnWidth = 0.08
    .RowHeight = 0.75
End With
End Sub
'----------------------------------------------------
Function iterateQueen(ByVal i As Double, j As Double)
Dim ien As Double, jen As Double, ienz As Double, jenz As Double
Dim xmag As Double, ymag As Double
Dim patri As Integer
xmag = i * i
ymag = j * j
ien = i
jen = j
patri = 1
For k = 1 To 1000
    jen = 2 * ien * jen + j
    ien = xmag - ymag + i
    xmag = ien * ien
    ymag = jen * jen
    If xmag + ymag > 4 Then
        patri = 0
        Exit For
    End If
Next k
iterateQueen = patri
End Function
'----------------------------------------------------
Sub drawMandelbrot()
Dim pocitadloi As Integer, pocitadloj As Integer
Dim i As Double, j As Double
Dim oldStatusBar As Boolean, k As Integer, numRows As Integer
'Dim timerStart As Single

' Initial application controls
'timerStart = Timer
With Application
    .ScreenUpdating = False
    oldStatusBar = .DisplayStatusBar
    .DisplayStatusBar = True
    .StatusBar = "Starting..."
End With

' pro mandelbrotovu mnozinu i od -1 do 1, j od -2 do 1
numRows = Int((2 - (-2)) / 0.003) + 1
For i = -2 To 2 Step 0.003
    k = k + 1
    pocitadloi = pocitadloi + 1
    pocitadloj = 0
    For j = -1 To 1 Step 0.003
        pocitadloj = pocitadloj + 1
        If iterateQueen(i, j) = 1 Then Cells(pocitadloi, pocitadloj).Interior.ColorIndex = 3
    Next j
    If k Mod Int(numRows / 100) = 0 Then
        DoEvents  'prevents status bar from freezing during execution
        Application.StatusBar = "Calculating/Outputting... " & Round((k / numRows) * 100, 0) & "%"
    End If
Next i

' Ending application controls
With Application
    .StatusBar = False
    .DisplayStatusBar = oldStatusBar
    .ScreenUpdating = True
End With
'MsgBox Round(Timer - timerStart, 2) & " seconds"
End Sub

Sub Grid()
With Range(Cells(1, 1), Cells(1900, 1900))
    .ColumnWidth = 0.08
    .RowHeight = 0.75
    .Interior.Color = 16777215
End With
End Sub
'----------------------------------------------------
Function iterateQueen(ByVal i As Double, j As Double)
Dim ien As Double, jen As Double, ienz As Double, jenz As Double
Dim xmag As Double, ymag As Double
Dim patri As Integer
xmag = i * i
ymag = j * j
ien = i
jen = j
patri = 1
For k = 1 To 1000
    jen = 2 * ien * jen + j
    ien = xmag - ymag + i
    xmag = ien * ien
    ymag = jen * jen
    If xmag + ymag > 4 Then
        patri = k
        Exit For
    End If
Next k
iterateQueen = patri
End Function
'----------------------------------------------------
Sub drawMandelbrot()
Dim pocitadloi As Integer, pocitadloj As Integer
Dim i As Double, j As Double
Dim oldStatusBar As Boolean, k As Integer, numRows As Integer
'Dim timerStart As Single

' Initial application controls
'timerStart = Timer
With Application
    .ScreenUpdating = False
    oldStatusBar = .DisplayStatusBar
    .DisplayStatusBar = True
    .StatusBar = "Starting..."
End With

' pro mandelbrotovu mnozinu i od -1 do 1, j od -2 do 1
numRows = Int((2 - (-2)) / 0.003) + 1
For i = -2 To 2 Step 0.003
    k = k + 1
    pocitadloi = pocitadloi + 1
    pocitadloj = 0
    For j = -1.5 To 1.5 Step 0.003
        pocitadloj = pocitadloj + 1
        Cells(pocitadloj, pocitadloi).Interior.Color = iterateQueen(i, j)
    Next j
    If k Mod Int(numRows / 100) = 0 Then
        DoEvents  'prevents status bar from freezing during execution
        Application.StatusBar = "Calculating/Outputting... " & Round((k / numRows) * 100, 0) & "%"
    End If
Next i

' Ending application controls
With Application
    .StatusBar = False
    .DisplayStatusBar = oldStatusBar
    .ScreenUpdating = True
End With
'MsgBox Round(Timer - timerStart, 2) & " seconds"
End Sub