SetDirectory[NotebookDirectory[]];

SierpMT

datgreen05=Import["Sierpinksi\\G3\\Dimensions\\dimgreen055.dat","Data"];
datgreen06=Import["Sierpinksi\\G3\\Dimensions\\dimgreen065.dat","Data"];
datgreen07=Import["Sierpinksi\\G3\\Dimensions\\dimgreen075.dat","Data"];

datred05=Import["Sierpinksi\\G3\\Dimensions\\dimred055.dat","Data"];
datred06=Import["Sierpinksi\\G3\\Dimensions\\dimred065.dat","Data"];
datred07=Import["Sierpinksi\\G3\\Dimensions\\dimred075.dat","Data"];

datblue05=Import["Sierpinksi\\G3\\Dimensions\\dimblue055.dat","Data"];
datblue06=Import["Sierpinksi\\G3\\Dimensions\\dimblue065.dat","Data"];
datblue07=Import["Sierpinksi\\G3\\Dimensions\\dimblue075.dat","Data"];

datgrey05=Import["Sierpinksi\\G3\\Dimensions\\dimgrey055.dat","Data"];
datgrey06=Import["Sierpinksi\\G3\\Dimensions\\dimgrey065.dat","Data"];
datgrey07=Import["Sierpinksi\\G3\\Dimensions\\dimgrey075.dat","Data"];

datorange05=Import["Sierpinksi\\G3\\Dimensions\\dimorange055.dat","Data"];
datorange06=Import["Sierpinksi\\G3\\Dimensions\\dimorange065.dat","Data"];
datorange07=Import["Sierpinksi\\G3\\Dimensions\\dimorange075.dat","Data"];

datcyan05=Import["Sierpinksi\\G3\\Dimensions\\dimcyan055.dat","Data"];
datcyan06=Import["Sierpinksi\\G3\\Dimensions\\dimcyan065.dat","Data"];
datcyan07=Import["Sierpinksi\\G3\\Dimensions\\dimcyan075.dat","Data"];

errorsierpgreen=Table[{datgreen06[[i,1]],Around[datgreen06[[i,2]],{datgreen06[[i,2]]-datgreen07[[i,2]],datgreen05[[i,2]]-datgreen06[[i,2]]}]},{i,1,Length[datgreen06]}];
errorsierpred=Table[{datred06[[i,1]],Around[datred06[[i,2]],{datred06[[i,2]]-datred07[[i,2]],datred05[[i,2]]-datred06[[i,2]]}]},{i,1,Length[datred06]}];
errorsierpblue=Table[{datblue06[[i,1]],Around[datblue06[[i,2]],{datblue06[[i,2]]-datblue07[[i,2]],datblue05[[i,2]]-datblue06[[i,2]]}]},{i,1,Length[datblue06]}];
errorsierpgrey=Table[{datgrey06[[i,1]],Around[datgrey06[[i,2]],{datgrey06[[i,2]]-datgrey07[[i,2]],datgrey05[[i,2]]-datgrey06[[i,2]]}]},{i,1,Length[datgrey06]}];
errorsierporange=Table[{datorange06[[i,1]],Around[datorange06[[i,2]],{datorange06[[i,2]]-datorange07[[i,2]],datorange05[[i,2]]-datorange06[[i,2]]}]},{i,1,Length[datorange06]}];
errorsierpcyan=Table[{datcyan06[[i,1]],Around[datcyan06[[i,2]],{datcyan06[[i,2]]-datcyan07[[i,2]],datcyan05[[i,2]]-datcyan06[[i,2]]}]},{i,1,Length[datcyan06]}];

SquareMT

squaredatgreen05=Import["Square\\Theory\\Dimensions\\dimgreen055.dat","Data"];
squaredatgreen06=Import["Square\\Theory\\Dimensions\\dimgreen065.dat","Data"];
squaredatgreen07=Import["Square\\Theory\\Dimensions\\dimgreen075.dat","Data"];

squaredatred05=Import["Square\\Theory\\Dimensions\\dimred055.dat","Data"];
squaredatred06=Import["Square\\Theory\\Dimensions\\dimred065.dat","Data"];
squaredatred07=Import["Square\\Theory\\Dimensions\\dimred075.dat","Data"];

squaredatblue05=Import["Square\\Theory\\Dimensions\\dimblue055.dat","Data"];
squaredatblue06=Import["Square\\Theory\\Dimensions\\dimblue065.dat","Data"];
squaredatblue07=Import["Square\\Theory\\Dimensions\\dimblue075.dat","Data"];

squaredatgrey05=Import["Square\\Theory\\Dimensions\\dimgrey055.dat","Data"];
squaredatgrey06=Import["Square\\Theory\\Dimensions\\dimgrey065.dat","Data"];
squaredatgrey07=Import["Square\\Theory\\Dimensions\\dimgrey075.dat","Data"];

squaredatorange05=Import["Square\\Theory\\Dimensions\\dimorange055.dat","Data"];
squaredatorange06=Import["Square\\Theory\\Dimensions\\dimorange065.dat","Data"];
squaredatorange07=Import["Square\\Theory\\Dimensions\\dimorange075.dat","Data"];

