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 |