**TI92P*mainProgram file 05/20/05, 23:05Runif1/¥ZÕ(n) Prgm Local i,j,l1,l2 For i,1,11 i-1l1[i] 0l2[i] EndFor For i,1,n 1+int(10*abs(rand()-rand()))j l2[j+1]+1l2[j+1] EndFor For i,2,11 l2[i-1]+l2[i]l2[i] EndFor NewData unif1d,l1/10,l2/n EndPrgmCäåÜ =