β=1;​​Ωc=1;​​Γc=1;​​Δc=0;​​ζd=8Δp
2
Ωc
(Δc-Δp);
χ1=-
4β(Δc-Δp)(Δp(Δc-Δp)+
2
Ωc
)
2
(Δc-Δp)
(
2
Γc
+4
2
Δp
)+ζd+4
4
Ωc
;
χ2=
2βΓc
2
(Δc-Δp)
2
(Δc-Δp)
(
2
Γc
+4
2
Δp
)+ζd+4
4
Ωc
;
Plot[{χ1,χ2},{Δp,-0.5,0.5},PlotLegends{"Re[χ]","Im[χ]"},PlotStyle{Blue,Red},PlotRangeAll]
-1.0
-0.5
0.5
1.0
-1.0
-0.5
0.5
1.0
Re[χ]
Im[χ]