pathcalculator.m

function pathcalculator(n)
  plot([-1 1],[0,0],'k',[0 0],[-1 1],'k');hold on
  t=0:.02:1;
  
  xdata = zeros(1,n);
  ydata = zeros(1,n);
  
  for i=1:n
    [x,y] = ginput(1) % get three mouse clicks
    plot(x, y, 'bo');
    xdata(i) = x;
    ydata(i) = y;    
  endfor
  
  xf = [-1:0.05:1];
  xp = [-1:1];
  spl = interp1 (xdata, ydata, xf, "spline");
  plot (xf,spl,"m");
  legend ("spline");  
endfunction