VB - Complex2Betrag

''' <summary>
''' liefert den Betrag zu einer komplexen Zahl
''' </summary>
''' <param name="RealTeil">realer Anteil der komplexen Zahl</param>
''' <param name="ImaginaerTeil">imaginärer Anteil der komplexen Zahl</param>
''' <returns>Betrag zu der Komplexen Zahl</returns>
''' <remarks></remarks>
Public Shared Function Complex2Betrag(ByVal RealTeil As Double, ByVal ImaginaerTeil As Double) As Double
       return Sqrt(RealTeil ^ 2 + ImaginaerTeil ^ 2)
End Function