Mathematica 8.0 for Mac OS X x86 (64-bit)
Copyright 1988-2011 Wolfram Research, Inc.

In[1]:= 

             SALEM, DEGREE 10 (4)


		Picard group 
Glue group {7, 13, 13}, Signature {15, 1}, lambda 1.26123

Positivity verified.  Crossing: 4 Cyclic: 4 Fixed: 2
                   3                   2        2    5    8    10
Char poly  (-1 + x)  (1 + x) (1 + x + x ) (1 - x  - x  - x  + x  )
Localization at 7: 1 + x
                                2
Localization at 13: 1 + 10 x + x

		Transcendental cycles
Glue group {7, 13, 13}, Signature {4, 2}, lambda = 1.
                    2    3    4    5    6
Char poly  1 - x + x  - x  + x  - x  + x   Period 1
Localization at 7: 1 + x
                                2
Localization at 13: 1 + 10 x + x
Rotation of T(X): 3/14

		Periodic factor of Pic
Glue group {2, 2, 7}, Signature {6, 0}

Positivity verified.  Cyclic: 4 Fixed: 2
                   3                   2
Char poly  (-1 + x)  (1 + x) (1 + x + x )  Period 2
                            2
Localization at 2: 1 + x + x
Localization at 7: 1 + x

		Salem factor of Pic
Glue group {2, 2, 13, 13}, Signature {9, 1}, lambda 1.26123

Positivity verified.  Crossing: 4 Cyclic: Infinity Fixed: Infinity
                2    5    8    10
Char poly  1 - x  - x  - x  + x
                            2
Localization at 2: 1 + x + x
                                2
Localization at 13: 1 + 10 x + x

		Field Information
A/Z[x], h(K), B/Z[y], h(k), Ramif: {1, 1, 1, 1, 1}
                    2    3      4
Twisted by 2 x - 7 x  - x  + 2 x
Prime 2^1  <-  (1 + x), inert in K

In[2]:= 