deg13=57;
deg14=88;
deg24=97;
deg34=178;

degVector=[deg13,deg14,deg24,deg34];
theta=deg2rad(degVector);
rho=[1,1,1,1];

z=rho.*exp(1i*theta);
compass(z);

deg13=57;
deg14=88;
deg24=97;
deg34=178;

degVector=[deg13,deg14,deg24,deg34];
theta=deg2rad(degVector);
rho=[1,1,1,1];

%polarplot(theta,rho,'.r','MarkerSize',25)
h=polar(theta,rho,'.k')
h.MarkerSize=15;
[X,Y] = pol2cart(theta,rho);
hold on
quiver(X,Y,-X,-Y,1.05,'Color','k')