I'm not sure how accurate this is, but it's a start for analysis at least.
I wrote a timed trace function:
TimedTrace[code_] :=
With[{data =
Reap[
Quiet@TraceScan[
Sow[AbsoluteTime[] -> #] &, code, ___,
Sow[AbsoluteTime[]] &]
][[2, 1]]},
Block[{stack = {}, step = 1, results = <||>},
Table[
If[Length@cur != 2,
results[First@Last@stack] =
Abs[(cur - First@Last@Last@stack)] -> Last@Last@Last@stack;
stack = Delete[stack, -1],
AppendTo[stack, {step, cur}]
]; step++,
{cur, data}
];
KeySort@results
]
];
TimedTrace~SetAttributes~HoldFirst
which was nowhere near fast enough to analyze the call proper, so I made a tiny version of the data:
dat2 = Table[{x, y}, {x, 2}, {y, RandomReal[9, 5]}];
which takes about .025 seconds to run.
Ran a trace:
trData = TimedTrace[ListPlot[dat2, ImageSize -> 600]];
Took a few seconds to run (owing to all the Sow
calls I think). Thing is huge:
In[315]:= trData // Length
Out[315]= 90435
Tried to find calls that took a while:
0.111324->(System`ProtoPlotDump`theme$19304=Charting`ResolvePlotTheme[System`ProtoPlotDump`plottheme$19304,ListPlot])
0.111292->Charting`ResolvePlotTheme[System`ProtoPlotDump`plottheme$19304,ListPlot]
0.111257->Charting`ResolvePlotTheme[Automatic,ListPlot]
0.111248->Charting`ResolvePlotTheme[Automatic,SymbolName[ListPlot]]
0.111199->Charting`ResolvePlotTheme[Automatic,ListPlot]
0.111189->Charting`ResolvePlotTheme[SymbolName[Automatic],ListPlot]
0.111141->Charting`ResolvePlotTheme[Automatic,ListPlot]
0.111130->Themes`makeThemeMethodOption[Themes`SortRulesAndExtract[Join[System`PlotThemeDump`resolvePlotTheme[Automatic,ListPlot],Themes`DefaultStyles[ListPlot]]],ListPlot]
0.101492->(System`ProtoPlotDump`plotstyle$19304=Charting`customStyle[System`ProtoPlotDump`plotstyle$19304,System`ProtoPlotDump`defaultstyle$19304,System`ProtoPlotDump`length$19304,BaseStyle->System`ProtoPlotDump`basestyle$19304])
0.101461->Charting`customStyle[System`ProtoPlotDump`plotstyle$19304,System`ProtoPlotDump`defaultstyle$19304,System`ProtoPlotDump`length$19304,BaseStyle->System`ProtoPlotDump`basestyle$19304]
0.101327->Charting`customStyle[Automatic,{Directive[,AbsoluteThickness[1.6],3.690587378691127*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378694657*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378699184*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378703964*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378708102*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378711855*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378715402*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378718887*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378722316*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378725677*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378729106*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378732568*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378737444*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378742241*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378746251*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]]},2,BaseStyle->{}]
0.101309->Module[{Charting`CommonDump`basestyle$},{Charting`CommonDump`basestyle$}=OptionValue[{BaseStyle->{}},{BaseStyle}];Charting`getPlotStyles[Charting`CommonDump`baseStyleSolver[Charting`CommonDump`basestyle$,{Directive[,AbsoluteThickness[1.6],3.690587378691127*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378694657*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378699184*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378703964*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378708102*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378711855*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378715402*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378718887*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378722316*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378725677*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378729106*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378732568*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378737444*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378742241*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378746251*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]]}]][2,Automatic]]
0.101276->({Charting`CommonDump`basestyle$19370}=OptionValue[{BaseStyle->{}},{BaseStyle}];Charting`getPlotStyles[Charting`CommonDump`baseStyleSolver[Charting`CommonDump`basestyle$19370,{Directive[,AbsoluteThickness[1.6],3.690587378691127*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378694657*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378699184*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378703964*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378708102*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378711855*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378715402*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378718887*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378722316*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378725677*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378729106*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378732568*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378737444*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378742241*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378746251*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]]}]][2,Automatic])
0.101163->Charting`getPlotStyles[Charting`CommonDump`baseStyleSolver[Charting`CommonDump`basestyle$19370,{Directive[,AbsoluteThickness[1.6],3.690587378691127*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378694657*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378699184*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378703964*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378708102*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378711855*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378715402*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378718887*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378722316*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378725677*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378729106*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378732568*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378737444*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378742241*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587378746251*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]]}]][2,Automatic]
0.123557->(System`ProtoPlotDump`theme$19380=Charting`ResolvePlotTheme[System`ProtoPlotDump`plottheme$19380,ListPlot])
0.123497->Charting`ResolvePlotTheme[System`ProtoPlotDump`plottheme$19380,ListPlot]
0.123456->Charting`ResolvePlotTheme[Automatic,ListPlot]
0.123441->Charting`ResolvePlotTheme[Automatic,SymbolName[ListPlot]]
0.123386->Charting`ResolvePlotTheme[Automatic,ListPlot]
0.123372->Charting`ResolvePlotTheme[SymbolName[Automatic],ListPlot]
0.123318->Charting`ResolvePlotTheme[Automatic,ListPlot]
0.123302->Themes`makeThemeMethodOption[Themes`SortRulesAndExtract[Join[System`PlotThemeDump`resolvePlotTheme[Automatic,ListPlot],Themes`DefaultStyles[ListPlot]]],ListPlot]
0.103445->(System`ProtoPlotDump`plotstyle$19380=Charting`customStyle[System`ProtoPlotDump`plotstyle$19380,System`ProtoPlotDump`defaultstyle$19380,System`ProtoPlotDump`length$19380,BaseStyle->System`ProtoPlotDump`basestyle$19380])
0.103403->Charting`customStyle[System`ProtoPlotDump`plotstyle$19380,System`ProtoPlotDump`defaultstyle$19380,System`ProtoPlotDump`length$19380,BaseStyle->System`ProtoPlotDump`basestyle$19380]
0.103242->Charting`customStyle[Automatic,{Directive[,AbsoluteThickness[1.6],3.690587379138477*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379141967*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379145435*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379149015*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379152376*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379155806*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379160336*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379165260*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379169506*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379173127*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379176497*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379180044*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379183421*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379186882*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379190351*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]]},2,BaseStyle->{}]
0.103222->Module[{Charting`CommonDump`basestyle$},{Charting`CommonDump`basestyle$}=OptionValue[{BaseStyle->{}},{BaseStyle}];Charting`getPlotStyles[Charting`CommonDump`baseStyleSolver[Charting`CommonDump`basestyle$,{Directive[,AbsoluteThickness[1.6],3.690587379138477*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379141967*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379145435*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379149015*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379152376*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379155806*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379160336*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379165260*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379169506*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379173127*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379176497*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379180044*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379183421*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379186882*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379190351*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]]}]][2,Automatic]]
0.103180->({Charting`CommonDump`basestyle$19448}=OptionValue[{BaseStyle->{}},{BaseStyle}];Charting`getPlotStyles[Charting`CommonDump`baseStyleSolver[Charting`CommonDump`basestyle$19448,{Directive[,AbsoluteThickness[1.6],3.690587379138477*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379141967*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379145435*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379149015*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379152376*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379155806*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379160336*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379165260*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379169506*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379173127*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379176497*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379180044*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379183421*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379186882*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379190351*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]]}]][2,Automatic])
0.103049->Charting`getPlotStyles[Charting`CommonDump`baseStyleSolver[Charting`CommonDump`basestyle$19448,{Directive[,AbsoluteThickness[1.6],3.690587379138477*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379141967*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379145435*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379149015*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379152376*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379155806*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379160336*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379165260*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379169506*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379173127*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379176497*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379180044*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379183421*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379186882*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]],Directive[,AbsoluteThickness[1.6],3.690587379190351*10^9->(Sow[#1,Charting`CommonDump`head[#1]]&)/@Reverse[Charting`CommonDump`new]]}]][2,Automatic]
Obviously all those timings are off as there's no way these took that long. They're probably capturing other stuff, given the shoddy way I wrote the tracer, so let's recalculate the timings for them:
0.111324->0.004826
0.111292->0.00417
0.111257->0.003695
0.111248->0.003625
0.111199->0.00341
0.111189->0.003539
0.111141->0.003517
0.111130->0.003444
0.101492->0.000976
0.101461->0.000876
0.101327->0.000755
0.101309->0.00073
0.101276->0.00075
0.101163->0.000722
0.123557->0.003747
0.123497->0.00333
0.123456->0.003595
0.123441->0.003322
0.123386->0.003348
0.123372->0.003558
0.123318->0.0033
0.123302->0.003568
0.103445->0.001011
0.103403->0.000882
0.103242->0.000744
0.103222->0.00074
0.103180->0.000725
0.103049->0.00072
LHS is what the original timing was, RHS is the First@AbsoluteTiming[expr]
. Note that all of these take way too long to be called as often as they are, particularly given how tiny the data was.
I think some of these calls are duplicates as the Total
of the RHS is .067 but they're still a big time-suck.
Also note that they're mostly for resolving styling questions.
Graphics/Point
takes 0.0005 seconds (both versions..). $\endgroup$Joined->True
toListPlot
. In version 8, the same change reduces the timing almost ten-fold! Apparently, it's harder to make points than to draw lines. Who would have thought... Same thing happens when I useListLinePlot
instead ofListPlot
. $\endgroup$