**TI86**  śTDIFMNCIśųClLCDÖ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 "CONF. LEVEL"ÖInput RÖDisp "POOLED?"ÖInput ZÖIf Z==1ÖThenÖP+Q-2NÖ(((P-1)S+(Q-1)T)/N)(1/P+1/Q)DÖElseÖint((S/P+T/Q)/((S/P)/(P-1)+(T/Q)/(Q-1)))NÖ(S/P+T/Q)DÖEndÖy1=tcdf(0,x,N)ÖSolver(y1-R/2,x,2)ÖxBÖB*DEÖClLCDÖDisp "DIFF, ERROR"ÖDisp round(X-Y,4)ÖDisp round(E,4)ÖDisp "CONF. INTERVAL"ÖDisp {round(X-Y-E,4),round(X-Y+E,4)}’£