h = 6.62×(10^(-34)); 
ν = 0.85; 
(Subscript[P, dBm]) = -3; 
(Subscript[T, 1]) = 300; 
(Subscript[R, c]) = 50; 
(Subscript[Δ, f]) = 20×(10^9); 
c = 3×(10^8); 
e = 1.6×(10^(-19)); 
k = 1.38×(10^(-23)); 
λ = 1550×(10^(-9));

(Subscript[P, W]) = (10^(((Subscript[P, dBm])/10)))/1000;

(((((((ν e)/(h c/λ))))^2) ((((Subscript[P, W])))^2))/((2 e (((ν e)/(h c/λ))) ((Subscript[P, W])) + ((4 k (Subscript[T, 1]))/(Subscript[R, c]))) ((Subscript[Δ, f]))));

(Subscript[P, dB]) = 10 Log10[%]

(Subscript[T, 2]) = 273;

(((((((ν e)/(h c/λ))))^2) ((((Subscript[P, W])))^2))/((2 e (((ν e)/(h c/λ))) ((Subscript[P, W])) + ((4 k (Subscript[T, 2]))/(Subscript[R, c]))) ((Subscript[Δ, f]))));

(Subscript[P, dB]) = 10 Log10[%]