Return to Answer

 3 added 67 characters in body edited Oct 19 '15 at 15:14 Szabolcs 172k1818 gold badges468468 silver badges10021002 bronze badges I think this is the simplest fast way to convert an atomic expression to an equivalent compound form, to be able to inspect and manipulate its "apparent" full form: g = RandomGraph[{5,8}]; (* this is our atomic expression *) ml = LinkCreate[LinkMode -> Loopback]; LinkWrite[ml, With[{e = g}, Hold[e]]] LinkRead[ml] LinkClose[ml] (* Hold[Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[Automatic, {5, 5}, 0, {1, {{0, 4, 6, 9, 12, 16}, {{2}, {3}, {4}, {5}, {1}, {5}, {1}, {4}, {5}, {1}, {3}, {5}, {1}, {2}, {3}, {4}}}, Pattern}]}]] *)  I think this is the simplest fast way to convert an atomic expression to an equivalent compound form, to be able to inspect and manipulate its "apparent" full form: ml = LinkCreate[LinkMode -> Loopback]; LinkWrite[ml, With[{e = g}, Hold[e]]] LinkRead[ml] LinkClose[ml] (* Hold[Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[Automatic, {5, 5}, 0, {1, {{0, 4, 6, 9, 12, 16}, {{2}, {3}, {4}, {5}, {1}, {5}, {1}, {4}, {5}, {1}, {3}, {5}, {1}, {2}, {3}, {4}}}, Pattern}]}]] *)  I think this is the simplest fast way to convert an atomic expression to an equivalent compound form, to be able to inspect and manipulate its "apparent" full form: g = RandomGraph[{5,8}]; (* this is our atomic expression *) ml = LinkCreate[LinkMode -> Loopback]; LinkWrite[ml, With[{e = g}, Hold[e]]] LinkRead[ml] LinkClose[ml] (* Hold[Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[Automatic, {5, 5}, 0, {1, {{0, 4, 6, 9, 12, 16}, {{2}, {3}, {4}, {5}, {1}, {5}, {1}, {4}, {5}, {1}, {3}, {5}, {1}, {2}, {3}, {4}}}, Pattern}]}]] *)  2 added 7 characters in body edited Oct 18 '15 at 20:45 Szabolcs 172k1818 gold badges468468 silver badges10021002 bronze badges I think this is the simplest fast way to convert an atomic expression to an equivalent compound form, to be able to inspect and manipulate its "apparent" full form: ml = LinkCreate[LinkMode -> Loopback]; LinkWrite[ml, With[{e = g}, Hold[e]]] LinkRead[ml] LinkClose[ml] (* Hold[Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[Automatic, {5, 5}, 0, {1, {{0, 4, 6, 9, 12, 16}, {{2}, {3}, {4}, {5}, {1}, {5}, {1}, {4}, {5}, {1}, {3}, {5}, {1}, {2}, {3}, {4}}}, Pattern}]}]] *)  I think this is the simplest way to convert an atomic expression to an equivalent compound form, to be able to inspect and manipulate its "apparent" full form: ml = LinkCreate[LinkMode -> Loopback]; LinkWrite[ml, With[{e = g}, Hold[e]]] LinkRead[ml] LinkClose[ml] (* Hold[Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[Automatic, {5, 5}, 0, {1, {{0, 4, 6, 9, 12, 16}, {{2}, {3}, {4}, {5}, {1}, {5}, {1}, {4}, {5}, {1}, {3}, {5}, {1}, {2}, {3}, {4}}}, Pattern}]}]] *)  I think this is the simplest fast way to convert an atomic expression to an equivalent compound form, to be able to inspect and manipulate its "apparent" full form: ml = LinkCreate[LinkMode -> Loopback]; LinkWrite[ml, With[{e = g}, Hold[e]]] LinkRead[ml] LinkClose[ml] (* Hold[Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[Automatic, {5, 5}, 0, {1, {{0, 4, 6, 9, 12, 16}, {{2}, {3}, {4}, {5}, {1}, {5}, {1}, {4}, {5}, {1}, {3}, {5}, {1}, {2}, {3}, {4}}}, Pattern}]}]] *)  1 answered Oct 18 '15 at 19:36 Szabolcs 172k1818 gold badges468468 silver badges10021002 bronze badges I think this is the simplest way to convert an atomic expression to an equivalent compound form, to be able to inspect and manipulate its "apparent" full form: ml = LinkCreate[LinkMode -> Loopback]; LinkWrite[ml, With[{e = g}, Hold[e]]] LinkRead[ml] LinkClose[ml] (* Hold[Graph[{1, 2, 3, 4, 5}, {Null, SparseArray[Automatic, {5, 5}, 0, {1, {{0, 4, 6, 9, 12, 16}, {{2}, {3}, {4}, {5}, {1}, {5}, {1}, {4}, {5}, {1}, {3}, {5}, {1}, {2}, {3}, {4}}}, Pattern}]}]] *)  Post Made Community Wiki by Szabolcs occurred Oct 18 '15 at 19:36