Hi, i am trying to solve the equations denoted eq1 and eq2 for x and r.

f:=r*(8 - 2*x^2);
g:=subs(x=f,f):
eq1:= g-x:
eq2:= expand(diff(g,x) + 1):

I am having a bit of trouble as these simultaneous equations have many solutions and using the command solve, just basically crashes maple. I just want the commands that would give the positive set of solutions only, ie. excluding all complex and negative solutions. 

Thanks in advance.

I have the command;

> restart: Digits:=20: N:=10000: M:=100: x_max:=1: r_min:=2.5:
> r_max:=4: for n from 0 to N do r:=r_min+n/N*(r_max-r_min):
> x:=evalf(x_max*rand()/10^12):for m from 0 to M do x:=r*x*(1-x): od:
> X[n]:=x: od:
> with(plots):
> bifpoint:=[seq([r_min+j/N*(r_max-r_min),X[j]],j=0..N)]:
> pitchf:=pointplot(bifpoint,symbol=point):display(pitchf);

This plots the bifurcation diagram for the logistic model f(x) = r*x*(1-x).

How do i plot the bifurcation diagram for f(x) = r*(8 - 2*x^2). 

I've tried just replacing the function but it does not work.