Generation of magnetic moment using calculation provided by David Selke