Beschleunigen von 3d Simulationen

  • WPF

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von matzemaschine.

    Beschleunigen von 3d Simulationen

    Hallo alle zusammen,
    ich habe gerade angefangen Simulationen zu programmieren. Aufgabe war es eine Datei mit Messwerten einzulesen und über Funktionen zu einen Körper zusammenzustellen. Jeder Messpunkt wir auf 2 Dreiecken hochgerechnet (ca. 37062 Dreiecke), was auch wunderbar funktioniert.
    Mein Problem ist nachdem ich den Körper erstellt und angezeigt habe, ist die Simulation extrem langsam und mein Rechner langweilt sich auch noch.

    Zu dem Code
    Erstellung des Körpers in Vb.net

    VB.NET-Quellcode

    1. Sub PaintCube()
    3. Dim geometryFront As New GeometryModel3D
    4. Dim geometryBack As New GeometryModel3D
    5. Dim geometryRight As New GeometryModel3D
    6. Dim geometryLeft As New GeometryModel3D
    7. Dim geometryTop As New GeometryModel3D
    8. Dim geometryBottom As New GeometryModel3D
    10. ' Dim geometry(anzahl) As GeometryModel3D
    12. ReDim Preserve geometry(anzahl)
    16. 'Beispiel für Bild-Textur-------------------------
    17. Dim materialBack As New DiffuseMaterial
    18. Dim imgBack As New ImageBrush
    20. imgBack.ImageSource = New BitmapImage(New Uri("D:\corporatemark_t.png"))
    21. imgBack.Stretch = Stretch.Uniform
    22. materialBack.Brush = imgBack
    24. 'Beispiel für Farbtextur-------------------------
    25. Dim materialRight1 As New DiffuseMaterial
    26. Dim materialRight2 As New DiffuseMaterial
    27. Dim materialRight3 As New DiffuseMaterial
    28. Dim materialRight4 As New DiffuseMaterial
    29. Dim materialRight5 As New DiffuseMaterial
    30. Dim materialRight6 As New DiffuseMaterial
    32. Dim materialRight7 As New DiffuseMaterial
    33. Dim materialRight8 As New DiffuseMaterial
    34. Dim imgRight As New ImageBrush
    35. Dim transformGroup As New Transform3DGroup
    37. materialRight1.Brush = New SolidColorBrush(Colors.LimeGreen)
    38. materialRight2.Brush = New SolidColorBrush(Colors.Olive)
    39. materialRight3.Brush = New SolidColorBrush(Colors.DarkGreen)
    40. materialRight4.Brush = New SolidColorBrush(Colors.Blue)
    41. materialRight5.Brush = New SolidColorBrush(Colors.Yellow)
    42. materialRight6.Brush = New SolidColorBrush(Colors.Orange)
    43. materialRight7.Brush = New SolidColorBrush(Colors.OrangeRed)
    44. materialRight8.Brush = New SolidColorBrush(Colors.Red)
    46. 'materialRight.Brush = New LinearGradientBrush()
    47. ' Dim black_white_brush As New LinearGradientBrush(New Point(0, 0), New Point(1, 1), , Color.White)
    52. ProgressBar1.Maximum = anzahl
    53. Me.ProgressBar1.Visibility = Visibility.Visible
    55. For i = 0 To anzahl - 1
    57. ProgressBar1.Value = i
    59. Dim pointx As New Point3D(Koerper(1, 0, i), Koerper(1, 1, i), Koerper(1, 2, i))
    60. Dim pointy As New Point3D(Koerper(2, 0, i), Koerper(2, 1, i), Koerper(2, 2, i))
    61. Dim pointz As New Point3D(Koerper(3, 0, i), Koerper(3, 1, i), Koerper(3, 2, i))
    62. If array_farbe(i) = 1 Then
    63. geometry(i) = Paint3DRectangle(pointx, pointy, pointz, TextureP0, TextureP1, TextureP2, TextureP3, materialRight1)
    64. ElseIf array_farbe(i) = 2 Then
    65. geometry(i) = Paint3DRectangle(pointx, pointy, pointz, TextureP0, TextureP1, TextureP2, TextureP3, materialRight2)
    66. ElseIf array_farbe(i) = 3 Then
    67. geometry(i) = Paint3DRectangle(pointx, pointy, pointz, TextureP0, TextureP1, TextureP2, TextureP3, materialRight3)
    68. ElseIf array_farbe(i) = 4 Then
    69. geometry(i) = Paint3DRectangle(pointx, pointy, pointz, TextureP0, TextureP1, TextureP2, TextureP3, materialRight4)
    70. ElseIf array_farbe(i) = 5 Then
    71. geometry(i) = Paint3DRectangle(pointx, pointy, pointz, TextureP0, TextureP1, TextureP2, TextureP3, materialRight5)
    72. ElseIf array_farbe(i) = 6 Then
    73. geometry(i) = Paint3DRectangle(pointx, pointy, pointz, TextureP0, TextureP1, TextureP2, TextureP3, materialRight6)
    74. ElseIf array_farbe(i) = 7 Then
    75. geometry(i) = Paint3DRectangle(pointx, pointy, pointz, TextureP0, TextureP1, TextureP2, TextureP3, materialRight7)
    76. ElseIf array_farbe(i) = 8 Then
    77. geometry(i) = Paint3DRectangle(pointx, pointy, pointz, TextureP0, TextureP1, TextureP2, TextureP3, materialRight8)
    78. Else
    81. End If
    84. ResultModel3DGroup.Children.Add(geometry(i))
    86. Next
    87. 'Dim myDirectionalLight As New DirectionalLight()
    88. 'myDirectionalLight.Color = Colors.White
    89. 'myDirectionalLight.Direction = New Vector3D(-0.61, -0.5, spotlligth)
    90. 'ResultModel3DGroup.Children.Add(myDirectionalLight)
    93. Model.Content = ResultModel3DGroup
    97. ' transformGroup.Children.Add(New co(RotationX))
    99. transformGroup.Children.Add(New RotateTransform3D(RotationX))
    100. transformGroup.Children.Add(New RotateTransform3D(RotationY))
    101. transformGroup.Children.Add(New RotateTransform3D(RotationZ))
    102. transformGroup.Children.Add(TranslateZ)
    103. transformGroup.Children.Add(Translatey)
    104. transformGroup.Children.Add(Translatex)
    109. transformGroup.Children.Add(zeropoint)
    110. Model.Transform = transformGroup
    114. Me.mainViewport.Children.Remove(Model)
    117. Me.mainViewport.Children.Add(Model)
    118. End Sub


    Zudem der Aufruf einer Simulation

    VB.NET-Quellcode

    1. Dim rotateAnimationz As New DoubleAnimation
    3. rotateAnimationz.Duration = TimeSpan.Parse("0:0:4")
    4. rotateAnimationz.From = -180
    5. rotateAnimationz.To = 180
    6. rotateAnimationz.AutoReverse = True
    7. rotateAnimationz.AccelerationRatio = 0.1
    8. rotateAnimationz.DecelerationRatio = 0.1
    9. rotateAnimationz.RepeatBehavior = New RepeatBehavior(2)
    12. RotationZ.BeginAnimation(AxisAngleRotation3D.AngleProperty, rotateAnimationz)


    Die Darstellung erfolg auf einer WPF Oberfläche

    VB.NET-Quellcode

    1. <Viewport3D Name="mainViewport" ClipToBounds="True" RenderOptions.CachingHint="Cache" RenderOptions.EdgeMode="Aliased">
    2. <Viewport3D.Camera>
    3. <PerspectiveCamera x:Name="cam" Position="0,0,4" LookDirection="0,0,-3.5" ></PerspectiveCamera>
    4. </Viewport3D.Camera>
    5. <ModelVisual3D>
    6. <ModelVisual3D.Content>
    7. <DirectionalLight
    8. Color="White"
    9. Direction="0,0,-1" />
    10. <!--<SpotLight Color="Aqua" Direction="0,1,-1">
    12. </SpotLight>-->
    14. <!--<PointLight Color="White" >
    15. </PointLight>-->
    16. <!--<AmbientLight Color="White" >
    18. </AmbientLight>-->
    20. </ModelVisual3D.Content>
    21. </ModelVisual3D>
    22. </Viewport3D>


    Was kann ich machen damit die Simulation schneller und flüssiger wird???

    Edit by ErfinderDesRades: (Thema verschoben) Bitte richtiges UnterForum wählen!

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

    Hi, danke für die schnelle Antwort.

    ich habe Folgende DLL Importiert

    VB.NET-Quellcode

    1. Imports System.Windows.Media.Media3D
    2. Imports System.Windows.Media.Animation
    3. Imports System.IO
    4. Imports Microsoft.Win32


    Leider habe ich auch Probleme wenn ich die Simulation mit der Maus in verschiede Richtungen schwenken möchte. Von daher ist es die Einstellung der Duration nicht meine Lösung, denke ich.

    VB.NET-Quellcode

    1. Private Sub Grid_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)
    2. If e.LeftButton = MouseButtonState.Pressed Then
    3. mdown = True
    4. Dim pos As Point = Mouse.GetPosition(mainViewport)
    5. mlastpos = New Point(pos.X - mainViewport.ActualWidth / 2, mainViewport.ActualHeight / 2 - pos.Y)
    6. Dim rayMeshResult As RayMeshGeometry3DHitTestResult = DirectCast(VisualTreeHelper.HitTest(mainViewport, pos), RayMeshGeometry3DHitTestResult)
    7. 'Dim hit As Model3D
    10. 'hit = rayMeshResult.ModelHit
    12. 'ResultModel3DGroup.Children.Remove(hit)
    16. End If
    17. End Sub
    19. Private Sub Grid_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseEventArgs)
    20. If mdown = True Then
    21. Dim pos As Point = Mouse.GetPosition(mainViewport)
    22. Dim actualpos As Point = New Point(pos.X - mainViewport.ActualWidth / 2, mainViewport.ActualHeight / 2 - pos.Y)
    23. Dim dx As Double = actualpos.X - mlastpos.X, dy = actualpos.Y - mlastpos.Y
    24. Dim mouseangle As Double = 0
    26. If dx <> 0 And dy <> 0 Then
    27. mouseangle = Math.Asin(Math.Abs(dy) / Math.Sqrt(Math.Pow(dx, 2) + Math.Pow(dy, 2)))
    28. If dx < 0 And dy > 0 Then
    30. mouseangle += Math.PI / 2
    31. ElseIf dx < 0 And dy < 0 Then
    32. mouseangle += Math.PI
    33. ElseIf dx > 0 And dy < 0 Then
    34. mouseangle += Math.PI * 1.5
    35. End If
    39. ElseIf dx = 0 And dy <> 0 Then
    40. mouseangle = If(Math.Sign(dy) > 0, Math.PI / 2, Math.PI * 1.5)
    42. ElseIf dx <> 0 And dy = 0 Then
    43. mouseangle = If(Math.Sign(dx) > 0, 0, Math.PI)
    46. End If
    48. Dim axisangle As Double = mouseangle + Math.PI / 2
    49. Dim axis As Vector3D = New Vector3D(Math.Cos(axisangle) * 4, Math.Sin(axisangle) * 4, 0)
    50. Dim rotation As Double = 0.01 * Math.Sqrt(Math.Pow(dx, 2) + Math.Pow(dy, 2))
    51. Dim group As Transform3DGroup = TryCast(Model.Transform, Transform3DGroup)
    52. Dim r As New QuaternionRotation3D(New Quaternion(axis, rotation * 180 / Math.PI))
    53. group.Children.Add(New RotateTransform3D(r))
    57. mlastpos = actualpos
    61. End If
    65. End Sub
    67. Private Sub Grid_MouseWheel(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseWheelEventArgs)
    68. cam.Position = New Point3D(cam.Position.X, cam.Position.Y, cam.Position.Z - e.Delta / 50D)
    77. End Sub