Initialization

Needs["MaTeX`"];
SetOptions[MaTeX,"Preamble"->{"\\usepackage{amssymb,amsmath,latexsym,amsfonts,amsthm,mathpazo,xcolor,bm,mhchem}"}];

SetDirectory["~/Work/bse/sfBSE/output"];

Graphs for (Subscript[H, 2])

Loading data

coord=Import["seq","List"];
sfBSE={Import["sf_bse_first_excitation","List"],Import["sf_bse_third_excitation","List"],Import["sf_bse_fourth_excitation","List"],Import["sf_bse_fifth_excitation","List"],Import["sf_bse_sixth_excitation","List"],Import["sf_bse_seventh_excitation","List"],Import["sf_bse_eighth_excitation","List"]} ;

sfTDDFT={Import["sf_tddft_first_excitation","List"],Import["sf_tddft_third_excitation","List"],Import["sf_tddft_fourth_excitation","List"],Import["sf_tddft_fifth_excitation","List"],Import["sf_tddft_sixth_excitation","List"],Import["sf_tddft_seventh_excitation","List"],Import["sf_tddft_eighth_excitation","List"],Import["sf_tddft_ninth_excitation","List"],Import["sf_tddft_tenth_excitation","List"]} ;

sfCIS={Import["sf_cis_first_excitation","List"],Import["sf_cis_third_excitation","List"],Import["sf_cis_fourth_excitation","List"],Import["sf_cis_fifth_excitation","List"],Import["sf_cis_sixth_excitation","List"],Import["sf_cis_seventh_excitation","List"],Import["sf_cis_eighth_excitation","List"],Import["sf_cis_ninth_excitation","List"],Import["sf_cis_tenth_excitation","List"]} ;

eomCCSD= {Import["eom_cssd_first_excitation","List"],Import["eom_cssd_second_excitation","List"],Import["eom_cssd_third_excitation","List"],Import["eom_cssd_fourth_excitation","List"],Import["eom_cssd_fifth_excitation","List"],Import["eom_cssd_sixth_excitation","List"],Import["eom_cssd_seventh_excitation","List"],Import["eom_cssd_eighth_excitation","List"],Import["eom_cssd_ninth_excitation","List"],Import["eom_cssd_tenth_excitation","List"]} ;

cis= {Import["cis_first_excitation","List"],Import["cis_second_excitation","List"],Import["cis_third_excitation","List"],Import["cis_fourth_excitation","List"],Import["cis_fifth_excitation","List"],Import["cis_sixth_excitation","List"],Import["cis_seventh_excitation","List"]} ;

TDDFT= {Import["tddft_first_excitation","List"],Import["tddft_second_excitation","List"],Import["tddft_third_excitation","List"],Import["tddft_fourth_excitation","List"],Import["tddft_fifth_excitation","List"],Import["tddft_sixth_excitation","List"],Import["tddft_seventh_excitation","List"]} ;

BSE={Import["bse_first_excitation","List"],Import["bse_second_excitation","List"],Import["bse_third_excitation","List"],Import["bse_fourth_excitation","List"],Import["bse_fifth_excitation","List"],Import["bse_sixth_excitation","List"],Import["bse_seventh_excitation","List"],Import["bse_eighth_excitation","List"],Import["bse_ninth_excitation","List"],Import["bse_tenth_excitation","List"]} ;

Plots

states={"B (^1)\!(Subscript[Σ, u]^(+))","EF (^1)(Subscript[Σ, g]^(+))","B' (^1)(Subscript[Σ, u]^(+))","EF (^1)(Subscript[Σ, g]^(+))","","","","","",""};
(*SFBSEcurve= ListPlot[Table[Transpose@{coord,sfBSE[[k+1]]-sfBSE[[1]]},{k,1,8}],Joined->False,PlotStyle->Directive[Blue,Thick,Dashed],PlotLegends->Placed[ {MaTeX["\\text{SF-BSE@G$_0$W$_0$@UHF}",FontSize->24]},Right]];
BSEcurve= ListPlot[Table[Transpose@{coord,BSE[[k]]},{k,1,5}],Joined->True,PlotStyle->Directive[Red,Dotted],PlotLegends->Placed[ {MaTeX["\\text{BSE@G$_0$W$_0$@UHF}",FontSize->24]},Right]];*)
EOMcurve = ListPlot[Table[Callout[Table[{coord[[k]],eomCCSD[[l,k]]},{k,1,Length[eomCCSD[[1,;;]]]}],states[[l]],{Scaled[0.04],After},Appearance->"Leader",LeaderSize->{{30,135 °,3},{30,Automatic}},(*Background->LightRed*)Frame->{{False,False},{True,True}},FrameMargins->6,LabelVisibility->Automatic,CalloutMarker->"OpenArrow","CalloutStyle"-> Black],{l,10}],Joined->True,PlotStyle->Black,PlotLegends->Placed[ {MaTeX["\\text{EOM-CCSD}",FontSize->24]},Right],PlotRange->All];

Show[
{EOMcurve},
Frame->True,
PlotLabel-> MaTeX["\\text{\\ce{H2}/cc-pVQZ}",FontSize->24],
FrameLabel-> {
MaTeX["R \\text{(\\ce{H-H})  (\\AA)}",FontSize->24],
MaTeX["\\Delta E \\text{ (\\ce{H-H})  (eV)}",FontSize->24]
},
FrameStyle->Directive[Black,Thick],
BaseStyle->20,
ImageSize->800,
PlotRange->{{0.4,4},{6,40}}];

