2012-02-15 06:22:48 +04:00
|
|
|
// Value vector tests.
|
|
|
|
|
|
|
|
a1=[0,1,2];
|
|
|
|
b1=[3,4,5];
|
|
|
|
c1=a1*b1;
|
|
|
|
echo(str("Testing vector dot product: ",c1));
|
|
|
|
|
|
|
|
d1=[1,0];
|
|
|
|
echo(str(" Bounds check: ",a1*d1));
|
|
|
|
|
2012-04-01 01:22:33 +04:00
|
|
|
m2=[[0,1],[1,0],[2,3]];
|
2012-02-15 06:22:48 +04:00
|
|
|
v2=[2,3];
|
|
|
|
p2=m2*v2;
|
|
|
|
echo(str("Testing matrix * vector: ",p2));
|
|
|
|
|
|
|
|
d2=[0,0,1];
|
|
|
|
echo(str(" Bounds check: ",m2*d2));
|
|
|
|
|
2012-04-01 01:22:33 +04:00
|
|
|
m3=[[1,-1],[1,0],[2,3]];
|
|
|
|
v3=[1,2,3];
|
2012-02-15 06:22:48 +04:00
|
|
|
p3=v3*m3;
|
|
|
|
echo(str("Testing vector * matrix: ",p3));
|
|
|
|
|
|
|
|
echo(str(" Bounds check: ",m3*v3));
|
|
|
|
|
|
|
|
ma4=[ [1,0],[0,1] ];
|
|
|
|
mb4=[ [1,0],[0,1] ];
|
|
|
|
echo(str("Testing id matrix * id matrix: ",ma4*mb4));
|
|
|
|
|
|
|
|
ma5=[ [1, 0, 1]
|
|
|
|
,[0, 1,-1] ];
|
|
|
|
mb5=[ [1,0]
|
|
|
|
,[0,1]
|
|
|
|
,[1,1] ];
|
|
|
|
echo(str("Testing asymmetric matrix * matrix: ",ma5*mb5));
|
|
|
|
echo(str("Testing alternate asymmetric matrix * matrix: ",mb5*ma5));
|
|
|
|
|
|
|
|
echo(str(" Bounds check: ",ma5*ma4));
|
|
|
|
|
|
|
|
cube(1.0);
|