diff --git a/showgraphs.m b/showgraphs.m index b01c4b7166b42164e71b3c552af6615d6661a216..421c845e92f2a6508a652a9a92d23f9a2141a10e 100644 --- a/showgraphs.m +++ b/showgraphs.m @@ -8,6 +8,14 @@ Needs["ErrorBarPlots`"] (* ::Text:: *) +(*- Triangle law exponent: gather more data*) +(**) +(*- Why does GCM-2 start with very low #triangles*) +(* Do not only consider number of standard deviations but also relative number of triangles.*) +(* Look at the following: for all triangles (v1, v2, v3) consider the degrees d1All] (*Data import and data merge*) -gsraw=Import[NotebookDirectory[]<>"data/graphdata_partial.m"]; +gsraw=Import[NotebookDirectory[]<>"data/graphdata.m"]; gsraw=SortBy[gsraw,#[[1,1]]&]; (* Sort by n *) @@ -130,7 +136,7 @@ Show[ListPlot[avgAndProp,AxesOrigin->{0,0},AxesLabel->{"degree-sequence-property numPlots=20; -selectedData=gdata[[5,-1]][[-numPlots;;-1]]; +selectedData=gdata[[1,-1]][[-numPlots;;-1]]; measureSkip=1; minCount=Min[Map[Min[#[[2]]]&,selectedData]]; maxCount=Max[Map[Max[#[[2]]]&,selectedData]]; @@ -236,12 +242,12 @@ timeWindow=Round[Length[gdata[[1,1,1,2]]]/10]; getStats[run_]:=Module[{avg,stddev}, avg=N[Mean[run[[2,-timeWindow;;-1]]]]; stddev=N[StandardDeviation[run[[2,timeWindow;;-1]]]]; - {run[[1]],(run[[2,1]]-avg)/stddev,Map[N[(#-avg)/stddev]&,run[[4]]]} + {run[[1]],stddev/avg,(run[[2,1]])/avg,Map[N[#/avg]&,run[[4]]]} ] stats=Map[getStats,gdata,{3}]; -histograms=Map[Histogram[#[[1,3]],PlotRange->{{-8,8},Automatic},PlotLabel->"ErdosGallai deviation: "<>ToString[#[[1,2]]]]&,stats,{2}]; +histograms=Map[Histogram[{#[[1,4]]},PlotRange->{{0,2},Automatic},PlotLabel->"ErdosGallai="<>ToString[NumberForm[#[[1,3]],3]]<>"\[Cross]average. stddev="<>ToString[NumberForm[#[[1,2]],3]]<>"\[Cross]average"]&,stats,{2}]; TableForm[histograms,TableHeadings->{taulabels,nlabels}]