Various scripts

The script for the paper "Essential spectrum".

Note: For each Mathematica notebook below, you only need to run the first line of code:
If[! TrueQ[Private`$ev], Block[{Private`$ev = True},
Print["Total time: ", First@AbsoluteTiming[ClearAll["Global`*"];
NotebookEvaluate[EvaluationNotebook[], InsertResults -> True]], " s"]]]
This will automatically evaluate the entire notebook and report its execution time.
Timing results are based on a 2022 MacBook Air with an M2 chip and 16GB of RAM.
  1. Mathematica notebook for Appendix A and B (43 seconds) and PDF printout (for those without access to Mathematica)
  2. Mathematica notebook for case l = 0, 1 (17 seconds) and PDF printout (for those without access to Mathematica)
  3. Mathematica notebook using Reduce (this takes only 2 seconds to check all cases including Appendix A, B, case l = 0, 1!) and PDF printout (for those without access to Mathematica)