Function Repository Resource:

MultiPerspectiveEmbeddingViewer

Source Notebook

Visualize a MultiPerspectiveEmbedding

Contributed by: Nikolay Murzin

ResourceFunction["MultiPerspectiveEmbeddingViewer"][mpse]

creates dynamic controls for viewing MultiPerspectiveEmbedding results.

Details and Options

The mpse is an Association obtained from the MultiPerspectiveEmbedding resource function.

ResourceFunction["MultiPerspectiveEmbeddingViewer"] accepts the following options:

"DisplayFunction"

Automatic

a function that displays the result; can be any custom Function that takes as input a sequence of options to control 3D view such as ViewAngle,ViewVector,ViewVertical and ViewProjection

"StartingViewDistance"

distance between the camera and the center

"ViewDistanceRange"

{0.01,25}

range of distances for the slider

Examples

Basic Examples (2)

View the result of the MultiPerspectiveEmbedding algorithm using default Graphics3D:

In[1]:=

Out[2]=

Specify a custom "DisplayFunction" to view the results:

In[3]:=

$graphMPSE = <|"Embedding" -> CompressedData[" 1:eJwllH9IlWcUx19mrhw56faDaSbvMjcDc61Ag9h8N2xQo0tdjVaJvf1msLhL q7FZ46k15/xRmyalFr0xs59/6KXyZphvmem8mpr5K7d5SzIcDGtEEyJp7+dc uBzO5znPOd9znud93t3s9Wx7Q9M04/9/iCa/ifQ/Uxwb7frDseZXrmHH6mOr 8G1PIutBX9ojx6pszyBxqaF/wQuOPXSs4V7zgHhlwc3MwSB2Sc4Ace+EDeF/ PBtun/T1Yzf/Cg9GVUm+iXi4VRlHnPbtLKmvvH3Eu/LhQf+H6NAG9S5s43X0 at2Z1DNGLeHJZ9iv4nKFV3xwj/3TYqmnjdTB7fHJ3awfugO3v/HQj3p+Dm5u XI5OI6MUrjdn3yeP66jwT8fgZqW3B5sfjU7jzWXoNG4n9FJvfzpczZ0gXst5 1EG9UDkHdWBLv8wr8i7+W0vQoz6fQf/Gs/lt+D+UiP4BX4/0W93K3FyP4Ya/ FH3m2eEW/Mg0dNorDfrRJrmbWR/1wfUpfzMvI/FMk5z/S+EdqpN6laONrO9M Ev3rStvZrxZcIl/sF+g3b4STVy87VYP/4xPhcUNw4+3Cy+hcmSvn/Uk1+szg olr01XWI/hO7f2e9IryO/KdT5J5c3Sp9Tllbz77nW+DWTm+A/TFFNvq+C5H7 t+Yn5hXsTLpF3pjtcv8Oh6FfDRZUSv8/o9P4ZYz+7ZGscviOmTJn5Zf94YsK 8ct3yblELrTl3u9eS/y6LomPOngdXnX8+wYnrvh9mefcQvpUG6ced7gxuwCu FbUzLysy5jeHW8XPhPfFnCe+dvFFhwfzlor+PfVl9OU+3Uj+9W75TmKbKoh7 9fKmY80VL4QP55c7vtb+WQPcfQKdljfhCPF3XPWspwZE/1BEHjrSWq5hM0Pl nrct+xI/5+tax9opRTL/0YwNWE/BZXheGDp1f6fC1lTV0G/EHtE/L4Q5qn83 NVE/OkPeoQj3SfyDWjO2ZFz4k+ZL9Dmnt4U81SvknclJv0Jcalor68ca5Fxy z9fhJ/cH6HffYrn/sWfpX2W1tTtWTy6ROR/ddws/PrODOfwj75RxY/w2/T4+ 10mdF0ekr6d+9Ol3E/pYN5/K+/nRBerZsxb0El9zQe5//Htt1N2b0QNfHY9O vdGAa0nZ99m3tEXO5YBNHr0r0I3dnir6H+yCq9z/7jGHq1HosQaK6d/y7Yer 6Vky5yY3PDgy3EV8QOO9tqcmtja8Bvk/6/A= "], "Normals" -> {{0.6663395686422579, 0.029910801862666515`, 0.7450482690360285}, {-0.038224542984368524`, 0.7029471953130203, -0.7102141401825189}}|>; ResourceFunction["MultiPerspectiveEmbeddingViewer"][graphMPSE, "DisplayFunction" -> Function[GraphPlot3D[\!\(\* GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 8}, {8, 16}, {16, 15}, {15, 14}, {14, 13}, {13, 12}, {12, 11}, {11, 10}, {10, 9}, {9, 17}, {17, 18}, {18, 19}, {19, 20}, {20, 21}, {21, 22}, {22, 23}, {23, 24}, { 24, 32}, {32, 31}, {31, 30}, {30, 29}, {29, 28}, {28, 27}, {27, 26}, {26, 25}, {25, 33}, {33, 34}, {34, 35}, { 35, 36}, {36, 37}, {37, 38}, {38, 39}, {39, 40}, {40, 48}, {48, 47}, {47, 46}, {46, 45}, {45, 44}, {44, 43}, { 43, 42}, {42, 41}, {41, 49}, {49, 50}, {50, 51}, {51, 52}, {52, 53}, {53, 54}, {54, 55}, {55, 56}, {56, 64}, { 64, 63}, {63, 62}, {62, 61}, {61, 60}, {60, 59}, {59, 58}, {58, 57}}, Null}, {FormatType -> TraditionalForm, GraphLayout -> {"Dimension" -> 2}, VertexCoordinates -> CompressedData[" 1:eJx10zsKQyEUhGFJZWlhYXEKs5K4hiwhkDpbv0vIC0n4UOEy/BdhmDnH8+1x vZ9SSuP1vfV7jstaP9f+OMMFrnCDA+5j7ZPGWjNc4Ao3OODpby598kYLXOEG Bzz97dFc+pSNVrjBAU9/52aP5tKnbrTBAXfuuTfO0V7Nqa8acOe/e+reOEd7 Nae+akd378I9dW+co72a8+f7BDiQON4= "], VertexLabels -> {None}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJx10zsKQyEUhGFJZWlhYXEKs5K4hiwhkDpbv0vIC0n4UOEy/BdhmDnH8+1x vZ9SSuP1vfV7jstaP9f+OMMFrnCDA+5j7ZPGWjNc4Ao3OODpby598kYLXOEG Bzz97dFc+pSNVrjBAU9/52aP5tKnbrTBAXfuuTfO0V7Nqa8acOe/e+reOEd7 Nae+akd378I9dW+co72a8+f7BDiQON4= "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.01906487232574189], ArrowBox[{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 8}, {8, 16}, {9, 17}, {10, 9}, {11, 10}, {12, 11}, {13, 12}, {14, 13}, {15, 14}, {16, 15}, {17, 18}, {18, 19}, {19, 20}, {20, 21}, {21, 22}, {22, 23}, {23, 24}, {24, 32}, {25, 33}, {26, 25}, {27, 26}, {28, 27}, {29, 28}, {30, 29}, {31, 30}, {32, 31}, {33, 34}, {34, 35}, {35, 36}, {36, 37}, {37, 38}, {38, 39}, {39, 40}, {40, 48}, {41, 49}, {42, 41}, {43, 42}, {44, 43}, {45, 44}, {46, 45}, {47, 46}, {48, 47}, {49, 50}, {50, 51}, {51, 52}, {52, 53}, {53, 54}, {54, 55}, {55, 56}, {56, 64}, {58, 57}, {59, 58}, {60, 59}, {61, 60}, {62, 61}, {63, 62}, {64, 63}}, 0.05338164251207729]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05338164251207729], DiskBox[2, 0.05338164251207729], DiskBox[3, 0.05338164251207729], DiskBox[4, 0.05338164251207729], DiskBox[5, 0.05338164251207729], DiskBox[6, 0.05338164251207729], DiskBox[7, 0.05338164251207729], DiskBox[8, 0.05338164251207729], DiskBox[9, 0.05338164251207729], DiskBox[10, 0.05338164251207729], DiskBox[11, 0.05338164251207729], DiskBox[12, 0.05338164251207729], DiskBox[13, 0.05338164251207729], DiskBox[14, 0.05338164251207729], DiskBox[15, 0.05338164251207729], DiskBox[16, 0.05338164251207729], DiskBox[17, 0.05338164251207729], DiskBox[18, 0.05338164251207729], DiskBox[19, 0.05338164251207729], DiskBox[20, 0.05338164251207729], DiskBox[21, 0.05338164251207729], DiskBox[22, 0.05338164251207729], DiskBox[23, 0.05338164251207729], DiskBox[24, 0.05338164251207729], DiskBox[25, 0.05338164251207729], DiskBox[26, 0.05338164251207729], DiskBox[27, 0.05338164251207729], DiskBox[28, 0.05338164251207729], DiskBox[29, 0.05338164251207729], DiskBox[30, 0.05338164251207729], DiskBox[31, 0.05338164251207729], DiskBox[32, 0.05338164251207729], DiskBox[33, 0.05338164251207729], DiskBox[34, 0.05338164251207729], DiskBox[35, 0.05338164251207729], DiskBox[36, 0.05338164251207729], DiskBox[37, 0.05338164251207729], DiskBox[38, 0.05338164251207729], DiskBox[39, 0.05338164251207729], DiskBox[40, 0.05338164251207729], DiskBox[41, 0.05338164251207729], DiskBox[42, 0.05338164251207729], DiskBox[43, 0.05338164251207729], DiskBox[44, 0.05338164251207729], DiskBox[45, 0.05338164251207729], DiskBox[46, 0.05338164251207729], DiskBox[47, 0.05338164251207729], DiskBox[48, 0.05338164251207729], DiskBox[49, 0.05338164251207729], DiskBox[50, 0.05338164251207729], DiskBox[51, 0.05338164251207729], DiskBox[52, 0.05338164251207729], DiskBox[53, 0.05338164251207729], DiskBox[54, 0.05338164251207729], DiskBox[55, 0.05338164251207729], DiskBox[56, 0.05338164251207729], DiskBox[57, 0.05338164251207729], DiskBox[58, 0.05338164251207729], DiskBox[59, 0.05338164251207729], DiskBox[60, 0.05338164251207729], DiskBox[61, 0.05338164251207729], DiskBox[62, 0.05338164251207729], DiskBox[63, 0.05338164251207729], DiskBox[64, 0.05338164251207729]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{"NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]\), VertexCoordinates -> graphMPSE["Embedding"], EdgeShapeFunction -> "DashedLine", VertexLabels -> None, VertexSize -> 0.5, ##]]]$