Recently I did a Channel 9 interview with Beth Massi where I walked through a Visual Basic program that used Generics and Operator overloads to perform some higher mathematics. I thought I’d follow up with a post explaining the details of exactly what I did.

Operator overloads with Generics enable some beautiful designs for data types in Higher Algebra, a branch of mathematics, sometimes called Abstract Algebra. Consider ** fields** and

**. I’ll show you operator overloads at THREE levels in a single design. First, background: In this context, a “field” is a collection of unspecified objects, closed under two associative operators, + and *, that obey the distributive law.**

*vector spaces*Closed means that for any a, b, and c in the field, a+b and a*c are in the field. Associative means

a + (b + c) = (a + b) + c

a * (b * c) = (a * b) * c

Distributive means

a * (b + c) = a * b + a * c

(b + c) * a = b * a + c * a

The field must also have two special members: the additive unit 0 and the multiplicative unit 1, where

a + 0 = 0 + a = a

a * 1 = 1 * a = a

and must have for every a, an additive inverse, -a, such that a + -a = -a + a = 0. There must also be a multiplicative inverse for every element except 0, written 1/a, such that a * 1/a = 1/a * a = 1.

Some authors insist on the commutative laws (a + b = b + a, a * b = b * a), too, but we don’t, here. The most common examples of fields are the Rationals, the Real numbers, the Complex numbers, all of which have commutative addition and multiplication; and the Quaternions, which have non-commutative multiplication.

Don’t confuse the mathematical “field” with a “field” in a record, structure or class.

In each instance of a field, we define + and * to do anything we want so long as they obey the associative and distributive laws. A “vector space over a field” is the set of *n-tuples *or *vectors *built up from members of the field and closed under an additional linear combination law, written with no operator symbol, or sometimes with *. If v and w are any two vectors, and f and g are any two members of the underlying field, then f v + g w is a vector, and, furthermore,

f (v + w) = f v + f w

(v + w) g = v g + w g

(f + g) v = f v + g v

w (f + g) = w f + w g

Vector spaces are central in physics and simulation. Imagine 6-vectors of real numbers; such things represent particle states in “phase space” in classical mechanics. Imagine 4-vectors of complex numbers; such things appear in quantum mechanics. Similar structures occur all over Quantum Theory and Gravitation

References:

- “Vector Calculus, Linear Algebra, and Differential Forms” [VCLADF], by John H. Hubbard, Barbara Burke Hubbard;
- “Lie Groups, Lie Algebras, and Some of Their Applications,” by Robert Gilmore
- “The Geometry of Physics,” by Theodore Frankel

Applications for vectors of quaternions are not so easy to come by, but, they are perfectly well defined, and, if we do our software design right, they “just work.” Ditto for vectors over a purely symbolic field or over any other kind. It’s not difficult to support field-like algebraic structures with non-associative multiplication within the same software design. Such things include the *Cayley numbers* or *octonions*, but, because of non-associativity, they don’t mesh easily with linear algebra, and that’s where we want to go. Stop with the quaternions.

We extend the design to ** inner-product spaces**, in which every vector has a dual, and to

**: sets of linear transformations of vectors, realized as matrices. With just a little code, we build a general, extensible, optimizable library suitable for physics, engineering, and mathematics in any finite-dimensional vector spaces.**

*linear algebras*We want three layers:

types*underlying*types, generic over the underlying types*field*types, generic over the field types*linear-algebra*

The *underlying types *comprise built-ins like *Double, *and custom types like *Rational*, *Complex*, *Quaternion*, and *Symbol*. Underlying types should implement the basic field operations, but can have many more operations for convenience, like optimized division routines. Operator overloading is a no-brainer for the underlying types.

At the top level of the *linear-algebra types*, operator overloads are again a no-brainer for vector + vector, matrix * vector, vector * matrix, matrix * matrix, vector * vector, and so on.

At the middle layer, the *field types *abstract and narrow the operations down to the bare minimum so that the linear-algebra types know what and only what to expect. In this layer, operator overloading is not quite a no-brainer, and there are a couple of different ways to go with a design.

The first paragraph showed the field axioms, and these are what we must design into our *field types*. One way to do that is to impose the field operations by interface:

Public Interface IField(Of U) ‘U is the “UNDERLYING” type‘Get the underlying value.

Property UValue() As U

‘Generic users of IField type shouldn’t be able to tell

‘whether the Underlying type U has copy-reference

