**TI89**mainRratftestÀ¥Zf() Prgm ClrIO Disp "test ratio" Input v Disp "x sample size" Input p Disp "x sample variance" Input s Disp "y sample size" Input q Disp "y sample variance" Input t Disp "level of significance" Input e p-1m q-1n s/t/vz s\fcdff(0,z,m,n)l 1-lr ClrIO If e>r Then Disp "reject xvar/yvar œ r" Else Disp "accept xvar/yvar œ r" EndIf If e>l Then Disp "reject xvar/yvar ž r" Else Disp "accept xvar/yvar ž r" EndIf If (e/2>r) or (e/2>l) Then Disp "reject xvar/yvar = r" Else Disp "accept xvar/yvar = r" EndIf Output 36,1,"test stat =" Output 36,70,round(z) Disp "tail values",{round(l,4),round(r,4)} EndPrgm äåÜøÄ