**TI89**mainRnormdist‘¥Z7() Prgm 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 EndPrgm äåÜkû