Skip to content

Commit

Permalink
Indenting was weird
Browse files Browse the repository at this point in the history
  • Loading branch information
sashahbc authored and mahrud committed Aug 31, 2024
1 parent 2458ff2 commit 48aefe9
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions M2/Macaulay2/packages/ToricVectorBundles.m2
Original file line number Diff line number Diff line change
Expand Up @@ -832,13 +832,13 @@ dual ToricVectorBundle := {} >> opts -> tvb -> (
-- Inverting the filtration. If the filtration has d steps then the new n-th boundary is -(d-n+1th boundary)-1 and the n-th step is the
-- d-n+2 th step
fT := hashTable apply(pairs tvb#"filtrationTable", (r,e) -> r => (
             newkeys := reverse drop(sort keys e, 1);
             newvalues := {{}} | apply(newkeys, k -> e#k);
             newkeys = {-first newkeys - 1} | -newkeys;
             hashTable apply(#newkeys, i -> newkeys#i => newvalues#i)
             )
       );
fMT := hashTable apply(pairs fT, q -> q#0 => (q1new:= hashTable flatten apply(pairs q#1, p -> apply(p#1, i -> i => p#0)); matrix {apply(#q1new, j -> q1new#j)}));
newkeys := reverse drop(sort keys e, 1);
newvalues := {{}} | apply(newkeys, k -> e#k);
newkeys = {-first newkeys - 1} | -newkeys;
hashTable apply(#newkeys, i -> newkeys#i => newvalues#i)
)
);
fMT := hashTable apply(pairs fT, q -> q#0 => (q1new:= hashTable flatten apply(pairs q#1, p -> apply(p#1, i -> i => p#0)); matrix {apply(#q1new, j -> q1new#j)}));
-- The orthogonal complement is given by the transpose of the inverse matrix
bT := hashTable apply(pairs tvb#"baseTable", p -> p#0 => transpose inverse p#1);
T := new ToricVectorBundleKlyachko from {
Expand Down

0 comments on commit 48aefe9

Please sign in to comment.