summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci
blob: fd2a35d00ad0754315fb1d8b1d4b80078797766f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// 08.05.30

function Out=PointonCurve(T,PtL)
  Eps=10^(-4);
  N=Trunc(T+Eps);
  S=max(T-N,0);
//  PtL=Plt;
  if N==size(PtL,1)
    Out=PtL(N,:);
  else
    Pa=PtL(N,:);;
    Pb=PtL(N+1,:);
    Out=(1-S)*Pa+S*Pb;
  end
endfunction