ok to post

1. f:= (1+4*x)/((8 +x)):  
Orb:=proc(f,x,1,1,1000) local x1,i,L:  
x1:=1:  
for i from 1 to 1000 do   
x1 := subs(x = x1, f); 
L := [op(L), x1]; 
end do;
L;






2. f := k*x(n - 1)*(1 - x(n - 1))
K := 3.5:  
Orb:=proc(f,x,1,1,1000) local x1,i,L:  
x1:=1:  
for i from 1 to 1000 do   


x1 := subs(x = x1, f); 
L := [op(L), x1]; 
end do;
L;


3. f:= (x(n-1)+8*x(n-2))/((x(n-1)+4*x(n-2))):  
Orb:=proc(f,x,0.5,0.7,1,1000) local x1,i,L: 
 x1:=1:  
for i from 1 to K1 do   
x1:=subs(x=x1,f):    
x2:=subs(x=x2,f)   
od:  
L := [x1, x2]