summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci
blob: 527d383446c31b669cf9f436ad29edc9e53cf397 (plain)
1
2
3
4
5
6
7
8
9
10
11
function L=Vecnagasa2(varargin)
  PA=varargin(1);
  if length(varargin)>1
    PB=varargin(2);
  else
    PB=[0,0];
  end
  Tmp=PB-PA;
  L=Tmp*Tmp';
endfunction