texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci


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