summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci
blob: 3d17995efdcb1464a168703da4d0cf878816e7e3 (plain)
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