**TI86** ą ŠT2MNTESTŠĪClLCDÖ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ÖDisp "POOLED?"ÖInput WÖIf W==1ÖThenÖP+Q-2NÖ(((P-1)S+(Q-1)T)/N)DÖ(X-Y-M)/D/(1/P+1/Q)ZÖElseÖint((S/P+T/Q)/((S/P)/(P-1)+(T/Q)/(Q-1)))NÖ(S/P+T/Q)DÖ(X-Y-M)/(S/P+T/Q)ZÖEndÖtcdf(0,Z,N)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)}Ökć