If I have the coordinates p1={{1,1,1}},p2={{1,1,2},{1,2,1},{2,1,1}},then I use code the following to link them with the centre of p1[[1]].
p1={{1,1,1}};
p2={{1,1,2},{1,2,1},{2,1,1}};
Graph3D[
Table[
UndirectedEdge[p1[[1]], p2[[i]]], {i, Length[p2]}]]
At last all points linked to the p1[[1]] but they ignore the space positions of their coordinates, all the points are in the same plane.
Can anyone give me the advice of how to generate the 3d Graph, meanwhile hold their space positions.I only want the graph, because, the vertexdegree can be counted later.
Graphics3D[Table[Line[{p1[[1]], p2[[i]]}], {i, Length[p2]}], Boxed -> False]
? $\endgroup$