AENC/switchchain Changeset - 08fe65e5454a · Centrum Wiskunde & Informatica (CWI)

Changeset - 08fe65e5454a

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Tom Bannink - 8 years ago 2017-08-18 17:13:39
tom.bannink@cwi.nl

Add (smooth)histogram of CCMdu construction rates

1 file changed with 30 insertions and 0 deletions:

triangle_gcm_initial_analysis.m

0 comments (0 inline, 0 general)

triangle_gcm_initial_analysis.m

➞

Show inline comments

 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"}}]

0 comments (0 inline, 0 general)