clear all
clc
P=input('Ge en punkt P i Rn ');
Q=input('Ge en punkt Q i Rn ');
v=input('Ge en vektor v i Rn ');

% Riktiningsvektorn
u=P-Q;

% Berakna projektionen

w=dot(u,v)/norm(u)^2*u;

disp([' Den projicerade vektorn w = [ ' num2str(w) ']' ])