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 ');
R=input('Ge en punkt R i Rn ');

% Riktiningsvektorn
u=P-Q;

% Berakna projektionen av v pa linjen

w=projection_fun(v,u);

% Berakna avstandet fran R till linjen

PR=R-P;
PR_proj=projection_fun(PR,u);
d=PR-PR_proj;
avs=norm(d);



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

disp([' Avstandet fran punkten R = [' num2str(R) ']  = ' num2str(avs)])



