Язык Wolfram Language™

Измерение времени вычисления

Измерьте время вычисления.

In[1]:=

AbsoluteTiming[Total[Range[10000]]]

Out[1]=

Используйте RepeatedTiming для определения среднего времени для повторяющихся вычислений.

In[2]:=

RepeatedTiming[Total[Range[10000]]]

Out[2]=

Сравните среднее время вычисления различными методами построения массивов.

In[3]:=

funs = { Table[0, {i, #}, {j, #}] &, Map[Map[0 &, Range[#]], Range[#]] &, Scan[Scan[Sow[0], Range[#]], Range[#]] &, ConstantArray[0, {#, #}] &, Array[0 &, {#, #}] &, Outer[0 &, Range[#], Range[#]] & }; timings = First[ RepeatedTiming[#[100]]] & /@ funs;

In[4]:=

BarChart[timings, ChartLabels -> funs /. Function[head_[__]] :> head, PlotTheme -> "Marketing", ImageSize -> 500, ScalingFunctions -> "Log"]

Out[4]=