clc; clear all
% t=0:0.001:2*pi;
% c=exp(i*t)+0.3*exp(i*40*t)
% plot(real(c),imag(c))

A = [4 -1] 
r=sqrt(A*A')
th=atan2(A(2),A(1))

polar(th,r,'o')

% cosalfa=dot(A,B)/sqrt(dot(A,A))/sqrt(dot(B,B))
% A*B'/sqrt(A*A')/sqrt(B*B')
% 
% y=imread('Done---Kakulia.jpg');
% y=flipud(y);
% y=fliplr(y);
% size(y(:,:,1)')
% yy1=y(:,:,1)';
% yy2=y(:,:,2)';
% yy3=y(:,:,3)';
% yy=yy1;
% yy(:,:,2)=yy2;
% yy(:,:,3)=yy3;
% yy=rot90(yy);
% % y=rot90(y,2);
% image(yy);