**TI89**mainRcontdist₯ZΒ() Prgm ClrHome ToolBar Title "continuous" Item "normal dist",lbl1 Item "t-Dist",lbl2 Item "chi-square",lbl3 Item "f-dist",lbl4 Item "exponential",lbl5 Item "Quit",lbl6 EndTBar Lbl lbl1 ClrIO Disp "1 = left prob","2 = right prob","3 = middle prob" Input t ClrIO Disp "mean" Input m Disp "standard deviation" Input s If t=3 Then Disp "lower bound" Input j Disp "upper bound" Input k s\nrmcdff(j,k,m,s)b Else Disp "bound" Input k If t=1 Then .50-s\nrmcdff(k,m,m,s)b Else .50-s\nrmcdff(m,k,m,s)b EndIf EndIf Disp "graph?" Input z If z=1 Then PlotsOff FnOff Define y1(x)=1/s/¨(2*Œ)*–^­((x-m)^2/2/s^2) m-3*sxmin m+3*sxmax sxscl 0ymin y1(m)ymax .1yscl If t=3 Then Shade 0,y1(x),j,k Else If t=1 Then Shade 0,y1(x),xmin,k Else Shade 0,y1(x),k,xmax EndIf EndIf EndIf ClrIO If t=3 Then Disp "probability =",b Else If t=1 Then Disp "left tail prob =",b Output 32,1,"(right tail)" Output 44,1,1-b Else Disp "right tail prob =",b Output 32,1,"(left tail)" Output 44,1,1-b EndIf EndIf Stop Lbl lbl2 ClrIO Disp "1 = left prob","2 = right prob","3 = middle prob" Input t ClrIO Disp "degrees of freedom" Input n If t=3 Then Disp "lower bound" Input j Disp "upper bound" Input k s\tcdff(j,k,n)b Else Disp "bound" Input k If t=1 Then .5-s\tcdff(k,0,n)b Else .5-s\tcdff(0,k,n)b EndIf EndIf Disp "graph?" Input z If z=1 Then PlotsOff FnOff If int (n/2)=n/2 Then n!/2^n/(n/2)!/¨(n)/(n/2-1)!c Else ((n-1)/2)!/¨(n)/Œ/(n-1)!*2^(n-1)*((n-1)/2)!c EndIf Define y1(x)=c*(1+x^2/n)^(­(n+1)/2) ­3xmin 3xmax 1xscl 0ymin cymax .1yscl If t=3 Then Shade 0,y1(x),j,k Else If t=1 Then Shade 0,y1(x),­3,k Else Shade 0,y1(x),k,3 EndIf EndIf EndIf ClrIO If t=3 Then Disp "probability =",b Else If t=1 Then Disp "left tail prob =",b Output 32,1,"(right tail)" Output 44,1,1-b Else Disp "right tail prob =",b Output 32,1,"(left tail)" Output 44,1,1-b EndIf EndIf Stop Lbl lbl3 ClrIO Disp "1 = left prob","2 = right prob","3 = middle prob" Input t ClrIO Disp "degrees of freedom" Input n If t=3 Then Disp "lower bound" Input j Disp "upper bound" Input k s\Chi2CdfF(j,k,n)b Else Disp "bound" Input k s\Chi2CdfF(0,k,n)b EndIf Disp "graph?" Input z If z=1 Then PlotsOff FnOff If int (n/2)=n/2 Then .5^(n/2)/(n/2-1)!c Else 2^((n-2)/2)*((n-1)/2)!/(n-1)!/¨(Œ)c EndIf Define y1(x)=c*x^(n/2-1)*–^(­x/2) 0xmin max(3*n,k)xmax 3*n/10xscl 0ymin If nž3 Then y1(n-2)ymax Else 2ymax EndIf .1yscl 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 =",b Else If t=1 Then Disp "left tail prob =",b Output 32,1,"(right tail)" Output 44,1,1-b Else Disp "right tail prob =",1-b Output 32,1,"(left tail)" Output 44,1,b EndIf EndIf Stop Lbl lbl4 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 mž3 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 Stop Lbl lbl5 ClrIO Disp "1 = left prob","2 = right prob","3 = middle prob" Input t ClrIO Disp "average" Input q If t=3 Then Disp "lower bound" Input j Disp "upper bound" Input k –^(­j/q)-–^(­k/q)b Else Disp "bound" Input k 1-–^(­k/q)b EndIf Disp "graph?" Input z If z=1 Then PlotsOff FnOff Define y1(x)=1/q*–^(­x/q) 0xmin max(3*q,k)xmax xmax/10xscl 0ymin 1/qymax ymax/10yscl 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 =",b Else If t=1 Then Disp "left tail prob =",b Output 32,1,"(right tail)" Output 44,1,1-b Else Disp "right tail prob =",1-b Output 32,1,"(left tail)" Output 44,1,b EndIf EndIf Stop Lbl lbl6 Stop EndPrgm δεάͺQ