Load and visualize data

Load segmented images

obj1 = Import[segmentedFile1, "PPM"] ; obj2 = Import[segmentedFile2, "PPM" ... e2T, "PPM"] ; Show[GraphicsArray[{{obj1, obj2, obj1T, obj2T}}], ImageSize400] ;

[Graphics:../HTMLFiles/index_26.gif]

Extract RGB data

data1 = ExtractRGB[obj1] ; data2 = ExtractRGB[obj2] ;

Visualize RGB data

3d distribution in RGB cube

gobj1 = PlotRepresentativeSample3D[data1, 2000, pointStyle1] ; gobj2 = PlotRepresentativeSample3D[data2, 2000, pointStyle2] ; gdist1 = Show[{gobj1, gobj2}, nS, ImageSize288] ;

RG plane

which = {1, 2} ; gobj1 = PlotRepresentativeSample2D[data1, 2000, which, pointStyle1] ; gobj2 = ... Show[{gobj1, gobj2}, nS, FrameTicksFalse, FrameLabelNone, ImageSize288] ;

RB plane

which = {1, 3} ; gobj1 = PlotRepresentativeSample2D[data1, 2000, which, pointStyle1] ; gobj2 = ... Show[{gobj1, gobj2}, nS, FrameTicksFalse, FrameLabelNone, ImageSize288] ;

GB plane

which = {2, 3} ; gobj1 = PlotRepresentativeSample2D[data1, 2000, which, pointStyle1] ; gobj2 = ... Show[{gobj1, gobj2}, nS, FrameTicksFalse, FrameLabelNone, ImageSize288] ;

Show all

Show[GraphicsArray[{{gdist1, gdist2}, {gdist3, gdist4}}], imSize] ;

[Graphics:../HTMLFiles/index_33.gif]

Created by Mathematica  (October 9, 2003)