**TI86** g WCONTDISTWUMenu(1,"NORM",A,2,"T-DIST",B,3,"CHISQ",C,4,"F-DIST",D,5,"EXPONENTIAL",E,6,"QUIT",F)ÖLbl AÖClLCDÖDisp "1 = LEFT PROB","2 = RIGHT PROB","3 = MIDDLE PROB"ÖInput TÖClLCDÖDisp "MEAN"ÖInput MÖDisp "STANDARD DEV."ÖInput SÖIf T==3ÖThenÖDisp "LOWER BOUND"ÖInput JÖDisp "UPPER BOUND"ÖInput KÖnmcdf(J,K,M,S)BÖElseÖDisp "BOUND"ÖInput KÖIf T==1ÖThenÖ.5-nmcdf(K,M,M,S)BÖElseÖ.5-nmcdf(M,K,M,S)BÖEndÖEndÖDisp "GRAPH?"ÖInput ZÖIf Z==1ÖThenÖPlOff Öy1=nmpdf(x,M,S)ÖFnOff ÖM-3*SxMinÖM+3*SxMaxÖSxSclÖ0yMinÖy1(M)yMaxÖ.1ySclÖIf T==3ÖThenÖShade(0,y1,J,K)ÖElseÖIf T==1ÖThenÖShade(0,y1,M-3*S,K)ÖElseÖShade(0,y1,K,M+3*S)Ö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ÖStopÖLbl BÖ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ÖStopÖLbl CÖ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ÖStopÖLbl DÖClLCDÖDisp "1 = LEFT PROB","2 = RIGHT PROB","3 = MIDDLE PROB"ÖInput TÖClLCDÖDisp "DEGREES OF NUM."ÖInput MÖDisp "DEGREES OF DEN."ÖInput NÖIf T==3ÖThenÖDisp "LOWER BOUND"ÖInput JÖDisp "UPPER BOUND"ÖInput KÖFcdf(J,K,M,N)BÖElseÖDisp "BOUND"ÖInput KÖFcdf(0,K,M,N)BÖEndÖDisp "GRAPH?"ÖInput ZÖIf Z==1ÖThenÖPlOffÖFnOffÖy1=Fpdf(x,M,N) Ö0xMinÖ0yMinÖIf M3ÖThenÖmax(K,4(M*N-2*N)/(M*N+2*M))xMaxÖy1((M*N-2*N)/(M*N+2*M))yMaxÖElseÖ3xMaxÖ2yMaxÖEndÖxMax/10xSclÖ.2ySclÖ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ÖEndÖStopÖLbl EÖClLCDÖDisp "1 = LEFT PROB","2 = RIGHT PROB","3 = MIDDLE PROB"ÖInput TÖClLCDÖDisp "AVERAGE"ÖInput QÖIf T==3ÖThenÖDisp "LOWER BOUND"ÖInput JÖDisp "UPPER BOUND"ÖInput KÖe^(J/Q)-e^(K/Q)BÖElseÖDisp "BOUND"ÖInput KÖ1-e^(K/Q)BÖEndÖDisp "GRAPH?"ÖInput ZÖIf Z==1ÖThenÖPlOff ÖFnOffÖy1=1/Q*e^(x/Q) Ö0xMinÖmax(3Q,K)xMaxÖXmax/10xSclÖ0yMinÖ1/QyMaxÖyMax/10ySclÖ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ÖStopÖLbl FÖStopÖ×Þ