squaredatcyan05=Import["Square\\Theory\\Dimensions\\dimcyan055.dat","Data"];
squaredatcyan06=Import["Square\\Theory\\Dimensions\\dimcyan065.dat","Data"];
squaredatcyan07=Import["Square\\Theory\\Dimensions\\dimcyan075.dat","Data"];

errorsquaregreen=Table[{squaredatgreen06[[i,1]],Around[squaredatgreen06[[i,2]],{squaredatgreen06[[i,2]]-squaredatgreen07[[i,2]],squaredatgreen05[[i,2]]-squaredatgreen06[[i,2]]}]},{i,1,Length[squaredatgreen06]}];
errorsquarered=Table[{squaredatred06[[i,1]],Around[squaredatred06[[i,2]],{squaredatred06[[i,2]]-squaredatred07[[i,2]],squaredatred05[[i,2]]-squaredatred06[[i,2]]}]},{i,1,Length[squaredatred06]}];
errorsquareblue=Table[{squaredatblue06[[i,1]],Around[squaredatblue06[[i,2]],{squaredatblue06[[i,2]]-squaredatblue07[[i,2]],squaredatblue05[[i,2]]-squaredatblue06[[i,2]]}]},{i,1,Length[squaredatblue06]}];
errorsquaregrey=Table[{squaredatgrey06[[i,1]],Around[squaredatgrey06[[i,2]],{squaredatgrey06[[i,2]]-squaredatgrey07[[i,2]],squaredatgrey05[[i,2]]-squaredatgrey06[[i,2]]}]},{i,1,Length[squaredatgrey06]}];
errorsquareorange=Table[{squaredatorange06[[i,1]],Around[squaredatorange06[[i,2]],{squaredatorange06[[i,2]]-squaredatorange07[[i,2]],squaredatorange05[[i,2]]-squaredatorange06[[i,2]]}]},{i,1,Length[squaredatorange06]}];
errorsquarecyan=Table[{squaredatcyan06[[i,1]],Around[squaredatcyan06[[i,2]],{squaredatcyan06[[i,2]]-squaredatcyan07[[i,2]],squaredatcyan05[[i,2]]-squaredatcyan06[[i,2]]}]},{i,1,Length[squaredatcyan06]}];

Sierpexp

datgreen05exp=Import["Sierpinksi\\Exp\\Dimensions\\dimgreen055.dat","Data"];
datgreen06exp=Import["Sierpinksi\\Exp\\Dimensions\\dimgreen065.dat","Data"];
datgreen07exp=Import["Sierpinksi\\Exp\\Dimensions\\dimgreen075.dat","Data"];

datred05exp=Import["Sierpinksi\\Exp\\Dimensions\\dimred055.dat","Data"];
datred06exp=Import["Sierpinksi\\Exp\\Dimensions\\dimred065.dat","Data"];
datred07exp=Import["Sierpinksi\\Exp\\Dimensions\\dimred075.dat","Data"];

datblue05exp=Import["Sierpinksi\\Exp\\Dimensions\\dimblue055.dat","Data"];
datblue06exp=Import["Sierpinksi\\Exp\\Dimensions\\dimblue065.dat","Data"];
datblue07exp=Import["Sierpinksi\\Exp\\Dimensions\\dimblue075.dat","Data"];

datgrey05exp=Import["Sierpinksi\\Exp\\Dimensions\\dimgrey055.dat","Data"];
datgrey06exp=Import["Sierpinksi\\Exp\\Dimensions\\dimgrey065.dat","Data"];
datgrey07exp=Import["Sierpinksi\\Exp\\Dimensions\\dimgrey075.dat","Data"];

datorange05exp=Import["Sierpinksi\\Exp\\Dimensions\\dimorange055.dat","Data"];
datorange06exp=Import["Sierpinksi\\Exp\\Dimensions\\dimorange065.dat","Data"];
datorange07exp=Import["Sierpinksi\\Exp\\Dimensions\\dimorange075.dat","Data"];

datcyan05exp=Import["Sierpinksi\\Exp\\Dimensions\\dimcyan055.dat","Data"];
datcyan06exp=Import["Sierpinksi\\Exp\\Dimensions\\dimcyan065.dat","Data"];
datcyan07exp=Import["Sierpinksi\\Exp\\Dimensions\\dimcyan075.dat","Data"];

