summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci
blob: 4bc7684c5e5db99a38707d7ebf379d1dcabe654c (plain)
1
2
3
4
5
6
7
8
9
10
11
function L=Vecnagasa(varargin)
  PA=varargin(1);
  if length(varargin)>1
    PB=varargin(2);
  else
    PB=zeros(1,length(PA));
  end
  Tmp=PB-PA;
  L=sqrt(Tmp*Tmp');
endfunction