Tag: 交叉产品

在Fortran 90中计算两个向量的叉积

我想计算Fortran 90中两个vector的叉积。例如，用（1,2,3）和（4,5,6）的叉积结果是（-3,6， -3）以笛卡尔坐标表示。 我写了下面的代码（主程序后跟函数定义）： PROGRAM crosstest IMPLICIT NONE INTEGER, DIMENSION(3) :: m, n INTEGER, DIMENSION(3) :: cross INTEGER, DIMENSION(3) :: r m=(/1, 2, 3/) n=(/4, 5, 6/) r=cross(m,n) END PROGRAM crosstest FUNCTION cross(a, b) INTEGER, DIMENSION(3) :: cross INTEGER, DIMENSION(3), INTENT(IN) :: a, b cross(1) = a(2) * b(3) – a(3) * b(2) cross(2) = […]