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