I have data showing truncated octahedron geometry changing with time. How can I read those data into a Manipulate
expression? To be specific, I want to manipulate time and have other parameters change correspondingly as in my data. Those parameter value should show simultaneously.
Now I have geometry that I can change by varying the parameters. My Manipulate
code is
Manipulate[
Grid[{{RegionPlot3D[
x + y + z < 0.866 A && x + y - z < 0.866 A &&
x - y + z < 0.866 A && -x + y + z < 0.866 A &&
x + y + z > -0.866 A && x + y - z > -0.866 A &&
x - y + z > -0.866 A && -x + y + z > -0.866 A, {x, -0.5*r*A,
0.5*r*A}, {y, -0.5*r*A, 0.5*r*A}, {z, -0.5*r*A, 0.5*r*A},
ImageSize -> 300, Mesh -> 1, PlotRange -> {-16, 16}],
SpanFromLeft, SpanFromLeft}, {"volume(nm^3)",
ScientificForm[
NIntegrate[
Boole[void =
x + y + z < 0.866 A && x + y - z < 0.866 A &&
x - y + z < 0.866 A && -x + y + z < 0.866 A &&
x + y + z > -0.866 A && x + y - z > -0.866 A &&
x - y + z > -0.866 A && -x + y + z > -0.866 A], {x, -0.5*r*A,
0.5*r*A}, {y, -0.5*r*A, 0.5*r*A}, {z, -0.5*r*A, 0.5*r*A}],
3] }, {"{002}Facets area(nm^2)",
ScientificForm[12*(0.866 A - 0.5*r*A)^2,
3]}, {"{111}Facets area(nm^2)",
ScientificForm[
4*(3)^(0.5)*((0.866 A)^2 - 3*(0.866 A - 0.5*r*A)^2), 3]}}],
{{A, 20, "Distance between {111} facets (nm)"}, 1, 20, Slider, Appearance -> "Labeled"},
{{r, 1.4, "Aspect ratio"}, 1.04, 1.4, Slider, Appearance -> "Labeled"},
ControlPlacement -> Top]
And a small subset of my data is
Time A r
200 16.09 1.084524549
210 15.74 1.062261753
220 15.02 1.053262317
225 14.59 1.067169294
235 14.21 1.073187896