**TI86** – †DIFPTEST†„ClLCDÖ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 DÖDisp "1ST NO. OF YES"ÖInput MÖDisp "1ST SAMPLE SIZE"ÖInput PÖDisp "2ND NO. OF YES"ÖInput NÖDisp "2ND SAMPLE SIZE"ÖInput QÖDisp "LEVEL OF SIG."ÖInput AÖIf K==0ÖThenÖ(M/P*(1-M/P))SÖElseÖ(M/P*(1-M/P))*((K-P)/(K-1))SÖEndÖIf L==0ÖThenÖ(N/Q*(1-N/Q))TÖElseÖ(N/Q*(1-N/Q))*((L-Q)/(L-1))TÖEndÖS/P+T/QVÖ(M/P-N/Q-D)/(V)ZÖnmcdf(0,Z,0,1)BÖB+.5LÖ.5-BRÖIf A>RÖThenÖDisp "REJECT (P1-P2)P"ÖElseÖDisp "ACCEPT (P1-P2)  P"ÖEndÖIf A>LÖThenÖDisp "REJECT (P1-P2)  P"ÖElseÖDisp "ACCEPT (P1-P2)  P"ÖEndÖIf (A/2>R) or (A/2>L)ÖThenÖDisp "REJECT (P1-P2) = P"ÖElseÖDisp "ACCEPT (P1-P2) = P"ÖEndÖDisp ZÖDisp "TAIL VALUES",{round(L,4),round(R,4)}Ö.