Wolfram Cloud Document

In[]:=

idN=ImageData

;

In[]:=

Map[Length,idN]

Out[]=

{100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100}

In[]:=

Length[idN]

Out[]=

92

In[]:=

Dimensions[idN]

Out[]=

{92,100}

In[]:=

ListPlot3D[idN]

Out[]=

In[]:=

flat=Flatten[idN];

In[]:=

part=Partition[flat,2]

Out[]=

{{0.607843,0.592157},{0.596078,0.607843},{0.603922,0.607843},{0.615686,0.615686},{0.623529,0.611765},

⋯4590⋯

,{0.,0.},{0.,0.},{0.,0.},{0.,0.},{0.,0.}}

large output

show less

show all

set size limit...

In[]:=

Export["part.csv",idN]

Out[]=

part.csv

In[]:=

ListPlot3D[part]

Out[]=