wolfram-mathematica - グラフ全体に添付されたプロパティを変更する方法

Question

グラフのプロパティ「ノルム」を変更する方法を知っている人はいますか。コマンド;

G = SetProperty[G, "GraphProperties" -> {"Norm" -> 1}]

私が期待したように動作しません。これがグラフ コンストラクタです。

G = Graph[{Property[1, "Potential" -> 11],2,3,4},
          {Property[2 -> 1, "PreferenceIntensity" -> 5], 3 -> 1, 3 -> 2, 1 -> 4},
          EdgeWeight -> {5, 3, 4, 2},
          Properties -> {"GraphProperties" -> {"Norm" -> 5}},
          VertexLabels -> "Name", ImagePadding -> 10] ;

ありがとう。

Answer 1

これはうまくいくかもしれません：

Graph[G, Properties -> {"GraphProperties" -> {"Norm" -> 1}}]

通常、大文字で始まる記号名は作成しないようにする必要があるためg、将来的に使用してください。

Answer 2

In[1]:= g = Graph[{1 \[DirectedEdge] 2, 2 \[DirectedEdge] 3, 3 \[DirectedEdge] 1}, 
    Properties -> {"GraphProperties" -> {"Norm" -> 1}}];
g2 = SetProperty[g, Properties -> {"GraphProperties" -> {"Norm" -> 5}}];
PropertyValue[#, "Norm"] & /@ {g, g2}


Out[1]= {1, 5}