function h = PlotVector(v,A,c);
% PlotVector(Vector,ColorString,AxisVector:[-m,m,-m,m])

% Make sure the input is as expected
if nargin < 3; c = '.r'; end;

if size(v,1) == 1 && size(v,2) == 2;
		v = v';
elseif size(v,2) ~= 1 && size(v,1) ~= 2;
		disp('Please enter a 2 x 1 vector');
		return;
end

% Plotting
hold on; 

	% Set the axis
	if nargin < 2;
	m = max(abs(v)) + 2;
	axis([-m,m,-m,m]);
	else
		axis(A);
	end
	
	
% Plot the vector/arrow 
	z = zeros(size(v(1,:)));
    h = quiver(z,z,v(1,:),v(2,:),c);



