Dear Saeid,

to give an unspecific answer to your unspecific question: To begin with I would try to create a 3D array from your data. To be able to give more help, one needs at least a small but representative sample of your data.

Regards -- Henrik

Dear Saeid,

the first three rows of your data appear to be the coordinates and are Integers - excellent! (This is why I wished to see a sample!) Try this:

ClearAll["Global`*"]

textData = Import[" < your file > ", "Table"];
(* dimenstions taken from the last row: *)
dims = Most[Last@textData] + 1
(* generate empty array: *)
data3D = ConstantArray[0, dims];
(* values are filled in: *)    
Set[data3D[[#1 + 1, #2 + 1, #3 + 1]], #4] & @@@ textData;

Attributes[logScale] = Listable;
logScale[data_] := Piecewise[{{0, data < 0.001}}, Log[1. + data]];

logData3D = logScale[data3D];

Now you can do e.g.:

Regards -- Henrik

Hi,

without data it is hard to tell what the problem is - so Marcos answer has some background. To have a hopefully appropriate example at hand I created a 3D array of data describing a 3D dose distribution of a 15MeV electron beam in water. Then I get:

(Code and data come as an attachment.) I basically want to communicate that if Image3D does not work for you, then you can use the nice functions ListSliceDensityPlot3D, ListSliceContourPlot3D and friends.

BTW: A simple way to apply a function to the values of a multidimensional array is e.g.:

Attributes[logScale] = Listable;
logScale[dose_] := Piecewise[{{0, dose < 0.001}}, Log[1. + dose]]

logDose3D = logScale[dose3D];

Regards -- Henrik

Attachments:

Dear Saeid,

to give an unspecific answer to your unspecific question: To begin with I would try to create a 3D array from your data. To be able to give more help, one needs at least a small but representative sample of your data.

Regards -- Henrik

Hi,

to answer your question, people might need some additional info. What is the data like and what code did you use. I can easily create 3D data and plot it in more than one colour:

data = RandomReal[1, {10, 10, 10}];
Image3D[data, ColorFunction -> "TemperatureMap"]

What function did you use? I am quite sure you did not use Image3D which in fact appears to be quite useless in the context you describe, but it would be helpful to get some more info on what you've tried.

Cheers,

M.