commit 75590722e531f14a12991479a938916676926fe5 parent 71847f41e7784bdfd84c7624d61d3ac45d2fbdb4 Author: Miroslav Urbanek <mu@miroslavurbanek.com> Date: Thu, 29 Jun 2017 03:59:39 +0200 Remove tensor-normalize from inputs/revivals.lisp The function has been recently added to tensor.lisp. Diffstat:
inputs/revivals.lisp | | | 19 | ------------------- |
1 file changed, 0 insertions(+), 19 deletions(-)
diff --git a/inputs/revivals.lisp b/inputs/revivals.lisp @@ -15,25 +15,6 @@ ;; main -(defun tensor-norm (tensor) - (sqrt - (loop - for s in (tensor-sectors tensor) - sum (expt (array-norm (sector-array s)) 2)))) - -(defun tensor-normalize (tensor) - (let ((n (tensor-norm tensor))) - (make-tensor - :indices - (tensor-indices tensor) - :sectors - (mapcar - #'(lambda (s) - (make-sector - :numbers (sector-numbers s) - :array (array-scalar-/ (sector-array s) n))) - (tensor-sectors tensor))))) - (defun left-normalize (mps maxdim) (let ((n (length mps))) (loop for i below (1- n) do