errorsierpgreenexp=Table[{datgreen06exp[[i,1]],Around[datgreen06exp[[i,2]],{datgreen06exp[[i,2]]-datgreen07exp[[i,2]],datgreen05exp[[i,2]]-datgreen06exp[[i,2]]}]},{i,1,Length[datgreen06exp]}];
errorsierpredexp=Table[{datred06exp[[i,1]],Around[datred06exp[[i,2]],{datred06exp[[i,2]]-datred07exp[[i,2]],datred05exp[[i,2]]-datred06exp[[i,2]]}]},{i,1,Length[datred06exp]}];
errorsierpblueexp=Table[{datblue06exp[[i,1]],Around[datblue06exp[[i,2]],{datblue06exp[[i,2]]-datblue07exp[[i,2]],datblue05exp[[i,2]]-datblue06exp[[i,2]]}]},{i,1,Length[datblue06exp]}];
errorsierpgreyexp=Table[{datgrey06exp[[i,1]],Around[datgrey06exp[[i,2]],{datgrey06exp[[i,2]]-datgrey07exp[[i,2]],datgrey05exp[[i,2]]-datgrey06exp[[i,2]]}]},{i,1,Length[datgrey06exp]}];
errorsierporangeexp=Table[{datorange06exp[[i,1]],Around[datorange06exp[[i,2]],{datorange06exp[[i,2]]-datorange07exp[[i,2]],datorange05exp[[i,2]]-datorange06exp[[i,2]]}]},{i,1,Length[datorange06exp]}];
errorsierpcyanexp=Table[{datcyan06exp[[i,1]],Around[datcyan06exp[[i,2]],{datcyan06exp[[i,2]]-datcyan07exp[[i,2]],datcyan05exp[[i,2]]-datcyan06exp[[i,2]]}]},{i,1,Length[datcyan06exp]}];

SquareExp

datgreen05squareexp=Import["Square\\Exp\\Dimensions\\dimgreen055.dat","Data"];
datgreen06squareexp=Import["Square\\Exp\\Dimensions\\dimgreen065.dat","Data"];
datgreen07squareexp=Import["Square\\Exp\\Dimensions\\dimgreen075.dat","Data"];

datred05squareexp=Import["Square\\Exp\\Dimensions\\dimred055.dat","Data"];
datred06squareexp=Import["Square\\Exp\\Dimensions\\dimred065.dat","Data"];
datred07squareexp=Import["Square\\Exp\\Dimensions\\dimred075.dat","Data"];

datblue05squareexp=Import["Square\\Exp\\Dimensions\\dimblue055.dat","Data"];
datblue06squareexp=Import["Square\\Exp\\Dimensions\\dimblue065.dat","Data"];
datblue07squareexp=Import["Square\\Exp\\Dimensions\\dimblue075.dat","Data"];

datgrey05squareexp=Import["Square\\Exp\\Dimensions\\dimgrey055.dat","Data"];
datgrey06squareexp=Import["Square\\Exp\\Dimensions\\dimgrey065.dat","Data"];
datgrey07squareexp=Import["Square\\Exp\\Dimensions\\dimgrey075.dat","Data"];

datorange05squareexp=Import["Square\\Exp\\Dimensions\\dimorange055.dat","Data"];
datorange06squareexp=Import["Square\\Exp\\Dimensions\\dimorange065.dat","Data"];
datorange07squareexp=Import["Square\\Exp\\Dimensions\\dimorange075.dat","Data"];

datcyan05squareexp=Import["Square\\Exp\\Dimensions\\dimcyan055.dat","Data"];
datcyan06squareexp=Import["Square\\Exp\\Dimensions\\dimcyan065.dat","Data"];
datcyan07squareexp=Import["Square\\Exp\\Dimensions\\dimcyan075.dat","Data"];

errorgreensquareexp=Table[{datgreen06squareexp[[i,1]],Around[datgreen06squareexp[[i,2]],{datgreen06squareexp[[i,2]]-datgreen07squareexp[[i,2]],datgreen05squareexp[[i,2]]-datgreen06squareexp[[i,2]]}]},{i,1,Length[datgreen06squareexp]}];
errorredsquareexp=Table[{datred06squareexp[[i,1]],Around[datred06squareexp[[i,2]],{datred06squareexp[[i,2]]-datred07squareexp[[i,2]],datred05squareexp[[i,2]]-datred06squareexp[[i,2]]}]},{i,1,Length[datred06squareexp]}];
errorbluesquareexp=Table[{datblue06squareexp[[i,1]],Around[datblue06squareexp[[i,2]],{datblue06squareexp[[i,2]]-datblue07squareexp[[i,2]],datblue05squareexp[[i,2]]-datblue06squareexp[[i,2]]}]},{i,1,Length[datblue06squareexp]}];
errorgreysquareexp=Table[{datgrey06squareexp[[i,1]],Around[datgrey06squareexp[[i,2]],{datgrey06squareexp[[i,2]]-datgrey07squareexp[[i,2]],datgrey05squareexp[[i,2]]-datgrey06squareexp[[i,2]]}]},{i,1,Length[datgrey06squareexp]}];
errororangesquareexp=Table[{datorange06squareexp[[i,1]],Around[datorange06squareexp[[i,2]],{datorange06squareexp[[i,2]]-datorange07squareexp[[i,2]],datorange05squareexp[[i,2]]-datorange06squareexp[[i,2]]}]},{i,1,Length[datorange06squareexp]}];
errorcyansquareexp=Table[{datcyan06squareexp[[i,1]],Around[datcyan06squareexp[[i,2]],{datcyan06squareexp[[i,2]]-datcyan07squareexp[[i,2]],datcyan05squareexp[[i,2]]-datcyan06squareexp[[i,2]]}]},{i,1,Length[datcyan06squareexp]}];

Grafeen

