**TI86** p bANOVA2b`ClLCDÖDisp "NO. OF ROWS"ÖInput RÖDisp "NO. OF COL."ÖInput SÖDisp "NO. PER CELL"ÖInput CÖ0dimL xStatÖ0dimL yStatÖ0dimL fStatÖ0dimL L1Ö0dimL L2Ö0dimL L3ÖFor(I,1,R)ÖIxStat(I)Ösum seq(A(I,J),J,1,S)/SyStat(I)ÖEndÖsum seq(yStat(I),I,1,R)/RL2(1)ÖFor(J,1,S)ÖJfStat(J)Ösum seq(A(I,J),I,1,R)/RL1(J)ÖEndÖC*S*sum seq((yStat(I)-L2(1)),I,1,R)L2(2)ÖC*R*sum seq((L1(J)-L2(1)),J,1,S)L2(3)ÖFor(I,1,R)Ösum seq((A(I,J)+L2(1)-yStat(I)-L1(J)),J,1,S)L3(I)ÖEndÖC*sum seq(L3(I),I,1,R)L2(4)ÖIf C==1ÖThenÖ(S-1)*L2(2)/L2(4)UÖ(R-1)*L2(3)/L2(4)VÖElseÖFor(I,1,R)Ösum seq((C-1)*B(I,J),J,1,S)L3(I)ÖEndÖsum seq(L3(I),I,1,R)L2(5)Ö(L2(2)/(R-1))/(L2(5)/(R*S*(C-1)))UÖ(L2(3)/(S-1))/(L2(5)/(R*S*(C-1)))VÖ(L2(4)/(R-1)/(S-1))/(L2(5)/(R*S*(C-1)))WÖEndÖR-1MÖS-1OÖ(R-1)(S-1)ZÖIf C==1ÖThenÖ(R-1)(S-1)NÖElseÖR*S(C-1)NÖEndÖ1-Fcdf(0,U,M,N)TÖ1-Fcdf(0,V,O,N)PÖIf C1ÖThenÖ1-Fcdf(0,W,Z,N)QÖEndÖClLCDÖOutpt(1,2,"ROW F")ÖOutpt(1,8,round(U,8))ÖOutpt(2,2,"ROW P")ÖOutpt(2,8,T)ÖOutpt(4,2,"COL F")ÖOutpt(4,8,round(V,8))ÖOutpt(5,2,"COL P")ÖOutpt(5,8,P)ÖIf C1ÖThenÖOutpt(7,2,"INT F")ÖOutpt(7,8,round(W,8))ÖOutpt(8,2,"INT P")ÖOutpt(8,8,Q)ÖEndÖÖåQ