Hot answers tagged graphics3d
6
Some things that might interest you:
dat = RandomReal[{1, 2}, {10, 10}];
ListPlot3D[dat, InterpolationOrder -> 0, Filling -> Bottom, Mesh -> None]
pillar[w_][h1_?NumericQ, {x_, y_}] := pillar[w][{0, h1}, {x, y}]
pillar[w_][{h0_, h1_}, {x_, y_}] := Cuboid[{x - w/2, y - w/2, h0}, {x + w/2, y + w/2, h1}]
Graphics3D[{
Opacity[0.5],
...
5
Update
I got a MatrixRank of 4 with the original approximate data, but with the updated exact data, the rank is 3.
The basic idea is that Orthogonalize will return an orthonormal basis for the subspace spanned by the vectors, along with some zero vectors interspersed. (Orthonormal means unit length vectors that are pairwise perpendicular.) Deleting the ...
3
I am not sure I understand completely what you desire to do - especially the following is not quite clear: when you click on a sphere, how would Manipulate know the depth of the desired point? (due to perspective, this will affect the output)
Then again, Mathematica offers a way to return coordinates with respect to "front and back intercepts with the 3D ...
3
so following my comment you can do this..
dz = .01; i3d =
Image3D[Table[
Image[Rasterize[
Graphics3D[Cylinder[{{0, 0, 0}, {1, 2, 0}}, 1], Boxed -> False,
ViewPoint -> {0, 0, Infinity},
PlotRange -> {All, All, {z - dz, z + dz}}]] ] , {z, -1, 1, dz}]];
ImageData[i3d][[100, 100, 100]]
The problem as QuadraticU noted is your 3D "objects" ...
Only top voted, non community-wiki answers of a minimum length are eligible
