**TI86** Á ±CHISQDIS±¯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Öchicdf(J,K,N)BÖElseÖDisp "BOUND"ÖInput KÖchicdf(0,K,N)BÖEndÖDisp "GRAPH?"ÖInput ZÖIf Z==1ÖThenÖPlOff ÖFnOffÖy1=chipdf(x,N)Ö0xMinÖmax(3N,K)xMaxÖ3N/10xSclÖ0yMinÖIf N3ÖThenÖy1(N-2)yMaxÖElseÖ2yMaxÖEndÖ.1ySclÖIf T==3ÖThenÖShade(0,y1,J,K)ÖElseÖIf T==1ÖThenÖShade(0,y1,0,K)ÖElseÖShade(0,y1,K,xMax)Ö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=",1-BÖOutpt(4,1,"(LEFT TAIL)")ÖOutpt(5,1,B)ÖEnd>ï