I have an equation which has no explicit solutions, but I would like to plot the solutions. I have construction a function which, for every argument, produces a numerical answer to the equation, but this function can't be plotted. Below is a simplified (equation has trivial explicit solution) function which shows the difficulty.

> Fe := p->fsolve(eval(1-x+p = x), x)
p -> fsolve(eval(1 - x + p = x), x)

Here we exercise the function to produce floating results.