‘semantics or copy-value semantics, so let’s insist that

‘providers of IField implement a Dup operation.Function Dup() As IField(Of U)

‘This is what fields do (would be nice to have a contract

‘for the distributive law). Must use a design like this

‘since Interfaces cannot host Shared functions in general,

‘and operator overloads in particular.Function Add(ByVal that As IField(Of U)) As IField(Of U)

Function Mul(ByVal that As IField(Of U)) As IField(Of U)

Function AdditiveInverse(ByVal that As IField(Of U)) _

As IField(Of U)

Function MultiplicativeInverse(ByVal that As IField(Of U)) _

As IField(Of U)‘Every field must have these. Implement them as Shared and

‘even Const if possible.ReadOnly Property Zero() As IField(Of U)

ReadOnly Property Unity() As IField(Of U)‘The following is an auxiliary operation for the Normed

‘Division Algebras to support Inner Product, or

‘”Sesquilinear mappings.” This computes the complex

‘conjugate, the quaternion conjugate, and so on. If the

‘underlying field does not have a natural dual field, then

‘it’s probably self-dual and just implement “Dual” as “Dup.”Function Dual() As IField(Of U)

End Interface

An upside of this design is that both Structure types and Class types can implement the interface. Thus, the linear-algebra classes are independent of differences of copy semantics. Programmers may use Structure types for run-time speed at both the underlying-type level and at the field level.

Here’s an example of a Structure implementing a field of Doubles

Public Structure SFDouble

Implements IField(Of Double)

…

Private mValue As Double

Public Property UValue() As Double Implements IField(Of Double).UValue

Get

Return mValue

End Get

Set(ByVal value As Double)

mValue = value

End Set

End PropertyPublic Sub New(ByVal d As Double)

mValue = d

End Sub

…

Public Function Add(ByVal that As IField(Of Double)) As IField(Of Double) _

Implements IField(Of Double).Add

Return New SFDouble(Me.UValue + that.UValue)

End FunctionPublic Function Dual() As IField(Of Double) Implements IField(Of Double).Dual

Return New SFDouble(Me.UValue)

End FunctionPublic Function Dup() As IField(Of Double) Implements IField(Of Double).Dup

Return New SFDouble(Me.UValue)

End FunctionPublic Function AdditiveInverse(ByVal that As IField(Of Double)) As IField(Of Double) _

Implements IField(Of Double).AdditiveInverse

‘Let the underlying math throw exception here if that.UValue == 0

Return New FDouble(-Me.UValue)

End FunctionPublic Function MultiplicativeInverse(ByVal that As IField(Of Double)) As IField(Of Double) _

Implements IField(Of Double).MultiplicativeInverse

‘Let the underlying math throw exception here if that.UValue == 0

Return New FDouble(1 / Me.UValue)

End FunctionPublic Function Mul(ByVal that As IField(Of Double)) As IField(Of Double) _

Implements IField(Of Double).Mul

Return New SFDouble(Me.UValue * that.UValue)

End FunctionPrivate Shared sUnity = New SFDouble(1.0)

Private Shared sZero = New SFDouble(0.0)Public ReadOnly Property Unity() As IField(Of Double) Implements IField(Of Double).Unity

Get

Return sUnity

End Get

End PropertyPublic ReadOnly Property Zero() As IField(Of Double) Implements IField(Of Double).Zero

Get

Return sZero

End Get

End Property

…

End Structure

A *Big Downside* though, for the purposes of this exercise, is no operator overloads at the field level, because operator overloads

are *Shared* by definition (i.e., *static*) and interfaces can’t support static methods (the reason is that static virtual methods don’t make sense in .NET, and all methods in an interface are virtual).

But, we want operator overloads at the field level, and we can get them through an alternative base-class design for fields. We lose Structures at the field level, since particular fields must inherit from a base Class, but the underlying types can still be structures.

Public MustInherit Class AField(Of U) ‘U is the “UNDERLYING” type

…

Private mUValue As U

Public Property UValue() As U

Get

Return mUValue

End Get

Set(ByVal value As U)

mUValue = value

End Set

End Property‘Now, our operator overloads just call virtual MustOverride Functions.

‘Magically, these are NON-COMMUTATIVE in general, just as we want.Public Shared Operator +(ByVal e1 As AField(Of U), _

ByVal e2 As AField(Of U)) As AField(Of U)

Return e1.Add(e2)

End OperatorPublic Shared Operator -(ByVal e1 As AField(Of U), _

ByVal e2 As AField(Of U)) As AField(Of U)