datgreen05Grafeen=Import["Grafeen\\Dimensions\\dimgreen055.dat","Data"];
datgreen06Grafeen=Import["Grafeen\\Dimensions\\dimgreen065.dat","Data"];
datgreen07Grafeen=Import["Grafeen\\Dimensions\\dimgreen075.dat","Data"];

datred05Grafeen=Import["Grafeen\\Dimensions\\dimred055.dat","Data"];
datred06Grafeen=Import["Grafeen\\Dimensions\\dimred065.dat","Data"];
datred07Grafeen=Import["Grafeen\\Dimensions\\dimred075.dat","Data"];

datblue05Grafeen=Import["Grafeen\\Dimensions\\dimblue055.dat","Data"];
datblue06Grafeen=Import["Grafeen\\Dimensions\\dimblue065.dat","Data"];
datblue07Grafeen=Import["Grafeen\\Dimensions\\dimblue075.dat","Data"];

datgrey05Grafeen=Import["Grafeen\\Dimensions\\dimgrey055.dat","Data"];
datgrey06Grafeen=Import["Grafeen\\Dimensions\\dimgrey065.dat","Data"];
datgrey07Grafeen=Import["Grafeen\\Dimensions\\dimgrey075.dat","Data"];

datorange05Grafeen=Import["Grafeen\\Dimensions\\dimorange055.dat","Data"];
datorange06Grafeen=Import["Grafeen\\Dimensions\\dimorange065.dat","Data"];
datorange07Grafeen=Import["Grafeen\\Dimensions\\dimorange075.dat","Data"];

datcyan05Grafeen=Import["Grafeen\\Dimensions\\dimcyan055.dat","Data"];
datcyan06Grafeen=Import["Grafeen\\Dimensions\\dimcyan065.dat","Data"];
datcyan07Grafeen=Import["Grafeen\\Dimensions\\dimcyan075.dat","Data"];

errorsierpgreenGrafeen=Table[{datgreen06Grafeen[[i,1]],Around[datgreen06Grafeen[[i,2]],{datgreen06Grafeen[[i,2]]-datgreen07Grafeen[[i,2]],datgreen05Grafeen[[i,2]]-datgreen06Grafeen[[i,2]]}]},{i,1,Length[datgreen06Grafeen]}];
errorsierpredGrafeen=Table[{datred06Grafeen[[i,1]],Around[datred06Grafeen[[i,2]],{datred06Grafeen[[i,2]]-datred07Grafeen[[i,2]],datred05Grafeen[[i,2]]-datred06Grafeen[[i,2]]}]},{i,1,Length[datred06Grafeen]}];
errorsierpblueGrafeen=Table[{datblue06Grafeen[[i,1]],Around[datblue06Grafeen[[i,2]],{datblue06Grafeen[[i,2]]-datblue07Grafeen[[i,2]],datblue05Grafeen[[i,2]]-datblue06Grafeen[[i,2]]}]},{i,1,Length[datblue06Grafeen]}];
errorsierpgreyGrafeen=Table[{datgrey06Grafeen[[i,1]],Around[datgrey06Grafeen[[i,2]],{datgrey06Grafeen[[i,2]]-datgrey07Grafeen[[i,2]],datgrey05Grafeen[[i,2]]-datgrey06Grafeen[[i,2]]}]},{i,1,Length[datgrey06Grafeen]}];
errorsierporangeGrafeen=Table[{datorange06Grafeen[[i,1]],Around[datorange06Grafeen[[i,2]],{datorange06Grafeen[[i,2]]-datorange07Grafeen[[i,2]],datorange05Grafeen[[i,2]]-datorange06Grafeen[[i,2]]}]},{i,1,Length[datorange06Grafeen]}];
errorsierpcyanGrafeen=Table[{datcyan06Grafeen[[i,1]],Around[datcyan06Grafeen[[i,2]],{datcyan06Grafeen[[i,2]]-datcyan07Grafeen[[i,2]],datcyan05Grafeen[[i,2]]-datcyan06Grafeen[[i,2]]}]},{i,1,Length[datcyan06Grafeen]}];

G2

datgreen05G2=Import["Sierpinksi\\G2\\Dimensions\\dimgreen055new.dat","Data"];
datgreen06G2=Import["Sierpinksi\\G2\\Dimensions\\dimgreen065new.dat","Data"];
datgreen07G2=Import["Sierpinksi\\G2\\Dimensions\\dimgreen075new.dat","Data"];

datred05G2=Import["Sierpinksi\\G2\\Dimensions\\dimred055new.dat","Data"];
datred06G2=Import["Sierpinksi\\G2\\Dimensions\\dimred065new.dat","Data"];
datred07G2=Import["Sierpinksi\\G2\\Dimensions\\dimred075new.dat","Data"];

datblue05G2=Import["Sierpinksi\\G2\\Dimensions\\dimblue055new.dat","Data"];
datblue06G2=Import["Sierpinksi\\G2\\Dimensions\\dimblue065new.dat","Data"];
datblue07G2=Import["Sierpinksi\\G2\\Dimensions\\dimblue075new.dat","Data"];

