Как изменить свойство, привязанное ко всему графику

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

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} 

Answer 2

Это может работать:

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

Как правило, вы должны избегать создания символьных имен, которые начинаются с заглавной буквой, поэтому использовать g в будущем.