In[]:=
$Version
Out[]=
14.2.0 for Microsoft Windows (64-bit) (December 26, 2024)
In[]:=
β=1;​​Ωc=1;​​Γc=1;​​Δc=0;​​ζd=8ΔpΩc^2(Δc-Δp);​​​​χ1=-((4β(Δc-Δp)(Δp(Δc-Δp)+Ωc^2))/((Δc-Δp)^2(Γc^2+4Δp^2)+ζd+4Ωc^4));​​​​χ2=(2βΓc(Δc-Δp)^2)/((Δc-Δp)^2(Γc^2+4Δp^2)+ζd+4Ωc^4);
In[]:=
ReImPlot[{χ1,χ1},{Δp,-0.5,0.5},PlotLegends{"Re[χ1]","Im[χ1]"},PlotStyle{Blue,Red},PlotRangeAll]
Out[]=
Re[χ1]
Im[χ1]
In[]:=
ReImPlot[{χ2,χ2},{Δp,-0.5,0.5},PlotLegends{"Re[χ2]","Im[χ2]"},PlotStyle{Blue,Red},PlotRangeAll]
Out[]=
Re[χ2]
Im[χ2]