**TI86** d TZ2MNTESTTRClLCDÖDisp "1 = LARGE, LARGE","2 = LARGE, FINITE","3 = FINITE, LARGE","4 = FINITE ,FINITE"ÖInput CÖClLCDÖIf C==3 or C==4ÖThenÖDisp "1ST POP. SIZE"ÖInput KÖElseÖ0KÖEndÖIf C==2 or C==4ÖThenÖDisp "2ND POP. SIZE"ÖInput LÖElseÖ0LÖEndÖDisp "TEST DIFFERENCE"ÖInput MÖDisp "X SAMPLE SIZE"ÖInput PÖDisp "XBAR"ÖInput XÖDisp "X SAMPLE DEV."ÖInput SÖDisp "Y SAMPLE SIZE"ÖInput QÖDisp "YBAR"ÖInput YÖDisp "Y SAMPLE DEV."ÖInput TÖDisp "LEVEL OF SIG."ÖInput AÖIf K0ÖThenÖS*((K-P)/(K-1))SÖEndÖIf L0ÖThenÖT*((L-Q)/(L-1))TÖEndÖ(X-Y-M)/(S/P+T/Q)ZÖnmcdf(0,Z,0,1)BÖB+.5LÖ.5-BRÖIf A>RÖThenÖDisp "REJ (XMN-YMN)  M"ÖElseÖDisp "ACC (XMN-YMN)  M"ÖEndÖIf A>LÖThenÖDisp "REJ (XMN-YMN)  M"ÖElseÖDisp "ACC (XMN-YMN)  M"ÖEndÖIf (A/2>R) or (A/2>L)ÖThenÖDisp "REJ (XMN-YMN) = M"ÖElseÖDisp "ACC (XMN-YMN) = M"ÖEndÖDisp ZÖDisp "TAIL VALUES",{round(L,4),round(R,4)}ÖF