datgrey05G2=Import["Sierpinksi\\G2\\Dimensions\\dimgrey055new.dat","Data"];
datgrey06G2=Import["Sierpinksi\\G2\\Dimensions\\dimgrey065new.dat","Data"];
datgrey07G2=Import["Sierpinksi\\G2\\Dimensions\\dimgrey075new.dat","Data"];

datorange05G2=Import["Sierpinksi\\G2\\Dimensions\\dimorange055new.dat","Data"];
datorange06G2=Import["Sierpinksi\\G2\\Dimensions\\dimorange065new.dat","Data"];
datorange07G2=Import["Sierpinksi\\G2\\Dimensions\\dimorange075new.dat","Data"];

datcyan05G2=Import["Sierpinksi\\G2\\Dimensions\\dimcyan055new.dat","Data"];
datcyan06G2=Import["Sierpinksi\\G2\\Dimensions\\dimcyan065new.dat","Data"];
datcyan07G2=Import["Sierpinksi\\G2\\Dimensions\\dimcyan075new.dat","Data"];

errorsierpgreenG2=Table[{datgreen06G2[[i,1]],Around[datgreen06G2[[i,2]],{datgreen06G2[[i,2]]-datgreen07G2[[i,2]],datgreen05G2[[i,2]]-datgreen06G2[[i,2]]}]},{i,1,Length[datgreen06G2]}];
errorsierpredG2=Table[{datred06G2[[i,1]],Around[datred06G2[[i,2]],{datred06G2[[i,2]]-datred07G2[[i,2]],datred05G2[[i,2]]-datred06G2[[i,2]]}]},{i,1,Length[datred06G2]}];
errorsierpblueG2=Table[{datblue06G2[[i,1]],Around[datblue06G2[[i,2]],{datblue06G2[[i,2]]-datblue07G2[[i,2]],datblue05G2[[i,2]]-datblue06G2[[i,2]]}]},{i,1,Length[datblue06G2]}];
errorsierpgreyG2=Table[{datgrey06G2[[i,1]],Around[datgrey06G2[[i,2]],{datgrey06G2[[i,2]]-datgrey07G2[[i,2]],datgrey05G2[[i,2]]-datgrey06G2[[i,2]]}]},{i,1,Length[datgrey06G2]}];
errorsierporangeG2=Table[{datorange06G2[[i,1]],Around[datorange06G2[[i,2]],{datorange06G2[[i,2]]-datorange07G2[[i,2]],datorange05G2[[i,2]]-datorange06G2[[i,2]]}]},{i,1,Length[datorange06G2]}];
errorsierpcyanG2=Table[{datcyan06G2[[i,1]],Around[datcyan06G2[[i,2]],{datcyan06G2[[i,2]]-datcyan07G2[[i,2]],datcyan05G2[[i,2]]-datcyan06G2[[i,2]]}]},{i,1,Length[datcyan06G2]}];

G1

datgreen05g1=Import["Sierpinksi\\G1\\Dimensions\\dimgreen055new.dat","Data"];
datgreen06g1=Import["Sierpinksi\\G1\\Dimensions\\dimgreen065new.dat","Data"];
datgreen07g1=Import["Sierpinksi\\G1\\Dimensions\\dimgreen075new.dat","Data"];

datred05g1=Import["Sierpinksi\\G1\\Dimensions\\dimred055new.dat","Data"];
datred06g1=Import["Sierpinksi\\G1\\Dimensions\\dimred065new.dat","Data"];
datred07g1=Import["Sierpinksi\\G1\\Dimensions\\dimred075new.dat","Data"];

datblue05g1=Import["Sierpinksi\\G1\\Dimensions\\dimblue055new.dat","Data"];
datblue06g1=Import["Sierpinksi\\G1\\Dimensions\\dimblue065new.dat","Data"];
datblue07g1=Import["Sierpinksi\\G1\\Dimensions\\dimblue075new.dat","Data"];

datgrey05g1=Import["Sierpinksi\\G1\\Dimensions\\dimgrey055new.dat","Data"];
datgrey06g1=Import["Sierpinksi\\G1\\Dimensions\\dimgrey065new.dat","Data"];
datgrey07g1=Import["Sierpinksi\\G1\\Dimensions\\dimgrey075new.dat","Data"];

datorange05g1=Import["Sierpinksi\\G1\\Dimensions\\dimorange055new.dat","Data"];
datorange06g1=Import["Sierpinksi\\G1\\Dimensions\\dimorange065new.dat","Data"];
datorange07g1=Import["Sierpinksi\\G1\\Dimensions\\dimorange075new.dat","Data"];

datcyan05g1=Import["Sierpinksi\\G1\\Dimensions\\dimcyan055new.dat","Data"];
datcyan06g1=Import["Sierpinksi\\G1\\Dimensions\\dimcyan065new.dat","Data"];
datcyan07g1=Import["Sierpinksi\\G1\\Dimensions\\dimcyan075new.dat","Data"];

