tebdol

Simulation of ultracold atoms in optical lattices
git clone https://miroslavurbanek.com/git/tebdol.git
Log | Files | Refs | README

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