;
;Author:dyq
;
;Describe:求两个平面的夹角
;平面方程：
; a1*x+b1*y+c1*z+d1 = 0
; a2*x+b2*y+c2*z+d2 = 0
;Input: 面方程系数
;Return: 面夹角度（锐角）
; 返回
function cal2PlaneAngle, a1,b1,c1,d1,a2,b2,c2,d2
;
   n1 = SQRT(a1^2+b1^2+c1^2)
   n2 = SQRT(a2^2+b2^2+c2^2)
   angleCos = ABS(a1*a2+b1*b2+c1*c2)/(n1*n2)
   angle = aCos(angleCos)/!dtor
   return ,angle
end

转载本文请联系原作者获取授权，同时请注明本文来自董彦卿科学网博客。
链接地址：https://blog.sciencenet.cn/blog-344887-388803.html

上一篇：IDL下计算线段与坐标轴夹角
下一篇：VNC的rfb.AuthFailureException:Authentication failur