function [h] =psplini(A)
%Piirtää parametrisen splinin datapisteiden kautta.
%käytä komentoa h=psplini(A);
%jos haluat käyrän tunnisteen h talteen
%silloin voit muuttaa esim. käyrän väriä ja paksuutta
%esim. set(h,'Color','k','LineWidth',2)
%h=psplini(ginput); antaa ampua datapisteet kuvasta.

a=A(:,1);
b=A(:,2);
n=length(a);
t=linspace(0,1,n);		%valitaan pisteet t_j
sx=csape(t,a);			%tehdään splini
sy=csape(t,b);			%tehdään toinen splini
c=linspace(0,1);		%valmistaudutaan piirtämään
X=fnval(c,sx);
Y=fnval(c,sy);
h=plot(X,Y);
hold on
%plot(x,y,'r')



end

