**TI83F* file dated 09/29/04, 17:05z tAUSPOPtr????*)))AUSTRALIAN*+*POPULATION)DATA*+*)))1906q1996*+**+*))EXPONENTIAL+*+*LOGISTIC)AND)ABS*+*)))))FITS*?8+10+*ENTER*??#N+N+1906+1996+10YR?4059+4943+6056+6778+7465+9426+11599+14033+16018+18311 POP?+YR+POP+?1?1900c ?2000c ?20c?2000c ?20000c ?5000c?10+5+*POPN)))1000S*?37+50+*ARROW))KEYS*?45+65+*ENTER*??10+5+*FITTING))CURVE):):):*?37+50+*)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))*?45+65+*))))))))))))))))))))))))))*?YR+POP?bD?bK?*DKX*^?#^X+0+X+1906+1996+10EFIT?10+5+*EXPONENTIAL))FIT*?18+5+*b5j*+b5+4?37+50+*ARROW))KEYS*?45+65+*ENTER*??????**+*FITTING)LOGISTIC*+**+*)))CURVE):::*+**+*TAKES)A)WHILE*?3YR+POP?*b1pbbX*^?#^X+0+X+1906+1996+10LFIT?JYR+POP+EFIT+LFIT+ABS??1?2?12+10+*LOGISTIC))FIT)))*?37+50+*ARROW))KEYS*?45+65+*ENTER*??2300c ?9000c ?90000c ?10000c?1?31156:23638C?0:0265063249B?7:9033775381906BA?*C1pABX*^?#^X+0+X+1906+1996+10ABS?10+5+*IN)THE*?17+5+*FUTURE*?6+45+*EXP*?10+67+*LGS*?29+81+*ABS*?41+56+*TRACE*?48+56+*STAT))Eb,b$*?s0 3MALTHUS31????**+*)UNITED)STATES*+*POPULATION)DATA*+**+*EXPONENTIAL)AND*+*)LOGISTIC)FITS*?8+10+*ENTER*????*)YEARSFIT)*+*1790q1830)E*+1+*1790q1990)EL*+2??1?#X+X+1790+1830+10YR?3:9+5:3+7:2+9:6+12:9 POP?+YR+POP+?1?1785c ?1835c ?5c?2c ?15c ?0c?10+25+*DATA*?37+50+*ARROW))KEYS*?45+65+*ENTER*???10+5+*FITTING))CURVE):):):*?YR+POP?bA?bB?*ABX*^?#^X+1+X+1790+1830+10FIT?JYR+POP+FIT?10+5+*EXPONENTIAL))FIT*?19+5+*b5j*+b5+4?38+60+*TRACE*?45+60+*STAT)Eb,b$*???2?#N+N+1790+1990+10YR?3:9+5:3+7:2+9:6+12:9+17:1+23:2+31:4+38:6+50:2+62:9+76+92+105:7+122:8+131:7+150:7+179:3+203:2+226:5+248:7 POP?+YR+POP+?1?1785c ?1995c ?50c?30c ?275c ?0c?15+10+*POPULATION*?22+10+*MILLIONS*?39+62+*ARROWS*?47+65+*ENTER*???15+5+*FITTING))CURVE):):):*?YR+POP?bA?bB?*ABX*^?#^X+1+X+1790+1990+10EFIT?15+5+*EXPONENTIAL))FIT*?24+5+*b5j*+b5+4?39+64+*ARROWS*?47+67+*ENTER*?????**+*FITTING)LOGISTIC*+**+*)))CURVE):::*+**+*TAKES)A)WHILE*??3YR+POP?*b1pbbX*^?#^X+1+X+1790+1990+10LFIT?JYR+POP+EFIT+LFIT??1?15+15+*LOGISTIC)))FIT)))*?39+62+*ARROWS*?47+65+*ENTER*??2300c ?50c ?450c ?1?28+50+*EXTRAPOLATE*?10+23+*EXP*?10+70+*LGS*?38+60+*TRACE*?45+60+*STAT))Eb,b$* 'POP'%\\\?\1+1p\2+1p\3+1?\+r POPMATX3???0c?0c?CYCL+JUVL+ADLT+SENR+TOTL??M??*)POPN)MODELLING*+*POP)PROJ)MATRIX*+*))IN)\)3X3*+*)INITIAL)POPNS*+*))IN)\)3X1*+**+*ENTER)IF)DONE*?8+1+*ON)QUIT)IF)NOT*???\\??**+**?*NO)OF)CYCLES>*+N?**+**+*CALCULATING):::*??I+1+Np1?Iq1CYCLI?\1+1JUVLI?\2+1ADLTI?\3+1SENRI??\\\???\\?"\qX3+X+1:1[?JUVLpADLTpSENRTOTL?+CYCL+JUVL+?+CYCL+ADLT+?+CYCL+SENR+??0+55+*l)))))ENTER*?3+60?3+64????+CYCL+TOTL+??0+55+*l))k)))ENTER*?30+5+*EV>*+[+4???0+50+*TOTAL))POPN)))))*??JCYCL+JUVL+ADLT+SENR+TOTL???*PLOTS)Yj+*+*)PLOT1>)JUVLES*+*)PLOT2>)ADULTS*+*)PLOT3>)TOTAL*+**+*DATA>)STAT)Eb,b$*?8+1+*END>)RUN)POPMCLR* POPMATX4???P?0c?0c?CYCL+YRLG+JUVL+ADLT+SENR+TOTL??M??*)POPN)MODELLING*+*POP)PROJ)MATRIX*+*))IN)\)4X4*+*)INITIAL)POPNS*+*))IN)\)4X1*+**+*ENTER)IF)DONE*?8+1+*ON)QUIT)IF)NOT*???\\??**+**?*NO)OF)CYCLES>*+N?**+**+*CALCULATING):::*??I+1+Np1?Iq1CYCLI?\1+1YRLGI?\2+1JUVLI?\3+1ADLTI?\4+1SENRI??\\\???\\??"\qX4+X+1:1[?YRLGpJUVLpADLTpSENRTOTL?+CYCL+JUVL+?+CYCL+ADLT+?+CYCL+SENR+??0+55+*l)))))ENTER*?3+60?3+64????+CYCL+TOTL+??0+55+*l))k)))ENTER*?20+11+*EV>*+[+4???0+50+*TOTAL))POPN)))))*??JCYCL+YRLG+JUVL+ADLT+SENR+TOTL???*PLOTS)Yj+*+*)PLOT1>)JUVLES*+*)PLOT2>)ADULTS*+*)PLOT3>)TOTAL*+**+*DATA>)STAT)Eb,b$*?8+1+*END>)RUN)POPMCLR* nWORLDPOPnl????*)))))WORLD*+*POPULATION)DATA*+*)))1940q2000*+*))EXPONENTIAL+*+*))LOGISTIC)AND*+*)))USBS)FITS*?8+10+*ENTER*??#N+N+1940+2000+10YR?2300+2475+3039+3708+4457+5284+6080 POP?+YR+POP+?1?1935c ?2005c ?20c?1000c ?7000c ?1000c?8+5+*POPN)))MILLIONS*?37+50+*ARROW))KEYS*?45+65+*ENTER*??8+5+*FITTING))CURVE):):):*?37+50+*)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))*?45+65+*))))))))))))))))))))))))))*?YR+POP?bD?bK?*DKX*^?#^X+0+X+1940+2000+10EFIT?10+5+*EXPONENTIAL))FIT*?18+5+*b5j*+b5+4?37+50+*ARROW))KEYS*?45+65+*ENTER*??????**+*FITTING)LOGISTIC*+**+*)))CURVE):::*+**+*TAKES)A)WHILE*?YRq1940]?3]+POP?b1940b[?*b1p[bX*^?#^X+0+X+1940+2000+10LFIT?JYR+POP+EFIT+LFIT+USBS??1??10+10+*LOGISTIC))FIT)))*?37+50+*ARROW))KEYS*?45+65+*ENTER*??2300c ?3500c ?35000c ?5000c?1?11048:164112C?1:1058319;24A?:02777411591B?*C1pABX*^?#^X+0+X+1940+2000+10USBS?10+5+*IN)THE*?17+5+*FUTURE*?10+42+*EXP*?15+75+*LGS*?31+78+*USBS*?41+56+*TRACE*?48+56+*STAT))Eb,b$*?s0B