**TI86** S DZMNTESTDBClLCDÖDisp "1 = LARGE","2 = FINITE"ÖInput CÖClLCDÖIf C==2ÖThenÖDisp "POP. SIZE"ÖInput PÖElseÖ0PÖEndÖDisp "TEST MEAN"ÖInput MÖDisp "SAMPLE SIZE"ÖInput NÖDisp "XBAR"ÖInput XÖDisp "SAMPLE DEV."ÖInput SÖDisp "LEVEL OF SIG."ÖInput AÖIf P0ÖThenÖS*((P-N)/(P-1))SÖEndÖ(X-M)/(S/(N))ZÖnmcdf(0,Z,0,1)BÖB+.5LÖ.5-BRÖIf A>RÖThenÖDisp "REJECT MEAN  M"ÖElseÖDisp "ACCEPT MEAN  M"ÖEndÖIf A>LÖThenÖDisp "REJECT MEAN  M"ÖElseÖDisp "ACCEPT MEAN  M"ÖEndÖIf (A/2>R) or (A/2>L)ÖThenÖDisp "REJECT MEAN = M"ÖElseÖDisp "ACCEPT MEAN = M"ÖEndÖDisp ZÖDisp "TAIL VALUES",{round(L,4),round(R,4)}¿