GRAFOS
10 de Novembro de 2007
> | with(networks); |
Construção de um grafo
> | G1 := new(): |
> | addvertex({Coimbra, Lisboa, Porto, Faro, Aveiro, Évora, Braga},G1); |
> | addedge({{Coimbra,Lisboa},{Coimbra,Porto},{Coimbra,Aveiro},{Évora,Faro},{Lisboa,Porto},{Porto,Braga},{Porto,Aveiro}, |
> | {Lisboa,Faro},{Lisboa,Évora}},G1); |
> | draw(G1); |
> | K8 := complete(8); draw(K8); |
> | draw(complete(20)); |