@@ -66,32 +66,3 @@ for f! in (:svd_full!, :svd_compact!, :svd_trunc!)
6666 return F
6767 end
6868end
69-
70- function leftorth! (t:: AdjointTensorMap ; alg:: OFA = QRpos ())
71- InnerProductStyle (t) === EuclideanInnerProduct () ||
72- throw_invalid_innerproduct (:leftorth! )
73- return map (adjoint, reverse (rightorth! (adjoint (t); alg= alg' )))
74- end
75-
76- function rightorth! (t:: AdjointTensorMap ; alg:: OFA = LQpos ())
77- InnerProductStyle (t) === EuclideanInnerProduct () ||
78- throw_invalid_innerproduct (:rightorth! )
79- return map (adjoint, reverse (leftorth! (adjoint (t); alg= alg' )))
80- end
81-
82- function leftnull! (t:: AdjointTensorMap ; alg:: OFA = QR (), kwargs... )
83- InnerProductStyle (t) === EuclideanInnerProduct () ||
84- throw_invalid_innerproduct (:leftnull! )
85- return adjoint (rightnull! (adjoint (t); alg= alg' , kwargs... ))
86- end
87-
88- function rightnull! (t:: AdjointTensorMap ; alg:: OFA = LQ (), kwargs... )
89- InnerProductStyle (t) === EuclideanInnerProduct () ||
90- throw_invalid_innerproduct (:rightnull! )
91- return adjoint (leftnull! (adjoint (t); alg= alg' , kwargs... ))
92- end
93-
94- function tsvd! (t:: AdjointTensorMap ; trunc= NoTruncation (), p:: Real = 2 , alg= SDD ())
95- u, s, vt, err = tsvd! (adjoint (t); trunc= trunc, p= p, alg= alg)
96- return adjoint (vt), adjoint (s), adjoint (u), err
97- end
0 commit comments