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

Changeset - f1904d0b9ecb

Parent rev.

Child rev.

[Not reviewed]

0 3 0

Tom Bannink - 8 years ago 2017-07-17 14:28:49
tombannink@gmail.com

Update ccm timeevol plot

3 files changed with 5 insertions and 2 deletions:

plots/timeevol_ccm.pdf

bin+mod

plots/timeevol_ccm_log.pdf

bin+mod

triangle_ccm_timeevol_plots.m

0 comments (0 inline, 0 general)

plots/timeevol_ccm.pdf

➞

Show inline comments

binary diff not shown

plots/timeevol_ccm_log.pdf

➞

Show inline comments

binary diff not shown

triangle_ccm_timeevol_plots.m

➞

Show inline comments

@@ @@ -84,30 +84,33 @@ plotTimeEvol4=Show[plotTimeEvol1,plotTimeEvol3] @@
 getCombinedData[run_]:=Module[{numEdges,maxTime,skipPts,getShiftedData,hhData,ccm1Data,ccm2Data},
 numEdges=run[[2]];
 maxTime=Length[run[[3]]];
 skipPts=Max[1,Round[maxTime/500]];
 getShiftedData[offset_,data_]:=If[Length[data]==0,{},
 MapIndexed[{offset+(First[#2]-1)*skipPts,Mean[#1]}&,Partition[data,skipPts]]
 ];
 hhData=getShiftedData[0,run[[3]]];
 ccm1Data=getShiftedData[0*numEdges*run[[4,1]],run[[4,2]]];
 ccm2Data=getShiftedData[0*numEdges*run[[5,1]],run[[5,2]]];
 {Legended[hhData,"\[Tau] = "<>ToString[run[[1,2]]]],ccm1Data,ccm2Data}
+]
 dataSets=Map[getCombinedData,gdata,{3}];
 dataSetsFlattened=Flatten[dataSets,3];
 colorList=Table[ColorData[97,"ColorList"][[1+Floor[i/3]]],{i,0,Length[dataSetsFlattened]-1}];
 plot1=ListPlot[dataSetsFlattened,Joined->True,PlotRange->{{0,40000},{0,6000}},PlotStyle->colorList,ImageSize->300,PlotLabel->nlabels[[1]]]
 plot1log=ListLogPlot[dataSetsFlattened,Joined->True,PlotRange->{{0,40000},{1,15000}},PlotStyle->colorList,ImageSize->300,PlotLabel->nlabels[[1]]]
 plot1=ListPlot[dataSetsFlattened,Joined->True,PlotRange->{{0,40000},{0,6000}},PlotStyle->colorList,ImageSize->300,PlotLabel->nlabels[[1]],Frame->True,FrameLabel->{"timesteps","number of triangles"}]
 plot1log=ListLogPlot[dataSetsFlattened,Joined->True,PlotRange->{{0,40000},{1,15000}},PlotStyle->colorList,ImageSize->300,PlotLabel->nlabels[[1]],Frame->True,FrameLabel->{"timesteps","number of triangles"}]
 Export[NotebookDirectory[]<>"plots/timeevol_ccm.pdf",plot1]
 Export[NotebookDirectory[]<>"plots/timeevol_ccm_log.pdf",plot1log]

0 comments (0 inline, 0 general)