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

Кто-нибудь знает, как изменить свойство графика "Норма". команда;

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] ;

Спасибо.


wolfram-mathematica mathematica-8
person Lavoslav Caklovic    schedule 30.01.2012    source источник

Ответы (1)


arrow_upward
0
arrow_downward

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

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

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

person Mr.Wizard    schedule 01.02.2012