Return e1.Add(e2.AdditiveInverse())

End OperatorPublic Shared Operator *(ByVal e1 As AField(Of U), _

ByVal e2 As AField(Of U)) As AField(Of U)

Return e1.Mul(e2)

End OperatorPublic Shared Operator /(ByVal e1 As AField(Of U), _

ByVal e2 As AField(Of U)) As AField(Of U)

Return e1.Mul(e2.MultiplicativeInverse())

End OperatorPublic Shared Operator -(ByVal that As AField(Of U)) As AField(Of U)

Return that.AdditiveInverse()

End OperatorPublic Shared Operator Not(ByVal that As AField(Of U)) As AField(Of U)

Return that.Dual()

End Operator‘This is what fields do (would be nice to have a contract for the

‘distributive law).MustOverride Function Add(ByVal that As AField(Of U)) As AField(Of U)

MustOverride Function Mul(ByVal that As AField(Of U)) As AField(Of U)

MustOverride Function AdditiveInverse() As AField(Of U)

MustOverride Function MultiplicativeInverse() As AField(Of U)‘Every field must have these. Implement them as Shared and even Const if

‘possible.MustOverride ReadOnly Property Zero() As AField(Of U)

MustOverride ReadOnly Property Unity() As AField(Of U)‘Generic users of IField type shouldn’t be able to tell

‘whether the Underlying type U has copy-reference

‘semantics or copy-value semantics, so insist that

‘subclasses of AField implement a Dup operation.MustOverride Function Dup() As AField(Of U)

‘The following is an auxiliary operation for the Normed

‘Division Algebras to support Inner Product, or

‘”Sesquilinear mappings.” This computes the complex

‘conjugate, the quaternion conjugate, and so on. If the

‘underlying field does not have a natural dual field, then

‘it’s probably self-dual and just implement “Dual” as “Dup.”MustOverride Function Dual() As AField(Of U)

End Class

Now we have operator overloads at the field level, but they’re not virtual (they can’t be). What they do is statically dispatch to

virtual ADD and MUL methods, which are just like the ones we had in the interface design for the field level. Nice, eh? Here are the implementations for the field of Complexes, which are implemented in an underlying Structure type:

Public Class AComplex

Inherits AField(Of Complex)

…

Public Overrides Function Add(ByVal that As AField(Of Complex)) As AField(Of Complex)

Return New AComplex(Me.UValue + that.UValue)

End FunctionPublic Overrides Function AdditiveInverse() As AField(Of Complex)

Return New AComplex(-Me.UValue.R, –Me.UValue.I)

End FunctionPublic Overrides Function Dual() As AField(Of Complex)

Return New AComplex(Not Me.UValue)

End FunctionPublic Overrides Function Dup() As AField(Of Complex)

Return New AComplex(Me)

End FunctionPublic Overrides Function MultiplicativeInverse() As AField(Of Complex)

Return New AComplex(1.0 / Me.UValue)

End FunctionPublic Overrides Function Mul(ByVal that As AField(Of Complex)) As AField(Of Complex)

Return New AComplex(Me.UValue * that.UValue)

End Function

…

Public Overrides ReadOnly Property Unity() As AField(Of Complex)

Get

Return New AComplex(1.0, 0.0)

End Get

End PropertyPublic Overrides ReadOnly Property Zero() As AField(Of Complex)

Get

Return New AComplex(0.0, 0.0)

End Get

End PropertyPublic Overrides Function ToString() As String

Return UValue.ToString()

End FunctionEnd Class

And here is its underlying type:

Imports System.TextPublic Structure Complex

Private mR As Double

Public Property R() As Double

Get

Return mR

End Get

Set(ByVal value As Double)

mR = value

End Set

End PropertyPrivate mI As Double

Public Property I() As Double

Get

Return mI

End Get

Set(ByVal value As Double)

mI = value

End Set

End Property

…

Public Shared Operator -(ByVal that As Complex) As Complex

Return New Complex(-that.R, -that.I)

End OperatorPublic Shared Operator +(ByVal c1 As Complex, ByVal c2 As Complex) As Complex

Dim result = New Complex()

result.R = c1.R + c2.R

result.I = c1.I + c2.I

Return result

End OperatorPublic Shared Operator *(ByVal c1 As Complex, ByVal c2 As Complex) As Complex

Dim result = New Complex()

result.R = (c1.R * c2.R) – (c1.I * c2.I)

