मैं गणित 8 में Graph
ऑब्जेक्ट के भीतर जानकारी तक पहुंचने का प्रयास कर रहा हूं। किसी कारण से, Part
कमांड काम नहीं कर रहा है।मैथमैटिका 8 में 'ग्राफ़' ऑब्जेक्ट के बारे में जानकारी को प्रोग्रामेटिक रूप से कैसे एक्सेस कर सकता हूं?
myGraph
वह वस्तु है जिसे मैं एक्सेस प्राप्त करना चाहता हूं।
नीचे दी गई पहली पंक्ति myGraph प्रदर्शित करती है। अन्य इसका निरीक्षण करने के लिए काम करते हैं।
myGraph
myGraph // FullForm
myGraph // InputForm
myGraph // OutputForm
myGraph[[1]]
myGraph[[2]]
क्यों वापसी नहीं myGraph[[1]]
List[1,3,4,2,5]
करता है? [मैंने Graph
को कुछ अदृश्य रैपर द्वारा लपेटा गया था, तो मैंने स्तर 2 की जांच की थी। Level[myGraph,1]
, बस {}
देता है। और FullForm[myGraph][[1]]
ग्राफ की एक तस्वीर लौटाता है।
मुझे कुछ स्पष्ट दिखाना चाहिए।
संपादित
यहाँ कोड मैं ग्राफ का उत्पादन किया जाता है। इनमें से अधिकांश इस मुद्दे पर अप्रासंगिक है। लेकिन कम से कम आप उसी कोड के साथ काम करेंगे जो मैं उपयोग कर रहा हूं।
ClearAll[edges, compatibleQ, adjacentCourses, g];
edges[w_, b_] :=
Most /@ Accumulate /@
Flatten[Permutations[#] & /@ IntegerPartitions[w, All, b], 1]
compatibleQ[j_, k_, edg_] :=
If[Intersection[edg[[j]], edg[[k]]] == {}, {j, k}, False]
adjacentCourses[edg_] :=
Module[{len = Length[edg]},
Cases[Flatten[Table[compatibleQ[j, k, edg], {j, len}, {k, j, len}],
1], {v_, w_} :> v \[UndirectedEdge] w]]
myGraph = Graph[adjacentCourses[edges[9, {2, 3}]], VertexLabels -> "Name",
ImagePadding -> 10]
डेविड, मुझे लगता है कि बजाय अपने प्रश्न के शरीर में से (विशेष रूप से यह शीर्ष पर के साथ), एक जवाब के रूप में अपने "भरतवाक्य" पोस्ट करने के लिए उपयुक्त है। –