[LISP函数-向量]：两个矢量的点积

eachy

2. 
   
3. ;; ! Function : Computes the dot products of two vectors
   
4. ;; !
   
5. ;; ! Arguments: 'v1' - First vector
   
6. ;; !            'v2' - Second Vector
   
7. ;; !
   
8. ;; ! Returns  : 'scl'  - The dot product of the two vectors which is a scalar
   
9. ;; !                     value
   
10. ;; ! Theory:    Say you have two vectors
    
11. ;; !            A= ax i +  ay j + az k
    
12. ;; !            B= bx i +  by j + bz k
    
13. ;; !
    
14. ;; ! then A . B = ax.bx + ay.by + az.bz
    
15. ;; ! (C) 1999-2004, Four Dimension Technologies, Bangalore
    
16. ;; ! e-mail   : [email]rakesh.rao@4d-technologies.com[/email]
    
17. ;; ! Web      : [url]www.4d-technologies.com[/url]
    
18. ;; ! ****************************************************************************
    
19. ;; 两个矢量的点积
    
20. (defun GE_VecDotProduct        (v1 v2)
    
21.   (apply '+ (mapcar '* v1 v2))
    
22. )

<br /> ;; ! Function : Computes the dot products of two vectors<br /> ;; !<br /> ;; ! Arguments: 'v1' - First vector<br /> ;; !            'v2' - Second Vector<br /> ;; !<br /> ;; ! Returns  : 'scl'  - The dot product of the two vectors which is a scalar<br /> ;; !                     value<br /> ;; ! Theory:    Say you have two vectors<br /> ;; !            A= ax i +  ay j + az k<br /> ;; !            B= bx i +  by j + bz k<br /> ;; !<br /> ;; ! then A . B = ax.bx + ay.by + az.bz<br /> ;; ! (C) 1999-2004, Four Dimension Technologies, Bangalore<br /> ;; ! e-mail   : [email]rakesh.rao@4d-technologies.com[/email]<br /> ;; ! Web      : [url]www.4d-technologies.com[/url]<br /> ;; ! ****************************************************************************<br /> ;; 两个矢量的点积<br /> (defun GE_VecDotProduct        (v1 v2)<br />   (apply '+ (mapcar '* v1 v2))<br /> )