READ lang21;
TIME 2021 2070;
SERIES tsysp1 = @tsysp1*(1-((.001*Y[2021])/(Ssysp1[2021]+Ssysp2[2021]))) ;
SERIES tsysp2 = @tsysp2*(1-((.001*Y[2021])/(Ssysp1[2021]+Ssysp2[2021]))) ;
SIM;