excitation = {Import["eom_cssd_first_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],Import["eom_cssd_second_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],Import["eom_cssd_third_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],Import["eom_cssd_fourth_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],
Import["eom_cssd_fifth_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],
Import["eom_cssd_sixth_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],
Import["eom_cssd_seventh_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],
Import["eom_cssd_eighth_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],
Import["eom_cssd_ninth_excitation","List"]*0.037+ Import["h2_energy_rhf","List"],
Import["eom_cssd_tenth_excitation","List"]*0.037+ Import["h2_energy_rhf","List"]} ;

ListPlot[Table[Table[{coord[[k]],excitation[[l,k]]},{k,1,Length[excitation[[1,;;]]]}],{l,10}],PlotRange->{{0.3,4},{-1.1,0.1}},ImageSize->800,Joined->True];

BSE / SF-BSE

eomCCSDcurve = {Import["eom_cssd_first_excitation","List"],
{17.1259`,16.7368`,16.3804`,16.0557`,15.7604`,15.4911`,15.2443`,15.0173`,14.8082`,14.6152`,14.4366`,14.2703`,14.1135`,13.9623`,13.8107`,13.6482`,13.4556`,13.2006`,12.8531`,12.427`,11.9705`,11.5207`,11.096`,10.704`,10.3471`,10.0256`,9.7387`,9.4847`,9.2619`,9.0683`,8.9019`,8.7605`,8.642`,8.5445`,8.4659`,8.4045`,8.3583`,8.3258`,8.3054`,8.2958`,8.2956`,8.3036`,8.319`,8.3406`,8.3677`,8.3996`,8.4355`,8.4749`,8.5173`,8.5621`,8.6091`,8.6578`,8.7079`,8.7591`,8.8112`,8.864`,8.9172`,8.9707`,9.0243`,9.0779`,9.1315`,9.1848`,9.2378`,9.2905`,9.3427`,9.3944`,9.4455`,9.4961`,9.546`,9.5952`,9.6437`},

{29.9966`,29.3567`,28.6078`,27.831`,27.0112`,26.1149`,25.1141`,24.0176`,22.8688`,21.7154`,20.5913`,19.5163`,18.5015`,17.6072`,16.6802`,15.8898`,15.2002`,14.6414`,14.241`,13.9823`,13.814`,13.6959`,13.6063`,13.5346`,13.4752`,13.4251`,13.3828`,13.3471,13.3172`,13.2924`,13.2718`,13.2545`,13.2393`,13.2254`,13.2122`,13.1994`,13.1869`,13.175`,13.1639`,13.154`,13.1454`,13.1383`,13.1327`,13.1284`,13.1251`,13.1225`,13.1202`,13.1177`,13.1147`,13.1108`,13.1057`,13.099`,13.0906`,13.0806`,13.0689`,13.0555`,13.0408`,13.0249`,13.008`,12.9903`,12.9722`,12.9538`,12.9352`,12.9168`,12.8987`,12.8808`,12.8634`,12.8466`,12.8303`,12.8146`,12.7997`}};

sfbsecurve ={ Import["sf_bse_third_excitation","List"]-Import["sf_bse_first_excitation","List"],Import["sf_bse_fourth_excitation","List"]-Import["sf_bse_first_excitation","List"],
{29.398034000000003`,28.726195`,28.044489`,27.360522`,26.668025999999998`,25.936897000000002`,25.100713`,24.112033`,23.003658`,21.85523`,20.72454`,19.6682`,18.642626`,17.685062000000002`,16.775545`,15.942618`,15.185455000000001`,14.476172`,13.883774`,13.338804`,12.889056`,12.545318`,12.310389999999998`,12.160345999999999`,12.06564`,12.003448`,11.961651999999999`,11.933935`,11.916455000000001`,11.904384`,11.901889`,11.900995`,11.902735000000002`,11.905885999999999`,11.908143`,11.910037999999998`,11.911378`,11.912079`,11.915253`,11.917205`,11.904235`,11.89322`,11.885233999999999`,11.879926`,11.876878`,11.875306`,11.873833`,11.874023`,11.874219`,11.87437`,11.87429`,11.87354`,11.871781`,11.868776`,11.864408`,11.858719`,11.851832`,11.842494`,11.832707000000001`,11.821975`,11.810614`,11.798756`,11.786561`,11.774178`,11.761733`,11.749333`,11.73706`,11.724978`,11.713134`,11.701561`,11.690284`}}; 


ListPlot[Table[Table[{coord[[k]],eomCCSDcurve[[l,k]]},{k,1,Length[eomCCSDcurve[[1,;;]]]}],{l,3}],Joined->True,PlotRange->{{0.3,4},{0,40}},ImageSize->Full];

states1={"B (^1)\!(Subscript[Σ, u]^(+))","EF (^1)(Subscript[Σ, g]^(+))","EF (^1)(Subscript[Σ, g]^(+))"};

SFBSEcurve1= ListPlot[Table[Table[{coord[[k]],sfbsecurve[[l,k]]},{k,1,Length[sfbsecurve[[1,;;]]]}],{l,1,3}],Joined->True,PlotStyle->{Directive[Red,Dashed],Directive[Black,Dashed],Directive[Blue,Dashed]},PlotLegends->Placed[ {MaTeX["\\text{SF-BSE@G$_0$W$_0$@UHF}",FontSize->24]},Right],PlotRange->All];

BSEcurve1= ListPlot[Table[Table[{coord[[k]],BSE[[l,k]]},{k,1,Length[BSE[[1,;;]]]}],{l,1,4}],Joined->True,PlotStyle->{Directive[Purple],Directive[Pink],Directive[Cyan]},PlotLegends->Placed[ {MaTeX["\\text{BSE@G$_0$W$_0$@UHF}",FontSize->24]},Right],PlotRange->All];

EOMcurve1 = ListPlot[Table[Callout[Table[{coord[[k]],eomCCSDcurve[[l,k]]},{k,1,Length[eomCCSDcurve[[1,;;]]]}],states1[[l]],{Scaled[0.09],Below},Appearance->"Leader",LeaderSize->{{20,135 °,3},{1,Automatic}},(*Background->LightRed*)Frame->{{False,False},{True,True}},FrameMargins->6,LabelVisibility->Automatic,CalloutMarker->"OpenArrow","CalloutStyle"-> Black],{l,3}],Joined->True,PlotStyle->{Directive[Red],Directive[Black],Directive[Blue]},PlotLegends->Placed[ {MaTeX["\\text{B}~{}^1 \\Sigma_u^+",FontSize->24],MaTeX["\\text{E}~{}^1 \\Sigma_g^+",FontSize->24],MaTeX["\\text{F}~{}^1 \\Sigma_g^+",FontSize->24]},Right],PlotRange->All];

Show[
{EOMcurve1},
Frame->True,
PlotLabel-> MaTeX["\\text{\\ce{H2}/cc-pVQZ}",FontSize->24],
FrameLabel-> {
MaTeX["R \\text{(\\ce{H-H})  (\\AA)}",FontSize->24],
MaTeX["\\Delta E \\text{ (\\ce{H-H})  (eV)}",FontSize->24]
},
FrameStyle->Directive[Black,Thick],
BaseStyle->20,
ImageSize->800,
PlotRange->{{0.4,4},{6,30}}];

ListPlot[Table[Table[{coord[[k]],BSE[[l+1,k]]-BSE[[1,k]]},{k,1,Length[BSE[[1,;;]]]}],{l,1,6}],Joined->True,PlotStyle->{Directive[Purple],Directive[Pink],Directive[Cyan]},PlotLegends->Placed[ {MaTeX["\\text{BSE@G$_0$W$_0$@UHF}",FontSize->24]},Right],PlotRange->All];

eom= {Import["eom_cssd_first_excitation","List"]};
eom1={{17.1259`,16.7368`,16.3804`,16.0557`,15.7604`,15.4911`,15.2443`,15.0173`,14.8082`,14.6152`,14.4366`,14.2703`,14.1135`,13.9623`,13.8107`,13.6482`,13.4556`,13.2006`,12.8531`,12.427`}};

eom2= {{12.427`,11.9705`,11.5207`,11.096`,10.704`,10.3471`,10.0256`,9.7387`,9.4847`,9.2619`,9.0683`,8.9019`,8.7605`,8.642`,8.5445`,8.4659`,8.4045`,8.3583`,8.3258`,8.3054`,8.2958`,8.2956`,8.3036`,8.319`,8.3406`,8.3677`,8.3996`,8.4355`,8.4749`,8.5173`,8.5621`,8.6091`,8.6578`,8.7079`,8.7591`,8.8112`,8.864`,8.9172`,8.9707`,9.0243`,9.0779`,9.1315`,9.1848`,9.2378`,9.2905`,9.3427`,9.3944`,9.4455`,9.4961`,9.546`,9.5952`,9.6437`}};

eom3={{29.9966`,29.3567`,28.6078`,27.831`,27.0112`,26.1149`,25.1141`,24.0176`,22.8688`,21.7154`,20.5913`,19.5163`,18.5015`,17.6072`,16.6802`,15.8898`,15.2002`,14.6414`,14.241`,13.9823`}};

eom4={{13.9823`,13.814`,13.6959`,13.6063`,13.5346`,13.4752`,13.4251`,13.3828`,13.3471,13.3172`,13.2924`,13.2718`,13.2545`,13.2393`,13.2254`,13.2122`,13.1994`,13.1869`,13.175`,13.1639`,13.154`,13.1454`,13.1383`,13.1327`,13.1284`,13.1251`,13.1225`,13.1202`,13.1177`,13.1147`,13.1108`,13.1057`,13.099`,13.0906`,13.0806`,13.0689`,13.0555`,13.0408`,13.0249`,13.008`,12.9903`,12.9722`,12.9538`,12.9352`,12.9168`,12.8987`,12.8808`,12.8634`,12.8466`,12.8303`,12.8146`,12.7997`}};

sfbse = {Import["sf_bse_third_excitation","List"]-Import["sf_bse_first_excitation","List"]};
sfbse1 = {{16.208376`,16.222552`,15.206044`,14.828738000000001`,14.46926`,14.133659`,13.823730000000001`,13.540407000000002`,13.283953`,13.053942`,12.849271`,12.667294`,12.507178`,12.366056`,12.241482`,12.126449000000001`,12.022615000000002`,11.924441999999999`,11.820747`,11.702053`,11.554234999999998`,11.357408`,11.104502`}};

sfbse2 = {{11.104502`,10.816771999999998`,10.519732`,10.233592999999999`,9.967848`,9.726365`,9.510133`,9.319329999999999`,9.152005`,9.008029`,8.885386`,8.782465`,8.697728`,8.629406`,8.576067`,8.536512`,8.507684999999999`,8.490329`,8.48268`,8.483552`,8.491923`,8.506798999999999`,8.527396`,8.553026000000001`,8.5834`,8.616958`,8.653684`,8.692938`,8.734175`,8.777062`,8.821359`,8.866839`,8.913288999999999`,8.960557`,9.008450999999999`,9.057490999999999`,9.106631`,9.156145`,9.207113999999999`,9.258597`,9.309753`,9.360546999999999`,9.410941`,9.460891`,9.510381`,9.559367`,9.607827`,9.655736000000001`,9.703069`}};

sfbse3 = {{29.398034000000003`,28.726195`,28.044489`,27.360522`,26.668025999999998`,25.936897000000002`,25.100713`,24.112033`,23.003658`,21.85523`,20.72454`,19.6682`,18.642626`,17.685062000000002`,16.775545`,15.942618`,15.185455000000001`,14.476172`,13.883774`,13.338804`,12.889056`,12.545318`,12.310389999999998`}}; 

sfbse4 = {{12.310389999999998`,12.160345999999999`,12.06564`,12.003448`,11.961651999999999`,11.933935`,11.916455000000001`,11.904384`,11.901889`,11.900995`,11.902735000000002`,11.905885999999999`,11.908143`,11.910037999999998`,11.911378`,11.912079`,11.915253`,11.917205`,11.904235`,11.89322`,11.885233999999999`,11.879926`,11.876878`,11.875306`,11.873833`,11.874023`,11.874219`,11.87437`,11.87429`,11.87354`,11.871781`,11.868776`,11.864408`,11.858719`,11.851832`,11.842494`,11.832707000000001`,11.821975`,11.810614`,11.798756`,11.786561`,11.774178`,11.761733`,11.749333`,11.73706`,11.724978`,11.713134`,11.701561`,11.690284`}}; 

bserhf={{16.135246`,15.5916`,15.072529`,14.577957`,14.107831`,13.659732`,13.23648`,12.831162`,12.444179`,12.074727`,11.722369`,11.386804`,11.06772`,10.764958`,10.477329`,10.205116`,9.948112`,9.706183`,9.479117`,9.266568`,9.068204`,8.883559`,8.712124`,8.553365`,8.406722`,8.271625`,8.147538`,8.033906`,7.930189`,7.835895`,7.750535`,7.673626`,7.604701`,7.543334`,7.489203`,7.442138`,7.401181`,7.364685`,7.333337`,7.30716`,7.285656`,7.268457`,7.255193`,7.245511`,7.239129`,7.235757`,7.235127`,7.237004`,7.241068`,7.24717`,7.255072`,7.264585`,7.275503`,7.287657`,7.300898`,7.315077`,7.330056`,7.345709`,7.361923`,7.378596`,7.395637`,7.412967`,7.430514`,7.448203`,7.465947`,7.483634`,7.501144`,7.518382`,7.535299`,7.551898`,7.568192`}};

bserhf1 ={{17.699002`,17.312285`,16.95672`,16.631803`,16.334876`,16.062701`,15.811894`,15.579848`,15.364959`,15.165991`,14.981936`,14.811671`,14.65416`,14.508141`,14.372488`,14.246107`,14.128114`,14.017665`,13.914077`,13.816705`,13.72496`,13.638277`,13.556143`,13.478129`,13.403822`,13.3338`,13.267109`,13.203971`,13.144008`,13.086581`,13.030738`,12.975345`,12.919234`,12.861371`,12.801274`,12.738859`,12.674577`,12.60911`,12.543738`,12.480321`,12.421615`,12.371835`,12.337156`,12.325887`,12.347561`,12.409998`,12.515087`,12.654378`,12.80896`,12.952816`,13.040511`,13.201645`,13.186764`,13.17377`,13.162709`,13.153613`,13.146515`,13.141453`,13.138464`,13.137568`,13.083847`,13.013921`,12.942214`,12.869836`,12.797701`,12.72657`,12.657068`,12.589703`,12.524868`,12.462866`,12.403943`}};

EOM= ListPlot[Table[Table[{coord[[k]],eom[[l,k]]},{k,1,Length[eom[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red]},PlotLegends->Placed[ {MaTeX["\\text{B}~{}^1 \\Sigma_u^+",FontSize->24]},Right],PlotRange->All];

EOM1= ListPlot[Table[Table[{coord[[k]],eom1[[l,k]]},{k,1,Length[eom1[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black]},PlotLegends->Placed[ {MaTeX["\\text{EF}~{}^1 \\Sigma_g^+",FontSize->24]},Right],PlotRange->All];
EOM2= ListPlot[Table[Table[{coord[[k+19]],eom2[[l,k]]},{k,1,Length[eom2[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Blue]},PlotLegends->Placed[ {MaTeX["\\text{EF}~{}^1 \\Sigma_g^+",FontSize->24]},Right],PlotRange->All];
EOM3= ListPlot[Table[Table[{coord[[k]],eom3[[l,k]]},{k,1,Length[eom3[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Blue]},PlotRange->All];
EOM4= ListPlot[Table[Table[{coord[[k+19]],eom4[[l,k]]},{k,1,Length[eom4[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black]},PlotRange->All];

SFBSE= ListPlot[Table[Table[{coord[[k]],sfbse[[l,k]]},{k,1,Length[sfbse[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dashed]},PlotRange->All];
SFBSE1= ListPlot[Table[Table[{coord[[k]],sfbse1[[l,k]]},{k,1,Length[sfbse1[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black,Dashed]},PlotRange->All];
SFBSE2= ListPlot[Table[Table[{coord[[k+22]],sfbse2[[l,k]]},{k,1,Length[sfbse2[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Blue,Dashed]},PlotRange->All];

SFBSE3= ListPlot[Table[Table[{coord[[k]],sfbse3[[l,k]]},{k,1,Length[sfbse3[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Blue,Dashed]},PlotRange->All];
SFBSE4= ListPlot[Table[Table[{coord[[k+22]],sfbse4[[l,k]]},{k,1,Length[sfbse4[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black,Dashed]},PlotRange->All];

BSERHF= ListPlot[Table[Table[{coord[[k]],bserhf[[l,k]]},{k,1,Length[bserhf[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All];

BSERHF1= ListPlot[Table[Table[{coord[[k]],bserhf1[[l,k]]},{k,1,Length[bserhf1[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black,Dotted]},PlotRange->All];

Show[
{EOM,EOM1,EOM2,EOM3,EOM4,SFBSE,SFBSE1,SFBSE2,SFBSE3,SFBSE4,BSERHF,BSERHF1},
Frame->True,
PlotLabel-> MaTeX["\\text{\\ce{H2}/cc-pVQZ}",FontSize->24],
FrameLabel-> {
MaTeX["R \\text{(\\ce{H-H})  (\\AA)}",FontSize->24],
MaTeX["\\Delta E \\text{ (\\ce{H-H})  (eV)}",FontSize->24]
},
FrameStyle->Directive[Black,Thick],
BaseStyle->20,
ImageSize->800,
PlotRange->{{0.4,4},{6,31}}]

SF-CIS / CIS

sfciscurve = {Import["sf_cis_third_excitation","List"]-Import["sf_cis_first_excitation","List"],Import["sf_cis_fourth_excitation","List"]-Import["sf_cis_first_excitation","List"],{28.7256`,28.136400000000002`,27.528100000000002`,26.9085`,26.2701`,25.5821`,24.8007`,23.901`,22.9055`,21.8671`,20.8335`,19.8342`,18.8848`,17.9934`,17.1639`,16.398899999999998`,15.700299999999999`,15.0711`,14.5158`,14.0426`,13.6631`,13.3845`,13.1981`,13.08`,13.0063`,12.9606`,12.9333`,12.9186`,12.9133`,12.915000000000001`,12.9216`,12.9316`,12.943299999999999`,12.955599999999999`,12.967500000000001`,12.9784`,12.9882`,12.997`,13.0051`,12.999600000000001`,12.9866`,12.9773`,12.9714`,12.9684`,12.9678`,12.9692`,12.9719`,12.975399999999999`,12.979199999999999`,12.9828`,12.9858`,12.988`,12.9889`,12.9884`,12.9865`,12.9833`,12.9786`,12.9726`,12.965599999999998`,12.9576`,12.9489`,12.9396`,12.9298`,12.9198`,12.9095`,12.8992`,12.8888`,12.878400000000001`,12.8682`,12.858`,12.847999999999999`}};

sfcis = {Import["sf_cis_third_excitation","List"]-Import["sf_cis_first_excitation","List"]};
sfcis1={{15.2792`,14.970600000000001`,14.6941`,14.4473`,14.226899999999999`,14.0289`,13.849400000000001`,13.685500000000001`,13.5354`,13.398`,13.2725`,13.158100000000001`,13.0535`,12.9579`,12.8692`,12.7855`,12.703800000000001`,12.6197`,12.526`,12.4116`,12.2622`,12.067`,11.8312`}};

sfcis2={{11.8312`,11.575199999999999`,11.3195`,11.0772`,10.8552`,10.6561`,10.4805`,10.3279`,10.1971`,10.086599999999999`,9.9949`,9.920399999999999`,9.861500000000001`,9.8165`,9.7841`,9.762799999999999`,9.7515`,9.748800000000001`,9.7538`,9.7655`,9.783`,9.8058`,9.8329`,9.863900000000001`,9.8983`,9.9354`,9.9751`,10.0168`,10.0603`,10.1054`,10.1516`,10.199`,10.2471`,10.2971`,10.3497`,10.402`,10.454199999999998`,10.506`,10.557599999999999`,10.6088`,10.659699999999999`,10.7101`,10.7602`,10.8098`,10.8589`,10.9076`,10.9558`,11.003400000000001`,11.0506`}};

sfcis3={{28.7256`,28.136400000000002`,27.528100000000002`,26.9085`,26.2701`,25.5821`,24.8007`,23.901`,22.9055`,21.8671`,20.8335`,19.8342`,18.8848`,17.9934`,17.1639`,16.398899999999998`,15.700299999999999`,15.0711`,14.5158`,14.0426`,13.6631`,13.3845`,13.1981`}};

sfcis4={{13.1981`,13.08`,13.0063`,12.9606`,12.9333`,12.9186`,12.9133`,12.915000000000001`,12.9216`,12.9316`,12.943299999999999`,12.955599999999999`,12.967500000000001`,12.9784`,12.9882`,12.997`,13.0051`,12.999600000000001`,12.9866`,12.9773`,12.9714`,12.9684`,12.9678`,12.9692`,12.9719`,12.975399999999999`,12.979199999999999`,12.9828`,12.9858`,12.988`,12.9889`,12.9884`,12.9865`,12.9833`,12.9786`,12.9726`,12.965599999999998`,12.9576`,12.9489`,12.9396`,12.9298`,12.9198`,12.9095`,12.8992`,12.8888`,12.878400000000001`,12.8682`,12.858`,12.847999999999999`}};

cis={Import["cis_first_excitation","List"]};
cis1={Import["cis_second_excitation","List"]};
cis2={Import["cis_third_excitation","List"]};
cis3={Import["cis_fourth_excitation","List"]};
cis4={Import["cis_fifth_excitation","List"]};
cis5={Import["cis_sixth_excitation","List"]};
cis6={Import["cis_seventh_excitation","List"]};
cis7={Import["cis_eighth_excitation","List"]};
cis8={Import["cis_ninth_excitation","List"]};
cis9={Import["cis_tenth_excitation","List"]};
CIS = ListPlot[Table[Table[{coord[[k]],cis[[l,k]]},{k,1,Length[cis[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All]; 

CIS1 = ListPlot[Table[Table[{coord[[k]],cis1[[l,k]]},{k,1,Length[cis1[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All]; 

CIS2 = ListPlot[Table[Table[{coord[[k]],cis2[[l,k]]},{k,1,Length[cis2[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All]; 

CIS3 = ListPlot[Table[Table[{coord[[k]],cis3[[l,k]]},{k,1,Length[cis3[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All]; 

CIS4 = ListPlot[Table[Table[{coord[[k]],cis4[[l,k]]},{k,1,Length[cis4[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All];

CIS5 = ListPlot[Table[Table[{coord[[k]],cis5[[l,k]]},{k,1,Length[cis5[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All];

CIS6 = ListPlot[Table[Table[{coord[[k]],cis6[[l,k]]},{k,1,Length[cis6[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All];

CIS7 = ListPlot[Table[Table[{coord[[k]],cis7[[l,k]]},{k,1,Length[cis7[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All];

CIS8 = ListPlot[Table[Table[{coord[[k]],cis8[[l,k]]},{k,1,Length[cis8[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All];

CIS9 = ListPlot[Table[Table[{coord[[k]],cis9[[l,k]]},{k,1,Length[cis9[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dotted]},PlotRange->All];

SFCIS= ListPlot[Table[Table[{coord[[k]],sfcis[[l,k]]},{k,1,Length[sfcis[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dashed]},PlotRange->All];

SFCIS1= ListPlot[Table[Table[{coord[[k]],sfcis1[[l,k]]},{k,1,Length[sfcis1[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black,Dashed]},PlotRange->All];

SFCIS2= ListPlot[Table[Table[{coord[[k+22]],sfcis2[[l,k]]},{k,1,Length[sfcis2[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Blue,Dashed]},PlotRange->All];

SFCIS3= ListPlot[Table[Table[{coord[[k]],sfcis3[[l,k]]},{k,1,Length[sfcis1[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Blue,Dashed]},PlotRange->All];

SFCIS4= ListPlot[Table[Table[{coord[[k+22]],sfcis4[[l,k]]},{k,1,Length[sfcis4[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black,Dashed]},PlotRange->All];




Show[
{EOM,EOM1,EOM2,EOM3,EOM4,SFCIS,SFCIS1,SFCIS2,SFCIS3,SFCIS4},
Frame->True,
PlotLabel-> MaTeX["\\text{\\ce{H2}/cc-pVQZ}",FontSize->24],
FrameLabel-> {
MaTeX["R \\text{(\\ce{H-H})  (\\AA)}",FontSize->24],
MaTeX["\\Delta E \\text{ (\\ce{H-H})  (eV)}",FontSize->24]
},
FrameStyle->Directive[Black,Thick],
BaseStyle->20,
ImageSize->800,
PlotRange->{{0.4,4},{6,31}}]

new5 = {{28.7256`,28.136400000000002`,27.528100000000002`,26.9085`,26.2701`,25.5821`,24.8007`,23.901`,22.9055`,21.8671`,20.8335`,19.8342`,18.8848`,17.9934`,17.1639`,16.398899999999998`,15.700299999999999`,15.0711`,14.5158`,14.0426`,13.6631`,13.3845`,13.1981`,13.08`,13.0063`,12.9606`,12.9333`,12.9186`,12.9133`,12.915000000000001`,12.9216`,12.9316`,12.943299999999999`,12.955599999999999`,12.967500000000001`,12.9784`,12.9882`,12.997`,13.0051`,12.999600000000001`,12.9866`,12.9773`,12.9714`,12.9684`,12.9678`,12.9692`,12.9719`,12.975399999999999`,12.979199999999999`,12.9828`,12.9858`,12.988`,12.9889`,12.9884`,12.9865`,12.9833`,12.9786`,12.9726`,12.965599999999998`,12.9576`,12.9489`,12.9396`,12.9298`,12.9198`,12.9095`,12.8992`,12.8888`,12.878400000000001`,12.8682`,12.858`,12.847999999999999`}};


ListPlot[Table[Table[{coord[[k]],new5[[l,k]]},{k,1,Length[new5[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},ImageSize->Full];
Length[new5[[1,;;]]];

SF-TDDFT / TDDFT

sftddftcurve = {Import["sf_tddft_third_excitation","List"]-Import["sf_tddft_first_excitation","List"],Import["sf_tddft_fourth_excitation","List"]-Import["sf_tddft_first_excitation","List"],{27.846200000000003`,27.276799999999998`,26.6959`,26.063599999999997`,25.3961`,24.665300000000002`,23.7149`,22.5088`,21.2352`,19.9973`,18.8241`,17.7228`,16.6929`,15.7323`,14.8375`,14.151`,13.2333`,12.519400000000001`,11.8633`,11.2688`,10.7505`,10.348`,10.1078`,9.991700000000002`,9.9322`,9.898`,9.8777`,9.866399999999999`,9.862`,9.8626`,9.867099999999999`,9.8739`,9.881499999999999`,9.8887`,9.8946`,9.898699999999998`,9.9011`,9.902000000000001`,9.9021`,9.901799999999998`,9.9014`,9.901`,9.9008`,9.9005`,9.899899999999999`,9.8985`,9.8959`,9.8918`,9.8857`,9.8773`,9.866599999999998`,9.8536`,9.8385`,9.8216`,9.803`,9.7833`,9.762699999999999`,9.741700000000002`,9.7205`,9.6995`,9.679`,9.659`,9.64`,9.6217`,9.6045`,9.5884`,9.5734`,9.5594`,9.5465`,9.5346`,9.523800000000001`}};


SFTDDFTcurve1= ListPlot[Table[Table[{coord[[k]],sftddftcurve[[l,k]]},{k,1,Length[sfTDDFT[[1,;;]]]}],{l,1,3}],Joined->True,PlotStyle->{Directive[Red,Dashed],Directive[Black,Dashed],Directive[Blue,Dashed]},PlotLegends->Placed[ {MaTeX["\\text{SF-TDDFT}",FontSize->24]},Right],PlotRange->All];

TDDFTcurve= ListPlot[Table[Table[{coord[[k]],TDDFT[[l,k]]},{k,1,Length[TDDFT[[1,;;]]]}],{l,1,6}],Joined->True,PlotStyle->{Directive[Purple],Directive[Pink],Directive[Cyan]},PlotLegends->Placed[ {MaTeX["\\text{TDDFT}",FontSize->24]},Right],PlotRange->All];

sftddft = {Import["sf_tddft_third_excitation","List"]-Import["sf_tddft_first_excitation","List"]};
sftddft1 = {{17.2758`,16.3816`,15.5229`,14.700199999999999`,13.915700000000001`,13.1713`,12.4685`,11.8082`,11.190999999999999`,10.779`,10.6165`,10.475200000000001`,10.352699999999999`,10.2467`,10.1547`,10.074`,10.0025`,9.937000000000001`,9.8732`,9.8031`,9.7087`,9.546100000000001`,9.2661`}};

sftddft2 = {{9.2661`,8.904`,8.5243`,8.1563`,7.809700000000001`,7.4872`,7.189399999999999`,6.915700000000001`,6.6653`,6.437100000000001`,6.229699999999999`,6.042000000000001`,5.8728`,5.720899999999999`,5.585000000000001`,5.464099999999999`,5.356999999999999`,5.2626`,5.1798`,5.107600000000001`,5.045100000000001`,4.9915`,4.945799999999999`,4.9076`,4.8758`,4.8499`,4.829199999999999`,4.8134`,4.8016`,4.793700000000001`,4.7890999999999995`,4.7877`,4.7887`,4.792199999999999`,4.7978`,4.8053`,4.814399999999999`,4.825`,4.8368`,4.849600000000001`,4.863599999999999`,4.8783`,4.893699999999999`,4.909800000000001`,4.9265`,4.9435`,4.9609000000000005`,4.9785`,4.9964`}};

sftddft3 = {{27.846200000000003`,27.276799999999998`,26.6959`,26.063599999999997`,25.3961`,24.665300000000002`,23.7149`,22.5088`,21.2352`,19.9973`,18.8241`,17.7228`,16.6929`,15.7323`,14.8375`,14.151`,13.2333`,12.519400000000001`,11.8633`,11.2688`,10.7505`,10.348`,10.1078`}};

sftddft4 = {{10.1078`,9.991700000000002`,9.9322`,9.898`,9.8777`,9.866399999999999`,9.862`,9.8626`,9.867099999999999`,9.8739`,9.881499999999999`,9.8887`,9.8946`,9.898699999999998`,9.9011`,9.902000000000001`,9.9021`,9.901799999999998`,9.9014`,9.901`,9.9008`,9.9005`,9.899899999999999`,9.8985`,9.8959`,9.8918`,9.8857`,9.8773`,9.866599999999998`,9.8536`,9.8385`,9.8216`,9.803`,9.7833`,9.762699999999999`,9.741700000000002`,9.7205`,9.6995`,9.679`,9.659`,9.64`,9.6217`,9.6045`,9.5884`,9.5734`,9.5594`,9.5465`,9.5346`,9.523800000000001`}};

SFTDDFT= ListPlot[Table[Table[{coord[[k]],sftddft[[l,k]]},{k,1,Length[sftddft[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Red,Dashed]},PlotRange->All];

SFTDDFT1= ListPlot[Table[Table[{coord[[k]],sftddft1[[l,k]]},{k,1,Length[sftddft1[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black,Dashed]},PlotRange->All];

SFTDDFT2= ListPlot[Table[Table[{coord[[k+22]],sftddft2[[l,k]]},{k,1,Length[sftddft2[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Blue,Dashed]},PlotRange->All];

SFTDDFT3= ListPlot[Table[Table[{coord[[k]],sftddft3[[l,k]]},{k,1,Length[sftddft3[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Blue,Dashed]},PlotRange->All];

SFTDDFT4= ListPlot[Table[Table[{coord[[k+22]],sftddft4[[l,k]]},{k,1,Length[sftddft4[[1,;;]]]}],{l,1}],Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotRange->{{0.3,4},{0,30}},Joined->True,PlotStyle->{Directive[Black,Dashed]},PlotRange->All];

Show[
{EOM,EOM1,EOM2,EOM3,EOM4,SFTDDFT,SFTDDFT1,SFTDDFT2,SFTDDFT3,SFTDDFT4},
Frame->True,
PlotLabel-> MaTeX["\\text{\\ce{H2}/cc-pVQZ}",FontSize->24],
FrameLabel-> {
MaTeX["R \\text{(\\ce{H-H})  (\\AA)}",FontSize->24],
MaTeX["\\Delta E \\text{ (\\ce{H-H})  (eV)}",FontSize->24]
},
FrameStyle->Directive[Black,Thick],
BaseStyle->20,
ImageSize->800,
PlotRange->{{0.4,4},{2,31}}]

Import["sf_tddft_fifth_excitation","List"]-Import["sf_tddft_first_excitation","List"];

Import["sf_tddft_eighth_excitation","List"]-Import["sf_tddft_first_excitation","List"];

new6 = {Import["sf_tddft_fifth_excitation","List"]-Import["sf_tddft_first_excitation","List"],{27.846200000000003`,27.276799999999998`,26.6959`,26.063599999999997`,25.3961`,24.665300000000002`,23.7149`,22.5088`,21.2352`,19.9973`,18.8241`,17.7228`,16.6929`,15.7323`,14.8375`,14.151`,13.2333`,12.519400000000001`,11.8633`,11.2688`,10.7505`,10.348`,10.1078`,9.991700000000002`,9.9322`,9.898`,9.8777`,9.866399999999999`,9.862`,9.8626`,9.867099999999999`,9.8739`,9.881499999999999`,9.8887`,9.8946`,9.898699999999998`,9.9011`,9.902000000000001`,9.9021`,9.901799999999998`,9.9014`,9.901`,9.9008`,9.9005`,9.899899999999999`,9.8985`,9.8959`,9.8918`,9.8857`,9.8773`,9.866599999999998`,9.8536`,9.8385`,9.8216`,9.803`,9.7833`,9.762699999999999`,9.741700000000002`,9.7205`,9.6995`,9.679`,9.659`,9.64`,9.6217`,9.6045`,9.5884`,9.5734`,9.5594`,9.5465`,9.5346`,9.523800000000001`}};


ListPlot[Table[Table[{coord[[k]],new6[[l,k]]},{k,1,Length[new6[[1,;;]]]}],{l,2}],Joined->True,PlotRange->{{0.3,4},{0,30}},ImageSize->Full];
Length[new6[[2,;;]]];

SetDirectory["~/Work/Quack/output/h2_bse_no_TDA"];

BSEnoTDA={Import["bse_no_TDA_first_excitation","List"],Import["bse_no_TDA_second_excitation","List"],Import["bse_no_TDA_third_excitation","List"],Import["bse_no_TDA_fourth_excitation","List"],Import["bse_no_TDA_fifth_excitation","List"],Import["bse_no_TDA_sixth_excitation","List"],Import["bse_no_TDA_seventh_excitation","List"]}; 

ListPlot[Table[Table[{coord[[k]],BSEnoTDA[[l,k]]},{k,1,Length[BSEnoTDA[[1,;;]]]}],{l,1,7}],Joined->True,PlotStyle->{Directive[Purple],Directive[Pink],Directive[Cyan]},PlotLegends->Placed[ {MaTeX["\\text{BSE@G$_0$W$_0$@UHF}",FontSize->24]},Right],PlotRange->All,ImageSize->Full]

export2=Import["sf_cis_fourth_excitation","List"]-Import["sf_cis_first_excitation","List"];
Export["sf_cis2",export2,"List"];

export1=Import["sf_cis_third_excitation","List"]-Import["sf_cis_first_excitation","List"];
Export["sf_cis1",export1,"List"];

export3={28.7256`,28.136400000000002`,27.528100000000002`,26.9085`,26.2701`,25.5821`,24.8007`,23.901`,22.9055`,21.8671`,20.8335`,19.8342`,18.8848`,17.9934`,17.1639`,16.398899999999998`,15.700299999999999`,15.0711`,14.5158`,14.0426`,13.6631`,13.3845`,13.1981`,13.08`,13.0063`,12.9606`,12.9333`,12.9186`,12.9133`,12.915000000000001`,12.9216`,12.9316`,12.943299999999999`,12.955599999999999`,12.967500000000001`,12.9784`,12.9882`,12.997`,13.0051`,12.999600000000001`,12.9866`,12.9773`,12.9714`,12.9684`,12.9678`,12.9692`,12.9719`,12.975399999999999`,12.979199999999999`,12.9828`,12.9858`,12.988`,12.9889`,12.9884`,12.9865`,12.9833`,12.9786`,12.9726`,12.965599999999998`,12.9576`,12.9489`,12.9396`,12.9298`,12.9198`,12.9095`,12.8992`,12.8888`,12.878400000000001`,12.8682`,12.858`,12.847999999999999`}
Export["sf_cis3",export3,"List"];

SetDirectory["~/Work/Quack/output/h2_bse_rhf"];

BSErhf={Import["h2_bse_rhf_first_excitation","List"],Import["h2_bse_rhf_second_excitation","List"],Import["h2_bse_rhf_third_excitation","List"],Import["h2_bse_rhf_fourth_excitation","List"],Import["h2_bse_rhf_fifth_excitation","List"],Import["h2_bse_rhf_sixth_excitation","List"],Import["h2_bse_rhf_seventh_excitation","List"],Import["h2_bse_rhf_eighth_excitation","List"],Import["h2_bse_rhf_ninth_excitation","List"],Import["h2_bse_rhf_tenth_excitation","List"]}; 

ListPlot[Table[Table[{coord[[k]],BSErhf[[l,k]]},{k,1,Length[BSErhf[[1,;;]]]}],{l,1,8}],Joined->True,PlotStyle->{Directive[Purple],Directive[Pink],Directive[Cyan]},PlotLegends->Placed[ {MaTeX["\\text{BSE@G$_0$W$_0$@RHF}",FontSize->24]},Right],PlotRange->All,ImageSize->800]

SetDirectory["~/Work/Quack/output/h2_sf_bse_dynamical_correction"];

dynamical = {

Import["sf_bse_dynamical_correction_third_excitation","List"]-Import["sf_bse_dynamical_correction_first_excitation","List"],
Import["sf_bse_dynamical_correction_fourth_excitation","List"]-Import["sf_bse_dynamical_correction_first_excitation","List"],
Import["sf_bse_dynamical_correction_fifth_excitation","List"]-Import["sf_bse_dynamical_correction_first_excitation","List"],
Import["sf_bse_dynamical_correction_sixth_excitation","List"]-Import["sf_bse_dynamical_correction_first_excitation","List"],
Import["sf_bse_dynamical_correction_seventh_excitation","List"]-Import["sf_bse_dynamical_correction_first_excitation","List"],
Import["sf_bse_dynamical_correction_eighth_excitation","List"]-Import["sf_bse_dynamical_correction_first_excitation","List"],
Import["sf_bse_dynamical_correction_ninth_excitation","List"]-Import["sf_bse_dynamical_correction_first_excitation","List"],
Import["sf_bse_dynamical_correction_tenth_excitation","List"]-Import["sf_bse_dynamical_correction_first_excitation","List"]};
ListPlot[Table[Table[{coord[[k]],dynamical[[l,k]]},{k,1,Length[dynamical[[1,;;]]]}],{l,1,8}],Joined->True,PlotStyle->{Directive[Purple],Directive[Pink],Directive[Cyan]},PlotLegends->Placed[ {MaTeX["\\text{BSE@G$_0$W$_0$@UHF}",FontSize->24]},Right],PlotRange->All,ImageSize->800]