Serialisieren von komplexen Zahlen

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

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Serialisieren von komplexen Zahlen

    Hallo Leute,
    in meinem derzeitigen Projekt habe ich in einem Vektorraum eine Liste an komplexen Zahlen. Ich möchte also die Klasse "[Object]", welche eine "List(Of VectorSpace)" besitzt, welche wiederum die Eigenschaft "List(Of Complex)" besitzt, abspeichern. Zum Serialisieren verwende ich normal immer diese Funktionen:

    VB.NET-Quellcode

    1. ​
    2. Public Shared Sub WriteObjects(ByVal path As String, ByVal obj As List(Of [Object]))
    3. Using objStreamWriter As New StreamWriter(path)
    4. Dim x As New XmlSerializer(obj.GetType)
    5. x.Serialize(objStreamWriter, obj)
    6. End Using
    7. End Sub
    9. Public Shared Function ReadObjects(ByVal path As String) As List(Of [Object])
    10. Dim obj As New List(Of [Object])
    11. Using objStreamReader As New StreamReader(path)
    12. Dim x As New XmlSerializer(obj.GetType)
    13. obj = CType(x.Deserialize(objStreamReader), List(Of [Object]))
    14. End Using
    15. Return obj
    16. End Function


    Funktioniert soweit auch, nur, dass wenn ich die Datei wieder einlese alle Vektorräume leer sind. Wenn ich die Datei nach dem serialisieren öffne, sieht sie so aus:
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. <?xml version="1.0" encoding="utf-8"?>
    3. <ArrayOfObject xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    4. <Object>
    5. <VectorSpace>
    6. <Vectors>
    7. <Complex />
    8. <Complex />
    9. <Complex />
    10. <Complex />
    11. <Complex />
    12. <Complex />
    13. <Complex />
    14. <Complex />
    15. <Complex />
    16. <Complex />
    17. <Complex />
    18. <Complex />
    19. <Complex />
    20. <Complex />
    21. <Complex />
    22. <Complex />
    23. <Complex />
    24. <Complex />
    25. <Complex />
    26. <Complex />
    27. <Complex />
    28. <Complex />
    29. </Vectors>
    30. </VectorSpace>
    31. <Name>H</Name>
    32. </Object>
    33. <Object>
    34. <VectorSpace>
    35. <Vectors>
    36. <Complex />
    37. <Complex />
    38. <Complex />
    39. <Complex />
    40. <Complex />
    41. <Complex />
    42. <Complex />
    43. <Complex />
    44. <Complex />
    45. <Complex />
    46. <Complex />
    47. <Complex />
    48. <Complex />
    49. <Complex />
    50. </Vectors>
    51. </VectorSpace>
    52. <Name>A</Name>
    53. </Object>
    54. <Object>
    55. <VectorSpace>
    56. <Vectors>
    57. <Complex />
    58. <Complex />
    59. <Complex />
    60. <Complex />
    61. <Complex />
    62. <Complex />
    63. <Complex />
    64. <Complex />
    65. <Complex />
    66. <Complex />
    67. <Complex />
    68. <Complex />
    69. <Complex />
    70. <Complex />
    71. </Vectors>
    72. </VectorSpace>
    73. <Name>L</Name>
    74. </Object>
    75. <Object>
    76. <VectorSpace>
    77. <Vectors>
    78. <Complex />
    79. <Complex />
    80. <Complex />
    81. <Complex />
    82. <Complex />
    83. <Complex />
    84. <Complex />
    85. <Complex />
    86. <Complex />
    87. <Complex />
    88. <Complex />
    89. <Complex />
    90. <Complex />
    91. <Complex />
    92. </Vectors>
    93. </VectorSpace>
    94. <Name>L</Name>
    95. </Object>
    96. <Object>
    97. <VectorSpace>
    98. <Vectors>
    99. <Complex />
    100. <Complex />
    101. <Complex />
    102. <Complex />
    103. <Complex />
    104. <Complex />
    105. <Complex />
    106. <Complex />
    107. <Complex />
    108. <Complex />
    109. <Complex />
    110. <Complex />
    111. </Vectors>
    112. </VectorSpace>
    113. <Name>O</Name>
    114. </Object>
    115. </ArrayOfObject>



    Wie man sieht sind alle komplexen Zahlen leer. Die Klasse Complex ist nicht von mir sondern von System.Numerics. Weiß jemand, was ich falsch mache? Sollte ich lieber eine eigene Complex-Klasse machen?

    mfG Frank

    Ich glaube das liegt daran, dass Complex nur Get-Only Eigenschaften hat, aber: ​Die XML-Serialisierung ist die Konvertierung der öffentlichen Eigenschaften und Felder eines Objekts in ein serielles Format (in diesem Fall XML), also nur Eigenschaften die Get und Set public haben. Muss es denn XML sein? Der BinaryFormatter sollte das können.

    Ja, danke das wars :D
    Wusste gar nichts von anderen Serialisier-Arten ?(
    So hab ich's nun gemacht:

    VB.NET-Quellcode

    1. ​
    2. Public Shared Sub WriteObjects(ByVal path As String, ByVal objs As List(Of [Object]))
    3. Dim bf As New BinaryFormatter
    4. bf.Serialize(New FileStream(path, FileMode.Create), objs)
    5. End Sub
    7. Public Shared Function ReadObjects(ByVal path As String) As List(Of [Object])
    8. Dim bf As New BinaryFormatter
    9. Return CType(bf.Deserialize(New FileStream(path, FileMode.Open)), List(Of [Object]))
    10. End Function


    mfG Frank

    Funkst einwandfrei

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    3. Imports System.Numerics
    4. Imports System.Runtime.Serialization
    5. Module Module1
    6. Sub Main()
    7. Beispiel()
    8. End Sub
    9. Private Sub Beispiel()
    10. Dim cn1 As New List(Of ComplexNumber) From {New ComplexNumber(13.1, 15.2), _
    11. New ComplexNumber(9.0, 7.8), _
    12. New ComplexNumber(21.1, 16.6), _
    13. New ComplexNumber(42.2, 33.2)}
    15. Dim cn2 As New List(Of ComplexNumber) From {New ComplexNumber(13.1, 15.2), _
    16. New ComplexNumber(9.0, 7.8), _
    17. New ComplexNumber(21.1, 16.6), _
    18. New ComplexNumber(42.2, 33.2)}
    20. Dim cn3 As New List(Of ComplexNumber) From {New ComplexNumber(13.1, 15.2), _
    21. New ComplexNumber(9.0, 7.8), _
    22. New ComplexNumber(21.1, 16.6), _
    23. New ComplexNumber(42.2, 33.2)}
    25. Dim vs1 As New VectorSpace2
    26. vs1.add(cn1)
    27. vs1.add(cn2)
    28. vs1.add(cn3)
    30. SaveXml(vs1, "data.txt")
    32. Dim vs As New VectorSpace2
    33. LoadXml(vs, "data.txt")
    34. Stop
    35. End Sub
    36. Private Sub SaveXml(Of T)(ByVal obj As T, ByVal file As String)
    37. Using fs As New IO.FileStream(file, IO.FileMode.OpenOrCreate)
    38. Dim xmlSer As New Xml.Serialization.XmlSerializer(GetType(T))
    39. xmlSer.Serialize(fs, obj)
    40. fs.Flush()
    41. End Using
    42. End Sub
    43. Private Sub LoadXml(Of T)(ByRef obj As T, ByVal file As String)
    44. Using fs As New IO.FileStream(file, IO.FileMode.OpenOrCreate)
    45. Dim xmlSer As New Xml.Serialization.XmlSerializer(GetType(T))
    46. obj = DirectCast(xmlSer.Deserialize(fs), T)
    47. End Using
    48. End Sub
    49. End Module
    51. <Serializable()> _
    52. Public Class VectorSpace2
    53. Private mVs As New List(Of ComplexNumber())
    54. Public Property VS() As List(Of ComplexNumber())
    55. Get
    56. Return mVs
    57. End Get
    58. Set(ByVal value As List(Of ComplexNumber()))
    59. mVs = value
    60. End Set
    61. End Property
    62. Public Sub add(ByVal cn As List(Of ComplexNumber))
    63. mVs.Add(cn.ToArray)
    64. End Sub
    65. Public Sub New()
    66. End Sub
    67. End Class
    69. ''' <summary>
    70. ''' Complex number.
    71. ''' </summary>
    72. <Serializable()> _
    73. Public Structure ComplexNumber
    74. Public Re As Double
    75. Public Im As Double
    77. 'https://www.vb-paradise.de/index.php/Thread/90280-Komplexe-Zahlen-in-Visual-Basic/?postID=747363#post747363
    78. Public Sub New(ByVal re As Double)
    79. Me.Re = re : Me.Im = 0
    80. End Sub
    81. Public Sub New(ByVal re As Double, ByVal im As Double)
    82. Me.Re = re : Me.Im = im
    83. End Sub
    84. Public Shared Operator *(ByVal n1 As ComplexNumber, ByVal n2 As ComplexNumber) As ComplexNumber
    85. Return New ComplexNumber(n1.Re * n2.Re - n1.Im * n2.Im, n1.Im * n2.Re + n1.Re * n2.Im)
    86. End Operator
    87. Public Shared Operator +(ByVal n1 As ComplexNumber, ByVal n2 As ComplexNumber) As ComplexNumber
    88. Return New ComplexNumber(n1.Re + n2.Re, n1.Im + n2.Im)
    89. End Operator
    90. Public Shared Operator -(ByVal n1 As ComplexNumber, ByVal n2 As ComplexNumber) As ComplexNumber
    91. Return New ComplexNumber(n1.Re - n2.Re, n1.Im - n2.Im)
    92. End Operator
    93. Public Shared Operator -(ByVal n As ComplexNumber) As ComplexNumber
    94. Return New ComplexNumber(-n.Re, -n.Im)
    95. End Operator
    96. Public Shared Widening Operator CType(ByVal n As Double) As ComplexNumber
    97. Return New ComplexNumber(n, 0)
    98. End Operator
    99. Public Function PoweredE() As ComplexNumber
    100. Dim e As Double = Math.Exp(Re)
    101. Return New ComplexNumber(e * Math.Cos(Im), e * Math.Sin(Im))
    102. End Function
    103. Public Function Power2() As Double
    104. Return Re * Re - Im * Im
    105. End Function
    106. Public Function AbsPower2() As Double
    107. Return Re * Re + Im * Im
    108. End Function
    109. Public Overrides Function ToString() As String
    110. Return [String].Format("{0}+i*{1}", Re, Im)
    111. End Function
    112. End Structure


    Edit: Sorry ich hab gar nicht aktualisiert, und nicht gesehen das schon eine Antwort abgegeben wurde.
    Edit2: Korrigiert - Danke für den Hinweis @Bluespide


    Hinweis: Manchmal ist es sehr sinnvoll die bestehende Datei vorher zu löschen. File.Delete("data.txt")

    Freundliche Grüsse

    exc-jdbi

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „exc-jdbi“ ()

    @xd-franky-5 Serialisiere nicht einzelne Datenelemente, sondern Instanzen von Daten-Klassen. Alle deren Properties werden (de-)serialisiert.
    Der Code sieht praktisch identisch aus. Das funktioniert sogar so gut, dass Versionsänderungen (alte Properties weg, neue Properties dazu) gut deswerialisieret werden.
    Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende