**TI86** ´ ¥VARTEST¥£ClLCDÖDisp "TEST VARIANCE"ÖInput VÖDisp "SAMPLE SIZE"ÖInput NÖDisp "SAMPLE VARIANCE"ÖInput SÖDisp "LEVEL OF SIG."ÖInput AÖ(N-1)*S/VZÖchicdf(0,Z,N-1)LÖ1-LRÖIf A>RÖThenÖDisp "REJECT VAR  V"ÖElseÖDisp "ACCEPT VAR  V"ÖEndÖIf A>LÖThenÖDisp "REJECT VAR  V"ÖElseÖDisp "ACCEPT VAR  V"ÖEndÖIf (A/2>R) or (A/2>L)ÖThenÖDisp "REJECT VAR = V"ÖElse ÖDisp "ACCEPT VAR = V"ÖEndÖDisp ZÖDisp "TAIL VALUES",{round(L,4),round(R,4)}Œ