function map = prob5_1(initial,n) 

map=initial;

for i=2:n
    tempmap = zeros(1,3);
    tempmap(1)=1.76-map(i-1,2)^2-0.1*map(i-1,3);
    tempmap(2)=map(i-1,1);
    tempmap(3)=map(i-1,2);
    map = [map;tempmap];
end