**TI89**mainRvartestY¥Zÿ() Prgm ClrIO Disp "test variance" Input v Disp "sample size" Input n Disp "sample variance" Input s Disp "level of significance" Input a (n-1)*s/vz s\Chi2CdfF(0,z,n-1)l 1-lr ClrIO If a>r Then Disp "reject var œ v" Else Disp "accept var œ v" EndIf If a>l Then Disp "reject var ž v" Else Disp "accept var ž v" EndIf If (a/2>r) or (a/2>l) Then Disp "reject var = v" Else Disp "accept var = v" EndIf Output 36,1,"test stat =" Output 36,70,round(z) Disp "tail values",{round(l,4),round(r,4)} EndPrgm äåܦ