**TI92**mainProgram: 01\20\1997 09:14:34 AMRcoldÒ¥Zx() Prgm Local q,i,j,v,w,oldi,newi,olds,news,oldr,newr setMode("graph","function") ClrGraph ClrDraw 1xmin n+1xmax 0ymin pymax DispG seq(0,i,1,p)q For i,1,5 rand(p)j If q[j]=0 Then 1q[j] Else i-1i EndIf EndFor p-5olds 5oldi 0oldr For w,1,n For v,1,p If q[v]=0 Then For j,1,k rand(p)i If q[i]>0 Then If rand()d Then newr+1newr EndIf EndFor p-news-newrnewi Line w,olds,w+1,news Line w,oldr,w+1,newr Line w,oldi,w+1,newi newioldi newsolds newroldr For i,1,p If q[i]>0 Then q[i]+1q[i] EndIf EndFor EndFor EndPrgm äåÜÑé