@@ -53,35 +53,11 @@ import MatrixFactorizations: AdjQLPackedQLayout, LayoutQ, QL, QLPackedQ, QLPacke
53
53
ul!, ul_layout
54
54
55
55
import SemiseparableMatrices: AbstractAlmostBandedLayout, _almostbanded_qr!
56
-
57
-
58
- LinearAlgebra. _cut_B (x:: AbstractVector , :: InfUnitRange ) = x
59
- LinearAlgebra. _cut_B (X:: AbstractMatrix , :: InfUnitRange ) = X
60
-
61
-
62
- if VERSION ≥ v " 1.11.0-DEV.21"
63
- using LinearAlgebra: UpperOrLowerTriangular
64
- else
65
- const UpperOrLowerTriangular{T,S} = Union{LinearAlgebra. UpperTriangular{T,S},
66
- LinearAlgebra. UnitUpperTriangular{T,S},
67
- LinearAlgebra. LowerTriangular{T,S},
68
- LinearAlgebra. UnitLowerTriangular{T,S}}
69
- end
70
-
56
+ import InfiniteArrays: UpperOrLowerTriangular
71
57
72
58
# BroadcastStyle(::Type{<:BandedMatrix{<:Any,<:Any,<:OneToInf}}) = LazyArrayStyle{2}()
73
59
74
- function ArrayLayouts. _power_by_squaring (_, :: NTuple{2,InfiniteCardinal{0}} , A:: AbstractMatrix{T} , p:: Integer ) where T
75
- if p < 0
76
- inv (A)^ (- p)
77
- elseif p == 0
78
- Eye {T} (∞)
79
- elseif p == 1
80
- copy (A)
81
- else
82
- A* A^ (p- 1 )
83
- end
84
- end
60
+
85
61
86
62
function choplength (c:: AbstractVector , tol)
87
63
@inbounds for k = length (c): - 1 : 1
@@ -128,7 +104,7 @@ pad(c::Transpose, ax, bx) = transpose(pad(parent(c), bx, ax))
128
104
pad (c:: Adjoint , ax, bx) = adjoint (pad (parent (c), bx, ax))
129
105
pad (c:: BlockVec , ax:: BlockedOneTo{Int,<:InfStepRange} ) = BlockVec (pad (c. args[1 ], size (c. args[1 ],1 ), ∞))
130
106
131
- export Vcat, Fill, ql, ql!, ∞, ContinuousSpectrumError, BlockTridiagonal
107
+ export ∞, ContinuousSpectrumError, BlockTridiagonal
132
108
133
109
include (" banded/hessenbergq.jl" )
134
110
0 commit comments