2240 DE(1)=DE(1)+X*X