findProj

kalkulates angle between line and vectors projVec
kalkulates angle between line and x-axis

0001 
0002 
0003 function [projVec, lineAngle] = findProj(p1, p2, p3, v1, v2, v3)
0004 %kalkulates angle between line and vectors projVec
0005 %kalkulates angle between line and x-axis
0006 
0007 x = [v1(1) v2(1) v3(1)]';
0008 y = [v1(2) v2(2) v3(2)]';
0009 
0010 resVec = [sum(x) sum(y)];
0011 [p_l, lineVec] = findLine(p1, p2, p3);
0012 [AA, ann] = findAngle(lineVec, resVec); 
0013 if ann > 90 
0014     ann = 180 - ann; 
0015 end;
0016 lineVec;
0017 projVec = ann;
0018 lineAngle = findAngle([1 0],lineVec);
0019 projVec;
0020 lineAngle;