**TI86** ¢ “EXPONEN“‘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;á