1 2 3 4 5 6 7 8 9 10 11
function G=Gaiseki(a,b) if length(a)==3 Tmp=[a(2)*b(3)-a(3)*b(2),... a(3)*b(1)-a(1)*b(3),... a(1)*b(2)-a(2)*b(1)]; else Tmp=a(1)*b(2)-a(2)*b(1); end; G=Tmp; endfunction