![]() |
In Code 6.9, we described \( F_{5 \omega_1}\) as a sum of terms of the form \[ c_{I J} (X_{-\alpha_{i_k}} \ldots X_{-\alpha_{i_1}}.w_1) \otimes (X_{-\alpha_{j_\ell}} \ldots X_{-\alpha_{j_1}}.w_2) \] In Code 6.11, we found \(w_1\) and \(w_2\) as explicit polynomials in \( \operatorname{Sym}^{\bullet} \Lambda^7 S^{+}\). However, these polynomials have 569 terms and 785 terms, respectively. and as we successively apply the operators \( X_{-\alpha_{i_1}}\), the number of terms grows very large, and computing these basis elements explicitly would require too much memory.
To circumvent this problem, we evaluate each monomial in \(w_1\) or \(w_2\) individually instead. The union of the supports of \(w_1\) and \(w_2\) has 808 elements. For each term \(t\), we compute all of the operations \( (X_{-\alpha_{i_k}} \ldots X_{-\alpha_{i_1}}.t) \) and \( (X_{-\alpha_{j_\ell}} \ldots X_{-\alpha_{j_1}}.t)\) that appear in any basis element, and evaluate these polynomials on the matrices \( M_{cusp}\) , \(M_{rib},\) and \( M_{nod,t}\), respectively.
These calculations were performed by running files of the following type. EvaluateMyBasis.7-000.m2.txt. This file loads the additional file 5w1WordsByWeight.m2.txt
Each such file computed 12 terms. For each term, it produced four output files of the following form.
After all 808 terms were evaluated, these values were combined to produce values of the basis elements \[ (X_{-\alpha_{i_k}} \ldots X_{-\alpha_{i_1}}.w_1) \otimes (X_{-\alpha_{j_\ell}} \ldots X_{-\alpha_{j_1}}.w_2) \] For example, the code to do this for the balanced ribbon is in the following two files.
Finally, the values of these basis elements were combined to compute the value of \( F_{5 \omega_1} \) for each example. Here is the transcript of this calculation for the balanced ribbon.
Here are the files loaded in this session.
Macaulay2, version 1.20
with packages: ConwayPolynomials, Elimination, IntegralClosure,
InverseSystems, Isomorphism, LLLBases, MinimalPrimes,
OnlineLookup, PrimaryDecomposition, ReesAlgebra, Saturation,
TangentCone
i1 : load "MyBasisWords.m2";
i2 : load "Wt0TensorBasis.m2";
i3 : load "V5w1otimesself invariant.m2";
i4 : load "v1andv2OnBR7.m2";
i5 : #MyBasisWords
o5 = 1782
i6 : #v1BR7
o6 = 1782
i7 : #v2BR7
o7 = 1782
i8 : #Wt0TensorBasis
o8 = 4722
i9 : #f5w1
o9 = 4722
i10 : f5w1OnBR7 = sum apply(#Wt0TensorBasis, i -> (f5w1_i)*(v1BR7_(Wt0TensorBasis_i_0))*(v2BR7_(Wt0TensorBasis_i_1)));
i11 : L = apply(#Wt0TensorBasis, i -> (f5w1_i)*(v1BR7_(Wt0TensorBasis_i_0))*(v2BR7_(Wt0TensorBasis_i_1)));
i12 : sum L
92664000
o12 = --------
343
o12 : QQ
i13 : quit