clc 
clear all


x = [-1;1;1;4]; 
y = [-1;2;6;1]; 

%Der Punkt auf der Linie soll [-1 -1] sein
%Gleichung lautet y=a(x+1)-1. Aber was mache ich mit dem zweiten -1 in der
%Formel?

coeffs = [(x+1),(ones(size(x))-1)] \ y; 

fctn = @(x) polyval(coeffs, x); 
winkel=atand(coeffs(1));

xi = linspace(-2, 3); 
 plot(x,y,'o',xi,fctn(xi),'r*')