function vector_cor=Calculate_New_Coord(Points, flow)

vector_cor=zeros(5, 10);
for i=1:10
    v=Points(1,i);
    u=Points(2,i);
    v
    u
    
    
%     if (u==0 || v==0) %weird, don't update 
%        % CHECK THIS PART FOR AN ERROR %
%    vector_cor(:,i)=[Points(3,i), Points(4,i), Points(5,i)];
%    
%    else
   X=sprintf('coordoninates: %f %f %f ',     Points(3,i),     Points(4,i),   Points(5,i) );
   disp(X);
   Y=sprintf('displacement: %f %f %f',     flow(u,v,1),  flow(u,v,2),  flow(u,v,3));
   disp(Y);
   
   %convert displacement into 2D coordinates
   %subplot(1,3,1); imshow(flow(:,:,1), []);
   %subplot(1,3,2); imshow(flow(:,:,2), []);
   %subplot(1,3,3); imshow(flow(:,:,3), []);
   
   Z= Points(3,i)+flow(u,v,3);
   Y= Points(4,i)+flow(u,v,2);
   X= Points(5,i)+flow(u,v,1);
   u=round((3.3930780975300314e+02-X*5.9421434211923247e+02/Z)/2);
   v=round((2.4273913761751615e+02-Y*5.9104053696870778e+02/Z)/2);
   
   
    vector_cor(:,i)=[u, v, Points(3,i)+flow(u,v,3), Points(4,i)+flow(u,v,2), Points(5,i)+flow(u,v,1)]
    

end