A typical solution of the equation
id - PolyLog[2, -Exp[vd - id]] - PolyLog[2, Exp[id]] == 0
can be obtained by plotting this expression.
ReImPlot[(id - PolyLog[2, -Exp[vd - id]] - PolyLog[2, Exp[id]]) /. vd -> .5, id, -1, 1},
ImageSize -> Large, AxesLabel -> {id, None}, LabelStyle -> {15, Bold, Black}]
Visibly, there is a branch point at id = 0
, consistent with the documentation of PolyLog
. A small amount of experimentation shows that the zero of the curve shown moves toward the branch point as vd
increases. Consequently, there is no solution for vd
greater than
FindRoot[(id - PolyLog[2, -Exp[vd - id]] - PolyLog[2, Exp[id]]) /. id -> 0, {vd, -.87}]
(* {vd -> 0.872676} *)
at least for the principal value of PolyLog
. With this information, a plot of id
as a function of vd
is obtained by
Plot[id /. FindRoot[(id - PolyLog[2, -Exp[vd - id]] - PolyLog[2, Exp[id]]), {id, 01}],
{vd, -1, .872}, ImageSize -> Large, AxesLabel -> {vd, id}, LabelStyle -> {15, Bold, Black}]