%RISI_GRAF narise graf polinoma in tangente nanj
%	v srediscu intervala
%RISI_GRAF(p,a,b,nx)
%p - koeficienti polinoma
%a,b - krajisci intervala
%nx - stevilo delilnih tock
function risi_graf(p,a,b,nx);
  c=(a+b)/2; %sredisce intervala
  pc=polyval(p,c);
  x=linspace(a,b,nx); %razdelitev x osi
  alpha=polyval(polyder(p),c); %vodilni koef. premice
  beta=pc-alpha*c; %prosti clen premice
  tp=[alpha,beta];
  clf;
  hold on;
  plot(x,polyval(p,x),'b'); %graf polinoma
  plot(x,polyval(tp,x),'r'); %graf premice
  plot(c,pc,'go'); %dotikalisce
  axis equal;
  hold off
