Question: how can I include the initial condition z:=ic at the last sequence in my orbit?

@fairuzalwani 

Hi! I have difficulties in plotting my proc. I have this proc,

> Orbit:=proc(Map,ic,Nit)
local orbit,z,t:
orbit:=array(0..N):
z:=ic:
orbit[0]:=z:
for t to Nit while (z<>ic) or t=1 do
z:=Map(z);
orbit[t]:=z;
od:
return [seq(orbit[t],t=1..N)];
end;

##If I run it, let say

>Orbit(F, [1, 1], 15);

##the output would be something like this:

[[1, 1], [3, 0], [-1, -1], [1, 0], [-3, -1], [-1, 0], [7, 1], [9, 0], [5, -1], [-5, -2], [-9, -1], [-7, 0], orbit[13], orbit[14], orbit[15]] 

##since it already found the periodic point. But, I need to include my initial condition z:=ic to be able to plot the graph but I do not have idea on how to do it. Please help. Should I make changes in my proc or in my plot structure?

Thank you in advance!