Public Shared Operator -(ByVal oMinuend As Vector, oSubtrahend As Vector) _
      As Vector
        If Not Variables.sameDimension(oMinuend, oSubtrahend) Then _
            Throw New RankException("Dimension von Summand1 und Summand2 muss" & _
            "gleich sein, war jedoch " & oMinuend.getDimension() & " und " & _
            oSubtrahend.getDimension() & ".")
        Dim dimension As Integer = oMinuend.getDimension()
        Dim sum(0 To dimension - 1) As Double
        For i = 0 To dimension - 1
            sum(i) = oMinuend.mData(i) - oSubtrahend.mData(i)
        Next
        Return New Vector(sum)
    End Operator
 
    Public Shared Operator *(ByVal dSkalar As Double, ByVal oVector As Vector) _
      As Vector
        Dim dimension As Integer = oVector.getDimension()
        Dim retval(0 To dimension - 1) As Double
        For i = 0 To dimension - 1
            retval(i) = dSkalar * oVector.mData(i)
        Next
        Return New Vector(retval)
    End Operator
 
    Public Shared Operator *(ByVal dSkalar As Integer, ByVal oVector As Vector) _
      As Vector
        Dim dimension As Integer = oVector.getDimension()
        Dim retval(0 To dimension - 1) As Double
        For i = 0 To dimension - 1
            retval(i) = dSkalar * oVector.mData(i)
        Next
        Return New Vector(retval)
    End Operator
 
    Public Shared Operator ^(ByVal oVector1 As Vector, oVector2 As Vector) As _
      Vector
        If Not Variables.sameDimension(oVector1, oVector2, 3) Then _
            Throw New RankException("Die Dimensionen von oVector1 und oVector2" & _
            "müssen 3 sein, waren jedoch " & oVector1.getDimension() & " und " _
            & oVector2.getDimension() & ".")
 
        Dim retval(0 To 2) As Double
 
        For i = 0 To 2
            retval(i) = oVector1.mData((i + 1) Mod 3) * oVector2.mData((i + 2) _
              Mod 3) - oVector1.mData((i + 2) Mod 3) * oVector2.mData((i + 1) _
              Mod 3)
        Next
 
        Return New Vector(retval)
    End Operator
 
    Public Shared Operator +(ByVal oSummand1 As Vector, ByVal oSummand2 As _
      Vector) As Vector
        If Not Variables.sameDimension(oSummand1, oSummand2) Then _
            Throw New RankException("Dimension von Summand1 und Summand2 muss" & _
            "gleich sein, war jedoch " & oSummand1.getDimension() & " und " & _
            oSummand2.getDimension() & ".")
        Dim dimension As Integer = oSummand1.getDimension()
        Dim sum(0 To dimension - 1) As Double
        For i = 0 To dimension - 1
            sum(i) = oSummand1.mData(i) + oSummand2.mData(i)
        Next
        Return New Vector(sum)
    End Operator

    Public Shared Function sameDimension(oGemetry1 As Geometry, oGemetry2 As _
      Geometry) As Boolean
        If (IsNothing(oGemetry1) Xor IsNothing(oGemetry2)) Then _
            Return False
        If IsNothing(oGemetry1) Then _
            Return True
 
        Return (oGemetry1.getDimension() = oGemetry2.getDimension())
    End Function