Figure 6

Copyright (c) 2019 Raj Saha (rsaha@bates.edu) and Meredith Greer (mgreer@bates.edu)

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sub-license, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions : The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

SetDirectory[NotebookDirectory[]];

Japan Hida

betaperiodpower=Import["Japan_Hida_beta_period_power.dat"];

betaperiodsig=Import["Japan_Hida_beta_period_95sig.dat"];

maxz=320;
minx=0.01136;
maxx=0.02097;

SetOptions[ListDensityPlot,BaseStyle->{FontFamily->"Open Sans",FontSize->14}];

betaperiodsigINTP=Interpolation[betaperiodsig];
betaperiodpowerINTP=Interpolation[betaperiodpower];
diffINTP[x_,y_]=betaperiodsigINTP[x,y]-betaperiodpowerINTP[x,y];

r1=RegionPlot[
diffINTP[x,y]>0,{x,minx,maxx},{y,2.5,15},

PlotStyle->Directive[White,Opacity[0.5]],
Mesh->None,
BoundaryStyle->Black,
PlotRange->{{minx,maxx},{2.5,15},{0,10}}
];

r2=ListDensityPlot[
betaperiodpower,

InterpolationOrder->0,
(*ColorFunctionScaling->False,
ColorFunction->ColorData[{"CMYKColors",{0,maxz}}],*)
ColorFunction->"CMYKColors",

PlotRange->{{minx,maxx},{2.5,15},{0,maxz}}
];
r3 = ParametricPlot[
{u, v},
{u, minx, maxx},{v,5.2,7.9},
PlotStyle->{Gray, Opacity[0.1]}
];
r4 = ParametricPlot[
{u, 6.6},
{u, minx, maxx},
PlotStyle->{Black, Thin, Dashed}
];

r5 = ParametricPlot[
{0.0148, v},
{v,2.5,15},
PlotStyle->{Black, Thin, Dashed}
];

Show[r2,r1,r3,r4,r5,

FrameLabel->{"β","Period (years)"},
(*PlotLabel-> "Hida District, Japan\nGlobal Wavelet Power of simulations\nfor different β\n",*)
PlotLabel-> "Hida District, Japan",
ImageSize->400

]

British India

betaperiodpower=Import["British_India_beta_period_power.dat"];

betaperiodpower=betaperiodpower/.{x_,y_,z_}->{(x/(10^(-7))),y,(z/(10^11))};

betaperiodsig=Import["British_India_beta_period_95sig.dat"];

betaperiodsig=betaperiodsig/.{x_,y_,z_}->{(x/(10^(-7))),y,(z/(10^11))};

maxz=20;
minx=1.69;
maxx=2.4;

betaperiodsigINTP=Interpolation[betaperiodsig];
betaperiodpowerINTP=Interpolation[betaperiodpower];
diffINTP[x_,y_]=betaperiodsigINTP[x,y]-betaperiodpowerINTP[x,y];

r1=RegionPlot[
diffINTP[x,y]>0,{x,minx,maxx},{y,2.5,15},

PlotStyle->Directive[White,Opacity[0.5]],
Mesh->None,
BoundaryStyle->Black,
PlotRange->{{minx,maxx},{3,15},{0,maxz}}
];

r2=ListDensityPlot[
betaperiodpower,

InterpolationOrder->0,
(*ColorFunctionScaling->False,
ColorFunction->ColorData[{"CMYKColors",{0,15}}],*)

ColorFunction->"CMYKColors",

PlotRange->{{minx,maxx},{3,15},{0,maxz}}
];

r3 = ParametricPlot[
{u, v},
{u, minx, maxx},{v,3,6.6},
PlotStyle->{Gray, Opacity[0.1]}
];
r4 = ParametricPlot[
{u, 5.5},
{u, minx, maxx},
PlotStyle->{Black, Thin, Dashed}
];

r5 = ParametricPlot[
{2.16, v},
{v,2.5,15},
PlotStyle->{Black, Thin, Dashed}
];

Show[r2,r1,r3,r4, r5,

FrameLabel->{"β (×(10^(-7)))","Period (years)"},
(*PlotLabel-> "British India\nGlobal Wavelet Power of simulations\nfor different β\n",*)
PlotLabel-> "British India",
ImageSize->400

]

Sweden

betaperiodpower=Import["Sweden_beta_period_power.dat"];

betaperiodpower=betaperiodpower/.{x_,y_,z_}->{(x/(10^(-5))),y,(z/(1 (10^7)))};

betaperiodsig=Import["Sweden_beta_period_95sig.dat"];

betaperiodsig=betaperiodsig/.{x_,y_,z_}->{(x/(10^(-5))),y,(z/(1 (10^7)))};

maxz=15;
minx=3.8;
maxx=7.3;

betaperiodsigINTP=Interpolation[betaperiodsig];
betaperiodpowerINTP=Interpolation[betaperiodpower];
diffINTP[x_,y_]=betaperiodsigINTP[x,y]-betaperiodpowerINTP[x,y];

r1=RegionPlot[
diffINTP[x,y]>0,{x,minx,maxx},{y,3,15},

PlotStyle->Directive[White,Opacity[0.5]],
Mesh->None,
BoundaryStyle->Black,
PlotRange->{{minx,maxx},{3,15},{0,maxz}}
];

r2=ListDensityPlot[
betaperiodpower,

InterpolationOrder->0,
(*ColorFunctionScaling->False,
ColorFunction->ColorData[{"CMYKColors",{0,15}}],*)
ColorFunction->"CMYKColors",
PlotRange->{{minx,maxx},{3,15},{0,maxz}}
];

r3 = ParametricPlot[
{u, v},
{u, minx, maxx},{v,3.9,5.9},
PlotStyle->{Gray, Opacity[0.1]}
];
r4 = ParametricPlot[
{u, 5.2},
{u, minx, maxx},
PlotStyle->{Black, Thin, Dashed}
];

r5 = ParametricPlot[
{4.5, v},
{v,2.5,15},
PlotStyle->{Black, Thin, Dashed}
];


Show[r2,r1,r3,r4, r5,

FrameLabel->{"β (×(10^(-5)))","Period (years)"},
(*PlotLabel-> "Sweden\nGlobal Wavelet Power of simulations\nfor different β\n",*)
PlotLabel-> "Sweden",
ImageSize->400

]