# How can I increase the speed of a dynamic visualization of a Raster3D? [closed]

I have big list of data. Its length is 56203*100 and I partitioned biglist into 100 sublists, so each sublist length is 56203. In each sublist each point structure is {0.1,0.345,0.12}and represents the RGBcolor value.

I used this entire sublist into Raster3D[subList] and I used Slider[] function to change the sublist dynamically. Whenever I drag the slider next sub list should go to Raster3D[] function.

It’s working fine but the problem is whenever I drag the slider it takes lots of time to execute. How can I increase the speed of the application when I drag.

Slider[Dynamic[n], {1, 9, 1}, ContinuousAction -> False]
Dynamic[Graphics3D[{Opacity[.1], Raster3D[colorAssignerResult[[n]]],Lighting -> {{"Ambient", White}}}, RotationAction -> "Clip"]]


Sorry I can't give the input for the funtion here because its huge amount of data. but I can tell how much it is, the data 56203 * 100 times. The given function is would not work because of no input.

-
It might be a good idea to provide some self-contained code. Just use RandomReal or something to generate some data, and provide a minimum example of your problem that others can run and perhaps analyse. You don't have to use a massive test dataset - just enough data so that people can see some sluggishness... –  cormullion Mar 24 '13 at 18:59

## closed as unclear what you're asking by Yves Klett, Artes, bobthechemist, Sjoerd C. de Vries, rm -rf♦Jan 9 at 15:05

Please clarify your specific problem or add additional details to highlight exactly what you need. As it's currently written, it’s hard to tell exactly what you're asking. See the How to Ask page for help clarifying this question.If this question can be reworded to fit the rules in the help center, please edit the question.

It's difficult without a full specification to determine what might be the problem.

You say you have 100 sets of 56203 points (or better, colors of those points). Since we're talking about Raster3D I assume they lie in a beam. Let's try to find its size:

FactorInteger[56203]


{{7, 2}, {31, 1}, {37, 1}}

So, this might be an object with dimensions 49x31x37.

randomColors = RandomReal[{0, 1}, {100, 49, 31, 37, 3}];


Running the code (with ContinuousAction -> True and slider over the full 100 sets instead of 9):

Dynamic[Refresh[ClockGauge[AbsoluteTime[]], UpdateInterval -> 1]]
Slider[Dynamic[n], {1, 100, 1}, ContinuousAction -> True]
Dynamic[Graphics3D[{Opacity[.1], Raster3D[randomColors[[n]]],
Lighting -> {{"Ambient", White}}}, RotationAction -> "Clip"]]


No problems at all.

-
+1 for ClockGauge –  bobthechemist Jan 9 at 13:41
All this on a 2GB RAM virtual machine? Nice... –  Ajasja Jan 9 at 17:56