Id = SparseArray[Table[KroneckerDelta[i, j], {i, 1, 3}, {j, 1,3}]] (* 3X3 identity matrix *)
a0d = SparseArray[Table[KroneckerDelta[i - 1, j] Sqrt[i - 1], {i, 1, 3}, {j, 1, 3}]] (* creation operator for a momentum mode *)
a0 = Transpose[a0d] (* annihilation operator *)
ap1d = KroneckerProduct[a0d,Id,Id,Id] (* creation operator for momentum p=-1 *)
ap2d = KroneckerProduct[Id,a0d,Id,Id] (* creation operator for momentum p=-1/3 *)
ap3d = KroneckerProduct[Id,Id,a0d,Id] (* creation operator for momentum p=+1/3 *)
ap4d = KroneckerProduct[Id,Id,Id,a0d] (* creation operator for momentum p=+1 *)
ap1 = KroneckerProduct[a0,Id,Id,Id] (* annihilation operator for momentum p=-1 *)
ap2 = KroneckerProduct[Id,a0,Id,Id] (* annihilation operator for momentum p=-1/3 *)
ap3 = KroneckerProduct[Id,Id,a0,Id] (* annihilation operator for momentum p=+1/3 *)
ap4 = KroneckerProduct[Id,Id,Id,a0] (* annihilation operator for momentum p=+1 *)
vacuum = Table[KroneckerDelta[1,n],{n,1,3^4}] (* vacuum state vector of the system *)
H0 = ap1d.ap1 + ap2d.ap2/3 + ap3d.ap3/3 + ap4d.ap4 (* Noninteracting Klein-Gordon Hamiltonian *)
H = H0 + 0.1(ap1d.ap1d.ap4d.ap4d +ap1d.ap1d.ap4d.ap4 +
ap1d.ap1d.ap4.ap4d +ap1d.ap1d.ap4.ap4 + ap1d.ap1.ap4d.ap4d +
ap1d.ap1.ap4d.ap4 + ap1d.ap1.ap4.ap4d +ap1d.ap1.ap4.ap4 +
ap1.ap1d.ap4d.ap4d +ap1.ap1d.ap4d.ap4 + ap1.ap1d.ap4.ap4d +
ap1.ap1d.ap4.ap4 + ap1.ap1.ap4d.ap4d +ap1.ap1.ap4d.ap4 +
ap1.ap1.ap4.ap4d +ap1.ap1.ap4.ap4 + ap1d.ap2d.ap3d.ap4d +
ap1d.ap2d.ap3d.ap4 + ap1d.ap2d.ap3.ap4d +ap1d.ap2d.ap3.ap4 +
ap1d.ap2.ap3d.ap4d +ap1d.ap2.ap3d.ap4 + ap1d.ap2.ap3.ap4d +
ap1d.ap2.ap3.ap4 + ap1.ap2d.ap3d.ap4d +ap1.ap2d.ap3d.ap4 +
ap1.ap2d.ap3.ap4d +ap1.ap2d.ap3.ap4 + ap1.ap2.ap3d.ap4d +
ap1.ap2.ap3d.ap4 + ap1.ap2.ap3.ap4d +ap1.ap2.ap3.ap4 +
ap1d.ap2d.ap4d.ap3d +ap1d.ap2d.ap4d.ap3 + ap1d.ap2d.ap4.ap3d +
ap1d.ap2d.ap4.ap3 + ap1d.ap2.ap4d.ap3d +ap1d.ap2.ap4d.ap3 +
ap1d.ap2.ap4.ap3d +ap1d.ap2.ap4.ap3 + ap1.ap2d.ap4d.ap3d +
ap1.ap2d.ap4d.ap3 + ap1.ap2d.ap4.ap3d +ap1.ap2d.ap4.ap3 +
ap1.ap2.ap4d.ap3d +ap1.ap2.ap4d.ap3 + ap1.ap2.ap4.ap3d +
ap1.ap2.ap4.ap3 + ap1d.ap3d.ap2d.ap4d +ap1d.ap3d.ap2d.ap4 +
ap1d.ap3d.ap2.ap4d +ap1d.ap3d.ap2.ap4 + ap1d.ap3.ap2d.ap4d +
ap1d.ap3.ap2d.ap4 + ap1d.ap3.ap2.ap4d +ap1d.ap3.ap2.ap4 +
ap1.ap3d.ap2d.ap4d +ap1.ap3d.ap2d.ap4 + ap1.ap3d.ap2.ap4d +
ap1.ap3d.ap2.ap4 + ap1.ap3.ap2d.ap4d +ap1.ap3.ap2d.ap4 +
ap1.ap3.ap2.ap4d +ap1.ap3.ap2.ap4 + ap1d.ap3d.ap3d.ap3d +
ap1d.ap3d.ap3d.ap3 + ap1d.ap3d.ap3.ap3d +ap1d.ap3d.ap3.ap3 +
ap1d.ap3.ap3d.ap3d +ap1d.ap3.ap3d.ap3 + ap1d.ap3.ap3.ap3d +
ap1d.ap3.ap3.ap3 + ap1.ap3d.ap3d.ap3d +ap1.ap3d.ap3d.ap3 +
ap1.ap3d.ap3.ap3d +ap1.ap3d.ap3.ap3 + ap1.ap3.ap3d.ap3d +
ap1.ap3.ap3d.ap3 + ap1.ap3.ap3.ap3d +ap1.ap3.ap3.ap3 +
ap1d.ap3d.ap4d.ap2d +ap1d.ap3d.ap4d.ap2 + ap1d.ap3d.ap4.ap2d +
ap1d.ap3d.ap4.ap2 + ap1d.ap3.ap4d.ap2d +ap1d.ap3.ap4d.ap2 +
ap1d.ap3.ap4.ap2d +ap1d.ap3.ap4.ap2 + ap1.ap3d.ap4d.ap2d +
ap1.ap3d.ap4d.ap2 + ap1.ap3d.ap4.ap2d +ap1.ap3d.ap4.ap2 +
ap1.ap3.ap4d.ap2d +ap1.ap3.ap4d.ap2 + ap1.ap3.ap4.ap2d +
ap1.ap3.ap4.ap2 + ap1d.ap4d.ap1d.ap4d +ap1d.ap4d.ap1d.ap4 +
ap1d.ap4d.ap1.ap4d +ap1d.ap4d.ap1.ap4 + ap1d.ap4.ap1d.ap4d +
ap1d.ap4.ap1d.ap4 + ap1d.ap4.ap1.ap4d +ap1d.ap4.ap1.ap4 +
ap1.ap4d.ap1d.ap4d +ap1.ap4d.ap1d.ap4 + ap1.ap4d.ap1.ap4d +
ap1.ap4d.ap1.ap4 + ap1.ap4.ap1d.ap4d +ap1.ap4.ap1d.ap4 +
ap1.ap4.ap1.ap4d +ap1.ap4.ap1.ap4 + ap1d.ap4d.ap2d.ap3d +
ap1d.ap4d.ap2d.ap3 + ap1d.ap4d.ap2.ap3d +ap1d.ap4d.ap2.ap3 +
ap1d.ap4.ap2d.ap3d +ap1d.ap4.ap2d.ap3 + ap1d.ap4.ap2.ap3d +
ap1d.ap4.ap2.ap3 + ap1.ap4d.ap2d.ap3d +ap1.ap4d.ap2d.ap3 +
ap1.ap4d.ap2.ap3d +ap1.ap4d.ap2.ap3 + ap1.ap4.ap2d.ap3d +
ap1.ap4.ap2d.ap3 + ap1.ap4.ap2.ap3d +ap1.ap4.ap2.ap3 +
ap1d.ap4d.ap3d.ap2d +ap1d.ap4d.ap3d.ap2 + ap1d.ap4d.ap3.ap2d +
ap1d.ap4d.ap3.ap2 + ap1d.ap4.ap3d.ap2d +ap1d.ap4.ap3d.ap2 +
ap1d.ap4.ap3.ap2d +ap1d.ap4.ap3.ap2 + ap1.ap4d.ap3d.ap2d +
ap1.ap4d.ap3d.ap2 + ap1.ap4d.ap3.ap2d +ap1.ap4d.ap3.ap2 +
ap1.ap4.ap3d.ap2d +ap1.ap4.ap3d.ap2 + ap1.ap4.ap3.ap2d +
ap1.ap4.ap3.ap2 + ap1d.ap4d.ap4d.ap1d +ap1d.ap4d.ap4d.ap1 +
ap1d.ap4d.ap4.ap1d +ap1d.ap4d.ap4.ap1 + ap1d.ap4.ap4d.ap1d +
ap1d.ap4.ap4d.ap1 + ap1d.ap4.ap4.ap1d +ap1d.ap4.ap4.ap1 +
ap1.ap4d.ap4d.ap1d +ap1.ap4d.ap4d.ap1 + ap1.ap4d.ap4.ap1d +
ap1.ap4d.ap4.ap1 + ap1.ap4.ap4d.ap1d +ap1.ap4.ap4d.ap1 +
ap1.ap4.ap4.ap1d +ap1.ap4.ap4.ap1 + ap2d.ap1d.ap3d.ap4d +
ap2d.ap1d.ap3d.ap4 + ap2d.ap1d.ap3.ap4d +ap2d.ap1d.ap3.ap4 +
ap2d.ap1.ap3d.ap4d +ap2d.ap1.ap3d.ap4 + ap2d.ap1.ap3.ap4d +
ap2d.ap1.ap3.ap4 + ap2.ap1d.ap3d.ap4d +ap2.ap1d.ap3d.ap4 +
ap2.ap1d.ap3.ap4d +ap2.ap1d.ap3.ap4 + ap2.ap1.ap3d.ap4d +
ap2.ap1.ap3d.ap4 + ap2.ap1.ap3.ap4d +ap2.ap1.ap3.ap4 +
ap2d.ap1d.ap4d.ap3d +ap2d.ap1d.ap4d.ap3 + ap2d.ap1d.ap4.ap3d +
ap2d.ap1d.ap4.ap3 + ap2d.ap1.ap4d.ap3d +ap2d.ap1.ap4d.ap3 +
ap2d.ap1.ap4.ap3d +ap2d.ap1.ap4.ap3 + ap2.ap1d.ap4d.ap3d +
ap2.ap1d.ap4d.ap3 + ap2.ap1d.ap4.ap3d +ap2.ap1d.ap4.ap3 +
ap2.ap1.ap4d.ap3d +ap2.ap1.ap4d.ap3 + ap2.ap1.ap4.ap3d +
ap2.ap1.ap4.ap3 + ap2d.ap2d.ap2d.ap4d +ap2d.ap2d.ap2d.ap4 +
ap2d.ap2d.ap2.ap4d +ap2d.ap2d.ap2.ap4 + ap2d.ap2.ap2d.ap4d +
ap2d.ap2.ap2d.ap4 + ap2d.ap2.ap2.ap4d +ap2d.ap2.ap2.ap4 +
ap2.ap2d.ap2d.ap4d +ap2.ap2d.ap2d.ap4 + ap2.ap2d.ap2.ap4d +
ap2.ap2d.ap2.ap4 + ap2.ap2.ap2d.ap4d +ap2.ap2.ap2d.ap4 +
ap2.ap2.ap2.ap4d +ap2.ap2.ap2.ap4 + ap2d.ap2d.ap3d.ap3d +
ap2d.ap2d.ap3d.ap3 + ap2d.ap2d.ap3.ap3d +ap2d.ap2d.ap3.ap3 +
ap2d.ap2.ap3d.ap3d +ap2d.ap2.ap3d.ap3 + ap2d.ap2.ap3.ap3d +
ap2d.ap2.ap3.ap3 + ap2.ap2d.ap3d.ap3d +ap2.ap2d.ap3d.ap3 +
ap2.ap2d.ap3.ap3d +ap2.ap2d.ap3.ap3 + ap2.ap2.ap3d.ap3d +
ap2.ap2.ap3d.ap3 + ap2.ap2.ap3.ap3d +ap2.ap2.ap3.ap3 +
ap2d.ap2d.ap4d.ap2d +ap2d.ap2d.ap4d.ap2 + ap2d.ap2d.ap4.ap2d +
ap2d.ap2d.ap4.ap2 + ap2d.ap2.ap4d.ap2d +ap2d.ap2.ap4d.ap2 +
ap2d.ap2.ap4.ap2d +ap2d.ap2.ap4.ap2 + ap2.ap2d.ap4d.ap2d +
ap2.ap2d.ap4d.ap2 + ap2.ap2d.ap4.ap2d +ap2.ap2d.ap4.ap2 +
ap2.ap2.ap4d.ap2d +ap2.ap2.ap4d.ap2 + ap2.ap2.ap4.ap2d +
ap2.ap2.ap4.ap2 + ap2d.ap3d.ap1d.ap4d +ap2d.ap3d.ap1d.ap4 +
ap2d.ap3d.ap1.ap4d +ap2d.ap3d.ap1.ap4 + ap2d.ap3.ap1d.ap4d +
ap2d.ap3.ap1d.ap4 + ap2d.ap3.ap1.ap4d +ap2d.ap3.ap1.ap4 +
ap2.ap3d.ap1d.ap4d +ap2.ap3d.ap1d.ap4 + ap2.ap3d.ap1.ap4d +
ap2.ap3d.ap1.ap4 + ap2.ap3.ap1d.ap4d +ap2.ap3.ap1d.ap4 +
ap2.ap3.ap1.ap4d +ap2.ap3.ap1.ap4 + ap2d.ap3d.ap2d.ap3d +
ap2d.ap3d.ap2d.ap3 + ap2d.ap3d.ap2.ap3d +ap2d.ap3d.ap2.ap3 +
ap2d.ap3.ap2d.ap3d +ap2d.ap3.ap2d.ap3 + ap2d.ap3.ap2.ap3d +
ap2d.ap3.ap2.ap3 + ap2.ap3d.ap2d.ap3d +ap2.ap3d.ap2d.ap3 +
ap2.ap3d.ap2.ap3d +ap2.ap3d.ap2.ap3 + ap2.ap3.ap2d.ap3d +
ap2.ap3.ap2d.ap3 + ap2.ap3.ap2.ap3d +ap2.ap3.ap2.ap3 +
ap2d.ap3d.ap3d.ap2d +ap2d.ap3d.ap3d.ap2 + ap2d.ap3d.ap3.ap2d +
ap2d.ap3d.ap3.ap2 + ap2d.ap3.ap3d.ap2d +ap2d.ap3.ap3d.ap2 +
ap2d.ap3.ap3.ap2d +ap2d.ap3.ap3.ap2 + ap2.ap3d.ap3d.ap2d +
ap2.ap3d.ap3d.ap2 + ap2.ap3d.ap3.ap2d +ap2.ap3d.ap3.ap2 +
ap2.ap3.ap3d.ap2d +ap2.ap3.ap3d.ap2 + ap2.ap3.ap3.ap2d +
ap2.ap3.ap3.ap2 + ap2d.ap3d.ap4d.ap1d +ap2d.ap3d.ap4d.ap1 +
ap2d.ap3d.ap4.ap1d +ap2d.ap3d.ap4.ap1 + ap2d.ap3.ap4d.ap1d +
ap2d.ap3.ap4d.ap1 + ap2d.ap3.ap4.ap1d +ap2d.ap3.ap4.ap1 +
ap2.ap3d.ap4d.ap1d +ap2.ap3d.ap4d.ap1 + ap2.ap3d.ap4.ap1d +
ap2.ap3d.ap4.ap1 + ap2.ap3.ap4d.ap1d +ap2.ap3.ap4d.ap1 +
ap2.ap3.ap4.ap1d +ap2.ap3.ap4.ap1 + ap2d.ap4d.ap1d.ap3d +
ap2d.ap4d.ap1d.ap3 + ap2d.ap4d.ap1.ap3d +ap2d.ap4d.ap1.ap3 +
ap2d.ap4.ap1d.ap3d +ap2d.ap4.ap1d.ap3 + ap2d.ap4.ap1.ap3d +
ap2d.ap4.ap1.ap3 + ap2.ap4d.ap1d.ap3d +ap2.ap4d.ap1d.ap3 +
ap2.ap4d.ap1.ap3d +ap2.ap4d.ap1.ap3 + ap2.ap4.ap1d.ap3d +
ap2.ap4.ap1d.ap3 + ap2.ap4.ap1.ap3d +ap2.ap4.ap1.ap3 +
ap2d.ap4d.ap2d.ap2d +ap2d.ap4d.ap2d.ap2 + ap2d.ap4d.ap2.ap2d +
ap2d.ap4d.ap2.ap2 + ap2d.ap4.ap2d.ap2d +ap2d.ap4.ap2d.ap2 +
ap2d.ap4.ap2.ap2d +ap2d.ap4.ap2.ap2 + ap2.ap4d.ap2d.ap2d +
ap2.ap4d.ap2d.ap2 + ap2.ap4d.ap2.ap2d +ap2.ap4d.ap2.ap2 +
ap2.ap4.ap2d.ap2d +ap2.ap4.ap2d.ap2 + ap2.ap4.ap2.ap2d +
ap2.ap4.ap2.ap2 + ap2d.ap4d.ap3d.ap1d +ap2d.ap4d.ap3d.ap1 +
ap2d.ap4d.ap3.ap1d +ap2d.ap4d.ap3.ap1 + ap2d.ap4.ap3d.ap1d +
ap2d.ap4.ap3d.ap1 + ap2d.ap4.ap3.ap1d +ap2d.ap4.ap3.ap1 +
ap2.ap4d.ap3d.ap1d +ap2.ap4d.ap3d.ap1 + ap2.ap4d.ap3.ap1d +
ap2.ap4d.ap3.ap1 + ap2.ap4.ap3d.ap1d +ap2.ap4.ap3d.ap1 +
ap2.ap4.ap3.ap1d +ap2.ap4.ap3.ap1 + ap3d.ap1d.ap2d.ap4d +
ap3d.ap1d.ap2d.ap4 + ap3d.ap1d.ap2.ap4d +ap3d.ap1d.ap2.ap4 +
ap3d.ap1.ap2d.ap4d +ap3d.ap1.ap2d.ap4 + ap3d.ap1.ap2.ap4d +
ap3d.ap1.ap2.ap4 + ap3.ap1d.ap2d.ap4d +ap3.ap1d.ap2d.ap4 +
ap3.ap1d.ap2.ap4d +ap3.ap1d.ap2.ap4 + ap3.ap1.ap2d.ap4d +
ap3.ap1.ap2d.ap4 + ap3.ap1.ap2.ap4d +ap3.ap1.ap2.ap4 +
ap3d.ap1d.ap3d.ap3d +ap3d.ap1d.ap3d.ap3 + ap3d.ap1d.ap3.ap3d +
ap3d.ap1d.ap3.ap3 + ap3d.ap1.ap3d.ap3d +ap3d.ap1.ap3d.ap3 +
ap3d.ap1.ap3.ap3d +ap3d.ap1.ap3.ap3 + ap3.ap1d.ap3d.ap3d +
ap3.ap1d.ap3d.ap3 + ap3.ap1d.ap3.ap3d +ap3.ap1d.ap3.ap3 +
ap3.ap1.ap3d.ap3d +ap3.ap1.ap3d.ap3 + ap3.ap1.ap3.ap3d +
ap3.ap1.ap3.ap3 + ap3d.ap1d.ap4d.ap2d +ap3d.ap1d.ap4d.ap2 +
ap3d.ap1d.ap4.ap2d +ap3d.ap1d.ap4.ap2 + ap3d.ap1.ap4d.ap2d +
ap3d.ap1.ap4d.ap2 + ap3d.ap1.ap4.ap2d +ap3d.ap1.ap4.ap2 +
ap3.ap1d.ap4d.ap2d +ap3.ap1d.ap4d.ap2 + ap3.ap1d.ap4.ap2d +
ap3.ap1d.ap4.ap2 + ap3.ap1.ap4d.ap2d +ap3.ap1.ap4d.ap2 +
ap3.ap1.ap4.ap2d +ap3.ap1.ap4.ap2 + ap3d.ap2d.ap1d.ap4d +
ap3d.ap2d.ap1d.ap4 + ap3d.ap2d.ap1.ap4d +ap3d.ap2d.ap1.ap4 +
ap3d.ap2.ap1d.ap4d +ap3d.ap2.ap1d.ap4 + ap3d.ap2.ap1.ap4d +
ap3d.ap2.ap1.ap4 + ap3.ap2d.ap1d.ap4d +ap3.ap2d.ap1d.ap4 +
ap3.ap2d.ap1.ap4d +ap3.ap2d.ap1.ap4 + ap3.ap2.ap1d.ap4d +
ap3.ap2.ap1d.ap4 + ap3.ap2.ap1.ap4d +ap3.ap2.ap1.ap4 +
ap3d.ap2d.ap2d.ap3d +ap3d.ap2d.ap2d.ap3 + ap3d.ap2d.ap2.ap3d +
ap3d.ap2d.ap2.ap3 + ap3d.ap2.ap2d.ap3d +ap3d.ap2.ap2d.ap3 +
ap3d.ap2.ap2.ap3d +ap3d.ap2.ap2.ap3 + ap3.ap2d.ap2d.ap3d +
ap3.ap2d.ap2d.ap3 + ap3.ap2d.ap2.ap3d +ap3.ap2d.ap2.ap3 +
ap3.ap2.ap2d.ap3d +ap3.ap2.ap2d.ap3 + ap3.ap2.ap2.ap3d +
ap3.ap2.ap2.ap3 + ap3d.ap2d.ap3d.ap2d +ap3d.ap2d.ap3d.ap2 +
ap3d.ap2d.ap3.ap2d +ap3d.ap2d.ap3.ap2 + ap3d.ap2.ap3d.ap2d +
ap3d.ap2.ap3d.ap2 + ap3d.ap2.ap3.ap2d +ap3d.ap2.ap3.ap2 +
ap3.ap2d.ap3d.ap2d +ap3.ap2d.ap3d.ap2 + ap3.ap2d.ap3.ap2d +
ap3.ap2d.ap3.ap2 + ap3.ap2.ap3d.ap2d +ap3.ap2.ap3d.ap2 +
ap3.ap2.ap3.ap2d +ap3.ap2.ap3.ap2 + ap3d.ap2d.ap4d.ap1d +
ap3d.ap2d.ap4d.ap1 + ap3d.ap2d.ap4.ap1d +ap3d.ap2d.ap4.ap1 +
ap3d.ap2.ap4d.ap1d +ap3d.ap2.ap4d.ap1 + ap3d.ap2.ap4.ap1d +
ap3d.ap2.ap4.ap1 + ap3.ap2d.ap4d.ap1d +ap3.ap2d.ap4d.ap1 +
ap3.ap2d.ap4.ap1d +ap3.ap2d.ap4.ap1 + ap3.ap2.ap4d.ap1d +
ap3.ap2.ap4d.ap1 + ap3.ap2.ap4.ap1d +ap3.ap2.ap4.ap1 +
ap3d.ap3d.ap1d.ap3d +ap3d.ap3d.ap1d.ap3 + ap3d.ap3d.ap1.ap3d +
ap3d.ap3d.ap1.ap3 + ap3d.ap3.ap1d.ap3d +ap3d.ap3.ap1d.ap3 +
ap3d.ap3.ap1.ap3d +ap3d.ap3.ap1.ap3 + ap3.ap3d.ap1d.ap3d +
ap3.ap3d.ap1d.ap3 + ap3.ap3d.ap1.ap3d +ap3.ap3d.ap1.ap3 +
ap3.ap3.ap1d.ap3d +ap3.ap3.ap1d.ap3 + ap3.ap3.ap1.ap3d +
ap3.ap3.ap1.ap3 + ap3d.ap3d.ap2d.ap2d +ap3d.ap3d.ap2d.ap2 +
ap3d.ap3d.ap2.ap2d +ap3d.ap3d.ap2.ap2 + ap3d.ap3.ap2d.ap2d +
ap3d.ap3.ap2d.ap2 + ap3d.ap3.ap2.ap2d +ap3d.ap3.ap2.ap2 +
ap3.ap3d.ap2d.ap2d +ap3.ap3d.ap2d.ap2 + ap3.ap3d.ap2.ap2d +
ap3.ap3d.ap2.ap2 + ap3.ap3.ap2d.ap2d +ap3.ap3.ap2d.ap2 +
ap3.ap3.ap2.ap2d +ap3.ap3.ap2.ap2 + ap3d.ap3d.ap3d.ap1d +
ap3d.ap3d.ap3d.ap1 + ap3d.ap3d.ap3.ap1d +ap3d.ap3d.ap3.ap1 +
ap3d.ap3.ap3d.ap1d +ap3d.ap3.ap3d.ap1 + ap3d.ap3.ap3.ap1d +
ap3d.ap3.ap3.ap1 + ap3.ap3d.ap3d.ap1d +ap3.ap3d.ap3d.ap1 +
ap3.ap3d.ap3.ap1d +ap3.ap3d.ap3.ap1 + ap3.ap3.ap3d.ap1d +
ap3.ap3.ap3d.ap1 + ap3.ap3.ap3.ap1d +ap3.ap3.ap3.ap1 +
ap3d.ap4d.ap1d.ap2d +ap3d.ap4d.ap1d.ap2 + ap3d.ap4d.ap1.ap2d +
ap3d.ap4d.ap1.ap2 + ap3d.ap4.ap1d.ap2d +ap3d.ap4.ap1d.ap2 +
ap3d.ap4.ap1.ap2d +ap3d.ap4.ap1.ap2 + ap3.ap4d.ap1d.ap2d +
ap3.ap4d.ap1d.ap2 + ap3.ap4d.ap1.ap2d +ap3.ap4d.ap1.ap2 +
ap3.ap4.ap1d.ap2d +ap3.ap4.ap1d.ap2 + ap3.ap4.ap1.ap2d +
ap3.ap4.ap1.ap2 + ap3d.ap4d.ap2d.ap1d +ap3d.ap4d.ap2d.ap1 +
ap3d.ap4d.ap2.ap1d +ap3d.ap4d.ap2.ap1 + ap3d.ap4.ap2d.ap1d +
ap3d.ap4.ap2d.ap1 + ap3d.ap4.ap2.ap1d +ap3d.ap4.ap2.ap1 +
ap3.ap4d.ap2d.ap1d +ap3.ap4d.ap2d.ap1 + ap3.ap4d.ap2.ap1d +
ap3.ap4d.ap2.ap1 + ap3.ap4.ap2d.ap1d +ap3.ap4.ap2d.ap1 +
ap3.ap4.ap2.ap1d +ap3.ap4.ap2.ap1 + ap4d.ap1d.ap1d.ap4d +
ap4d.ap1d.ap1d.ap4 + ap4d.ap1d.ap1.ap4d +ap4d.ap1d.ap1.ap4 +
ap4d.ap1.ap1d.ap4d +ap4d.ap1.ap1d.ap4 + ap4d.ap1.ap1.ap4d +
ap4d.ap1.ap1.ap4 + ap4.ap1d.ap1d.ap4d +ap4.ap1d.ap1d.ap4 +
ap4.ap1d.ap1.ap4d +ap4.ap1d.ap1.ap4 + ap4.ap1.ap1d.ap4d +
ap4.ap1.ap1d.ap4 + ap4.ap1.ap1.ap4d +ap4.ap1.ap1.ap4 +
ap4d.ap1d.ap2d.ap3d +ap4d.ap1d.ap2d.ap3 + ap4d.ap1d.ap2.ap3d +
ap4d.ap1d.ap2.ap3 + ap4d.ap1.ap2d.ap3d +ap4d.ap1.ap2d.ap3 +
ap4d.ap1.ap2.ap3d +ap4d.ap1.ap2.ap3 + ap4.ap1d.ap2d.ap3d +
ap4.ap1d.ap2d.ap3 + ap4.ap1d.ap2.ap3d +ap4.ap1d.ap2.ap3 +
ap4.ap1.ap2d.ap3d +ap4.ap1.ap2d.ap3 + ap4.ap1.ap2.ap3d +
ap4.ap1.ap2.ap3 + ap4d.ap1d.ap3d.ap2d +ap4d.ap1d.ap3d.ap2 +
ap4d.ap1d.ap3.ap2d +ap4d.ap1d.ap3.ap2 + ap4d.ap1.ap3d.ap2d +
ap4d.ap1.ap3d.ap2 + ap4d.ap1.ap3.ap2d +ap4d.ap1.ap3.ap2 +
ap4.ap1d.ap3d.ap2d +ap4.ap1d.ap3d.ap2 + ap4.ap1d.ap3.ap2d +
ap4.ap1d.ap3.ap2 + ap4.ap1.ap3d.ap2d +ap4.ap1.ap3d.ap2 +
ap4.ap1.ap3.ap2d +ap4.ap1.ap3.ap2 + ap4d.ap1d.ap4d.ap1d +
ap4d.ap1d.ap4d.ap1 + ap4d.ap1d.ap4.ap1d +ap4d.ap1d.ap4.ap1 +
ap4d.ap1.ap4d.ap1d +ap4d.ap1.ap4d.ap1 + ap4d.ap1.ap4.ap1d +
ap4d.ap1.ap4.ap1 + ap4.ap1d.ap4d.ap1d +ap4.ap1d.ap4d.ap1 +
ap4.ap1d.ap4.ap1d +ap4.ap1d.ap4.ap1 + ap4.ap1.ap4d.ap1d +
ap4.ap1.ap4d.ap1 + ap4.ap1.ap4.ap1d +ap4.ap1.ap4.ap1 +
ap4d.ap2d.ap1d.ap3d +ap4d.ap2d.ap1d.ap3 + ap4d.ap2d.ap1.ap3d +
ap4d.ap2d.ap1.ap3 + ap4d.ap2.ap1d.ap3d +ap4d.ap2.ap1d.ap3 +
ap4d.ap2.ap1.ap3d +ap4d.ap2.ap1.ap3 + ap4.ap2d.ap1d.ap3d +
ap4.ap2d.ap1d.ap3 + ap4.ap2d.ap1.ap3d +ap4.ap2d.ap1.ap3 +
ap4.ap2.ap1d.ap3d +ap4.ap2.ap1d.ap3 + ap4.ap2.ap1.ap3d +
ap4.ap2.ap1.ap3 + ap4d.ap2d.ap2d.ap2d +ap4d.ap2d.ap2d.ap2 +
ap4d.ap2d.ap2.ap2d +ap4d.ap2d.ap2.ap2 + ap4d.ap2.ap2d.ap2d +
ap4d.ap2.ap2d.ap2 + ap4d.ap2.ap2.ap2d +ap4d.ap2.ap2.ap2 +
ap4.ap2d.ap2d.ap2d +ap4.ap2d.ap2d.ap2 + ap4.ap2d.ap2.ap2d +
ap4.ap2d.ap2.ap2 + ap4.ap2.ap2d.ap2d +ap4.ap2.ap2d.ap2 +
ap4.ap2.ap2.ap2d +ap4.ap2.ap2.ap2 + ap4d.ap2d.ap3d.ap1d +
ap4d.ap2d.ap3d.ap1 + ap4d.ap2d.ap3.ap1d +ap4d.ap2d.ap3.ap1 +
ap4d.ap2.ap3d.ap1d +ap4d.ap2.ap3d.ap1 + ap4d.ap2.ap3.ap1d +
ap4d.ap2.ap3.ap1 + ap4.ap2d.ap3d.ap1d +ap4.ap2d.ap3d.ap1 +
ap4.ap2d.ap3.ap1d +ap4.ap2d.ap3.ap1 + ap4.ap2.ap3d.ap1d +
ap4.ap2.ap3d.ap1 + ap4.ap2.ap3.ap1d +ap4.ap2.ap3.ap1 +
ap4d.ap3d.ap1d.ap2d +ap4d.ap3d.ap1d.ap2 + ap4d.ap3d.ap1.ap2d +
ap4d.ap3d.ap1.ap2 + ap4d.ap3.ap1d.ap2d +ap4d.ap3.ap1d.ap2 +
ap4d.ap3.ap1.ap2d +ap4d.ap3.ap1.ap2 + ap4.ap3d.ap1d.ap2d +
ap4.ap3d.ap1d.ap2 + ap4.ap3d.ap1.ap2d +ap4.ap3d.ap1.ap2 +
ap4.ap3.ap1d.ap2d +ap4.ap3.ap1d.ap2 + ap4.ap3.ap1.ap2d +
ap4.ap3.ap1.ap2 + ap4d.ap3d.ap2d.ap1d +ap4d.ap3d.ap2d.ap1 +
ap4d.ap3d.ap2.ap1d +ap4d.ap3d.ap2.ap1 + ap4d.ap3.ap2d.ap1d +
ap4d.ap3.ap2d.ap1 + ap4d.ap3.ap2.ap1d +ap4d.ap3.ap2.ap1 +
ap4.ap3d.ap2d.ap1d +ap4.ap3d.ap2d.ap1 + ap4.ap3d.ap2.ap1d +
ap4.ap3d.ap2.ap1 + ap4.ap3.ap2d.ap1d +ap4.ap3.ap2d.ap1 +
ap4.ap3.ap2.ap1d +ap4.ap3.ap2.ap1 + ap4d.ap4d.ap1d.ap1d +
ap4d.ap4d.ap1d.ap1 + ap4d.ap4d.ap1.ap1d +ap4d.ap4d.ap1.ap1 +
ap4d.ap4.ap1d.ap1d +ap4d.ap4.ap1d.ap1 + ap4d.ap4.ap1.ap1d +
ap4d.ap4.ap1.ap1 + ap4.ap4d.ap1d.ap1d +ap4.ap4d.ap1d.ap1 +
ap4.ap4d.ap1.ap1d +ap4.ap4d.ap1.ap1 + ap4.ap4.ap1d.ap1d +
ap4.ap4.ap1d.ap1 + ap4.ap4.ap1.ap1d +ap4.ap4.ap1.ap1)
NumberOp = ap1d.ap1 + ap2d.ap2 + ap3d.ap3 + ap4d.ap4
AutoCorr = Table[{t/200, Abs[vacuum.MatrixExp[-I*t*H/200].vacuum]^2}, {t, 1, 2000}]
Graphics[Line[AutoCorr], PlotRange -> {{0, 10}, {0, 1}}, Axes -> True]
Numbo = Table[{t/200, Re[vacuum.MatrixExp[I*t*H/200].NumberOp.MatrixExp[-I*t*H/200].vacuum]}, {t, 0, 2000}]
Graphics[Line[Numbo], PlotRange -> {{0, 10}, {0, 3}}, Axes -> True]
ListDensityPlot[H]
Histogram[Eigenvalues[H]]