« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
3D Volumetric Image Processing
Out-of-Core Analysis of 3D Images
Compute the histogram of a volume using out-of-core technology.
In[1]:=
X
counts = ConstantArray[0, 256];
In[2]:=
X
f[x_] := Block[{b = Clip[Floor[255 x + .5], {0, 255}]}, counts[[b + 1]]++];
In[3]:=
X
ImageFileScan[f, ExampleData[{"TestImage3D", "CThead"}, "FilePath"]];
In[4]:=
X
ListLinePlot[counts, InterpolationOrder -> 0, Filling -> Bottom]
Out[4]=