Verbessertes Graphenzeichnen  

Vergleichen Sie die Zeit, die Sie für das Zeichnen eines Graphen benötigen. Die Experimente wurden auf einem Intel Core i7 3.07 GHz Windows 7-System mit einem Zeitlimit von 1000 Sekunden durchgeführt. Die unten angeführte Zahl gibt an, wieviel schneller Mathematica 10 im Vergleich zu Maple 18 ist.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

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