| Revision: | 1.2 |
| Committed: | Tue Mar 24 01:41:40 2009 UTC (15 years ago) by greg |
| Branch: | MAIN |
| CVS Tags: | rad5R2, rad4R2P2, rad5R0, rad5R1, rad4R2, rad4R1, rad4R0, rad4R2P1, rad5R3 |
| Changes since 1.1: | +3 -0 lines |
| Log Message: | Added vector dot product |
| # | Content |
|---|---|
| 1 | { RCSid $Id$ } |
| 2 | { |
| 3 | 3x3 Matrix operations |
| 4 | } |
| 5 | |
| 6 | MatDot(A,B,i,j) : A(i,0)*B(0,j) + A(i,1)*B(1,j) + A(i,2)*B(2,j); |
| 7 | |
| 8 | MatDotVec(A,v,i) : A(i,0)*v(0) + A(i,1)*v(1) + A(i,2)*v(2); |
| 9 | |
| 10 | i3(i) : if(i-2.5, i-3, i); |
| 11 | |
| 12 | MinorDet(M,i,j) : M(i3(i+1),i3(j+1))*M(i3(i+2),i3(j+2)) - |
| 13 | M(i3(i+1),i3(j+2))*M(i3(i+2),i3(j+1)); |
| 14 | |
| 15 | Det(M) : M(0,0)*MinorDet(M,0,0) + |
| 16 | M(0,1)*MinorDet(M,0,1) + |
| 17 | M(0,2)*MinorDet(M,0,2); |
| 18 | |
| 19 | Inv(M,i,j) : MinorDet(M,j,i) / Det(M); |
| 20 |