errorsierpgreeng1=Table[{datgreen06g1[[i,1]],Around[datgreen06g1[[i,2]],{datgreen06g1[[i,2]]-datgreen07g1[[i,2]],datgreen05g1[[i,2]]-datgreen06g1[[i,2]]}]},{i,1,Length[datgreen06g1]}];
errorsierpredg1=Table[{datred06g1[[i,1]],Around[datred06g1[[i,2]],{datred06g1[[i,2]]-datred07g1[[i,2]],datred05g1[[i,2]]-datred06g1[[i,2]]}]},{i,1,Length[datred06g1]}];
errorsierpblueg1=Table[{datblue06g1[[i,1]],Around[datblue06g1[[i,2]],{datblue06g1[[i,2]]-datblue07g1[[i,2]],datblue05g1[[i,2]]-datblue06g1[[i,2]]}]},{i,1,Length[datblue06g1]}];
errorsierpgreyg1=Table[{datgrey06g1[[i,1]],Around[datgrey06g1[[i,2]],{datgrey06g1[[i,2]]-datgrey07g1[[i,2]],datgrey05g1[[i,2]]-datgrey06g1[[i,2]]}]},{i,1,Length[datgrey06g1]}];
errorsierporangeg1=Table[{datorange06g1[[i,1]],Around[datorange06g1[[i,2]],{datorange06g1[[i,2]]-datorange07g1[[i,2]],datorange05g1[[i,2]]-datorange06g1[[i,2]]}]},{i,1,Length[datorange06g1]}];
errorsierpcyang1=Table[{datcyan06g1[[i,1]],Around[datcyan06g1[[i,2]],{datcyan06g1[[i,2]]-datcyan07g1[[i,2]],datcyan05g1[[i,2]]-datcyan06g1[[i,2]]}]},{i,1,Length[datcyan06g1]}];

SierpMThigh

datgreen05high=Import["Sierpinksi\\G3\\Dimensions\\dimgreen055high.dat","Data"];
datgreen06high=Import["Sierpinksi\\G3\\Dimensions\\dimgreen065high.dat","Data"];
datgreen07high=Import["Sierpinksi\\G3\\Dimensions\\dimgreen075high.dat","Data"];

datred05high=Import["Sierpinksi\\G3\\Dimensions\\dimred055high.dat","Data"];
datred06high=Import["Sierpinksi\\G3\\Dimensions\\dimred065high.dat","Data"];
datred07high=Import["Sierpinksi\\G3\\Dimensions\\dimred075high.dat","Data"];

datblue05high=Import["Sierpinksi\\G3\\Dimensions\\dimblue055high.dat","Data"];
datblue06high=Import["Sierpinksi\\G3\\Dimensions\\dimblue065high.dat","Data"];
datblue07high=Import["Sierpinksi\\G3\\Dimensions\\dimblue075high.dat","Data"];

datgrey05high=Import["Sierpinksi\\G3\\Dimensions\\dimgrey055high.dat","Data"];
datgrey06high=Import["Sierpinksi\\G3\\Dimensions\\dimgrey065high.dat","Data"];
datgrey07high=Import["Sierpinksi\\G3\\Dimensions\\dimgrey075high.dat","Data"];

datorange05high=Import["Sierpinksi\\G3\\Dimensions\\dimorange055high.dat","Data"];
datorange06high=Import["Sierpinksi\\G3\\Dimensions\\dimorange065high.dat","Data"];
datorange07high=Import["Sierpinksi\\G3\\Dimensions\\dimorange075high.dat","Data"];

datcyan05high=Import["Sierpinksi\\G3\\Dimensions\\dimcyan055high.dat","Data"];
datcyan06high=Import["Sierpinksi\\G3\\Dimensions\\dimcyan065high.dat","Data"];
datcyan07high=Import["Sierpinksi\\G3\\Dimensions\\dimcyan075high.dat","Data"];

errorsierpgreenhigh=Table[{datgreen06high[[i,1]],Around[datgreen06high[[i,2]],{datgreen06high[[i,2]]-datgreen07high[[i,2]],datgreen05high[[i,2]]-datgreen06high[[i,2]]}]},{i,1,Length[datgreen06high]}];
errorsierpredhigh=Table[{datred06high[[i,1]],Around[datred06high[[i,2]],{datred06high[[i,2]]-datred07high[[i,2]],datred05high[[i,2]]-datred06high[[i,2]]}]},{i,1,Length[datred06high]}];
errorsierpbluehigh=Table[{datblue06high[[i,1]],Around[datblue06high[[i,2]],{datblue06high[[i,2]]-datblue07high[[i,2]],datblue05high[[i,2]]-datblue06high[[i,2]]}]},{i,1,Length[datblue06high]}];
errorsierpgreyhigh=Table[{datgrey06high[[i,1]],Around[datgrey06high[[i,2]],{datgrey06high[[i,2]]-datgrey07high[[i,2]],datgrey05high[[i,2]]-datgrey06high[[i,2]]}]},{i,1,Length[datgrey06high]}];
errorsierporangehigh=Table[{datorange06high[[i,1]],Around[datorange06high[[i,2]],{datorange06high[[i,2]]-datorange07high[[i,2]],datorange05high[[i,2]]-datorange06high[[i,2]]}]},{i,1,Length[datorange06high]}];
errorsierpcyanhigh=Table[{datcyan06high[[i,1]],Around[datcyan06high[[i,2]],{datcyan06high[[i,2]]-datcyan07high[[i,2]],datcyan05high[[i,2]]-datcyan06high[[i,2]]}]},{i,1,Length[datcyan06high]}];

