commit 20d98c1504d1fc68c9c2f2e501001f65f0bd80ee parent a425029cc2f8da8b54478f2b3539d8b4926114a3 Author: Miroslav Urbanek <mu@miroslavurbanek.com> Date: Wed, 28 Jun 2017 23:35:01 +0200 Rename directory "states" to "inputs" Some input files are not states. Diffstat:
| README | | | 6 | +++--- |
| examples/balancer.lisp | | | 2 | +- |
| examples/revivals.lisp | | | 2 | +- |
| examples/trotzky.lisp | | | 2 | +- |
| inputs/revivals-l-11-n-11/metadata | | | 1 | + |
| inputs/revivals-l-11-n-11/tensor.0 | | | 89 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.1 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.10 | | | 89 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.2 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.3 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.4 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.5 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.6 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.7 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.8 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals-l-11-n-11/tensor.9 | | | 430 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/revivals.lisp | | | 161 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/metadata | | | 1 | + |
| inputs/trotzky-l-21-n-7/tensor.0 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.1 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.10 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.11 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.12 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.13 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.14 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.15 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.16 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.17 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.18 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.19 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.2 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.20 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.3 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.4 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.5 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.6 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.7 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.8 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky-l-21-n-7/tensor.9 | | | 23 | +++++++++++++++++++++++ |
| inputs/trotzky.lisp | | | 59 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| states/revivals-l-11-n-11/metadata | | | 1 | - |
| states/revivals-l-11-n-11/tensor.0 | | | 89 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.1 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.10 | | | 89 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.2 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.3 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.4 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.5 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.6 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.7 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.8 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals-l-11-n-11/tensor.9 | | | 430 | ------------------------------------------------------------------------------- |
| states/revivals.lisp | | | 161 | ------------------------------------------------------------------------------- |
| states/trotzky-l-21-n-7/metadata | | | 1 | - |
| states/trotzky-l-21-n-7/tensor.0 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.1 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.10 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.11 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.12 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.13 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.14 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.15 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.16 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.17 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.18 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.19 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.2 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.20 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.3 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.4 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.5 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.6 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.7 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.8 | | | 23 | ----------------------- |
| states/trotzky-l-21-n-7/tensor.9 | | | 23 | ----------------------- |
| states/trotzky.lisp | | | 59 | ----------------------------------------------------------- |
76 files changed, 4759 insertions(+), 4759 deletions(-)
diff --git a/README b/README @@ -53,7 +53,7 @@ There are several examples in the directory "examples": An initial state can be created with a command: - $ ./run states/revivals.lisp + $ ./run inputs/revivals.lisp Time evolution is then calculated with a command: @@ -79,7 +79,7 @@ There are several examples in the directory "examples": This example simulates time evolution of a model from an article [1]. Usage is similar to previous examples: - $ ./run states/trotzky.lisp + $ ./run inputs/trotzky.lisp $ ./run examples/trotzky.lisp The sample outputs are in the directory "outputs". @@ -92,7 +92,7 @@ run: Main execution script. contrib/openblas-0.2.6.patch: Patch for a bug in OpenBLAS 0.2.6. examples/*: Example calculations. outputs/*: Sample outputs of the examples. -states/*: Programs for creating initial states and their outputs. +inputs/*: Input files and programs to create them. tebdol/array.lisp: Array tensor routines. tebdol/bhm.lisp: Bose-Hubbard model. tebdol/blas.lisp: Interface to BLAS and LAPACK. diff --git a/examples/balancer.lisp b/examples/balancer.lisp @@ -2,7 +2,7 @@ ;; parameters -(defparameter *state* #p"states/revivals-l-11-n-11/") +(defparameter *state* #p"inputs/revivals-l-11-n-11/") (defparameter *j* 1/25) ;; *u* = 1 diff --git a/examples/revivals.lisp b/examples/revivals.lisp @@ -2,7 +2,7 @@ ;; parameters -(defparameter *state* #p"states/revivals-l-11-n-11/") +(defparameter *state* #p"inputs/revivals-l-11-n-11/") (defparameter *j* 1/25) ;; *u* = 1 diff --git a/examples/trotzky.lisp b/examples/trotzky.lisp @@ -2,7 +2,7 @@ ;; parameters -(defparameter *state* #p"states/trotzky-l-21-n-7/") +(defparameter *state* #p"inputs/trotzky-l-21-n-7/") (defparameter *j* 4.1d-1) (defparameter *k* 4.1d-3) diff --git a/inputs/revivals-l-11-n-11/metadata b/inputs/revivals-l-11-n-11/metadata @@ -0,0 +1 @@ +((:SITE-DIMENSION . 15) (:MODEL-LENGTH . 11) (:PARTICLE-NUMBER . 11)) diff --git a/inputs/revivals-l-11-n-11/tensor.0 b/inputs/revivals-l-11-n-11/tensor.0 @@ -0,0 +1,89 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.832849034042319d-11 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(5.720901025644462d-10 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.2039011762276283d-8 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.962424118780848d-7 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(2.611856330248243d-6 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(2.908403907401699d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(2.737134310501333d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0021770754934714114d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.014487715059130568d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.07871920158832348d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3313119420728741d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.9401175325586021d0 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.1 b/inputs/revivals-l-11-n-11/tensor.1 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.9787047008632365d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.20527325327037405d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.9578628913353311d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.28411818939008926d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.042137107879126834d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.9374649142624261d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3405621217936127d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.07142940417810961d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.008649621097786664d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.9175013181414508d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3848729477384028d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.09886525732944978d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.016930849754230412d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0017755358723716697d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.897962852738286d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.42113764801197645d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.12491648388732228d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.026199948425474434d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0038856719349374728d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-3.644700327121164d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.8788404648008357d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4515089514762437d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1497328379428016d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.036263282238829485d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.006586860027808615d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(8.737539030037548d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-7.481595265446117d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.8601252938636925d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.47729999979383164d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.17339347432030774d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.04695023927568812d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.009847330259786933d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0015998336526491445d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.9372912120124738d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.535771370697603d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.8418086681423657d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.49938912655250467d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1959538459388185d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05812319461799307d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.013629664858473884d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.00255688308742206d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-3.7920720583035493d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(4.2513145504911015d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-3.152527830563301d-6 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.8238821005151021d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5184024167298598d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.21745915736933064d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.06967015562666305d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.01789670604397474d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0037536502586685136d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(6.428192669955496d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-8.826350579009114d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(9.2561815096368d-6 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-6.471296498666845d-7 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.8063372845904634d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5348074358647783d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.2379492726679121d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.08149846614570525d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.02261252991398903d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.005195417805483034d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-9.947422525852915d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.5771471759246162d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-2.025669280089076d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(2.0028248766710675d-6 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.32838411381897d-7 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7891660908588328d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5489660079779718d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2574608173465808d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.09353032822616564d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.027742663319270246d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.006884824441864137d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0014440212389381344d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-2.5597069362888334d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(3.796259866252778d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-4.597015828758332d-6 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(4.311929924072878d-7 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-2.7268173941052964d-8 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.10 b/inputs/revivals-l-11-n-11/tensor.10 @@ -0,0 +1,89 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.0d0 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.2 b/inputs/revivals-l-11-n-11/tensor.2 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.95499659519749d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.29661676142996596d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.9120184965501859d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4006014444311467d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0879815018627077d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.8709745584912049d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.46855433941842006d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.14553043372455662d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.026096787793924214d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.8317777373036627d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5166913087806254d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.19654891293954774d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.049844687278912475d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.007740744725983628d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7943449065199377d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.55168094837721d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.24232423216674884d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0752645908746838d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.016529875179597985d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0022960346823632793d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7585966806306483d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5771390134793496d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.28342900931932874d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.10165003389649006d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.027342110065038623d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.005371009196544363d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(6.810424021284067d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.7244572467288362d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5953270975530697d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3202654872092606d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1284187317049895d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.03988616163958182d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.009596033251807023d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0017207786117460417d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-2.0200858797170262d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6918542037312535d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6077898560493493d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3531679886690307d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.15512799936763522d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05386901905491613d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.014965041845989971d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.003286675453276846d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-5.456531338432231d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(5.9919132692876076d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6607184088356366d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6156466658745982d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.38243302609745294d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1814419248943177d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.06902034784165256d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.021437346079604045d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.005436498517552895d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.00110541343089004d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.7166770479818628d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.7773019260092227d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6309838308883596d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6197436708790708d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4083308752210376d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.20710493510596645d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.08509486271430801d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.028952618039078518d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.008209016012211117d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0019273737284790078d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(3.665856234884255d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-5.3673885940053415d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(5.27177552878122d-6 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6025874103514528d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6207407633780375d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.431111026044287d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.23192289308083258d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.10187144996729895d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.037437805325840144d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.011627979755783033d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0030523484215162133d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(6.703675283014891d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.2021155357089781d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.6697639471013695d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.5636970411847528d-6 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.3 b/inputs/revivals-l-11-n-11/tensor.3 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.9248224235750514d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.38039911258146786d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.8552965147297255d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.49752263663853563d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.14470348276190248d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7909973949927505d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5635297221748388d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.23179174484882528d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.05504507571226669d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7315321271941133d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6017894182615817d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3031595930110945d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.10181384133612464d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.020939098093586628d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6765373141860899d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6222399700372095d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3619545517587558d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1488795957894506d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.04330133922166936d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.007965214514539909d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.625676878097997d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6303864640542275d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4099756129769539d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.19471909013787142d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.06936179275820356d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.01804394343000672d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.003029960670632992d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5786400065433805d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6297071510466963d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4486218203794557d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.23822421693381818d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0979866827409907d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.031219348311271985d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.007413859761927774d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0011525943295376262d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5351392532268591d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6225768244263425d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4790800794507171d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.2786790048708382d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.1281564312897104d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.04714835581538906d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.013713007599184692d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0030149480112368287d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(4.384458569761662d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4232937569769961d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5774566047472223d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.531111243426437d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3783792071761195d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2201017060626658d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.10711951097133275d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.04406053287306188d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.01531675843974322d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.004454849175891803d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.001057921696629628d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.946030633172797d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-2.4134287688992728d-5 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4949087813433307d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.61069949714495d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5023873538957601d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.31565177213097356d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.15901387079460647d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.06540578518544192d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.021966036307888192d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.005914859579222993d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0012164536921963076d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.6678441655826326d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4577027390348382d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5953394460174133d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5194599344826576d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.34891333098604627d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1898531186341022d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.08554399196207078d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.03212033407069931d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.009987163605712208d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.002515584656497615d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(4.8776858451388507d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-6.344464542862305d-5 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.4 b/inputs/revivals-l-11-n-11/tensor.4 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.8885554486648087d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.45876923899503175d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7895307848079871d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5764927152729623d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.21046921170967248d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7015418799779211d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6273703481360059d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.32391699785858846d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.09655679890629121d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6233588592157339d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6436916737277113d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.407036422386514d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.17159214086091196d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.044297289493063996d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5538889103284594d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6394659619366492d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4669196835993755d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.24107486577984005d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.08801297342147611d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.020322234271587414d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.27260252807814417d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.46680551658725855d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5389279817557623d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4819490318038798d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.35190535031883424d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.21498078990424832d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.11099653727878375d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.04843453792485923d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.01768275441484565d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.005271073193612816d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0012170931202168563d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-1.8946859410995387d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4921610090085626d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6224329710710391d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5081270871933107d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3029364048958728d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.1354540072565413d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.04423149487634763d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.009323216382062016d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3067929275081533d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5009046949634489d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.548619337198864d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4625569698464197d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.31593228888315905d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.17868759503160692d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0842196741312236d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.032870346339878086d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.010392730497279385d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0025294911605562814d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-4.1299322500010227d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4373123462541682d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5973797802887577d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5342209300784619d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.35608610430545684d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.18385048763078085d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.07352756377831604d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.02191791925035002d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.004277204809395085d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3452715610393255d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5348005218535893d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.552244717683123d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.43554167354480566d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.27541342459844226d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.14219845312831117d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05994583556636945d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.02026190954845636d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0052307037870998295d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-9.002199391616728d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3885762683782821d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5674544768247999d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5481189304568337d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4002207044257312d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2310278405743825d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.10668886092900609d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.03895057338418028d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.010749532538353248d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0019622499813578553d0 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.5 b/inputs/revivals-l-11-n-11/tensor.5 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.8451542547285167d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5345224838248488d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.15714327792182065d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3296265211580147d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.46616229015822924d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5106551968138958d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4567438963077695d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3417958426300939d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.21617068151121419d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.11554808763099442d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05167467535522958d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.018868923716350752d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.005336937655703981d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.001017714106627654d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.7142857136071306d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6388765674544904d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2857142819222025d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.18593443328035406d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3718688676749137d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.49891443393130713d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5152766058744115d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.431111342420006d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.29868270686791804d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.1724445493030638d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0824442620843282d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.03193052511810453d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.009519843341798541d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0019039686914488207d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6036816091203062d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6613000751228876d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4182428856920517d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.15272070593199438d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.22000058758334565d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.41742176798417796d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.528001407197539d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5100978161428623d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.39512007329569876d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.24989588247265815d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.1290456848009482d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05342998855510201d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.01689604571088736d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.00356199919311484d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5102040798268552d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6453627919621014d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4998958646256881d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.25814511107488164d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.08163265178337831d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.2603082048876251d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4656534760952797d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5509686184409777d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4928013097705472d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3484631515840321d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.19712053084930534d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0881549852746736d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.02980182367050383d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.006663890244023252d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4312011485787476d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6098105188493357d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5454311055389574d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.34496091666180695d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.15427121258655513d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.04363448886538035d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3644314854773874d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5645748352420209d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5645748315220318d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4123071575573143d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.22582993265579066d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.09033197482145934d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.023323616456356833d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.30800082093218056d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5153839544227217d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5645748311717919d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4609734159078241d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.29154518992825335d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.14282739371865955d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05215319239411896d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.012466997178611994d0 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.6 b/inputs/revivals-l-11-n-11/tensor.6 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.07659317585440577d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.19601867982677665d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3382154904276437d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4520278098626925d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4932773717858468d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4503666880757838d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3475180120491297d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2266336190089268d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.12365747477851319d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05508974859544997d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.01901064431030436d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.004422945066743678d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.09674473578713326d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.23606868608361123d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3864165089685337d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4869126661333097d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4970283242435935d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.42012914627870773d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.29593971339220176d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.17262164756833012d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0815683971112515d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.02967062631819524d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.007239986547763699d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.12219814345539994d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.28287652144202313d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.43655396007043296d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5145615835367862d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4862885369829722d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3752365058241234d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2364125428726412d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.11942442364081925d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0460759388895587d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.011851245070043204d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7917038077735334d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6109051323707206d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.15434830773251632d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.336866564032936d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.486298537939888d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5306754506907807d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.45782030296865284d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.31597381454972795d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.17240392761502596d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.07110893331863495d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.019399485101410763d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6267949184044884d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6839927641372376d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3732050761581518d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.19495713619776275d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3980147794190854d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5319500602385501d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5299150743333139d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4089001960599401d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.24440157183853442d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.10888158287673035d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.03175531563879086d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.49623592273681577d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6632234471041126d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5117653841194127d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.22799289421819524d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.24625009203350395d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.46543932084402895d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5678637049542467d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5059697082567669d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3381163662936681d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.16500885006966878d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.05198076520204031d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.31103815485187475d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5366729593529695d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5856467652566028d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.45190462424400596d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.24657147336952936d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.08508810949485457d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3928718691596416d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6063061501993334d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5729921076193809d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3610056886075447d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1392820306154574d0 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.7 b/inputs/revivals-l-11-n-11/tensor.7 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.027817882050607715d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.08839819234635582d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.18938752075905166d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3142931802186456d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4258659659514909d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4827918575619059d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.46257582640526324d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.37457767220272403d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.25377560134015376d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.14038225775687033d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.060152018990669714d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.01737708228046353d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.03852557666861094d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.11672721613276761d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.237247342567704d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3712006204274545d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4704903244895245d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4938150328467646d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.43191340422663466d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3128244073120478d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.183543598253801d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.08290027431053815d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.02511764698139829d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0533548906874538d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.15336224885471209d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2938809499780403d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.43011322747714037d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5047210396182958d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4835867558930545d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3783134387231998d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.23729377692023465d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.11367876028418775d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.036306221549799345d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0738923229434502d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2002475870766312d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.358942005784988d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4863649344521612d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5210030256115419d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4464863947006274d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3024936290957021d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.15491917696926463d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05247871104490143d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.1023350493823703d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.25941578726414105d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4305067873750642d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5325094912021892d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5102116104221532d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3786595840319422d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.20946493190455961d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.07585518507675237d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.14172598582263576d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3326197956054742d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5038961871137286d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5574852959246223d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4625801934554845d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2803109210569059d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.10964463558684856d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.19627933144516205d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.42051602944249133d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5697974874874561d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5459382292382235d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3698720308774802d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.15848547855606654d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7220627053431249d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6918276154885459d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.27183142063956506d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5208979339494789d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6112533350039476d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4781879051866988d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.22908231913429833d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5213745494058376d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.7064603763163855d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.47862544429519294d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3764651168242616d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6247530036858756d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5985925789087002d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.33112629716681075d0 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.8 b/inputs/revivals-l-11-n-11/tensor.8 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.005477041825857639d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.022814264516521424d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.064070120721357d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.13937350994361625d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.24754793539067368d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3678640959752448d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4620101168878671d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.49040120436594875d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4355124741437494d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.31579412771766835d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.17737121056830196d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.06716621439187143d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.008792913063613381d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.03492181877210203d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.09303945958516828d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.19081636170133445d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3170287910981329d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.43616760011457206d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5000654695862716d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.47475757884463343d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3651334421471508d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.21617697305404865d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.08585656497802718d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.014116255290091946d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0531869190928355d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.13359767362945912d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.2563016192630628d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3942403277213041d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.49513670911656005d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5077425830391514d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.41746422286089824d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2621520968921429d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.10974788342504072d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.022662417171848654d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.08050359905728109d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1891530641063564d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.33596376421773333d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4717495747538048d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.529932546604939d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4706192524475297d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3159364489947914d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.14028744437504104d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.03638253486554953d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.12089436086790466d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.2629848504689311d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4264019386034174d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5355293116281997d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5209822853908487d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3777690917878799d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.17932525709418257d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.05840898699550275d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1796881209036902d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.35682348969413297d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5174720205978818d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5628356306548321d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.44707013783643884d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.22922613128827907d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.09377053434040292d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2633391717259916d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4677292518697183d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5874333547136271d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5216841974787325d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.293012911559273d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.15054041527256176d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.37813526470910014d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5816435037705524d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5964517562263617d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3745496522077516d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2416795094845569d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5257321506191898d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6602807049855689d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4787756375635517d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3879953798567879d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6891370969723692d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6120046133700976d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6228927525104961d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.7823072407116642d0 0.0d0)))))))) diff --git a/inputs/revivals-l-11-n-11/tensor.9 b/inputs/revivals-l-11-n-11/tensor.9 @@ -0,0 +1,430 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.9374402874810305d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.0012413619545235254d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (2) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.005362375154290676d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (3) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.017942856651247945d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (4) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.04902079684309173d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (5) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.1120516294776327d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (6) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2164671255808716d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (7) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.35342859791111214d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (8) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4827924349583526d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (9) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5384850005126481d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (10) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4652243052438927d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((0) (11) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.2709816204495774d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(4.214567497866091d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0025747008839462054d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (2) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.01055132026327213d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (3) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.03328625568739691d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (4) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0850663414538098d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (5) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.18002057409924502d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (6) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.3174719083197164d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (7) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4636177339901117d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (8) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5484656685935415d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (9) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4994786994824661d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((1) (10) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.30513410471541724d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(9.168065449328763d-4 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.005313402716769078d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (2) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.020529411638406988d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (3) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.06058131186005144d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (4) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.14333691763918516d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (5) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2769056612167083d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (6) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4367772351554528d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (7) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5523894452679042d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (8) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5335672313549905d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((2) (9) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.34359091255009155d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.001994354700574464d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.010897356927066814d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (2) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.03938483010062823d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (3) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.10760135103532685d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (4) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.23240555168371174d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (5) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.4015737090268891d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (6) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5485599178314371d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (7) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5664529180922155d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((3) (8) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3868945314594241d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.0043383751793000585d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.022174299676295736d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (2) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.07419664884278866d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (3) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.18504716028009238d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (4) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.35748366239198737d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (5) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5349406631242049d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (6) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5966488135719383d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((4) (7) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.43565582290345795d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.009437388225241285d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.044658198947403235d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (2) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.13640961035966157d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (3) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.30429029601153684d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (4) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.5090875965029299d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (5) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.6220084708375055d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((5) (6) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.49056263230932595d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.020529411930886938d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.08868195909498443d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (2) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.2422836138157348d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (3) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.46805599974252987d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (4) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6393763969844792d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((6) (5) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.552389453137369d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.044658198732313345d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (1) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.1725460300443647d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (2) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.4082482907475824d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (3) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.6439505507698745d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((7) (4) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.62200846784169d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (0) (-8)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(0.097146217982336d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (1) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.3250575865889729d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (2) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.627963035834968d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((8) (3) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.7004017442565456d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (0) (-9)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.21132486419963042d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (1) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.5773502757769129d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((9) (2) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.7886751300956119d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (0) (-10)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.45970084338098416d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((10) (1) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(-0.8880738339771146d0 0.0d0)))))) + #S(SECTOR + :NUMBERS ((11) (0) (-11)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/revivals.lisp b/inputs/revivals.lisp @@ -0,0 +1,161 @@ +;; parameters + +(defparameter *dimension* 15) ;; physical dimension +(defparameter *length* 11) +(defparameter *particles* 11) +(defparameter *maxdim* '(nil nil 100)) + +;; libraries + +(load "conf.lisp") +(require :tebdol) + +(use-package '(:array :tensor :mps :bhm)) +(setf *print-level* 2) + +;; main + +(defun tensor-norm (tensor) + (sqrt + (loop + for s in (tensor-sectors tensor) + sum (expt (array-norm (sector-array s)) 2)))) + +(defun tensor-normalize (tensor) + (let ((n (tensor-norm tensor))) + (make-tensor + :indices + (tensor-indices tensor) + :sectors + (mapcar + #'(lambda (s) + (make-sector + :numbers (sector-numbers s) + :array (array-scalar-/ (sector-array s) n))) + (tensor-sectors tensor))))) + +(defun left-normalize (mps maxdim) + (let ((n (length mps))) + (loop for i below (1- n) do + (multiple-value-bind (l s r) (tensor-decompose (svref mps i) '(0 1) maxdim :left) + (declare (ignore s)) + (setf (svref mps i) l) + (setf (svref mps (1+ i)) (tensor-contract r 1 (svref mps (1+ i)) 0)))) + (setf (svref mps (1- n)) (tensor-normalize (svref mps (1- n)))))) + +(defun right-compress (mps maxdim) + (let ((n (length mps))) + (loop for i from (1- n) above 0 do + (multiple-value-bind (l s r) (tensor-decompose (svref mps i) '(0) maxdim :right) + (declare (ignore s)) + (setf (svref mps i) r) + (setf (svref mps (1- i)) (tensor-contract (svref mps (1- i)) 2 l 0)))))) + +;; +;; particle in a box creation operator +;; +;; -1 0 +;; +;; +----+---+ +;; 0 | b+ | 1 | +;; +----+---+ +;; 1 | 1 | 0 | +;; +----+---+ +;; + +(defun site-piab (dimension weight) + (let ((ops (list + (cons '1 #'(lambda (n) (declare (ignore n)) 1)) + (cons 'b+ #'(lambda (n) (* weight (sqrt (1+ n))))))) + (tbl (flet ((f (x y z) + (cons (list (make-subscript + :numbers (list (first x)) + :subscript (second x)) + (make-subscript + :numbers (list (first y)) + :subscript (second y))) + z))) + (list + (f '(0 0) '(-1 0) 'b+) + (f '(0 0) '( 0 0) '1) + (f '(1 0) '(-1 0) '1))))) + (functional-tensor + (list + (list (make-segment :numbers '(0) :dimension 1) + (make-segment :numbers '(1) :dimension 1)) + (ket-physical-index dimension) + (bra-physical-index dimension) + (list (make-segment :numbers '(-1) :dimension 1) + (make-segment :numbers '(0) :dimension 1))) + #'(lambda (s) + (let ((x (find + (list (first s) (fourth s)) + tbl + :test #'equalp + :key #'car))) + (if x + (funcall (cdr (find (cdr x) ops :key #'car)) + (- (first (subscript-numbers (third s))))) + 0)))))) + +(defun right-tensor (operator) + (let* ((i (fourth (tensor-indices operator)))) + (functional-tensor + (list (conjugate-index i) + (list (make-segment :numbers '(-1) :dimension 1))) + #'(lambda (s) + (if (zerop (subscript-subscript (first s))) + 1 + 0))))) + +(defun make-piab-mpo (dimension length) + (loop + with m = (make-array length) + for i from 1 below (1- length) + do + (setf (svref m i) (site-piab dimension (sin (/ (* pi (1+ i)) (1+ length))))) + finally + (let ((o (site-piab dimension (sin (/ (* pi 1) (1+ length)))))) + (setf (svref m 0) (tensor-contract (left-open-boundary-tensor o) 1 o 0))) + (let ((o (site-piab dimension (sin (/ (* pi length) (1+ length)))))) + (setf (svref m (1- length)) (tensor-contract o 3 (right-tensor o) 0))) + (return m))) + +(defun apply-and-fuse (mpo mps) + (let* ((n (length mpo)) + (o (make-array n))) + (dotimes (i n o) + (setf + (svref o i) + (tensor-fuse + (tensor-permute + (tensor-contract (svref mpo i) 2 (svref mps i) 1) + '(0 2 3 1 4)) + '(2 3) + '(:normal :normal :reverse)))))) + +(defun make-vacuum-mps (dimension length) + (let* ((m (make-array length)) + (l (list (make-segment :numbers '(0) :dimension 1))) + (u (functional-tensor + (list l (ket-physical-index dimension) l) + #'(lambda (s) (declare (ignore s)) 1)))) + (dotimes (i length m) + (setf (svref m i) u)))) + +(defparameter *mps* (make-vacuum-mps *dimension* *length*)) +(defparameter *mpp* (make-piab-mpo *dimension* *length*)) + +(dotimes (i *particles*) + (format t "creating particle #~a~%" (1+ i)) + (setf *mps* (apply-and-fuse *mpp* *mps*)) + (left-normalize *mps* *maxdim*) + (right-compress *mps* *maxdim*)) + +(save-mps + *mps* + *dimension* + *particles* + (make-pathname + :directory + (list :relative (format nil "inputs/revivals-l-~A-n-~A" *length* *particles*)))) diff --git a/inputs/trotzky-l-21-n-7/metadata b/inputs/trotzky-l-21-n-7/metadata @@ -0,0 +1 @@ +((:SITE-DIMENSION . 15) (:MODEL-LENGTH . 21) (:PARTICLE-NUMBER . 7)) diff --git a/inputs/trotzky-l-21-n-7/tensor.0 b/inputs/trotzky-l-21-n-7/tensor.0 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.1 b/inputs/trotzky-l-21-n-7/tensor.1 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.10 b/inputs/trotzky-l-21-n-7/tensor.10 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (3) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-4) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((3) (1) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.11 b/inputs/trotzky-l-21-n-7/tensor.11 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (4) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-4) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((4) (0) (-4)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.12 b/inputs/trotzky-l-21-n-7/tensor.12 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (4) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-5) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((4) (1) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.13 b/inputs/trotzky-l-21-n-7/tensor.13 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (5) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-5) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((5) (0) (-5)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.14 b/inputs/trotzky-l-21-n-7/tensor.14 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (5) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-6) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((5) (1) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.15 b/inputs/trotzky-l-21-n-7/tensor.15 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (6) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-6) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((6) (0) (-6)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.16 b/inputs/trotzky-l-21-n-7/tensor.16 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (6) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((6) (1) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.17 b/inputs/trotzky-l-21-n-7/tensor.17 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (7) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.18 b/inputs/trotzky-l-21-n-7/tensor.18 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (7) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.19 b/inputs/trotzky-l-21-n-7/tensor.19 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (7) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.2 b/inputs/trotzky-l-21-n-7/tensor.2 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.20 b/inputs/trotzky-l-21-n-7/tensor.20 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (7) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((7) (0) (-7)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.3 b/inputs/trotzky-l-21-n-7/tensor.3 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (0) (0)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.4 b/inputs/trotzky-l-21-n-7/tensor.4 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-1) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((0) (1) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.5 b/inputs/trotzky-l-21-n-7/tensor.5 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (1) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-1) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((1) (0) (-1)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.6 b/inputs/trotzky-l-21-n-7/tensor.6 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (1) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-2) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((1) (1) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.7 b/inputs/trotzky-l-21-n-7/tensor.7 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (2) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-2) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((2) (0) (-2)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.8 b/inputs/trotzky-l-21-n-7/tensor.8 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (2) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-3) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((2) (1) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky-l-21-n-7/tensor.9 b/inputs/trotzky-l-21-n-7/tensor.9 @@ -0,0 +1,23 @@ +#S(TENSOR + :INDICES ((#S(SEGMENT :NUMBERS (3) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) + #S(SEGMENT :NUMBERS (1) :DIMENSION 1) + #S(SEGMENT :NUMBERS (2) :DIMENSION 1) + #S(SEGMENT :NUMBERS (3) :DIMENSION 1) + #S(SEGMENT :NUMBERS (4) :DIMENSION 1) + #S(SEGMENT :NUMBERS (5) :DIMENSION 1) + #S(SEGMENT :NUMBERS (6) :DIMENSION 1) + #S(SEGMENT :NUMBERS (7) :DIMENSION 1) + #S(SEGMENT :NUMBERS (8) :DIMENSION 1) + #S(SEGMENT :NUMBERS (9) :DIMENSION 1) + #S(SEGMENT :NUMBERS (10) :DIMENSION 1) + #S(SEGMENT :NUMBERS (11) :DIMENSION 1) + #S(SEGMENT :NUMBERS (12) :DIMENSION 1) + #S(SEGMENT :NUMBERS (13) :DIMENSION 1) + #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) + (#S(SEGMENT :NUMBERS (-3) :DIMENSION 1))) + :SECTORS (#S(SECTOR + :NUMBERS ((3) (0) (-3)) + :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE + '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS + '(((#C(1.0d0 0.0d0)))))))) diff --git a/inputs/trotzky.lisp b/inputs/trotzky.lisp @@ -0,0 +1,59 @@ +;; parameters + +(defparameter *dimension* 15) ;; physical dimension +(defparameter *length* 21) +(defparameter *particles* 7) + +;; libraries + +(load "conf.lisp") +(require :tebdol) + +(use-package '(:tensor :mps :bhm)) +(setf *print-level* 2) + +;; main + +(defun make-mps (dimension length particles) + (loop + with c = (/ (1- length) 2) + with m = (make-array length) + for i from (- c) to c + do + (setf (svref m (+ i c)) + (functional-tensor + (list + (list (make-segment + :numbers + (list + (cond + ((>= (- i) particles) 0) + ((>= i particles) particles) + ((evenp i) (/ (+ i particles -1) 2)) + (t (/ (+ i particles) 2)))) + :dimension + 1)) + (ket-physical-index dimension) + (list (make-segment + :numbers + (list + (cond + ((>= (- i) particles) 0) + ((>= i particles) (- particles)) + ((evenp i) (- (/ (+ i particles 1) 2))) + (t (/ (- (+ i particles)) 2)))) + :dimension + 1))) + #'(lambda (s) (declare (ignore s)) 1))) + finally + (return m))) + +(defparameter *mps* (make-mps *dimension* *length* *particles*)) + +(save-mps + *mps* + *dimension* + *particles* + (make-pathname + :directory + (list :relative (format nil "inputs/trotzky-l-~A-n-~A" *length* *particles*)))) diff --git a/states/revivals-l-11-n-11/metadata b/states/revivals-l-11-n-11/metadata @@ -1 +0,0 @@ -((:SITE-DIMENSION . 15) (:MODEL-LENGTH . 11) (:PARTICLE-NUMBER . 11)) diff --git a/states/revivals-l-11-n-11/tensor.0 b/states/revivals-l-11-n-11/tensor.0 @@ -1,89 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.832849034042319d-11 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(5.720901025644462d-10 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.2039011762276283d-8 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.962424118780848d-7 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(2.611856330248243d-6 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(2.908403907401699d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(2.737134310501333d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0021770754934714114d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.014487715059130568d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.07871920158832348d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3313119420728741d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.9401175325586021d0 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.1 b/states/revivals-l-11-n-11/tensor.1 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.9787047008632365d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.20527325327037405d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.9578628913353311d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.28411818939008926d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.042137107879126834d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.9374649142624261d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3405621217936127d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.07142940417810961d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.008649621097786664d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.9175013181414508d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3848729477384028d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.09886525732944978d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.016930849754230412d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0017755358723716697d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.897962852738286d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.42113764801197645d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.12491648388732228d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.026199948425474434d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0038856719349374728d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-3.644700327121164d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.8788404648008357d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4515089514762437d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1497328379428016d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.036263282238829485d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.006586860027808615d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(8.737539030037548d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-7.481595265446117d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.8601252938636925d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.47729999979383164d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.17339347432030774d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.04695023927568812d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.009847330259786933d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0015998336526491445d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.9372912120124738d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.535771370697603d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.8418086681423657d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.49938912655250467d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1959538459388185d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05812319461799307d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.013629664858473884d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.00255688308742206d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-3.7920720583035493d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(4.2513145504911015d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-3.152527830563301d-6 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.8238821005151021d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5184024167298598d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.21745915736933064d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.06967015562666305d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.01789670604397474d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0037536502586685136d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(6.428192669955496d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-8.826350579009114d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(9.2561815096368d-6 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-6.471296498666845d-7 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.8063372845904634d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5348074358647783d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.2379492726679121d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.08149846614570525d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.02261252991398903d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.005195417805483034d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-9.947422525852915d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.5771471759246162d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-2.025669280089076d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(2.0028248766710675d-6 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.32838411381897d-7 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7891660908588328d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5489660079779718d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2574608173465808d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.09353032822616564d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.027742663319270246d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.006884824441864137d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0014440212389381344d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-2.5597069362888334d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(3.796259866252778d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-4.597015828758332d-6 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(4.311929924072878d-7 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-2.7268173941052964d-8 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.10 b/states/revivals-l-11-n-11/tensor.10 @@ -1,89 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.0d0 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.2 b/states/revivals-l-11-n-11/tensor.2 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.95499659519749d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.29661676142996596d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.9120184965501859d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4006014444311467d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0879815018627077d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.8709745584912049d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.46855433941842006d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.14553043372455662d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.026096787793924214d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.8317777373036627d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5166913087806254d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.19654891293954774d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.049844687278912475d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.007740744725983628d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7943449065199377d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.55168094837721d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.24232423216674884d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0752645908746838d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.016529875179597985d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0022960346823632793d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7585966806306483d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5771390134793496d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.28342900931932874d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.10165003389649006d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.027342110065038623d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.005371009196544363d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(6.810424021284067d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.7244572467288362d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5953270975530697d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3202654872092606d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1284187317049895d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.03988616163958182d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.009596033251807023d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0017207786117460417d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-2.0200858797170262d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6918542037312535d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6077898560493493d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3531679886690307d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.15512799936763522d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05386901905491613d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.014965041845989971d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.003286675453276846d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-5.456531338432231d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(5.9919132692876076d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6607184088356366d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6156466658745982d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.38243302609745294d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1814419248943177d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.06902034784165256d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.021437346079604045d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.005436498517552895d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.00110541343089004d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.7166770479818628d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.7773019260092227d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6309838308883596d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6197436708790708d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4083308752210376d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.20710493510596645d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.08509486271430801d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.028952618039078518d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.008209016012211117d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0019273737284790078d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(3.665856234884255d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-5.3673885940053415d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(5.27177552878122d-6 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6025874103514528d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6207407633780375d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.431111026044287d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.23192289308083258d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.10187144996729895d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.037437805325840144d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.011627979755783033d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0030523484215162133d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(6.703675283014891d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.2021155357089781d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.6697639471013695d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.5636970411847528d-6 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.3 b/states/revivals-l-11-n-11/tensor.3 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.9248224235750514d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.38039911258146786d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.8552965147297255d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.49752263663853563d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.14470348276190248d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7909973949927505d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5635297221748388d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.23179174484882528d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.05504507571226669d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7315321271941133d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6017894182615817d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3031595930110945d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.10181384133612464d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.020939098093586628d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6765373141860899d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6222399700372095d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3619545517587558d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1488795957894506d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.04330133922166936d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.007965214514539909d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.625676878097997d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6303864640542275d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4099756129769539d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.19471909013787142d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.06936179275820356d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.01804394343000672d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.003029960670632992d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5786400065433805d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6297071510466963d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4486218203794557d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.23822421693381818d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0979866827409907d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.031219348311271985d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.007413859761927774d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0011525943295376262d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5351392532268591d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6225768244263425d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4790800794507171d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.2786790048708382d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.1281564312897104d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.04714835581538906d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.013713007599184692d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0030149480112368287d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(4.384458569761662d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4232937569769961d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5774566047472223d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.531111243426437d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3783792071761195d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2201017060626658d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.10711951097133275d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.04406053287306188d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.01531675843974322d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.004454849175891803d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.001057921696629628d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.946030633172797d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-2.4134287688992728d-5 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4949087813433307d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.61069949714495d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5023873538957601d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.31565177213097356d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.15901387079460647d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.06540578518544192d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.021966036307888192d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.005914859579222993d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0012164536921963076d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.6678441655826326d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4577027390348382d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5953394460174133d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5194599344826576d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.34891333098604627d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1898531186341022d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.08554399196207078d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.03212033407069931d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.009987163605712208d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.002515584656497615d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(4.8776858451388507d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-6.344464542862305d-5 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.4 b/states/revivals-l-11-n-11/tensor.4 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.8885554486648087d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.45876923899503175d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7895307848079871d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5764927152729623d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.21046921170967248d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7015418799779211d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6273703481360059d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.32391699785858846d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.09655679890629121d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6233588592157339d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6436916737277113d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.407036422386514d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.17159214086091196d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.044297289493063996d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5538889103284594d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6394659619366492d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4669196835993755d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.24107486577984005d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.08801297342147611d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.020322234271587414d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.27260252807814417d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.46680551658725855d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5389279817557623d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4819490318038798d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.35190535031883424d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.21498078990424832d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.11099653727878375d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.04843453792485923d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.01768275441484565d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.005271073193612816d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0012170931202168563d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-1.8946859410995387d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4921610090085626d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6224329710710391d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5081270871933107d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3029364048958728d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.1354540072565413d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.04423149487634763d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.009323216382062016d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3067929275081533d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5009046949634489d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.548619337198864d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4625569698464197d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.31593228888315905d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.17868759503160692d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0842196741312236d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.032870346339878086d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.010392730497279385d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0025294911605562814d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-4.1299322500010227d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4373123462541682d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5973797802887577d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5342209300784619d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.35608610430545684d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.18385048763078085d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.07352756377831604d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.02191791925035002d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.004277204809395085d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3452715610393255d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5348005218535893d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.552244717683123d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.43554167354480566d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.27541342459844226d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.14219845312831117d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05994583556636945d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.02026190954845636d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0052307037870998295d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-9.002199391616728d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3885762683782821d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5674544768247999d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5481189304568337d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4002207044257312d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2310278405743825d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.10668886092900609d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.03895057338418028d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.010749532538353248d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0019622499813578553d0 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.5 b/states/revivals-l-11-n-11/tensor.5 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.8451542547285167d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5345224838248488d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.15714327792182065d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3296265211580147d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.46616229015822924d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5106551968138958d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4567438963077695d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3417958426300939d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.21617068151121419d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.11554808763099442d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05167467535522958d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.018868923716350752d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.005336937655703981d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.001017714106627654d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.7142857136071306d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6388765674544904d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2857142819222025d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.18593443328035406d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3718688676749137d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.49891443393130713d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5152766058744115d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.431111342420006d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.29868270686791804d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.1724445493030638d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0824442620843282d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.03193052511810453d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.009519843341798541d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0019039686914488207d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6036816091203062d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6613000751228876d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4182428856920517d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.15272070593199438d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.22000058758334565d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.41742176798417796d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.528001407197539d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5100978161428623d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.39512007329569876d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.24989588247265815d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.1290456848009482d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05342998855510201d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.01689604571088736d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.00356199919311484d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5102040798268552d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6453627919621014d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4998958646256881d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.25814511107488164d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.08163265178337831d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.2603082048876251d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4656534760952797d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5509686184409777d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4928013097705472d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3484631515840321d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.19712053084930534d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0881549852746736d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.02980182367050383d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.006663890244023252d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4312011485787476d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6098105188493357d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5454311055389574d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.34496091666180695d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.15427121258655513d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.04363448886538035d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3644314854773874d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5645748352420209d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5645748315220318d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4123071575573143d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.22582993265579066d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.09033197482145934d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.023323616456356833d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.30800082093218056d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5153839544227217d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5645748311717919d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4609734159078241d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.29154518992825335d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.14282739371865955d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05215319239411896d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.012466997178611994d0 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.6 b/states/revivals-l-11-n-11/tensor.6 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.07659317585440577d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.19601867982677665d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3382154904276437d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4520278098626925d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4932773717858468d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4503666880757838d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3475180120491297d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2266336190089268d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.12365747477851319d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05508974859544997d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.01901064431030436d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.004422945066743678d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.09674473578713326d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.23606868608361123d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3864165089685337d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4869126661333097d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4970283242435935d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.42012914627870773d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.29593971339220176d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.17262164756833012d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0815683971112515d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.02967062631819524d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.007239986547763699d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.12219814345539994d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.28287652144202313d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.43655396007043296d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5145615835367862d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4862885369829722d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3752365058241234d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2364125428726412d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.11942442364081925d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0460759388895587d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.011851245070043204d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7917038077735334d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6109051323707206d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.15434830773251632d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.336866564032936d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.486298537939888d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5306754506907807d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.45782030296865284d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.31597381454972795d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.17240392761502596d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.07110893331863495d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.019399485101410763d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6267949184044884d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6839927641372376d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3732050761581518d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.19495713619776275d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3980147794190854d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5319500602385501d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5299150743333139d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4089001960599401d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.24440157183853442d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.10888158287673035d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.03175531563879086d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.49623592273681577d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6632234471041126d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5117653841194127d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.22799289421819524d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.24625009203350395d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.46543932084402895d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5678637049542467d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5059697082567669d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3381163662936681d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.16500885006966878d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.05198076520204031d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.31103815485187475d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5366729593529695d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5856467652566028d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.45190462424400596d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.24657147336952936d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.08508810949485457d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3928718691596416d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6063061501993334d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5729921076193809d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3610056886075447d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1392820306154574d0 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.7 b/states/revivals-l-11-n-11/tensor.7 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.027817882050607715d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.08839819234635582d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.18938752075905166d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3142931802186456d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4258659659514909d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4827918575619059d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.46257582640526324d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.37457767220272403d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.25377560134015376d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.14038225775687033d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.060152018990669714d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.01737708228046353d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.03852557666861094d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.11672721613276761d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.237247342567704d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3712006204274545d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4704903244895245d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4938150328467646d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.43191340422663466d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3128244073120478d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.183543598253801d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.08290027431053815d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.02511764698139829d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0533548906874538d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.15336224885471209d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2938809499780403d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.43011322747714037d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5047210396182958d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4835867558930545d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3783134387231998d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.23729377692023465d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.11367876028418775d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.036306221549799345d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0738923229434502d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2002475870766312d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.358942005784988d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4863649344521612d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5210030256115419d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4464863947006274d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3024936290957021d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.15491917696926463d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05247871104490143d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.1023350493823703d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.25941578726414105d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4305067873750642d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5325094912021892d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5102116104221532d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3786595840319422d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.20946493190455961d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.07585518507675237d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.14172598582263576d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3326197956054742d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5038961871137286d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5574852959246223d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4625801934554845d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2803109210569059d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.10964463558684856d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.19627933144516205d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.42051602944249133d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5697974874874561d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5459382292382235d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3698720308774802d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.15848547855606654d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7220627053431249d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6918276154885459d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.27183142063956506d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5208979339494789d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6112533350039476d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4781879051866988d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.22908231913429833d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5213745494058376d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.7064603763163855d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.47862544429519294d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3764651168242616d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6247530036858756d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5985925789087002d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.33112629716681075d0 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.8 b/states/revivals-l-11-n-11/tensor.8 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.005477041825857639d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.022814264516521424d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.064070120721357d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.13937350994361625d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.24754793539067368d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3678640959752448d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4620101168878671d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.49040120436594875d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4355124741437494d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.31579412771766835d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.17737121056830196d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.06716621439187143d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.008792913063613381d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.03492181877210203d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.09303945958516828d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.19081636170133445d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3170287910981329d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.43616760011457206d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5000654695862716d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.47475757884463343d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3651334421471508d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.21617697305404865d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.08585656497802718d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.014116255290091946d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0531869190928355d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.13359767362945912d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.2563016192630628d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3942403277213041d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.49513670911656005d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5077425830391514d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.41746422286089824d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2621520968921429d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.10974788342504072d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.022662417171848654d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.08050359905728109d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1891530641063564d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.33596376421773333d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4717495747538048d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.529932546604939d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4706192524475297d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3159364489947914d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.14028744437504104d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.03638253486554953d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.12089436086790466d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.2629848504689311d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4264019386034174d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5355293116281997d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5209822853908487d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3777690917878799d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.17932525709418257d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.05840898699550275d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1796881209036902d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.35682348969413297d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5174720205978818d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5628356306548321d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.44707013783643884d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.22922613128827907d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.09377053434040292d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2633391717259916d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4677292518697183d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5874333547136271d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5216841974787325d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.293012911559273d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.15054041527256176d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.37813526470910014d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5816435037705524d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5964517562263617d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3745496522077516d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2416795094845569d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5257321506191898d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6602807049855689d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4787756375635517d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3879953798567879d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6891370969723692d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6120046133700976d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6228927525104961d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.7823072407116642d0 0.0d0)))))))) diff --git a/states/revivals-l-11-n-11/tensor.9 b/states/revivals-l-11-n-11/tensor.9 @@ -1,430 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (-1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.9374402874810305d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.0012413619545235254d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (2) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.005362375154290676d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (3) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.017942856651247945d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (4) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.04902079684309173d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (5) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.1120516294776327d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (6) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2164671255808716d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (7) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.35342859791111214d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (8) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4827924349583526d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (9) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5384850005126481d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (10) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4652243052438927d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((0) (11) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.2709816204495774d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(4.214567497866091d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0025747008839462054d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (2) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.01055132026327213d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (3) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.03328625568739691d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (4) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0850663414538098d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (5) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.18002057409924502d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (6) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.3174719083197164d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (7) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4636177339901117d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (8) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5484656685935415d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (9) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4994786994824661d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((1) (10) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.30513410471541724d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(9.168065449328763d-4 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.005313402716769078d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (2) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.020529411638406988d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (3) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.06058131186005144d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (4) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.14333691763918516d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (5) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2769056612167083d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (6) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4367772351554528d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (7) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5523894452679042d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (8) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5335672313549905d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((2) (9) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.34359091255009155d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.001994354700574464d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.010897356927066814d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (2) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.03938483010062823d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (3) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.10760135103532685d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (4) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.23240555168371174d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (5) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.4015737090268891d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (6) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5485599178314371d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (7) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5664529180922155d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((3) (8) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3868945314594241d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.0043383751793000585d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.022174299676295736d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (2) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.07419664884278866d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (3) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.18504716028009238d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (4) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.35748366239198737d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (5) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5349406631242049d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (6) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5966488135719383d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((4) (7) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.43565582290345795d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.009437388225241285d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.044658198947403235d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (2) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.13640961035966157d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (3) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.30429029601153684d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (4) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.5090875965029299d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (5) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.6220084708375055d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((5) (6) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.49056263230932595d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.020529411930886938d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.08868195909498443d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (2) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.2422836138157348d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (3) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.46805599974252987d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (4) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6393763969844792d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((6) (5) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.552389453137369d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.044658198732313345d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (1) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.1725460300443647d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (2) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.4082482907475824d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (3) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.6439505507698745d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((7) (4) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.62200846784169d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (0) (-8)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(0.097146217982336d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (1) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.3250575865889729d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (2) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.627963035834968d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((8) (3) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.7004017442565456d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (0) (-9)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.21132486419963042d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (1) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.5773502757769129d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((9) (2) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.7886751300956119d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (0) (-10)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.45970084338098416d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((10) (1) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(-0.8880738339771146d0 0.0d0)))))) - #S(SECTOR - :NUMBERS ((11) (0) (-11)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/revivals.lisp b/states/revivals.lisp @@ -1,161 +0,0 @@ -;; parameters - -(defparameter *dimension* 15) ;; physical dimension -(defparameter *length* 11) -(defparameter *particles* 11) -(defparameter *maxdim* '(nil nil 100)) - -;; libraries - -(load "conf.lisp") -(require :tebdol) - -(use-package '(:array :tensor :mps :bhm)) -(setf *print-level* 2) - -;; main - -(defun tensor-norm (tensor) - (sqrt - (loop - for s in (tensor-sectors tensor) - sum (expt (array-norm (sector-array s)) 2)))) - -(defun tensor-normalize (tensor) - (let ((n (tensor-norm tensor))) - (make-tensor - :indices - (tensor-indices tensor) - :sectors - (mapcar - #'(lambda (s) - (make-sector - :numbers (sector-numbers s) - :array (array-scalar-/ (sector-array s) n))) - (tensor-sectors tensor))))) - -(defun left-normalize (mps maxdim) - (let ((n (length mps))) - (loop for i below (1- n) do - (multiple-value-bind (l s r) (tensor-decompose (svref mps i) '(0 1) maxdim :left) - (declare (ignore s)) - (setf (svref mps i) l) - (setf (svref mps (1+ i)) (tensor-contract r 1 (svref mps (1+ i)) 0)))) - (setf (svref mps (1- n)) (tensor-normalize (svref mps (1- n)))))) - -(defun right-compress (mps maxdim) - (let ((n (length mps))) - (loop for i from (1- n) above 0 do - (multiple-value-bind (l s r) (tensor-decompose (svref mps i) '(0) maxdim :right) - (declare (ignore s)) - (setf (svref mps i) r) - (setf (svref mps (1- i)) (tensor-contract (svref mps (1- i)) 2 l 0)))))) - -;; -;; particle in a box creation operator -;; -;; -1 0 -;; -;; +----+---+ -;; 0 | b+ | 1 | -;; +----+---+ -;; 1 | 1 | 0 | -;; +----+---+ -;; - -(defun site-piab (dimension weight) - (let ((ops (list - (cons '1 #'(lambda (n) (declare (ignore n)) 1)) - (cons 'b+ #'(lambda (n) (* weight (sqrt (1+ n))))))) - (tbl (flet ((f (x y z) - (cons (list (make-subscript - :numbers (list (first x)) - :subscript (second x)) - (make-subscript - :numbers (list (first y)) - :subscript (second y))) - z))) - (list - (f '(0 0) '(-1 0) 'b+) - (f '(0 0) '( 0 0) '1) - (f '(1 0) '(-1 0) '1))))) - (functional-tensor - (list - (list (make-segment :numbers '(0) :dimension 1) - (make-segment :numbers '(1) :dimension 1)) - (ket-physical-index dimension) - (bra-physical-index dimension) - (list (make-segment :numbers '(-1) :dimension 1) - (make-segment :numbers '(0) :dimension 1))) - #'(lambda (s) - (let ((x (find - (list (first s) (fourth s)) - tbl - :test #'equalp - :key #'car))) - (if x - (funcall (cdr (find (cdr x) ops :key #'car)) - (- (first (subscript-numbers (third s))))) - 0)))))) - -(defun right-tensor (operator) - (let* ((i (fourth (tensor-indices operator)))) - (functional-tensor - (list (conjugate-index i) - (list (make-segment :numbers '(-1) :dimension 1))) - #'(lambda (s) - (if (zerop (subscript-subscript (first s))) - 1 - 0))))) - -(defun make-piab-mpo (dimension length) - (loop - with m = (make-array length) - for i from 1 below (1- length) - do - (setf (svref m i) (site-piab dimension (sin (/ (* pi (1+ i)) (1+ length))))) - finally - (let ((o (site-piab dimension (sin (/ (* pi 1) (1+ length)))))) - (setf (svref m 0) (tensor-contract (left-open-boundary-tensor o) 1 o 0))) - (let ((o (site-piab dimension (sin (/ (* pi length) (1+ length)))))) - (setf (svref m (1- length)) (tensor-contract o 3 (right-tensor o) 0))) - (return m))) - -(defun apply-and-fuse (mpo mps) - (let* ((n (length mpo)) - (o (make-array n))) - (dotimes (i n o) - (setf - (svref o i) - (tensor-fuse - (tensor-permute - (tensor-contract (svref mpo i) 2 (svref mps i) 1) - '(0 2 3 1 4)) - '(2 3) - '(:normal :normal :reverse)))))) - -(defun make-vacuum-mps (dimension length) - (let* ((m (make-array length)) - (l (list (make-segment :numbers '(0) :dimension 1))) - (u (functional-tensor - (list l (ket-physical-index dimension) l) - #'(lambda (s) (declare (ignore s)) 1)))) - (dotimes (i length m) - (setf (svref m i) u)))) - -(defparameter *mps* (make-vacuum-mps *dimension* *length*)) -(defparameter *mpp* (make-piab-mpo *dimension* *length*)) - -(dotimes (i *particles*) - (format t "creating particle #~a~%" (1+ i)) - (setf *mps* (apply-and-fuse *mpp* *mps*)) - (left-normalize *mps* *maxdim*) - (right-compress *mps* *maxdim*)) - -(save-mps - *mps* - *dimension* - *particles* - (make-pathname - :directory - (list :relative (format nil "states/revivals-l-~A-n-~A" *length* *particles*)))) diff --git a/states/trotzky-l-21-n-7/metadata b/states/trotzky-l-21-n-7/metadata @@ -1 +0,0 @@ -((:SITE-DIMENSION . 15) (:MODEL-LENGTH . 21) (:PARTICLE-NUMBER . 7)) diff --git a/states/trotzky-l-21-n-7/tensor.0 b/states/trotzky-l-21-n-7/tensor.0 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.1 b/states/trotzky-l-21-n-7/tensor.1 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.10 b/states/trotzky-l-21-n-7/tensor.10 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (3) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-4) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((3) (1) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.11 b/states/trotzky-l-21-n-7/tensor.11 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (4) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-4) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((4) (0) (-4)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.12 b/states/trotzky-l-21-n-7/tensor.12 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (4) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-5) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((4) (1) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.13 b/states/trotzky-l-21-n-7/tensor.13 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (5) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-5) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((5) (0) (-5)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.14 b/states/trotzky-l-21-n-7/tensor.14 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (5) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-6) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((5) (1) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.15 b/states/trotzky-l-21-n-7/tensor.15 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (6) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-6) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((6) (0) (-6)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.16 b/states/trotzky-l-21-n-7/tensor.16 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (6) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((6) (1) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.17 b/states/trotzky-l-21-n-7/tensor.17 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (7) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.18 b/states/trotzky-l-21-n-7/tensor.18 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (7) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.19 b/states/trotzky-l-21-n-7/tensor.19 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (7) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.2 b/states/trotzky-l-21-n-7/tensor.2 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.20 b/states/trotzky-l-21-n-7/tensor.20 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (7) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-7) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((7) (0) (-7)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.3 b/states/trotzky-l-21-n-7/tensor.3 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (0) (0)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.4 b/states/trotzky-l-21-n-7/tensor.4 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-1) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((0) (1) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.5 b/states/trotzky-l-21-n-7/tensor.5 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (1) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-1) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((1) (0) (-1)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.6 b/states/trotzky-l-21-n-7/tensor.6 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (1) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-2) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((1) (1) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.7 b/states/trotzky-l-21-n-7/tensor.7 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (2) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-2) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((2) (0) (-2)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.8 b/states/trotzky-l-21-n-7/tensor.8 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (2) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-3) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((2) (1) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky-l-21-n-7/tensor.9 b/states/trotzky-l-21-n-7/tensor.9 @@ -1,23 +0,0 @@ -#S(TENSOR - :INDICES ((#S(SEGMENT :NUMBERS (3) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (0) :DIMENSION 1) - #S(SEGMENT :NUMBERS (1) :DIMENSION 1) - #S(SEGMENT :NUMBERS (2) :DIMENSION 1) - #S(SEGMENT :NUMBERS (3) :DIMENSION 1) - #S(SEGMENT :NUMBERS (4) :DIMENSION 1) - #S(SEGMENT :NUMBERS (5) :DIMENSION 1) - #S(SEGMENT :NUMBERS (6) :DIMENSION 1) - #S(SEGMENT :NUMBERS (7) :DIMENSION 1) - #S(SEGMENT :NUMBERS (8) :DIMENSION 1) - #S(SEGMENT :NUMBERS (9) :DIMENSION 1) - #S(SEGMENT :NUMBERS (10) :DIMENSION 1) - #S(SEGMENT :NUMBERS (11) :DIMENSION 1) - #S(SEGMENT :NUMBERS (12) :DIMENSION 1) - #S(SEGMENT :NUMBERS (13) :DIMENSION 1) - #S(SEGMENT :NUMBERS (14) :DIMENSION 1)) - (#S(SEGMENT :NUMBERS (-3) :DIMENSION 1))) - :SECTORS (#S(SECTOR - :NUMBERS ((3) (0) (-3)) - :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE - '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS - '(((#C(1.0d0 0.0d0)))))))) diff --git a/states/trotzky.lisp b/states/trotzky.lisp @@ -1,59 +0,0 @@ -;; parameters - -(defparameter *dimension* 15) ;; physical dimension -(defparameter *length* 21) -(defparameter *particles* 7) - -;; libraries - -(load "conf.lisp") -(require :tebdol) - -(use-package '(:tensor :mps :bhm)) -(setf *print-level* 2) - -;; main - -(defun make-mps (dimension length particles) - (loop - with c = (/ (1- length) 2) - with m = (make-array length) - for i from (- c) to c - do - (setf (svref m (+ i c)) - (functional-tensor - (list - (list (make-segment - :numbers - (list - (cond - ((>= (- i) particles) 0) - ((>= i particles) particles) - ((evenp i) (/ (+ i particles -1) 2)) - (t (/ (+ i particles) 2)))) - :dimension - 1)) - (ket-physical-index dimension) - (list (make-segment - :numbers - (list - (cond - ((>= (- i) particles) 0) - ((>= i particles) (- particles)) - ((evenp i) (- (/ (+ i particles 1) 2))) - (t (/ (- (+ i particles)) 2)))) - :dimension - 1))) - #'(lambda (s) (declare (ignore s)) 1))) - finally - (return m))) - -(defparameter *mps* (make-mps *dimension* *length* *particles*)) - -(save-mps - *mps* - *dimension* - *particles* - (make-pathname - :directory - (list :relative (format nil "states/trotzky-l-~A-n-~A" *length* *particles*))))