**TI86** > 0AN0VA10.ClLCDÖOneVar L2,L1ÖdimL L1KÖsum seq(L1(I)(L2(I)-Ë),I,1,K)AÖsum seq((L1(I)-1)*L3(I),I,1,K)BÖ(A/(K-1))/(B/(n-K))FÖ1-Fcdf(0,F,K-1,n-K)PÖ(sum seq((L1(I)-1)(L3(I)),I,1,K)/(n-K))SÖClLCDÖOutpt(2,1,"POOL.DEV")ÖOutpt(2,10,round(S,9))ÖOutpt(4,1,"fSTAT")ÖOutpt(4,8,F)ÖOutpt(6,1,"P-VALUE")ÖOutpt(6,9,P)ÖÑX