Alguém descobriu uma maneira de modificar objetos Graph no Mathematica 8? Em particular, como obter a mesma funcionalidade que você obtém quando clica com o botão direito do mouse no gráfico.

Algumas das novas funções gráficas entram em conflito comCombinatorica, existe uma maneira de forçar o Mathematica a usar uma versão interna da função? Em outras palavras, existe uma maneira de obter acesso ao built-inCompleteGraph depois que eu façoNeeds["Combinatorica"] que importa a versão Combinatorica deCompleteGraph?

Para esclarecer 1, o Menu de contexto no Graph permite alterar o GraphStyle e o GraphLayout, e eu gostaria de poder alterá-los programaticamente. Aqui está uma maneira que eu encontrei para alterar o objeto GraphStyle of Graph

g = GridGraph[{4, 4}];
BooleanGraph[Or, g, g, GraphStyle -> "DiagramBlack"]

No entanto, isso esquece as opções do gráfico original, comoVertexCoordinates

Tentando a receita de Brett no gráfico de grade

g = GridGraph[{3, 2}, ImageSize -> Tiny]
coords = PropertyValue[{g, #}, VertexCoordinates] & /@ VertexList[g];
Graph[EdgeList[g], GraphStyle -> "BasicGold", 
 VertexCoordinates -> coords, ImageSize -> Tiny]

http://yaroslavvb.com/upload/save/mathematica-change-style.png

Parece haver um erro no modo como o Mathematica lida com as coordenadas do Graph nas operações do gráfico. A primeira linha abaixo permite coordenadas, a segunda emite aviso interno, provavelmente relacionado a coordenadas. Usar vértices não inteiros e coordenadas explícitas para cada vértice não ajuda. Uma solução é armazenar coordenadas globalmente e terfixCoordinates para reatribuir coordenadas corretas paraGraph após modificações

VertexDelete[GridGraph[{3, 3}], 1]
NeighborhoodGraph[VertexDelete[GridGraph[{3, 3}], 1], 2]