|
|
|
|
Basic operators and adjoints |
Code for the operator is shown in module bin2.
for (id=0; id < nd; id++) {
i1 = 0.5 + (xy[0][id]-o1)/d1;
i2 = 0.5 + (xy[1][id]-o2)/d2;
if (0<=i1 && i1<m1 &&
0<=i2 && i2<m2) {
im = i1+i2*m1;
if (adj) mm[im] += dd[id];
else dd[id] += mm[im];
}
}
|
|
|---|
|
galbin
Figure 3. Binned depths of the Sea of Galilee. |
|
|
|
|
|
|
Basic operators and adjoints |