Mandelbrotmenge

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Bagplatt.

    Mandelbrotmenge

    Hallo zusammen,

    Ich weis, es gibt schon mehrere Threads zu dem Thema. Doch ich habe irgendwo in der Rechnung einen Fehler.

    Ich nehme mal stark an, dass der Betrag n oder c bereits bei Iterationsbeginn den Maximalenbetrag überschreitet, und somit die Iteration beendet.
    Wieso? Hab gestern mehrere Versuche gemacht, wobei oft auch ein einfacher Kreis entstanden ist, der ich von Bildern im Netz bei der Iterationstiefe 1 sehe. Seltsamer weiße gingen
    von diesem Strahlen aus, ähnlich einer Sonne.


    So sieht dass im Moment aus.

    VB.NET-Quellcode

    1. Public Sub GetFont()
    3. Dim xL As Double = Math.Abs(xMin) + Math.Abs(xMax)
    4. Dim yL As Double = Math.Abs(yMin) + Math.Abs(yMax)
    6. Dim oX As Double = xL / bmp.Width
    7. Dim oY As Double = yL / bmp.Height
    9. Dim l As Integer = bmp.Width - 1
    10. Dim h As Integer = bmp.Height - 1
    12. Dim frk(l, h) As Color
    14. Parallel.For(0, l - 1, Sub(X)
    15. Parallel.For(0, h - 1, Sub(Y)
    16. Dim kx As Double = (X * oX) + xMin
    17. Dim ky As Double = (Y * oY) + yMin
    18. Dim xx As Double = kx * kx
    19. Dim yy As Double = ky * ky
    20. Dim xy As Double = kx * ky
    21. Dim Betrag_2 As Integer = xx + yy
    22. Dim remain_iter As Integer = 500
    24. Do While Betrag_2 <= 2 And remain_iter > 0
    25. remain_iter = remain_iter - 1
    26. kx = xx - yy + kx
    27. ky = xy + xy + ky
    28. xx = kx * kx
    29. yy = ky * ky
    30. xy = kx * ky
    31. Betrag_2 = xx + yy
    32. Loop
    33. If remain_iter = 0 Then
    34. frk(X, Y) = Color.Black
    35. Else
    36. Dim drS As Double = 200 - remain_iter - Math.Log(Math.Log(Betrag_2) / Math.Log(4)) / Math.Log(2)
    37. Dim c As Single = Math.Abs(drS)
    38. frk(X, Y) = Color.FromArgb(c)
    39. 'max_iter - remain_iter – log(log(betrag_2) / log(4)) / log(2)
    40. End If
    42. End Sub)
    43. End Sub)
    44. For x As Integer = 0 To l
    45. For y As Integer = 0 To h
    46. SetPixel(New Point(x, y), frk(x, y))
    47. Next
    48. Next
    50. End Sub


    Dass war der erste Versuch.

    VB.NET-Quellcode

    1. Private Sub NewTest()
    2. Dim xL As Double = Math.Abs(xMin) + Math.Abs(xMax)
    3. Dim yL As Double = Math.Abs(yMin) + Math.Abs(yMax)
    4. Dim oX As Double = xL / bmp.Width
    5. Dim oY As Double = yL / bmp.Height
    6. Dim n As Integer = 0 'Iterationstiefe
    7. Dim l As Double = 4 'Grenze
    8. Dim x, y As Double
    9. Dim c, d As Double
    11. For reel As Integer = 0 To bmp.Width - 1
    12. For ima As Integer = 0 To bmp.Height - 1
    14. n = 0
    15. l = 0
    16. x = xMin + (oX * reel)
    17. y = yMin + (oY * ima)
    19. Do While l <= 4 And n <= 100
    20. c = x : d = y
    21. x = (c * c) - (d * d) + x
    22. y = (2 * c * d) + y
    23. l = Math.Sqrt((x * x) + (y * y))
    24. n += 1
    25. Loop
    26. If l < 4 Then
    27. bmp.SetPixel(reel, ima, Color.Black)
    28. End If
    29. Next
    30. Next
    32. End Sub


    Dass der 2 von dem auch das Bild stammt.

    Könnt ihr mir sagen was genau da nicht stimmt?

    LG

    #Edit

    Verändere ich :

    VB.NET-Quellcode

    1. ​ x = (c * c) - (d * d) + x
    2. y = (2 * c * d) + y


    in

    VB.NET-Quellcode

    1. ​ x = (c * c) - (d * d) + oX
    2. y = (2 * c * d) + oY


    Entsteht besagter Kreis bzw. Oval.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bagplatt“ ()

Facebook
Telefonspende