yBG=400(*anexamplevalueforyshiftBG*);xBG=500(*anexamplevalueforxshiftBG*);wBG=8(*anexamplevalueforwidthBG*);scNu=25000(*anexamplevalueforscaleNu*);stNu=80(*anexamplevalueforsteepnessNu*);as=0.9(*anexamplevaluefortheinitialneutrino-antineutrinoasymmetry*);rmin=20(*initialradialevaluationpoint*);rmax=700(*finalradialevaluationpoint*);Plot[{potBG[xBG,yBG,wBG,r](*backgroundpotential*),-potBG[xBG,yBG,wBG,r](*inverseofbackgroundpotential*),potNu[scNu,stNu,r]+potAnu[as,scNu,stNu,r](*totalneutrinopotential,bothwithelectrontypeneutrinoandantineutrino*),-potNu[scNu,stNu,r]-potAnu[as,scNu,stNu,r](*totalneutrinopotential,bothwithnon-electrontypeneutrinoandantineutrino*),potNu[scNu,stNu,r]-potAnu[as,scNu,stNu,r](*totalneutrinopotentialwithelectrontypeneutrinoandnon-electrontypeantineutrino*),-potNu[scNu,stNu,r]+potAnu[as,scNu,stNu,r]}(*totalneutrinopotentialwithnon-electrontypeneutrinoandelectrontypeantineutrino*),{r,rmin,rmax},FrameTrue,PlotStyle{Cyan,{Cyan,Dashed},Red,{Red,Dashed},{Red,DotDashed},{Red,Dotted}},FrameLabel{"Radial Distance [a.u.]","Interaction Potential [a.u.]"},FrameTicksStyleThick,LabelStyleDirective[FontSize20],PlotLegends{"Background Potential","Inverse Background Potential","Neutrino Potential (both electron type)","Neutrino Potential (both non-electron type)","Neutrino Potential (electron neutrino, non-electron antineutrino)","Neutrino Potential (non-electron neutrino, electron antineutrino)"}]