Almacene cualquier expresión en una expresión de la nube
Las expresiones de la nube almacenan cualquier expresión arbitraria en la nube.
Cree una nueva expresión de la nube bajo la ruta "Polyhedron/Dodecahedron".
In[1]:=
CreateCloudExpression[\!\(\*
Graphics3DBox[
GraphicsComplex3DBox[
NCache[{{-(1 + 2 5^Rational[-1, 2])^Rational[1, 2], 0, Root[
1 - 20 #^2 + 80 #^4& , 3, 0]}, {(
1 + 2 5^Rational[-1, 2])^Rational[1, 2], 0, Root[
1 - 20 #^2 + 80 #^4& , 2, 0]}, {
Root[1 - 20 #^2 + 80 #^4& , 1, 0],
Rational[1, 4] (-3 - 5^Rational[1, 2]), Root[
1 - 20 #^2 + 80 #^4& , 3, 0]}, {
Root[1 - 20 #^2 + 80 #^4& , 1, 0],
Rational[1, 4] (3 + 5^Rational[1, 2]), Root[
1 - 20 #^2 + 80 #^4& , 3, 0]}, {(
Rational[5, 8] + Rational[11, 8] 5^Rational[-1, 2])^Rational[
1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2]), Root[
1 - 20 #^2 + 80 #^4& , 3, 0]}, {(
Rational[5, 8] + Rational[11, 8] 5^Rational[-1, 2])^Rational[
1, 2], Rational[1, 4] (1 + 5^Rational[1, 2]), Root[
1 - 20 #^2 + 80 #^4& , 3, 0]}, {
Root[1 - 20 #^2 + 80 #^4& , 2, 0],
Rational[1, 4] (-1 - 5^Rational[1, 2]), (
Rational[5, 8] + Rational[11, 8] 5^Rational[-1, 2])^Rational[
1, 2]}, {
Root[1 - 20 #^2 + 80 #^4& , 2, 0],
Rational[1, 4] (1 + 5^Rational[1, 2]), (
Rational[5, 8] + Rational[11, 8] 5^Rational[-1, 2])^Rational[
1, 2]}, {
Rational[-1, 2] (1 + 2 5^Rational[-1, 2])^Rational[1, 2],
Rational[-1, 2], Root[1 - 100 #^2 + 80 #^4& , 1, 0]}, {
Rational[-1, 2] (1 + 2 5^Rational[-1, 2])^Rational[1, 2],
Rational[1, 2], Root[
1 - 100 #^2 + 80 #^4& , 1, 0]}, {(
Rational[1, 4] + Rational[1, 2] 5^Rational[-1, 2])^Rational[
1, 2], Rational[-1, 2], (
Rational[5, 8] + Rational[11, 8] 5^Rational[-1, 2])^Rational[
1, 2]}, {(
Rational[1, 4] + Rational[1, 2] 5^Rational[-1, 2])^Rational[
1, 2], Rational[
1, 2], (Rational[
5, 8] + Rational[11, 8] 5^Rational[-1, 2])^Rational[
1, 2]}, {(Rational[1, 10] (5 + 5^Rational[1, 2]))^Rational[
1, 2], 0, Root[1 - 100 #^2 + 80 #^4& , 1, 0]}, {
Root[1 - 100 #^2 + 80 #^4& , 1, 0],
Rational[1, 4] (-1 - 5^Rational[1, 2]), Root[
1 - 20 #^2 + 80 #^4& , 2, 0]}, {
Root[1 - 100 #^2 + 80 #^4& , 1, 0],
Rational[1, 4] (1 + 5^Rational[1, 2]), Root[
1 - 20 #^2 + 80 #^4& , 2, 0]}, {
Root[1 - 5 #^2 + 5 #^4& , 1, 0],
0, (Rational[
5, 8] + Rational[11, 8] 5^Rational[-1, 2])^Rational[
1, 2]}, {
Root[1 - 20 #^2 + 80 #^4& , 3, 0],
Rational[1, 4] (-1 - 5^Rational[1, 2]), Root[
1 - 100 #^2 + 80 #^4& , 1, 0]}, {
Root[1 - 20 #^2 + 80 #^4& , 3, 0],
Rational[1, 4] (1 + 5^Rational[1, 2]), Root[
1 - 100 #^2 + 80 #^4& , 1, 0]}, {(
Rational[1, 8] + Rational[1, 8] 5^Rational[-1, 2])^Rational[
1, 2], Rational[1, 4] (-3 - 5^Rational[1, 2]), Root[
1 - 20 #^2 + 80 #^4& , 2, 0]}, {(
Rational[1, 8] + Rational[1, 8] 5^Rational[-1, 2])^Rational[
1, 2], Rational[1, 4] (3 + 5^Rational[1, 2]), Root[
1 - 20 #^2 + 80 #^4& , 2, 0]}}, {{-1.3763819204711736`, 0,
0.2628655560595668}, {
1.3763819204711736`,
0, -0.2628655560595668}, {-0.42532540417602, \
-1.3090169943749475`, 0.2628655560595668}, {-0.42532540417602,
1.3090169943749475`, 0.2628655560595668}, {
1.1135163644116066`, -0.8090169943749475,
0.2628655560595668}, {1.1135163644116066`, 0.8090169943749475,
0.2628655560595668}, {-0.2628655560595668, -0.8090169943749475,
1.1135163644116066`}, {-0.2628655560595668,
0.8090169943749475,
1.1135163644116066`}, {-0.6881909602355868, -0.5, \
-1.1135163644116066`}, {-0.6881909602355868,
0.5, -1.1135163644116066`}, {0.6881909602355868, -0.5,
1.1135163644116066`}, {0.6881909602355868, 0.5,
1.1135163644116066`}, {
0.85065080835204,
0, -1.1135163644116066`}, {-1.1135163644116066`, \
-0.8090169943749475, -0.2628655560595668}, {-1.1135163644116066`,
0.8090169943749475, -0.2628655560595668}, {-0.85065080835204,
0, 1.1135163644116066`}, {
0.2628655560595668, -0.8090169943749475, \
-1.1135163644116066`}, {0.2628655560595668,
0.8090169943749475, -1.1135163644116066`}, {
0.42532540417601994`, -1.3090169943749475`, \
-0.2628655560595668}, {0.42532540417601994`,
1.3090169943749475`, -0.2628655560595668}}],
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}}]],
ViewPoint->{2.8106445462488727`, -1.4256056405758222`,
1.2320413110768131`},
ViewVertical->{0.1370732366231519, -0.3402082824376028,
1.1572406126677426`}]\), "Polyhedron/Dodecahedron"]Out[1]=
Recupere su valor:
In[2]:=
Get[CloudExpression["Polyhedron/Dodecahedron"]]Out[2]=
