3 lines
102 B
Text
3 lines
102 B
Text
|
needsPackage "TriangularSets"
|
||
|
|
|
||
|
|
mprod = (v, w) -> (v#0*w#1 + w#0*v#1) / 2 - v#2*w#2 - v#3*w#3 - v#4*w#4
|