Skip to content

Commit

Permalink
Adapt to linear solving changes
Browse files Browse the repository at this point in the history
  • Loading branch information
lgoettgens committed Feb 22, 2024
1 parent bbaf583 commit 0040c91
Showing 1 changed file with 6 additions and 5 deletions.
11 changes: 6 additions & 5 deletions src/SmashProductPBWDeformLie.jl
Original file line number Diff line number Diff line change
Expand Up @@ -149,18 +149,19 @@ function all_pbwdeformations(
end

@vprintln :PBWDeformations 1 "Computing the kernel..."
kernel_dim, kernel = right_kernel(lgs)
ker = kernel(lgs; side=:right)
ker_dim = ncols(ker)

if special_return <: SMat
return kernel, vars
return ker, vars
end

@vprintln :PBWDeformations 1 "Computing a basis..."
kappas = Vector{DeformationMap{C}}(undef, kernel_dim)
for l in 1:kernel_dim
kappas = Vector{DeformationMap{C}}(undef, ker_dim)
for l in 1:ker_dim
kappa = zero_matrix(underlying_algebra(sp), dimV, dimV)
for (i, b) in enumerate(deform_basis)
kappa += kernel[i, l] * b
kappa += ker[i, l] * b
end
kappas[l] = kappa
end
Expand Down

0 comments on commit 0040c91

Please sign in to comment.