result.I = (c1.R * c2.I) + (c1.I * c2.R)

Return result

End OperatorPublic Shared Operator Not(ByVal c1 As Complex) As Complex

Return New Complex(c1.R, -c1.I)

End Operator

…

Public Shared Operator *(ByVal c As Complex, ByVal scalar As Double) As Complex

Return New Complex(c.R * scalar, c.I * scalar)

End OperatorPublic Shared Operator /(ByVal c As Complex, ByVal scalar As Double) As Complex

Return New Complex(c.R / scalar, c.I / scalar)

End OperatorPublic Shared Operator /(ByVal c1 As Complex, ByVal c2 As Complex) As Complex

Return c1 * Not c2 / c2.MagnitudeSquared()

End Operator

…

`End Structure`

Now, we have an example of a Field generic on an underlying type, How about the Vector space? I wrote one vector space generic

on the interface-style Field design, and another vector space generic on the base-class Field design. Here is the latter one, it’s prettier:

Imports System.Text‘The only reason I must mention the underlying type, U, here, is to pass it to the

‘Generic AField interface. I don’t use U anywhere explicitly inside this. If I had

‘”Monads” in the Generic type language, then I could thread U through this via a

‘”bind” operator, very pretty, but dreamland.Public Class ANVector(Of U, T As {New, AField(Of U)})

Private mDimension As Integer

Public ReadOnly Property Dimension() As Integer

Get

Return mDimension

End Get

End PropertyPrivate mComponents() As T

Default Property Component(ByVal i As Integer) As T

Get

Component = mComponents(i)

End Get

Set(ByVal Value As T)

mComponents(i) = Value

End Set

End Property

…

Public Sub New(ByVal that As ANVector(Of U, T))

mDimension = that.Dimension

ReDim mComponents(Dimension)

For i = 1 To Dimension

‘Cannot call New with parameters on Generic types … Sorry)

‘ –> Me.mComponents(i) = New T(that(i))

Me.mComponents(i) = that(i).Dup()

Next

End Sub‘Add two vectors. PROPERLY, vectors should themselves implement IModule, etc. Some day…

Public Shared Operator +(ByVal V1 As ANVector(Of U, T), ByVal V2 As ANVector(Of U, T)) _

As ANVector(Of U, T)

If V1.Dimension <> V2.Dimension Then

Throw New VectorSpaceException(“Cannot add vectors of different dimensions”)

Else

Dim result = New ANVector(Of U, T)(V1) ‘clone

For i = 1 To result.Dimension

result(i) = result(i) + V2(i)”’ OPERATOR OVERLOADS BEING USED

Next

Return result

End If

End Operator‘Scale a vector

Public Shared Operator *(ByVal that As ANVector(Of U, T), ByVal scalar As T) _

As ANVector(Of U, T)

Dim result = New ANVector(Of U, T)(that)

For i = 1 To result.Dimension

result(i) = result(i) * scalar”’ OPERATOR OVERLOADS BEING USED

Next

Return result

End OperatorPublic Shared Operator *(ByVal scalar As T, ByVal that As ANVector(Of U, T)) _

As ANVector(Of U, T)

Return that * scalar”’ OPERATOR OVERLOADS BEING USED

End OperatorPublic Function Dual()

Dim result = New ANVector(Of U, T)(Me.Dimension)

For i = 1 To result.Dimension

result(i) = Not result(i)”’ OPERATOR OVERLOADS BEING USED

Next

Return result

End FunctionPublic Shared Operator Not(ByVal V As ANVector(Of U, T)) As ANVector(Of U, T)

Return V.Dual()

End Operator‘Inner product

Public Shared Operator *(ByVal Left As ANVector(Of U, T), ByVal Right As ANVector(Of U, T)) _

As T

If Left.Dimension <> Right.Dimension Then

Throw New VectorSpaceException _

(“Cannot compute inner product of vectors with different dimensions”)

Else

Dim result As New T()

Dim temp As New T()

For i = 1 To Left.Dimension

result = result + Left(i) * Not Right(i)”’ OPERATOR OVERLOADS BEING USED

Next

Return result

End If

End Operator

…

End Class

‘================================================================

Imports System.TextPublic Class AMNMatrix(Of U, T As {New, AField(Of U)})

Private mRowCount As Integer

Public ReadOnly Property Rows() As Integer

Get

Return mRowCount

End Get

End PropertyPrivate mColumnCount As Integer

