Physik -> Kollision zweier Kreise -> Resultat

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von MindCode.

    Physik -> Kollision zweier Kreise -> Resultat

    Hallo,

    Die Kollisionsabfrage habe ich bereits, das könnt ihr aus dem Sourcecode entnehmen.
    In dem Code steht die Gesamte Physik-Engine, also alles was man braucht um mir evtl. helfen
    zu können.

    Es handelt sich um 2+n Bälle die sich Physikalisch korrekt Verhalten in einem System
    mit Gravitation. Kollision am Rand klappt gut, auch die Kollisionserkennung zwischen
    den Bällen. Das problem ist nur. Sobald die Bälle in Ruhe sind und z.b "Aufeinander" liegen.
    Sinken sie langsam runter. Ich kann es da nicht so einfach Lösen wie mit dem Border.


    Seht selbst:

    Hier das Gesamte Projekt zum Download:
    Download

    Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. Dim aN As Single
    3. Dim bN As Single
    5. Render.Refresh()
    7. Render.BackColor = Color.Black
    8. For i = 0 To Ball_IndX
    9. If MoVinG(i) = 0 Then
    12. speedY(i) += gravity
    13. speedY(i) += ay(i)
    14. speedX(i) += ax(i)
    16. speedY(i) *= friction
    17. speedX(i) *= friction
    19. ball_loc_x(i) += speedX(i)
    20. ball_loc_y(i) += speedY(i)
    23. '// Collision with other Balls:
    26. bCenterX(i) = ball_loc_x(i) + 25
    27. bCenterY(i) = ball_loc_y(i) + 25
    29. If Ball_IndX > 0 Then
    31. For x = 0 To 10
    33. a = bCenterX(i) - (ball_loc_x(x) + 25)
    34. b = bCenterY(i) - (ball_loc_y(x) + 25)
    36. If a = 0 Or b = 0 Then
    38. If b = 0 Then Abstand = Abs(a)
    39. If a = 0 Then Abstand = Abs(b)
    41. Else
    43. Abstand = Sqrt((Abs(a) ^ 2) + (Abs(b) ^ 2))
    46. End If
    48. Label10.Text = b
    51. If Abstand < 50 And Abstand <> 0 Then
    53. speedX(i) *= -1
    54. speedY(i) *= -1
    56. ball_loc_y(i) = ball_loc_y(x) - 25
    58. ' ++++ 'Genau hier ist das Problem. Entweder ich lasse die Zeile mit ball_loc_y(i) stehen
    59. 'dann hüpft der ball allerdings nicht mehr zurück sondern bleibt sofort "kleben".
    60. Oder ich entferne deise Zeile und nach dem beide Bälle in ruhe sind, sinkt der obere
    61. in den unteren... :-(
    66. 'Render.BackColor = Color.White
    68. End If
    70. Next
    73. End If
    75. '// Collision with Walls
    77. If ball_loc_y(i) > bottom_side Then
    78. ball_loc_y(i) = bottom_side
    79. speedY(i) *= -1
    80. ElseIf ball_loc_y(i) < 0 Then
    81. ball_loc_y(i) = 0
    82. speedY(i) *= -1
    83. End If
    85. If ball_loc_x(i) > right_side Then
    86. ball_loc_x(i) = right_side
    87. speedX(i) *= -1
    88. ElseIf ball_loc_x(i) < 0 Then
    89. ball_loc_x(i) = 0
    90. speedX(i) *= -1
    91. End If
    93. Label1.Text = "Location X: " & ball_loc_x(0)
    94. Label2.Text = "Location Y: " & ball_loc_y(0)
    96. Label3.Text = "Speed X: " & speedX(0)
    97. Label4.Text = "Speed Y: " & speedY(0)
    99. Label5.Text = "Acceleration X: " & ax(0)
    100. Label6.Text = "Acceleration Y: " & ay(0)
    102. Label7.Text = "Friction: " & friction
    103. Label8.Text = "Gravity: " & gravity
    106. End If
    107. Next
    108. End Sub

    Vielleicht ein Grenzwertproblem?

    Sinkt der Ball auch, wenn du ein Luftpolster bildest?

    VB.NET-Quellcode

    1. If Abstand < 50 And Abstand > 1 Then


    Edit:
    Abstand scheint ein Double zu sein und kann deshalb auch Werte zwischen 0 und 1 annehmen.
    Wenn du dann 1 abziehst, ist der Wert unter Null und wird nie wieder 0 annehmen.
    Vielleicht solltest du Abstand beim Vergleich auf ganze Zahlen runden.
    Auch in diesem Fall müsste die oben angegebene Variante helfen.
    Du kannst aber auch in dem Fall vor der Abfrage den Abstand korrigieren:

    VB.NET-Quellcode

    1. If Abstand <1 Then Abstand=0
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

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

    petaod schrieb:

    Vielleicht ein Grenzwertproblem?

    Sinkt der Ball auch, wenn du ein Luftpolster bildest?

    VB.NET-Quellcode

    1. If Abstand < 50 And Abstand > 1 Then


    Edit:
    Abstand scheint ein Double zu sein und kann deshalb auch Werte zwischen 0 und 1 annehmen.
    Wenn du dann 1 abziehst, ist der Wert unter Null und wird nie wieder 0 annehmen.
    Vielleicht solltest du Abstand beim Vergleich auf ganze Zahlen runden.
    Auch in diesem Fall müsste die oben angegebene Variante helfen.
    Du kannst aber auch in dem Fall vor der Abfrage den Abstand korrigieren:

    VB.NET-Quellcode

    1. If Abstand <1 Then Abstand=0
    Das ist leider nicht die Lösung des Problems. Es ändert sich nichts ausser dass
    der Ball irgendwann mal mit voller wucht wieder Wegspringt!

    Ich habe die Vermutung, dass es etwas
    mit der der For x schleife zu tun hat, bei einer Kollision wird zwar der Ball beschleunigt in negative Richtung.
    Aber im nächsten Durchlauf schon wieder seine Position gesetzt?!

    SAR-71 schrieb:

    Entferne "ball_loc_y(i) = ball_loc_y(x) - 25" aus der For-Schleife.
    Warum setzt du überhaupt seine Position?


    Mfg.
    SAR
    Wenn ich das entferne, und beide Bälle nun in Ruhe sind und aufeinanderliegen, sinkt ganz langsam
    der oberste ball in den unteren rein.

    Wenn man sich die Kollision mit den Rändern ansieht, setze ich ja genau so seine position damit der Ball auch ja nicht
    über den Rand fliegt, dannach wird die beschleunigung negiert. Da funktioniert das seltsamerweise so wie es soll.

    Ach leute, ich hab bei der For X schleife als Endwert 10 und nicht Ball_IndX
    Dadurch checkt er auch nach bällen die noch garnich existieren... omg
    nu klappts, jetzt kann ich endlich weiter machen, aber ich glaub ihr
    werdet diesbezüglich evtl noch mehr fragen von mir hören, also freut euch ;)

    danke für eure hilfe!

Facebook
Telefonspende