**TI83F* Program file dated 10/06/00, 08:161' F SERIESá?à1+1+*THIS)PROGRAM*?à2+1+*CALCULATES)AND*?à3+1+*PLOTS)THE)SUM*?à4+1+*OF)N)TERMS)OF)A*?à5+1+*GEOMETRIC)SERIES*?à8+4+*kPRESS)ENTERl*?Ø?á?Þ*FIRST)TERMjA*?Þ*RATIOjR*?Þ*NO:)QF)TERMSjN*?Þ**?ÝA?ÝR?ÝN?á?à1+1+*PRESS)ENTER)TO*?à2+1+*SEE)SUCCESSIVE*?à3+1+*TERMS)OF)SERIES*?Ø?A‚RðNq1ƒRq1S?á?ÓI+1+N?ÞA‚RðIq1?Ø?Ô?á?à1+1+*IF)ABSRk1+*?à2+1+*SERIES)CONVERGES*?à3+1+*INFINITE)SUM*?à4+1+*EXISTS*?à6+1+*IF)NOT+)IT*?à7+1+*DIVERGES:*?à8+4+*kPRESS)ENTERl*?Ø?á?…?~?—?°1c ?Np1c ?Nƒ10c?°1c ?Sp1c ?Sƒ10c?ÓI+1+N?žIq1+A‚RðIq1ƒRq1+2?Ô?βRk1?Ï?Aƒ1qRT??¦T?“40+2+*INFINITE))))SUMj*?“40+60+T?Ð?“40+2+*DIVERGENT))))SERIES*?Ô?“55+40+*kPRESS))))ENTERl*?Ø?á?Þ*WRITTEN)BY*?Þ*ARTHUR)WENK*?Þ**?Þ*E°MAIL>*?Þ*AWENKb?Þ*SAC:ON:CA*?à8+4+*kPRESS)ENTERl*?Ø?á4ã