MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Re: information on Eigensystem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg33621] Re: [mg33594] Re: information on Eigensystem
  • From: Andrzej Kozlowski <andrzej at tuins.ac.jp>
  • Date: Wed, 3 Apr 2002 18:08:30 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

On Wednesday, April 3, 2002, at 09:30  PM, Bettina Hoser wrote:
>
> We use Version 4.1.0.0 under Linux
> Bettina

This is very strange. Are you use you did the sam thing as I did below?

Andrzej

In[1]:=
M={{65,3+6I,12-6I,4-2I},{3-6I,30,0,30},{12+6I,0,9,3},{4+2I,30,3,46}};

In[2]:=
Eigensystem[M]

Out[2]=
{
   {75/2 - (1/2)*Sqrt[
       15*(89 + 7521/(652049 + 16*I*Sqrt[1018685])^(1/3) +
         (652049 + 16*I*Sqrt[1018685])^(1/3))] -
     (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[1018685])^
           (1/3) - (652049 + 16*I*Sqrt[1018685])^(1/3) -
         16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                 Sqrt[1018685])^(1/3) +
             (652049 + 16*I*Sqrt[1018685])^(1/3))])],
    75/2 - (1/2)*Sqrt[
       15*(89 + 7521/(652049 + 16*I*Sqrt[1018685])^(1/3) +
         (652049 + 16*I*Sqrt[1018685])^(1/3))] +
     (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[1018685])^
           (1/3) - (652049 + 16*I*Sqrt[1018685])^(1/3) -
         16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                 Sqrt[1018685])^(1/3) +
             (652049 + 16*I*Sqrt[1018685])^(1/3))])],
    75/2 + (1/2)*Sqrt[
       15*(89 + 7521/(652049 + 16*I*Sqrt[1018685])^(1/3) +
         (652049 + 16*I*Sqrt[1018685])^(1/3))] -
     (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[1018685])^
           (1/3) - (652049 + 16*I*Sqrt[1018685])^(1/3) +
         16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                 Sqrt[1018685])^(1/3) +
             (652049 + 16*I*Sqrt[1018685])^(1/3))])],
    75/2 + (1/2)*Sqrt[
       15*(89 + 7521/(652049 + 16*I*Sqrt[1018685])^(1/3) +
         (652049 + 16*I*Sqrt[1018685])^(1/3))] +
     (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[1018685])^
           (1/3) - (652049 + 16*I*Sqrt[1018685])^(1/3) +
         16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                 Sqrt[1018685])^(1/3) +
             (652049 + 16*I*Sqrt[1018685])^(1/3))])]},
   {{(-(1/5) + I/10)*(17/2 + (1/2)*
         Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[1018685])^
              (1/3) + (652049 + 16*I*Sqrt[1018685])^(1/3))] +
        (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[
                 1018685])^(1/3) -
            (652049 + 16*I*Sqrt[1018685])^(1/3) -
            16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))])]) +
      ((3/5 - (3*I)/10)*
        ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) +
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] +
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) -
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))*
          (12 + 6*I - (12 + 6*I)*(17/2 + (1/2)*
              Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                    Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
         (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
            (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) +
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))) +
      (6 - 3*I)*((-(1/450) + I/900)*(12 + 6*I -
          (12 + 6*I)*(17/2 + (1/2)*Sqrt[15*(89 + 7521/
                 (652049 + 16*I*Sqrt[1018685])^(1/3) +
                (652049 + 16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) +
        ((1/450 - I/900)*(-36 - 18*I + (4 + 2*I)*
            (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
          ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) + (1/2)*
                 Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))] + (1/2)*
                 Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) - (652049 + 16*I*
                     Sqrt[1018685])^(1/3) - 16/Sqrt[(1/15)*
                     (89 + 7521/(652049 + 16*I*Sqrt[1018685])^
                     (1/3) + (652049 + 16*I*Sqrt[1018685])^
                     (1/3))])])))*(12 + 6*I - (12 + 6*I)*
              (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))] +
               (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                     16*I*Sqrt[1018685])^(1/3) -
                   16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])) -
           (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
              (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))] +
               (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                     16*I*Sqrt[1018685])^(1/3) -
                   16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))))/
         (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
             (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) +
                  (652049 + 16*I*Sqrt[1018685])^(1/3))] +
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) -
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))*
           (-90 + 180*I + (4 + 2*I)*(-(15/2) +
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] +
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) -
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))),
     (1/450 - I/900)*(12 + 6*I - (12 + 6*I)*
         (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                 16*I*Sqrt[1018685])^(1/3) +
              (652049 + 16*I*Sqrt[1018685])^(1/3))] +
          (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                  Sqrt[1018685])^(1/3) - (652049 + 16*I*
                 Sqrt[1018685])^(1/3) - 16/Sqrt[(1/15)*
                 (89 + 7521/(652049 + 16*I*Sqrt[1018685])^
                    (1/3) + (652049 + 16*I*Sqrt[1018685])^
                   (1/3))])])) -
      ((1/450 - I/900)*(-36 - 18*I + (4 + 2*I)*
          (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                  16*I*Sqrt[1018685])^(1/3) + (652049 +
                 16*I*Sqrt[1018685])^(1/3))] +
           (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                   Sqrt[1018685])^(1/3) - (652049 +
                 16*I*Sqrt[1018685])^(1/3) - 16/Sqrt[
                 (1/15)*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))*
        ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) +
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] +
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) -
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))*
          (12 + 6*I - (12 + 6*I)*(17/2 + (1/2)*
              Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                    Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
         (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
            (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) +
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))),
     -(((-(-90 + 180*I + (4 + 2*I)*(-(15/2) +
             (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                   16*I*Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))*
         (12 + 6*I - (12 + 6*I)*(17/2 +
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
        (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
           (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) +
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))), 1},
    {(-(1/5) + I/10)*(17/2 + (1/2)*
         Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[1018685])^
              (1/3) + (652049 + 16*I*Sqrt[1018685])^(1/3))] -
        (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[
                 1018685])^(1/3) -
            (652049 + 16*I*Sqrt[1018685])^(1/3) -
            16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))])]) +
      ((3/5 - (3*I)/10)*
        ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) +
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] -
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) -
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))*
          (12 + 6*I - (12 + 6*I)*(17/2 + (1/2)*
              Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                    Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
         (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
            (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) +
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))) +
      (6 - 3*I)*((-(1/450) + I/900)*(12 + 6*I -
          (12 + 6*I)*(17/2 + (1/2)*Sqrt[15*(89 + 7521/
                 (652049 + 16*I*Sqrt[1018685])^(1/3) +
                (652049 + 16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) +
        ((1/450 - I/900)*(-36 - 18*I + (4 + 2*I)*
            (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
          ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) + (1/2)*
                 Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))] - (1/2)*
                 Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) - (652049 + 16*I*
                     Sqrt[1018685])^(1/3) - 16/Sqrt[(1/15)*
                     (89 + 7521/(652049 + 16*I*Sqrt[1018685])^
                     (1/3) + (652049 + 16*I*Sqrt[1018685])^
                     (1/3))])])))*(12 + 6*I - (12 + 6*I)*
              (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))] -
               (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                     16*I*Sqrt[1018685])^(1/3) -
                   16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])) -
           (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
              (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))] -
               (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                     16*I*Sqrt[1018685])^(1/3) -
                   16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))))/
         (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
             (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) +
                  (652049 + 16*I*Sqrt[1018685])^(1/3))] -
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) -
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))*
           (-90 + 180*I + (4 + 2*I)*(-(15/2) +
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] -
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) -
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))),
     (1/450 - I/900)*(12 + 6*I - (12 + 6*I)*
         (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                 16*I*Sqrt[1018685])^(1/3) +
              (652049 + 16*I*Sqrt[1018685])^(1/3))] -
          (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                  Sqrt[1018685])^(1/3) - (652049 + 16*I*
                 Sqrt[1018685])^(1/3) - 16/Sqrt[(1/15)*
                 (89 + 7521/(652049 + 16*I*Sqrt[1018685])^
                    (1/3) + (652049 + 16*I*Sqrt[1018685])^
                   (1/3))])])) -
      ((1/450 - I/900)*(-36 - 18*I + (4 + 2*I)*
          (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                  16*I*Sqrt[1018685])^(1/3) + (652049 +
                 16*I*Sqrt[1018685])^(1/3))] -
           (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                   Sqrt[1018685])^(1/3) - (652049 +
                 16*I*Sqrt[1018685])^(1/3) - 16/Sqrt[
                 (1/15)*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))*
        ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) +
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] -
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) -
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))*
          (12 + 6*I - (12 + 6*I)*(17/2 + (1/2)*
              Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                    Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
         (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
            (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) +
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))),
     -(((-(-90 + 180*I + (4 + 2*I)*(-(15/2) +
             (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                   16*I*Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) -
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))*
         (12 + 6*I - (12 + 6*I)*(17/2 +
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
        (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
           (17/2 + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) + (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) +
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) - 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))), 1},
    {(-(1/5) + I/10)*(17/2 - (1/2)*
         Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[1018685])^
              (1/3) + (652049 + 16*I*Sqrt[1018685])^(1/3))] +
        (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[
                 1018685])^(1/3) -
            (652049 + 16*I*Sqrt[1018685])^(1/3) +
            16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))])]) +
      ((3/5 - (3*I)/10)*
        ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) -
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] +
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))*
          (12 + 6*I - (12 + 6*I)*(17/2 - (1/2)*
              Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                    Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
         (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
            (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) -
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))) +
      (6 - 3*I)*((-(1/450) + I/900)*(12 + 6*I -
          (12 + 6*I)*(17/2 - (1/2)*Sqrt[15*(89 + 7521/
                 (652049 + 16*I*Sqrt[1018685])^(1/3) +
                (652049 + 16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) +
        ((1/450 - I/900)*(-36 - 18*I + (4 + 2*I)*
            (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
          ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) - (1/2)*
                 Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))] + (1/2)*
                 Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) - (652049 + 16*I*
                     Sqrt[1018685])^(1/3) + 16/Sqrt[(1/15)*
                     (89 + 7521/(652049 + 16*I*Sqrt[1018685])^
                     (1/3) + (652049 + 16*I*Sqrt[1018685])^
                     (1/3))])])))*(12 + 6*I - (12 + 6*I)*
              (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))] +
               (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                     16*I*Sqrt[1018685])^(1/3) +
                   16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])) -
           (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
              (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))] +
               (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                     16*I*Sqrt[1018685])^(1/3) +
                   16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))))/
         (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
             (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) +
                  (652049 + 16*I*Sqrt[1018685])^(1/3))] +
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))*
           (-90 + 180*I + (4 + 2*I)*(-(15/2) -
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] +
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))),
     (1/450 - I/900)*(12 + 6*I - (12 + 6*I)*
         (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                 16*I*Sqrt[1018685])^(1/3) +
              (652049 + 16*I*Sqrt[1018685])^(1/3))] +
          (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                  Sqrt[1018685])^(1/3) - (652049 + 16*I*
                 Sqrt[1018685])^(1/3) + 16/Sqrt[(1/15)*
                 (89 + 7521/(652049 + 16*I*Sqrt[1018685])^
                    (1/3) + (652049 + 16*I*Sqrt[1018685])^
                   (1/3))])])) -
      ((1/450 - I/900)*(-36 - 18*I + (4 + 2*I)*
          (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                  16*I*Sqrt[1018685])^(1/3) + (652049 +
                 16*I*Sqrt[1018685])^(1/3))] +
           (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                   Sqrt[1018685])^(1/3) - (652049 +
                 16*I*Sqrt[1018685])^(1/3) + 16/Sqrt[
                 (1/15)*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))*
        ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) -
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] +
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))*
          (12 + 6*I - (12 + 6*I)*(17/2 - (1/2)*
              Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                    Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
         (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
            (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) -
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))),
     -(((-(-90 + 180*I + (4 + 2*I)*(-(15/2) -
             (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                   16*I*Sqrt[1018685])^(1/3))] +
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))*
         (12 + 6*I - (12 + 6*I)*(17/2 -
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
        (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
           (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) -
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] +
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))), 1},
    {(-(1/5) + I/10)*(17/2 - (1/2)*
         Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[1018685])^
              (1/3) + (652049 + 16*I*Sqrt[1018685])^(1/3))] -
        (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[
                 1018685])^(1/3) -
            (652049 + 16*I*Sqrt[1018685])^(1/3) +
            16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))])]) +
      ((3/5 - (3*I)/10)*
        ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) -
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] -
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))*
          (12 + 6*I - (12 + 6*I)*(17/2 - (1/2)*
              Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                    Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
         (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
            (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) -
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))) +
      (6 - 3*I)*((-(1/450) + I/900)*(12 + 6*I -
          (12 + 6*I)*(17/2 - (1/2)*Sqrt[15*(89 + 7521/
                 (652049 + 16*I*Sqrt[1018685])^(1/3) +
                (652049 + 16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) +
        ((1/450 - I/900)*(-36 - 18*I + (4 + 2*I)*
            (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
          ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) - (1/2)*
                 Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))] - (1/2)*
                 Sqrt[15*(178 - 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) - (652049 + 16*I*
                     Sqrt[1018685])^(1/3) + 16/Sqrt[(1/15)*
                     (89 + 7521/(652049 + 16*I*Sqrt[1018685])^
                     (1/3) + (652049 + 16*I*Sqrt[1018685])^
                     (1/3))])])))*(12 + 6*I - (12 + 6*I)*
              (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))] -
               (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                     16*I*Sqrt[1018685])^(1/3) +
                   16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])) -
           (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
              (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))] -
               (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                     16*I*Sqrt[1018685])^(1/3) +
                   16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))))/
         (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
             (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                     16*I*Sqrt[1018685])^(1/3) +
                  (652049 + 16*I*Sqrt[1018685])^(1/3))] -
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))*
           (-90 + 180*I + (4 + 2*I)*(-(15/2) -
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] -
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))),
     (1/450 - I/900)*(12 + 6*I - (12 + 6*I)*
         (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                 16*I*Sqrt[1018685])^(1/3) +
              (652049 + 16*I*Sqrt[1018685])^(1/3))] -
          (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                  Sqrt[1018685])^(1/3) - (652049 + 16*I*
                 Sqrt[1018685])^(1/3) + 16/Sqrt[(1/15)*
                 (89 + 7521/(652049 + 16*I*Sqrt[1018685])^
                    (1/3) + (652049 + 16*I*Sqrt[1018685])^
                   (1/3))])])) -
      ((1/450 - I/900)*(-36 - 18*I + (4 + 2*I)*
          (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                  16*I*Sqrt[1018685])^(1/3) + (652049 +
                 16*I*Sqrt[1018685])^(1/3))] -
           (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                   Sqrt[1018685])^(1/3) - (652049 +
                 16*I*Sqrt[1018685])^(1/3) + 16/Sqrt[
                 (1/15)*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])]))*
        ((-(-90 + 180*I + (4 + 2*I)*(-(15/2) -
              (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                    16*I*Sqrt[1018685])^(1/3))] -
              (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                  16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 + 16*I*
                     Sqrt[1018685])^(1/3))])])))*
          (12 + 6*I - (12 + 6*I)*(17/2 - (1/2)*
              Sqrt[15*(89 + 7521/(652049 + 16*I*Sqrt[
                     1018685])^(1/3) + (652049 + 16*I*
                    Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
         (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
            (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                    16*I*Sqrt[1018685])^(1/3) +
                 (652049 + 16*I*Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) -
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))),
     -(((-(-90 + 180*I + (4 + 2*I)*(-(15/2) -
             (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                   16*I*Sqrt[1018685])^(1/3))] -
             (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) - (652049 +
                   16*I*Sqrt[1018685])^(1/3) +
                 16/Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))*
         (12 + 6*I - (12 + 6*I)*(17/2 -
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])) -
        (360 + 180*I)*(120 + 60*I - (3 - 6*I)*
           (17/2 - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))/
       (6480 - 4860*I - (-36 - 18*I + (4 + 2*I)*
           (-(57/2) - (1/2)*Sqrt[15*(89 + 7521/(652049 +
                   16*I*Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])]))*
         (-90 + 180*I + (4 + 2*I)*(-(15/2) -
            (1/2)*Sqrt[15*(89 + 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) + (652049 +
                  16*I*Sqrt[1018685])^(1/3))] -
            (1/2)*Sqrt[15*(178 - 7521/(652049 + 16*I*
                    Sqrt[1018685])^(1/3) - (652049 +
                  16*I*Sqrt[1018685])^(1/3) + 16/
                 Sqrt[(1/15)*(89 + 7521/(652049 + 16*I*
                     Sqrt[1018685])^(1/3) + (652049 +
                     16*I*Sqrt[1018685])^(1/3))])])))), 1}}}



  • Prev by Date: Re: Re: information on Eigensystem
  • Next by Date: bar chart with error bars
  • Previous by thread: Re: Re: information on Eigensystem
  • Next by thread: Re: How to find and plot real roots?