Public ReadOnly Property Columns() As Integer

Get

Return mColumnCount

End Get

End PropertyPrivate mElements As T(,)

Default Property Element(ByVal i As Integer, ByVal j As Integer) As T

Get

Return mElements(i, j)

End Get

Set(ByVal Value As T)

mElements(i, j) = Value

End Set

End Property

…

‘Scale a matrix

Public Shared Operator *(ByVal scalar As T, ByVal that As AMNMatrix(Of U, T)) _

As AMNMatrix(Of U, T)

Dim result = New AMNMatrix(Of U, T)(that)

For i = 1 To that.Rows

For j = 1 To that.Columns

result(i, j) = result(i, j) * scalar ”’ OPERATOR OVERLOADS BEING USED

Next

Next

Return result

End Operator‘Scale a matrix

Public Shared Operator *(ByVal that As AMNMatrix(Of U, T), ByVal scalar As T) _

As AMNMatrix(Of U, T)

Return scalar * that”’ OPERATOR OVERLOADS BEING USED

End Operator

‘Matrix plus matrix

Public Shared Operator +(ByVal M1 As AMNMatrix(Of U, T), ByVal M2 As AMNMatrix(Of U, T)) _

As AMNMatrix(Of U, T)

If M1.Rows <> M2.Rows Or M1.Columns <> M2.Columns Then

Throw New VectorSpaceException(“Cannot add matrices of different dimensions”)

Else

Dim result = New AMNMatrix(Of U, T)(M1)

For i = 1 To M1.Rows

For j = 1 To M1.Columns

result(i, j) = result(i, j) + M2(i, j) ”’ OPERATOR OVERLOADS BEING USED

Next

Next

Return result

End If

End Operator‘Matrix times a vector

Public Shared Operator *(ByVal m As AMNMatrix(Of U, T), ByVal v As ANVector(Of U, T)) _

As ANVector(Of U, T)

If m.Columns <> v.Dimension Then

Throw New VectorSpaceException(“The number of columns in the matrix must equal ” & _

“the dimension of the vector”)

Else

Dim result = New ANVector(Of U, T)(m.Rows)

For i = 1 To m.Rows

For j = 1 To m.Columns

result(i) = result(i) + v(j) * m(i, j) ”’ OPERATOR OVERLOADS BEING USED

Next

Next

Return result

End If

End Operator‘Vector times a Matrix

Public Shared Operator *(ByVal v As ANVector(Of U, T), ByVal m As AMNMatrix(Of U, T)) _

As ANVector(Of U, T)

If m.Rows <> v.Dimension Then

Throw New VectorSpaceException(“The dimension of the vector must equal” & _

“the number of rows in the matrix”)

Else

Dim result = New ANVector(Of U, T)(m.Columns)

For j = 1 To m.Columns

For i = 1 To m.Rows

result(j) = result(j) + v(i) * m(i, j) ”’ OPERATOR OVERLOADS BEING USED

Next

Next

Return result

End If

End Operator‘Matrix times Matrix

Public Shared Operator *(ByVal left As AMNMatrix(Of U, T), ByVal right As AMNMatrix(Of U, T)) _

As AMNMatrix(Of U, T)

If left.Columns <> right.Rows Then

Throw New VectorSpaceException(“The number of columns in the left matrix must equal” & _

“The number of rows in the right matrix”)

Else

Dim result = New AMNMatrix(Of U, T)(left.Rows, right.Columns)

Dim inner = left.Columns

For i = 1 To result.Rows

For j = 1 To result.Columns

For k = 1 To inner ”’ OPERATOR OVERLOADS BEING USED

result(i, j) = result(i, j) + left(i, k) * right(k, j)

Next

Next

Next

Return result

End If

End Operator

…

End Class

There we go: operator overloading at three levels! I’ve uploaded a zipped Visual-Studio 2008 project to my Public folder with all this code.

Play around, let me know what you think.

I just posted an interview on Channel 9 with Brian Beckman , Principal Developer (currently working with

I just posted an interview on Channel 9 with Brian Beckman , Principal Developer (currently working with

In this interview, Brian Beckman, Principal Developer (currently working with Erik Meijer), attempts

Today I posted an interview on Channel 9 with Brian Beckman , Principal Developer (currently working

This is great for algebra. I’d caution using this type of operator overloading for anything else. When used poorly, operator overloading is much more costly in initial development time as well as after shipping the product.

its good but you know how to do the commutative addition in visual basic