tebdol

Simulation of ultracold atoms in optical lattices
git clone https://miroslavurbanek.com/git/tebdol.git
Log | Files | Refs | README

tensor.3 (23925B)


      1 #S(TENSOR
      2    :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)
      3               #S(SEGMENT :NUMBERS (1) :DIMENSION 1)
      4               #S(SEGMENT :NUMBERS (2) :DIMENSION 1)
      5               #S(SEGMENT :NUMBERS (3) :DIMENSION 1)
      6               #S(SEGMENT :NUMBERS (4) :DIMENSION 1)
      7               #S(SEGMENT :NUMBERS (5) :DIMENSION 1)
      8               #S(SEGMENT :NUMBERS (6) :DIMENSION 1)
      9               #S(SEGMENT :NUMBERS (7) :DIMENSION 1)
     10               #S(SEGMENT :NUMBERS (8) :DIMENSION 1)
     11               #S(SEGMENT :NUMBERS (9) :DIMENSION 1)
     12               #S(SEGMENT :NUMBERS (10) :DIMENSION 1)
     13               #S(SEGMENT :NUMBERS (11) :DIMENSION 1))
     14              (#S(SEGMENT :NUMBERS (0) :DIMENSION 1)
     15               #S(SEGMENT :NUMBERS (1) :DIMENSION 1)
     16               #S(SEGMENT :NUMBERS (2) :DIMENSION 1)
     17               #S(SEGMENT :NUMBERS (3) :DIMENSION 1)
     18               #S(SEGMENT :NUMBERS (4) :DIMENSION 1)
     19               #S(SEGMENT :NUMBERS (5) :DIMENSION 1)
     20               #S(SEGMENT :NUMBERS (6) :DIMENSION 1)
     21               #S(SEGMENT :NUMBERS (7) :DIMENSION 1)
     22               #S(SEGMENT :NUMBERS (8) :DIMENSION 1)
     23               #S(SEGMENT :NUMBERS (9) :DIMENSION 1)
     24               #S(SEGMENT :NUMBERS (10) :DIMENSION 1)
     25               #S(SEGMENT :NUMBERS (11) :DIMENSION 1)
     26               #S(SEGMENT :NUMBERS (12) :DIMENSION 1)
     27               #S(SEGMENT :NUMBERS (13) :DIMENSION 1)
     28               #S(SEGMENT :NUMBERS (14) :DIMENSION 1))
     29              (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1)
     30               #S(SEGMENT :NUMBERS (-10) :DIMENSION 1)
     31               #S(SEGMENT :NUMBERS (-9) :DIMENSION 1)
     32               #S(SEGMENT :NUMBERS (-8) :DIMENSION 1)
     33               #S(SEGMENT :NUMBERS (-7) :DIMENSION 1)
     34               #S(SEGMENT :NUMBERS (-6) :DIMENSION 1)
     35               #S(SEGMENT :NUMBERS (-5) :DIMENSION 1)
     36               #S(SEGMENT :NUMBERS (-4) :DIMENSION 1)
     37               #S(SEGMENT :NUMBERS (-3) :DIMENSION 1)
     38               #S(SEGMENT :NUMBERS (-2) :DIMENSION 1)
     39               #S(SEGMENT :NUMBERS (-1) :DIMENSION 1)
     40               #S(SEGMENT :NUMBERS (0) :DIMENSION 1)))
     41    :SECTORS (#S(SECTOR
     42                 :NUMBERS ((11) (0) (-11))
     43                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     44                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     45                                      '(((#C(1.0d0 0.0d0))))))
     46              #S(SECTOR
     47                 :NUMBERS ((10) (0) (-10))
     48                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     49                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     50                                      '(((#C(0.9248224235750514d0 0.0d0))))))
     51              #S(SECTOR
     52                 :NUMBERS ((10) (1) (-11))
     53                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     54                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     55                                      '(((#C(-0.38039911258146786d0 0.0d0))))))
     56              #S(SECTOR
     57                 :NUMBERS ((9) (0) (-9))
     58                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     59                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     60                                      '(((#C(0.8552965147297255d0 0.0d0))))))
     61              #S(SECTOR
     62                 :NUMBERS ((9) (1) (-10))
     63                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     64                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     65                                      '(((#C(-0.49752263663853563d0 0.0d0))))))
     66              #S(SECTOR
     67                 :NUMBERS ((9) (2) (-11))
     68                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     69                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     70                                      '(((#C(0.14470348276190248d0 0.0d0))))))
     71              #S(SECTOR
     72                 :NUMBERS ((8) (0) (-8))
     73                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     74                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     75                                      '(((#C(0.7909973949927505d0 0.0d0))))))
     76              #S(SECTOR
     77                 :NUMBERS ((8) (1) (-9))
     78                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     79                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     80                                      '(((#C(-0.5635297221748388d0 0.0d0))))))
     81              #S(SECTOR
     82                 :NUMBERS ((8) (2) (-10))
     83                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     84                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     85                                      '(((#C(0.23179174484882528d0 0.0d0))))))
     86              #S(SECTOR
     87                 :NUMBERS ((8) (3) (-11))
     88                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     89                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     90                                      '(((#C(-0.05504507571226669d0 0.0d0))))))
     91              #S(SECTOR
     92                 :NUMBERS ((7) (0) (-7))
     93                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     94                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     95                                      '(((#C(0.7315321271941133d0 0.0d0))))))
     96              #S(SECTOR
     97                 :NUMBERS ((7) (1) (-8))
     98                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     99                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    100                                      '(((#C(-0.6017894182615817d0 0.0d0))))))
    101              #S(SECTOR
    102                 :NUMBERS ((7) (2) (-9))
    103                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    104                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    105                                      '(((#C(0.3031595930110945d0 0.0d0))))))
    106              #S(SECTOR
    107                 :NUMBERS ((7) (3) (-10))
    108                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    109                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    110                                      '(((#C(-0.10181384133612464d0 0.0d0))))))
    111              #S(SECTOR
    112                 :NUMBERS ((7) (4) (-11))
    113                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    114                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    115                                      '(((#C(0.020939098093586628d0 0.0d0))))))
    116              #S(SECTOR
    117                 :NUMBERS ((6) (0) (-6))
    118                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    119                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    120                                      '(((#C(0.6765373141860899d0 0.0d0))))))
    121              #S(SECTOR
    122                 :NUMBERS ((6) (1) (-7))
    123                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    124                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    125                                      '(((#C(-0.6222399700372095d0 0.0d0))))))
    126              #S(SECTOR
    127                 :NUMBERS ((6) (2) (-8))
    128                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    129                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    130                                      '(((#C(0.3619545517587558d0 0.0d0))))))
    131              #S(SECTOR
    132                 :NUMBERS ((6) (3) (-9))
    133                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    134                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    135                                      '(((#C(-0.1488795957894506d0 0.0d0))))))
    136              #S(SECTOR
    137                 :NUMBERS ((6) (4) (-10))
    138                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    139                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    140                                      '(((#C(0.04330133922166936d0 0.0d0))))))
    141              #S(SECTOR
    142                 :NUMBERS ((6) (5) (-11))
    143                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    144                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    145                                      '(((#C(-0.007965214514539909d0 0.0d0))))))
    146              #S(SECTOR
    147                 :NUMBERS ((5) (0) (-5))
    148                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    149                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    150                                      '(((#C(0.625676878097997d0 0.0d0))))))
    151              #S(SECTOR
    152                 :NUMBERS ((5) (1) (-6))
    153                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    154                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    155                                      '(((#C(-0.6303864640542275d0 0.0d0))))))
    156              #S(SECTOR
    157                 :NUMBERS ((5) (2) (-7))
    158                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    159                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    160                                      '(((#C(0.4099756129769539d0 0.0d0))))))
    161              #S(SECTOR
    162                 :NUMBERS ((5) (3) (-8))
    163                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    164                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    165                                      '(((#C(-0.19471909013787142d0 0.0d0))))))
    166              #S(SECTOR
    167                 :NUMBERS ((5) (4) (-9))
    168                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    169                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    170                                      '(((#C(0.06936179275820356d0 0.0d0))))))
    171              #S(SECTOR
    172                 :NUMBERS ((5) (5) (-10))
    173                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    174                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    175                                      '(((#C(-0.01804394343000672d0 0.0d0))))))
    176              #S(SECTOR
    177                 :NUMBERS ((5) (6) (-11))
    178                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    179                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    180                                      '(((#C(0.003029960670632992d0 0.0d0))))))
    181              #S(SECTOR
    182                 :NUMBERS ((4) (0) (-4))
    183                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    184                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    185                                      '(((#C(-0.5786400065433805d0 0.0d0))))))
    186              #S(SECTOR
    187                 :NUMBERS ((4) (1) (-5))
    188                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    189                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    190                                      '(((#C(0.6297071510466963d0 0.0d0))))))
    191              #S(SECTOR
    192                 :NUMBERS ((4) (2) (-6))
    193                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    194                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    195                                      '(((#C(-0.4486218203794557d0 0.0d0))))))
    196              #S(SECTOR
    197                 :NUMBERS ((4) (3) (-7))
    198                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    199                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    200                                      '(((#C(0.23822421693381818d0 0.0d0))))))
    201              #S(SECTOR
    202                 :NUMBERS ((4) (4) (-8))
    203                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    204                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    205                                      '(((#C(-0.0979866827409907d0 0.0d0))))))
    206              #S(SECTOR
    207                 :NUMBERS ((4) (5) (-9))
    208                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    209                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    210                                      '(((#C(0.031219348311271985d0 0.0d0))))))
    211              #S(SECTOR
    212                 :NUMBERS ((4) (6) (-10))
    213                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    214                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    215                                      '(((#C(-0.007413859761927774d0 0.0d0))))))
    216              #S(SECTOR
    217                 :NUMBERS ((4) (7) (-11))
    218                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    219                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    220                                      '(((#C(0.0011525943295376262d0 0.0d0))))))
    221              #S(SECTOR
    222                 :NUMBERS ((3) (0) (-3))
    223                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    224                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    225                                      '(((#C(-0.5351392532268591d0 0.0d0))))))
    226              #S(SECTOR
    227                 :NUMBERS ((3) (1) (-4))
    228                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    229                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    230                                      '(((#C(-0.6225768244263425d0 0.0d0))))))
    231              #S(SECTOR
    232                 :NUMBERS ((3) (2) (-5))
    233                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    234                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    235                                      '(((#C(0.4790800794507171d0 0.0d0))))))
    236              #S(SECTOR
    237                 :NUMBERS ((3) (3) (-6))
    238                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    239                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    240                                      '(((#C(-0.2786790048708382d0 0.0d0))))))
    241              #S(SECTOR
    242                 :NUMBERS ((3) (4) (-7))
    243                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    244                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    245                                      '(((#C(0.1281564312897104d0 0.0d0))))))
    246              #S(SECTOR
    247                 :NUMBERS ((3) (5) (-8))
    248                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    249                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    250                                      '(((#C(-0.04714835581538906d0 0.0d0))))))
    251              #S(SECTOR
    252                 :NUMBERS ((3) (6) (-9))
    253                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    254                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    255                                      '(((#C(0.013713007599184692d0 0.0d0))))))
    256              #S(SECTOR
    257                 :NUMBERS ((3) (7) (-10))
    258                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    259                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    260                                      '(((#C(-0.0030149480112368287d0 0.0d0))))))
    261              #S(SECTOR
    262                 :NUMBERS ((3) (8) (-11))
    263                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    264                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    265                                      '(((#C(4.384458569761662d-4 0.0d0))))))
    266              #S(SECTOR
    267                 :NUMBERS ((0) (0) (0))
    268                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    269                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    270                                      '(((#C(0.4232937569769961d0 0.0d0))))))
    271              #S(SECTOR
    272                 :NUMBERS ((0) (1) (-1))
    273                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    274                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    275                                      '(((#C(0.5774566047472223d0 0.0d0))))))
    276              #S(SECTOR
    277                 :NUMBERS ((0) (2) (-2))
    278                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    279                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    280                                      '(((#C(0.531111243426437d0 0.0d0))))))
    281              #S(SECTOR
    282                 :NUMBERS ((0) (3) (-3))
    283                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    284                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    285                                      '(((#C(0.3783792071761195d0 0.0d0))))))
    286              #S(SECTOR
    287                 :NUMBERS ((0) (4) (-4))
    288                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    289                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    290                                      '(((#C(0.2201017060626658d0 0.0d0))))))
    291              #S(SECTOR
    292                 :NUMBERS ((0) (5) (-5))
    293                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    294                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    295                                      '(((#C(-0.10711951097133275d0 0.0d0))))))
    296              #S(SECTOR
    297                 :NUMBERS ((0) (6) (-6))
    298                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    299                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    300                                      '(((#C(0.04406053287306188d0 0.0d0))))))
    301              #S(SECTOR
    302                 :NUMBERS ((0) (7) (-7))
    303                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    304                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    305                                      '(((#C(-0.01531675843974322d0 0.0d0))))))
    306              #S(SECTOR
    307                 :NUMBERS ((0) (8) (-8))
    308                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    309                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    310                                      '(((#C(0.004454849175891803d0 0.0d0))))))
    311              #S(SECTOR
    312                 :NUMBERS ((0) (9) (-9))
    313                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    314                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    315                                      '(((#C(-0.001057921696629628d0 0.0d0))))))
    316              #S(SECTOR
    317                 :NUMBERS ((0) (10) (-10))
    318                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    319                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    320                                      '(((#C(1.946030633172797d-4 0.0d0))))))
    321              #S(SECTOR
    322                 :NUMBERS ((0) (11) (-11))
    323                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    324                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    325                                      '(((#C(-2.4134287688992728d-5 0.0d0))))))
    326              #S(SECTOR
    327                 :NUMBERS ((2) (0) (-2))
    328                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    329                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    330                                      '(((#C(0.4949087813433307d0 0.0d0))))))
    331              #S(SECTOR
    332                 :NUMBERS ((2) (1) (-3))
    333                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    334                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    335                                      '(((#C(0.61069949714495d0 0.0d0))))))
    336              #S(SECTOR
    337                 :NUMBERS ((2) (2) (-4))
    338                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    339                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    340                                      '(((#C(0.5023873538957601d0 0.0d0))))))
    341              #S(SECTOR
    342                 :NUMBERS ((2) (3) (-5))
    343                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    344                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    345                                      '(((#C(-0.31565177213097356d0 0.0d0))))))
    346              #S(SECTOR
    347                 :NUMBERS ((2) (4) (-6))
    348                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    349                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    350                                      '(((#C(0.15901387079460647d0 0.0d0))))))
    351              #S(SECTOR
    352                 :NUMBERS ((2) (5) (-7))
    353                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    354                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    355                                      '(((#C(-0.06540578518544192d0 0.0d0))))))
    356              #S(SECTOR
    357                 :NUMBERS ((2) (6) (-8))
    358                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    359                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    360                                      '(((#C(0.021966036307888192d0 0.0d0))))))
    361              #S(SECTOR
    362                 :NUMBERS ((2) (7) (-9))
    363                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    364                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    365                                      '(((#C(-0.005914859579222993d0 0.0d0))))))
    366              #S(SECTOR
    367                 :NUMBERS ((2) (8) (-10))
    368                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    369                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    370                                      '(((#C(0.0012164536921963076d0 0.0d0))))))
    371              #S(SECTOR
    372                 :NUMBERS ((2) (9) (-11))
    373                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    374                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    375                                      '(((#C(-1.6678441655826326d-4 0.0d0))))))
    376              #S(SECTOR
    377                 :NUMBERS ((1) (0) (-1))
    378                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    379                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    380                                      '(((#C(0.4577027390348382d0 0.0d0))))))
    381              #S(SECTOR
    382                 :NUMBERS ((1) (1) (-2))
    383                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    384                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    385                                      '(((#C(0.5953394460174133d0 0.0d0))))))
    386              #S(SECTOR
    387                 :NUMBERS ((1) (2) (-3))
    388                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    389                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    390                                      '(((#C(0.5194599344826576d0 0.0d0))))))
    391              #S(SECTOR
    392                 :NUMBERS ((1) (3) (-4))
    393                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    394                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    395                                      '(((#C(0.34891333098604627d0 0.0d0))))))
    396              #S(SECTOR
    397                 :NUMBERS ((1) (4) (-5))
    398                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    399                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    400                                      '(((#C(-0.1898531186341022d0 0.0d0))))))
    401              #S(SECTOR
    402                 :NUMBERS ((1) (5) (-6))
    403                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    404                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    405                                      '(((#C(0.08554399196207078d0 0.0d0))))))
    406              #S(SECTOR
    407                 :NUMBERS ((1) (6) (-7))
    408                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    409                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    410                                      '(((#C(-0.03212033407069931d0 0.0d0))))))
    411              #S(SECTOR
    412                 :NUMBERS ((1) (7) (-8))
    413                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    414                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    415                                      '(((#C(0.009987163605712208d0 0.0d0))))))
    416              #S(SECTOR
    417                 :NUMBERS ((1) (8) (-9))
    418                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    419                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    420                                      '(((#C(-0.002515584656497615d0 0.0d0))))))
    421              #S(SECTOR
    422                 :NUMBERS ((1) (9) (-10))
    423                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    424                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    425                                      '(((#C(4.8776858451388507d-4 0.0d0))))))
    426              #S(SECTOR
    427                 :NUMBERS ((1) (10) (-11))
    428                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    429                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    430                                      '(((#C(-6.344464542862305d-5 0.0d0))))))))