**TI89**mainRratvarci¥Z«() Prgm ClrIO 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 "confidence level" Input r p-1n q-1m s\finv((1+r)/2,m,n)i s/t*ie s\finv((1-r)/2,m,n)j s/t*jf ClrIO Disp "f scores" Disp {round(i,4),round(j,4)} Disp "ratio of variance" Disp {round(e,4),round(f,4)} Disp "ratio of deviation" Disp {round(¨(e),4),round(¨(f),4)} EndPrgm äåܡ