v_cross.m

来自「三维涡流计算」· M 代码 · 共 7 行

function c=v_cross(a,b);
c=zeros(size(a));
c(1,:)=(a(2,:).*b(3,:)-a(3,:).*b(2,:));
c(2,:)=(a(3,:).*b(1,:)-a(1,:).*b(3,:));
c(3,:)=(a(1,:).*b(2,:)-a(2,:).*b(1,:));