mathematica画图，请问为什么我这样子出不来图，怎么样才能画出来？

源代码：
Clear["all"]
[Beta] = (j Pi)/180;
e = 1.6310^-19;
[CurlyEpsilon]0 = 1.0;
[CurlyEpsilon]d = 2.8;
[Mu]d = 1.0;
[Mu]g = 1.0;
tg = 510^-10;
td = 510^-8;
t = 300;
[Tau] = 110^-12;
EF = 1.9210^-19;
h = 1.0510^-34;
KB = 1.410^-23;
[Sigma] = ((I e^2 KB t)/(Pi h^2 ([Omega] + I/[Tau])))[
EF/(KBt) + 2Log10[1 + E^(-(EF/(KB t)))]] + (I e^2)/(4 [Pi] h^2)
Log10[Abs[(2 EF - h ([Omega] + I/[Tau]))/(
2 EF + h ([Omega] + I/[Tau]))]];(复数)

[CurlyEpsilon]g = 1 + (I [Sigma])/([Omega] [CurlyEpsilon]0 tg);
W = Re[[CurlyEpsilon]g]
[CurlyEpsilon]p = [CurlyEpsilon]g;
[CurlyEpsilon]x = 2;
[CurlyEpsilon]y = [CurlyEpsilon]g;
[CurlyEpsilon]z = [CurlyEpsilon]g;
[Mu]x = 1;
[Mu]y = 1;
[Mu]z = 1;

rsp = ((Sqrt[[CurlyEpsilon]x]Sqrt[[CurlyEpsilon]y] -
Sqrt[[CurlyEpsilon]x]Sqrt[[Mu]y])
Sin[2 [Beta]])/((Sqrt[[CurlyEpsilon]y] +
Sqrt[[Mu]x])(Sqrt[[CurlyEpsilon]x] + Sqrt[[Mu]y]));
rss = (Sqrt[[Mu]x]Sqrt[[Mu]y] -
Sqrt[[CurlyEpsilon]x]
Sqrt[[CurlyEpsilon]y] + (Sqrt[[CurlyEpsilon]x]Sqrt[[Mu]x] -
Sqrt[[CurlyEpsilon]y]Sqrt[[Mu]y])
Cos[2 [Beta]])/((Sqrt[[CurlyEpsilon]y] +
Sqrt[[Mu]x])(Sqrt[[CurlyEpsilon]x] + Sqrt[[Mu]y]));
PCR = ((Sqrt[[CurlyEpsilon]y]*Sqrt[[Mu]y] -
Sqrt[[CurlyEpsilon]x]Sqrt[[Mu]x])^2 Sin[2 [Beta]]
Sin[2 [Beta]])/((Sqrt[[CurlyEpsilon]y]*Sqrt[[Mu]y] -
Sqrt[[CurlyEpsilon]x]Sqrt[[Mu]x])^2 + (Sqrt[[Mu]x]
Sqrt[[Mu]y] -
Sqrt[[CurlyEpsilon]x]*Sqrt[[CurlyEpsilon]y])^2 -
2 (Sqrt[[CurlyEpsilon]y]Sqrt[[Mu]y] -
Sqrt[[CurlyEpsilon]x]Sqrt[[Mu]x])(Sqrt[[Mu]x]
Sqrt[[Mu]y] -
Sqrt[[CurlyEpsilon]x]Sqrt[[CurlyEpsilon]y])Cos[2 [Beta]]);
A = Abs[PCR];
B = Abs[rss];
Plot[PCR, {[Omega], 110^11, 10010^11}, PlotRange -> All]