**TI86**  óVARCONFIóñClLCDÖDisp "SAMPLE SIZE"ÖInput MÖDisp "SAMPLE VAR."ÖInput SÖDisp "CONF. LEVEL"ÖInput RÖM-1NÖIf R<.95ÖThenÖN-1.5*(2*N)YÖN+1.75*(2*N)ZÖElseÖIf R<.98ÖThenÖN-1.6*(2*N)YÖN+2.15*(2*N)ZÖElseÖIf R<.99ÖThenÖN-1.96*(2*N)YÖN+2.65*(2*N)ZÖElseÖN-2.1*(2*N)YÖN+2.9*(2*N)ZÖEndÖEndÖEndÖy1=chicdf(0,x,N)ÖSolver(y1-(1-R)/2,x,Y)ÖxQÖ(M-1)S/QBÖSolver(y1-(1+R)/2,x,Z)ÖxTÖ(M-1)S/TAÖClLCDÖDisp "VAR. INTERVAL"ÖDisp round(A,4)ÖDisp round(B,4)ÖDisp "DEV. INTERVAL"ÖDisp round((A),4)ÖDisp round((B),4)¤¡