1% 2% error in sum operator, reported by Petrov Alexander 3% 4 5operator H,k,x; 6 7 8H := sum( (1/2)*k(i)*x(i)**2, i, -infinity,infinity); 9 10 11 2 12 k(i)*x(i) 13h := sum(------------,i, - infinity,infinity) 14 2 15 16r1 := {df(sum( ~f, ~i, ~i1,~i2),~x) => sum( df(f, x),i,i1,i2)}; 17 18 19r1 := {df(sum(~f,~i,~i1,~i2),~x) => sum(df(f,x),i,i1,i2)} 20 21(df(H,x(i)) where r1); 22 23 24sum(k(i)*x(i),i, - infinity,infinity) 25 26 27end; 28 29Tested on x86_64-pc-windows CSL 30Time (counter 1): 0 ms 31 32End of Lisp run after 0.00+0.06 seconds 33real 0.20 34user 0.03 35sys 0.04 36