**TI89**mainRfdistZ]() Prgm ClrIO Disp "1 = left prob","2 = right prob","3 = middle prob" Input t ClrIO Disp "degrees of numerator" Input m Disp "degrees of denominator" Input n If t=3 Then Disp "lower bound" Input j Disp "upper bound" Input k s\fcdff(j,k,m,n)e Else Disp "bound" Input k s\fcdff(0,k,m,n)e EndIf Disp "graph?" Input z If z=1 Then PlotsOff FnOff n+mp If int (p/2)=p/2 Then (p/2-1)!a Else (p-1)!*()/2^(p-1)/((p-1)/2)!a EndIf If int (m/2)=m/2 Then (m/2-1)!b Else (m-1)!*()/2^(m-1)/((m-1)/2)!b EndIf If int (n/2)=n/2 Then (n/2-1)!c Else (n-1)!*()/2^(n-1)/((n-1)/2)!c EndIf (m/n)^(m/2)*a/b/cd Define y1(x)=d*x^(m/2-1)/(1+m*X/n)^(p/2) 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 EndIf xmax/10xscl .2yscl If t=3 Then Shade 0,y1(x),j,k Else If t=1 Then Shade 0,y1(x),0,k Else Shade 0,y1(x),k,xmax EndIf EndIf EndIf ClrIO If t=3 Then Disp "probability =",e Else If t=1 Then Disp "left tail prob =",e Output 32,1,"(right tail)" Output 44,1,1-e Else Disp "right tail prob =",1-e Output 32,1,"(left tail)" Output 44,1,e EndIf EndIf EndPrgm܍D