00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013 #include <stdlib.h>
00014 #include <stdio.h>
00015 #include <math.h>
00016 #include <AR/matrix.h>
00017
00018 double arVecInnerproduct( ARVec *x, ARVec *y )
00019 {
00020 double result = 0.0;
00021 int i;
00022
00023 if( x->clm != y->clm ) exit(0);
00024
00025 for( i = 0; i < x->clm; i++ ) {
00026 result += x->v[i] * y->v[i];
00027 }
00028
00029 return( result );
00030 }