Desenho de grafos aprimorado 

Compare tempos de espera para o desenho de grafos. Os experimentos foram realizados em um sistema Windows 7 equipado com Intel Core i7 3.07 GHz, com um limite de tempo de 1000 segundos. O número na parte inferior informa quantas vezes mais rápido é o Mathematica 10 em comparação ao Maple 18.

mostre o input completo de Wolfram Languageoculte o input

In[1]:=

X (* Random Graphs *) SeedRandom[1]; graphs = Table[RandomGraph[{n, 4 n}, GraphLayout -> "SpringElectricalEmbedding"], {n, 20, 200, 20}]; (* timing *) timing = First[AbsoluteTiming[Show[#]]] & /@ graphs;

Out[1]=