Each loop you are plotting one point, only. So you either have to "hold on" the figure to prevent erasing all data before the next point to plot (this would give you some kind of scatter plot) or you have to plot the array at the end of the function.
So to get a line the last row in the function should look like
plot([1:Year+1], P_t)
You got the point?
