| New in Wolfram Mathematica 6: Real-Time 3D Graphics | ◄ previous | next ► |
Use Real-Time 3D Graphics as Input
Mathematica 6 allows you to treat 3D graphics just like any other form of input to any computation.
In[1]:=  |  Options[\!\(\*
Graphics3DBox[
GraphicsComplex3DBox[
NCache[{{
0, 0, (Rational[
9, 8] + Rational[3, 8] 5^Rational[1, 2])^Rational[1, 2]}, {
0, 0, Rational[-1, 2] (
Rational[3, 2] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {(
Rational[1, 8] + Rational[-1, 24] 5^Rational[1, 2])^Rational[
1, 2], Rational[1, 4] (-3 - 5^Rational[1, 2]), (
Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {(
Rational[1, 8] + Rational[-1, 24] 5^Rational[1, 2])^Rational[
1, 2], Rational[1, 4] (3 + 5^Rational[1, 2]), (
Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {(
Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[
1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2]),
Rational[-1, 2] (
Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {(
Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[
1, 2], Rational[1, 4] (1 + 5^Rational[1, 2]),
Rational[-1, 2] (
Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {(
Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[
1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2]), (
Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {(
Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[
1, 2], Rational[1, 4] (1 + 5^Rational[1, 2]), (
Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {-(
Rational[3, 4] + Rational[1, 3] 5^Rational[1, 2])^Rational[
1, 2], Rational[-1, 2], (
Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {-(
Rational[3, 4] + Rational[1, 3] 5^Rational[1, 2])^Rational[
1, 2], Rational[
1, 2], (Rational[
1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {(
Rational[3, 4] + Rational[1, 3] 5^Rational[1, 2])^Rational[
1, 2], Rational[-1, 2],
Rational[-1, 2] (
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {(
Rational[3, 4] + Rational[1, 3] 5^Rational[1, 2])^Rational[
1, 2], Rational[1, 2],
Rational[-1, 2] (
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {-(
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2], 0,
Rational[-1, 2] (
Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {
Rational[-1, 2] (
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2],
Rational[1, 4] (-1 - 5^Rational[1, 2]), (
Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {
Rational[-1, 2] (
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2],
Rational[1, 4] (1 + 5^Rational[1, 2]), (
Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {(Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[
1, 2], 0, (
Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[
1, 2]}, {
Rational[-1, 2] (
Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2],
Rational[1, 4] (-1 - 5^Rational[1, 2]),
Rational[-1, 2] (
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {
Rational[-1, 2] (
Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2],
Rational[1, 4] (1 + 5^Rational[1, 2]),
Rational[-1, 2] (
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {
Root[1 - 36 #^2 + 144 #^4& , 2, 0],
Rational[1, 4] (-3 - 5^Rational[1, 2]),
Rational[-1, 2] (
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {
Root[1 - 36 #^2 + 144 #^4& , 2, 0],
Rational[1, 4] (3 + 5^Rational[1, 2]),
Rational[-1, 2] (
Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}}, {{
0, 0, 1.4012585384440737`}, {0, 0, -1.4012585384440737`}, {
0.17841104488654497`, -1.3090169943749475`,
0.46708617948135783`}, {0.17841104488654497`,
1.3090169943749475`, 0.46708617948135783`}, {
0.46708617948135783`, -0.8090169943749475, \
-1.0444364486709836`}, {0.46708617948135783`,
0.8090169943749475, -1.0444364486709836`}, {
1.0444364486709836`, -0.8090169943749475,
0.46708617948135783`}, {1.0444364486709836`,
0.8090169943749475,
0.46708617948135783`}, {-1.2228474935575286`, -0.5,
0.46708617948135783`}, {-1.2228474935575286`, 0.5,
0.46708617948135783`}, {
1.2228474935575286`, -0.5, -0.46708617948135783`}, {
1.2228474935575286`,
0.5, -0.46708617948135783`}, {-0.9341723589627157,
0, -1.0444364486709836`}, {-0.46708617948135783`, \
-0.8090169943749475, 1.0444364486709836`}, {-0.46708617948135783`,
0.8090169943749475, 1.0444364486709836`}, {
0.9341723589627157, 0,
1.0444364486709836`}, {-1.0444364486709836`, \
-0.8090169943749475, -0.46708617948135783`}, {-1.0444364486709836`,
0.8090169943749475, -0.46708617948135783`}, \
{-0.17841104488654494`, -1.3090169943749475`, -0.46708617948135783`}, \
{-0.17841104488654494`, 1.3090169943749475`, -0.46708617948135783`}}],
Polygon3DBox[{{15, 10, 9, 14, 1}, {2, 6, 12, 11, 5}, {5, 11, 7,
3, 19}, {11, 12, 8, 16, 7}, {12, 6, 20, 4, 8}, {6, 2, 13, 18,
20}, {2, 5, 19, 17, 13}, {4, 20, 18, 10, 15}, {18, 13, 17, 9,
10}, {17, 19, 3, 14, 9}, {3, 7, 16, 1, 14}, {16, 8, 4, 15,
1}}]],
ImageSize->{90., 104.12199652403548`},
ViewPoint->{-0.9624197700327529, -3.07580610224535, \
-1.031098932033377},
ViewVertical->{0.1306488041034501, -0.9156018302076686,
0.5053824851317418}]\), ViewPoint] |
Out[1]=  |  |