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...