clear all
close all

% S_n+1 = 0.6 S_n + 0.3 L_n
% L_n+1 = 0.4 S_n + 0.7 L_n

% Equilibrium (S,L) = (3000,4000)

S1=7000;L1=0;
S(1) = S1;
L(1) = L1;

for k=1:10
    S(k+1) = 0.6*S(k) + 0.3*L(k);
    L(k+1) = 0.4*S(k) + 0.7*L(k);
end

plot(S,'o','MarkerSize',12)
hold on
plot(L,'rs','MarkerSize',12)