Sierpexphigh

datgreen05exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimgreen055high.dat","Data"];
datgreen06exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimgreen065high.dat","Data"];
datgreen07exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimgreen075high.dat","Data"];

datred05exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimred055high.dat","Data"];
datred06exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimred065high.dat","Data"];
datred07exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimred075high.dat","Data"];

datblue05exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimblue055high.dat","Data"];
datblue06exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimblue065high.dat","Data"];
datblue07exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimblue075high.dat","Data"];

datgrey05exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimgrey055high.dat","Data"];
datgrey06exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimgrey065high.dat","Data"];
datgrey07exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimgrey075high.dat","Data"];

datorange05exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimorange055high.dat","Data"];
datorange06exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimorange065high.dat","Data"];
datorange07exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimorange075high.dat","Data"];

datcyan05exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimcyan055high.dat","Data"];
datcyan06exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimcyan065high.dat","Data"];
datcyan07exphigh=Import["Sierpinksi\\Exp\\Dimensions\\dimcyan075high.dat","Data"];

errorsierpgreenexphigh=Table[{datgreen06exphigh[[i,1]],Around[datgreen06exphigh[[i,2]],{datgreen06exphigh[[i,2]]-datgreen07exphigh[[i,2]],datgreen05exphigh[[i,2]]-datgreen06exphigh[[i,2]]}]},{i,1,Length[datgreen06exphigh]}];
errorsierpredexphigh=Table[{datred06exphigh[[i,1]],Around[datred06exphigh[[i,2]],{datred06exphigh[[i,2]]-datred07exphigh[[i,2]],datred05exphigh[[i,2]]-datred06exphigh[[i,2]]}]},{i,1,Length[datred06exphigh]}];
errorsierpblueexphigh=Table[{datblue06exphigh[[i,1]],Around[datblue06exphigh[[i,2]],{datblue06exphigh[[i,2]]-datblue07exphigh[[i,2]],datblue05exphigh[[i,2]]-datblue06exphigh[[i,2]]}]},{i,1,Length[datblue06exphigh]}];
errorsierpgreyexphigh=Table[{datgrey06exphigh[[i,1]],Around[datgrey06exphigh[[i,2]],{datgrey06exphigh[[i,2]]-datgrey07exphigh[[i,2]],datgrey05exphigh[[i,2]]-datgrey06exphigh[[i,2]]}]},{i,1,Length[datgrey06exphigh]}];
errorsierporangeexphigh=Table[{datorange06exphigh[[i,1]],Around[datorange06exphigh[[i,2]],{datorange06exphigh[[i,2]]-datorange07exphigh[[i,2]],datorange05exphigh[[i,2]]-datorange06exphigh[[i,2]]}]},{i,1,Length[datorange06exphigh]}];
errorsierpcyanexphigh=Table[{datcyan06exphigh[[i,1]],Around[datcyan06exphigh[[i,2]],{datcyan06exphigh[[i,2]]-datcyan07exphigh[[i,2]],datcyan05exphigh[[i,2]]-datcyan06exphigh[[i,2]]}]},{i,1,Length[datcyan06exphigh]}];

Dimensions

sierp=Table[{-.45+0.05*i,Log[3]/Log[2]},{i,1,40}];

square=Table[{-.45+0.05*i,2},{i,1,40}];

Show[ListPlot[{errorsierpgreeng1,errorsierpredg1,errorsierpblueg1},PlotStyle->{Green,Red,Blue,Gray,Orange,Cyan},PlotRange->{{-0.325,0.825},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},PlotLegends->{"\!\(\*SubscriptBox[\(SierpinskiMTG1\), \(Green\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG1\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG1\), \(Blue\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG1\), \(Grey\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG1\), \(Orange\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG1\), \(Cyan\\ slopes\)]\)"},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Orange,Black}]]

Show[ListPlot[{errorsierpgreenG2,errorsierpredG2,errorsierpblueG2},PlotStyle->{Green,Red,Blue,Gray,Orange,Cyan},PlotRange->{{-0.325,0.825},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},PlotLegends->{"\!\(\*SubscriptBox[\(SierpinskiMTG2\), \(Green\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG2\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG2\), \(Blue\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG2\), \(Grey\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG2\), \(Orange\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG2\), \(Cyan\\ slopes\)]\)"},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Orange,Black}]]

Show[ListPlot[{errorsierpgreen,errorsierpblue,errorsierpred},PlotStyle->{Green,Blue,Red,Gray,Orange,Cyan},PlotRange->{{-0.325,0.825},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},PlotLegends->{"\!\(\*SubscriptBox[\(SierpinskiMTG3\), \(Green\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG3\), \(Blue\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG3\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG3\), \(Grey\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG3\), \(Orange\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiMTG3\), \(Cyan\\ slopes\)]\)"},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Orange,Black}]]

