Extract 2d data
Created by
Mathematica
(September 8, 2003)
![RowBox[{RowBox[{d2d1, =, RowBox[{(, RowBox[{{#[[which[[1]]]], #[[which[[2]]]]} &, /@, , RowBox[{(, RowBox[{data1, /, 255.}], )}]}], )}]}], ;}]](../HTMLFiles/index_57.gif){kind=small}