CLEAR
n=5
RS=121
NOTE S型算法
?"S型算法"
lcstr=""
FOR I=1 TO RS
    lni=IIF(MOD(I,2*n)>n,n-MOD(I,n)+1,(IIF(MOD(I,2*n)=0,1,MOD(I,2*n))))
    lcstr=lcstr+str(lni,2)
ENDFOR 
?lcstr

NOTE 错位算法
?"错位算法"
lcstr=""
FOR I=1 TO RS
    lni=MOD(INT((i-1)/n)+MOD(i-1,n),n)+1
    lcstr=lcstr+str(lni,2)
ENDFOR 
?lcstr