diff --git a/triangle_analysis.m b/triangle_analysis.m
index 5243b5e2cdbd692e2618b3c65949c2b0c39039be..e972a7a311431b897ad816f8955efaa20e4d814c 100644
--- a/triangle_analysis.m
+++ b/triangle_analysis.m
@@ -193,6 +193,10 @@ plotTimeEvol=ListPlot[coarseData,Joined->True,PlotRange->{0*minCount,maxCount},D
 Export[NotebookDirectory[]<>"plots/timeevol.pdf",plotTimeEvol]
 
 
+movingAvg=Map[MovingAverage[#[[2]],2000][[1;;-1;;skipPts]]-Mean[#[[2,-20000;;-1]]]&,selectedData[[1;;-1;;5]]];
+plotMovingAvg=ListPlot[movingAvg,Joined->True,PlotRange->All,DataRange->{0,measureSkip*maxTime},Frame->True,FrameLabel->{"timesteps","number of triangles"}]
+
+
 (* ::Subsection:: *)
 (*Plot success rate over "time"*)