"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "common/core_linalg2.cc" between
free42-3.0.3.tar.gz and free42-3.0.4.tar.gz

About: Free42 is a re-implementation of the HP-42S scientific calculator and the HP-82240 printer.

core_linalg2.cc  (free42-3.0.3):core_linalg2.cc  (free42-3.0.4)
skipping to change at line 335 skipping to change at line 335
yim = a[2 * (k * n + j) + 1]; yim = a[2 * (k * n + j) + 1];
sum_re -= xre * yre - xim * yim; sum_re -= xre * yre - xim * yim;
sum_im -= xim * yre + xre * yim; sum_im -= xim * yre + xre * yim;
STATE(2); STATE(2);
} }
a[2 * (i * n + j)] = sum_re; a[2 * (i * n + j)] = sum_re;
a[2 * (i * n + j) + 1] = sum_im; a[2 * (i * n + j) + 1] = sum_im;
} }
max = 0; max = 0;
imax = j;
for (i = j; i < n; i++) { for (i = j; i < n; i++) {
sum_re = a[2 * (i * n + j)]; sum_re = a[2 * (i * n + j)];
sum_im = a[2 * (i * n + j) + 1]; sum_im = a[2 * (i * n + j) + 1];
for (k = 0; k < j; k++) { for (k = 0; k < j; k++) {
xre = a[2 * (i * n + k)]; xre = a[2 * (i * n + k)];
xim = a[2 * (i * n + k) + 1]; xim = a[2 * (i * n + k) + 1];
yre = a[2 * (k * n + j)]; yre = a[2 * (k * n + j)];
yim = a[2 * (k * n + j) + 1]; yim = a[2 * (k * n + j) + 1];
sum_re -= xre * yre - xim * yim; sum_re -= xre * yre - xim * yim;
sum_im -= xim * yre + xre * yim; sum_im -= xim * yre + xre * yim;
 End of changes. 1 change blocks. 
0 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)