| Revision: | 1.2 |
| Committed: | Tue Mar 24 01:41:40 2009 UTC (16 years, 1 month 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 |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | greg | 1.2 | { RCSid $Id$ } |
| 2 | greg | 1.1 | { |
| 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 | greg | 1.2 | MatDotVec(A,v,i) : A(i,0)*v(0) + A(i,1)*v(1) + A(i,2)*v(2); |
| 9 | |||
| 10 | greg | 1.1 | 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 |