function [x_new,y_new]=car2car(x_old,y_old,teta)
%Ïðåîáðàçîâàíèå êîîðäèíàò ïðè ïîâîðîòå ñèñòåìû êîîðäèíàò
%íà íåêîòîðûé óãîë
%
%Âûçîâ:  [x_new,y_new]=car2car(x_old,y_old,teta)
%
% x_old, y_old - êîîðäèíàòû â èñõîäíîé ñèñòåìå;
%         teta - óãîë ïîâîðîòà íîâîé ÑÊ (â ãðàäóñàõ).
%
% x_new, y_new - êîîðäèíàòû â íîâîé ñèñòåìå;
%

%Õîìóòîâ Ñ.Þ.   04.10.96   Íîâîñèáèðñê

%........... ìàòðèöà ïðåîáðàçîâàíè?
s=sin(d2r(teta));
c=cos(d2r(teta));
A=[c s;
  -s c];
%........... ïðåîáðàçóåì êîîðäèíàòû
[m n]=size(x_old);
if m>n            % ä.á. â âèäå ñòðîêè
   x_old=x_old';
end
[m n]=size(y_old);
if m>n            % ä.á. â âèäå ñòðîêè
   y_old=y_old';
end
tmp=A*[x_old;y_old];
x_new=tmp(1,:)';
y_new=tmp(2,:)';