Show[ListPlot[{errorsierpred,errorsierpredGrafeen,errorsquarered},PlotStyle->{Orange,Black,Gray},PlotRange->{{-0.325,0.825},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},PlotLegends->{"\!\(\*SubscriptBox[\(SierpinskiMTG3\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(GrafeenMT\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareMT\), \(Red\\ slopes\)]\)"},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Orange,Black}]]

Show[ListPlot[{errorsierpred,errorsierpredexp,errorsquarered,errorredsquareexp},PlotStyle->{{Lighter[Red,0.3],PointSize[0.01]},{Darker[Red,0.5],PointSize[0.01]},{Lighter[Green,0.3],PointSize[0.01]},{Darker[Green,0.5]
,PointSize[0.01]}},PlotRange->{{-0.34,0.325},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},PlotLegends->{"\!\(\*SubscriptBox[\(SierpinskiMT\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiExp\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareMT\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareExp\), \(Red\\ slopes\)]\)"},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Red,Green}]]

Show[ListPlot[{errorsierpblue,errorsierpblueexp,errorsquarered,errorredsquareexp},PlotStyle->{{Darker[Cyan,0.3],PointSize[0.01]},{Darker[Blue,0.5],PointSize[0.01]},{Lighter[Green,0.3],PointSize[0.01]},{Darker[Green,0.5]
,PointSize[0.01]}},PlotRange->{{-0.34,0.325},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},PlotLegends->{"\!\(\*SubscriptBox[\(SierpinskiMT\), \(Blue\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiExp\), \(Blue\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareMT\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareExp\), \(Red\\ slopes\)]\)"},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Blue,Green}]]

Show[ListPlot[{errorsierpredhigh,errorsierpredexphigh,errorsquarered,errorredsquareexp},PlotStyle->{{Lighter[Red,0.3],PointSize[0.01]},{Darker[Red,0.5],PointSize[0.01]},{Lighter[Green,0.3],PointSize[0.01]},{Darker[Green,0.5]
,PointSize[0.01]}},PlotRange->{{-0.34,0.325},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},PlotLegends->{"\!\(\*SubscriptBox[\(SierpinskiMT\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiExp\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareMT\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareExp\), \(Red\\ slopes\)]\)"},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Red,Green}]]

Show[ListPlot[{errorsierpbluehigh,errorsierpblueexphigh,errorsquarered,errorredsquareexp},PlotStyle->{{Darker[Cyan,0.3],PointSize[0.01]},{Darker[Blue,0.5],PointSize[0.01]},{Lighter[Green,0.3],PointSize[0.01]},{Darker[Green,0.5]
,PointSize[0.01]}},PlotRange->{{-0.34,0.325},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},PlotLegends->{"\!\(\*SubscriptBox[\(SierpinskiMT\), \(Blue\\ slopes\)]\)","\!\(\*SubscriptBox[\(SierpinskiExp\), \(Blue\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareMT\), \(Red\\ slopes\)]\)","\!\(\*SubscriptBox[\(SquareExp\), \(Red\\ slopes\)]\)"},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Blue,Green}]]

datred06skel=Import["Sierpinksi\\G3\\Dimensions\\dimred065skel.dat","Data"];
datred06skelexp=Import["Sierpinksi\\Exp\\Dimensions\\dimred065skel.dat","Data"];
squaredatred06skel=Import["Square\\Theory\\Dimensions\\dimred065skel.dat","Data"];
squaredatred06skelexp=Import["Square\\Exp\\Dimensions\\dimred065skel.dat","Data"];
datred06skelminBC=Import["Sierpinksi\\G3\\Dimensions\\dimred065skelminBC.dat","Data"];
datred06minBC=Import["Sierpinksi\\G3\\Dimensions\\dimred065minBC.dat","Data"];

Show[ListPlot[{squaredatred06skel,squaredatred06skelexp,datred06skel,datred06skelexp,datred06},PlotStyle->{{Darker[Cyan,0.3],PointSize[0.01]},{Darker[Blue,0.5],PointSize[0.01]},{Lighter[Orange,0.3],PointSize[0.01]},{Darker[Orange,0.5]
,PointSize[0.01]},Red},PlotRange->{{-0.34,0.325},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Orange,Black}]]

Show[ListPlot[{datred06skel,datred06,datred06skelminBC,datred06minBC},PlotStyle->{{Green,PointSize[0.01]},{Red,PointSize[0.01]},{Orange,PointSize[0.01]},{Blue
,PointSize[0.01]}},PlotRange->{{-0.34,0.325},{1,2.25}},Frame->True,FrameStyle->{{Large,Black},{Large,Black},{Large,Black},{Large,Black}},FrameLabel->{"E (eV)","D"},FrameTicks->{{{1,1.25,1.5,1.75,2,2.25},{}},{{-0.3,-.2,-.1,0,.1,.2,.3,0.4,0.5,.6,.7,.8,.9},{}}},ImageSize->750],ListLinePlot[{sierp,square},PlotStyle->{Orange,Black}]]