Unit

Author

Eric W. Weisstein
February 24, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Algebra/Unit.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Unit.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Initialization

<<NumberTheory`AlgebraicNumberFields`

Imaginary Quadratic Fields

Length/@Table[RootsOfUnity[Sqrt[-n]],{n,20}]

{#,RootReduce[#]}&[RootsOfUnity[I]]

{#,RootReduce[#]}&[RootsOfUnity[Sqrt[-2]]]

{#,RootReduce[#]}&[RootsOfUnity[Sqrt[-3]]]

Real Quadratic Fields

Length/@Table[RootsOfUnity[Sqrt[n]],{n,100}]