cplot = function(x, text = names(x)) {
#
# Argand plot of a complex vector with text
#
	plot(c(0, 1.1 * x), type = "n", asp = 1);
	arrows(0, 0, Re(x), Im(x));
	text(1.05 * x, text);
}