博客网 >

两个矢量的叉积
作者:分类:默认分类标签:

;|两个矢量的叉积
2003年02月11日
    | i  j  k |
v1xv2 = | x1 y1 z1 |= (y1z2-y2z1, z1x2-z2x1, x1y2-x2y1)
    | x2 y2 z2 |
      
|;
;;向量的差积;
(defun ea:vector_CrossProduct
(ve1 ve2 / x1 y1 z1 x2 y2 z2)
(setq x1 (car ve1)
y1 (cadr ve1)
z1 (last ve1)
x2 (car ve2)
y2 (cadr ve2)
z2 (last ve2)
)
(list (- (* y1 z2) (* y2 z1))
(- (* z1 x2) (* z2 x1))
(- (* x1 y2) (* x2 y1))
)
)
<< 屏幕菜单切换 / 纯LSP获取指定UCS到WCS的... >>

专题推荐

不平凡的水果世界

不平凡的水果世界

平凡的水果世界,平凡中的不平凡。 今朝看水果是水果 ,看水果还是水果 ,看水果已不是水果。这境界,谁人可比?在不平凡的水果世界里,仁者见仁,智者见智。

中国春节的那些习俗

中国春节的那些习俗

正月是农历新年的开始,人们往往将它看作是新的一年年运好坏的兆示期。所以,过年的时候“禁忌”特别多。当然,各个地方的风俗习惯不一样,过年的禁忌也是不一样的。

评论
0/200
表情 验证码:

eachy

  • 文章总数0
  • 画报总数0
  • 画报点击数0
  • 文章点击数0
个人排行
        博文分类
        日期归档