From 08fe65e5454af3304a082609601cdd8d362072b1 2017-08-18 17:13:39
From: Tom Bannink <tom.bannink@cwi.nl>
Date: 2017-08-18 17:13:39
Subject: [PATCH] Add (smooth)histogram of CCMdu construction rates

---

diff --git a/triangle_gcm_initial_analysis.m b/triangle_gcm_initial_analysis.m
index fa9e57f17fa4cea5907a5e6d4e6272bbafba5e69..de9515c50247576c6ff3609c7741db1295a718e6 100644
--- a/triangle_gcm_initial_analysis.m
+++ b/triangle_gcm_initial_analysis.m
@@ -120,4 +120,34 @@ Export[NotebookDirectory[]<>"plots/ccm_construction_successrate5.pdf",plot2]
 Export[NotebookDirectory[]<>"plots/ccm_construction_successrate9.pdf",plot3]
 
 
+(* ::Section:: *)
+(*CCMu rates only*)
+
+
+successrates=Map[#[[3,2]]/100&,gdata,{3}];
+legends=Map["\[Tau] = "<>ToString[#[[1,1,2]]]<>" ; avg = "<>ToString[NumberForm[N[Mean[#[[All,3,2]]/100]],3]]&,gdata,{2}];
+
+datasets={successrates[[1,1]], successrates[[5,1]], successrates[[9,1]]};
+selectedLegends={legends[[1,1]],legends[[5,1]],legends[[9,1]]};
+
+SmoothHistogram[datasets,{0.06,"Gaussian"},"PDF",
+PlotRange->{{0,1},All},
+(*ChartStyle\[Rule]Directive[FaceForm[Opacity[0.5]],EdgeForm[Thickness[0.007]]],*)
+ImageSize->300,AxesOrigin->{0,0},
+Frame->True,
+FrameLabel->{"successrate of CCMdu construction\n over sampled degree sequences","PDF"},
+PlotLegends->Placed[selectedLegends,Center],
+PlotLabel->"n = 1000"]
+
+Table[
+SmoothHistogram[datasets,{0.06,weightKernel},"PDF",
+PlotRange->{{0,1},All},
+(*ChartStyle\[Rule]Directive[FaceForm[Opacity[0.5]],EdgeForm[Thickness[0.007]]],*)
+ImageSize->300,AxesOrigin->{0,0},
+Frame->True,
+FrameLabel->{"successrate of CCMdu construction\n over sampled degree sequences","PDF"},
+PlotLegends->Placed[selectedLegends,Center],
+PlotLabel->"n = 1000"],{weightKernel,{"Biweight","Gaussian","Rectangular","Cosine","SemiCircle"}}]
+
+