**TI86** » ®TDIST®¬ClLCDÖDisp "1 = LEFT PROB","2 = RIGHT PROB","3 = MIDDLE PROB"ÖInput TÖClLCDÖDisp "DEG. OF FREEDOM"ÖInput NÖIf T==3ÖThenÖDisp "LOWER BOUND"ÖInput JÖDisp "UPPER BOUND"ÖInput KÖtcdf(J,K,N)BÖElseÖDisp "BOUND"ÖInput KÖIf T==1ÖThenÖ.5-tcdf(K,0,N)BÖElseÖ.5-tcdf(0,K,N)BÖEndÖEndÖDisp "GRAPH?"ÖInput ZÖIf Z==1ÖThenÖPlOff Öy1=tpdf(x,N)ÖFnOffÖ3xMinÖ3xMaxÖ1xSclÖ0yMinÖtpdf(0,N)yMaxÖ.1ySclÖIf T==3ÖThenÖShade(0,y1,J,K)ÖElseÖIf T==1ÖThenÖShade(0,y1,3,K)ÖElseÖShade(0,y1,K,3)ÖEndÖEndÖEndÖClLCDÖIf T==3ÖThenÖDisp "PROBABILITY=",BÖElseÖIf T==1ÖThenÖDisp "LEFT TAIL PROB=",BÖOutpt(4,1,"(RIGHT TAIL)")ÖOutpt(5,1,1-B)ÖElseÖDisp "RIGHT TAIL PROB=",BÖOutpt(4,1,"(LEFT TAIL)")ÖOutpt(5,1,1-B)ÖEnd¼ë