|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？我要加入
x
此函数提供了两个三维向量叉乘的计算方法，符合语法规范，可直接使用
注释里详细介绍了如何使用。
- subroutine cross_3d ( x1, y1, z1, x2, y2, z2, x3, y3, z3 )
- !***************************************************
- !! CROSS_3D computes the cross product of two vectors in 3D.
- !
- ! Definition:
- !
- ! The cross product in 3D can be regarded as the determinant of the
- ! symbolic matrix:
- !
- ! | i j k |
- ! det | x1 y1 z1 |
- ! | x2 y2 z2 |
- !
- ! = ( y1 * z2 - z1 * y2 ) * i
- ! + ( z1 * x2 - x1 * z2 ) * j
- ! + ( x1 * y2 - y1 * x2 ) * k
- ! Modified:
- ! 19 April 1999
- ! Author:
- ! John Burkardt
- ! Parameters:
- ! Input, real X1, Y1, Z1, X2, Y2, Z2, the coordinates of the vectors.
- ! Output, real X3, Y3, Z3, the cross product vector.
- implicit none
- real(8) x1
- real(8) x2
- real(8) x3
- real(8) y1
- real(8) y2
- real(8) y3
- real(8) z1
- real(8) z2
- real(8) z3
- x3 = y1 * z2 - z1 * y2
- y3 = z1 * x2 - x1 * z2
- z3 = x1 * y2 - y1 * x2
- end subroutine cross_3d
|
|
发表于 2015-11-3 17:03
提升卡
变色卡
显身卡