13 lines
473 B
Plaintext
13 lines
473 B
Plaintext
import Prelude;
|
|
|
|
public real matrixDotproduct(rel[real x, real y, real v] column1, rel[real x, real y, real v] column2){
|
|
return (0.0 | it + v1*v2 | <x1,y1,v1> <- column1, <x2,y2,v2> <- column2, y1==y2);
|
|
}
|
|
|
|
//a matrix, given by a relation of x-coordinate, y-coordinate, value.
|
|
public rel[real x, real y, real v] matrixA = {
|
|
<0.0,0.0,12.0>, <0.0,1.0, 6.0>, <0.0,2.0,-4.0>,
|
|
<1.0,0.0,-51.0>, <1.0,1.0,167.0>, <1.0,2.0,24.0>,
|
|
<2.0,0.0,4.0>, <2.0,1.0,-68.0>, <2.0,2.0,-41.0>
|
|
};
|