！４山でのシャッフル調査
100 OPTION BASE 1
110 INPUT PROMPT "カードの枚数は？":n
120 INPUT PROMPT "山の数は？:４を入力しておいて下さい。":p
130 INPUT PROMPT "シャッフル回数？":t
140
150 DIM a(n)
160 DIM b(n)
170 DIM c(n)
180 DIM d(n)
190 DIM e(n)
200 DIM f(n)
210
220 FOR i=1 TO n
230 LET a(i)=i
240 NEXT i
250
260 FOR q=1 TO t
270 FOR k=1 TO INT(n/p)
280 LET b(k)=a(p*(k-1)+1)
290 LET c(k)=a(p*(k-1)+2)
300 LET d(k)=a(p*(k-1)+3)
310 LET e(k)=a(p*(k-1)+4)
320 PRINT USING "####":b(k);
330 PRINT USING "####":c(k);
340 PRINT USING "####":d(k);
350 PRINT USING "####":e(k);
360 PRINT
370 NEXT k
380
390 FOR i=1 TO n/p
400 LET f(i)=b(n/p-i+1)
410 LET f(n/p+i)=c(n/p-i+1)
420 LET f(2*n/p+i)=d(n/p-i+1)
430 LET f(3*n/p+i)=e(n/p-i+1)
440 NEXT i
450
460 FOR i=1 TO n
470 LET a(i)=f(i)
480 PRINT ;q;"回";
490 PRINT USING "####":a(i);
500 PRINT
510 NEXT i
520
530 NEXT q
540 END
550
！３山でのシャッフル調査
100 OPTION BASE 1
110 INPUT PROMPT "カードの枚数は？":n
120 INPUT PROMPT "山の数は？:３を入力しておいて下さい。":p
130 INPUT PROMPT "シャッフル回数？":t
140
150 DIM a(n)
160 DIM b(n)
170 DIM c(n)
180 DIM d(n)
190!DIM e(n)
200 DIM f(n)
210
220 FOR i=1 TO n
230 LET a(i)=i
240 NEXT i
250
260 FOR q=1 TO t
270 FOR k=1 TO INT(n/p)
280 LET b(k)=a(p*(k-1)+1)
290 LET c(k)=a(p*(k-1)+2)
300 LET d(k)=a(p*(k-1)+3)
310 ! LET e(k)=a(p*(k-1)+4)
320 PRINT USING "####":b(k);
330 PRINT USING "####":c(k);
340 PRINT USING "####":d(k);
350 ! PRINT USING "####":e(k);
360 PRINT
370 NEXT k
380
390 FOR i=1 TO n/p
400 LET f(i)=b(n/p-i+1)
410 LET f(n/p+i)=c(n/p-i+1)
420 LET f(2*n/p+i)=d(n/p-i+1)
430 ! LET f(3*n/p+i)=e(n/p-i+1)
440 NEXT i
450
460 FOR i=1 TO n
470 LET a(i)=f(i)
480 PRINT ;q;"回";
490 PRINT USING "####":a(i);
500 PRINT
510 NEXT i
520
530 NEXT q
540 END
550
あるシャッフル方法の規則性
投稿日：2008年11月23日(日)12時46分19秒このカード群を裏向きに持ち、上から1枚ずつ裏向きのままテーブルへ左から右へ３枚並べ
たら、元に戻って２枚目をまた左から右の山へ配る。
これを繰り返しそれぞれの山の枚数が６枚ずつになり、手持ちのカードが無くなる。
次に左の山を持ち上げ、隣の山に重ね、重なった山を持ち上げ、右の山へ重ね一つにする。
このシャッフルを繰り返すと９回繰り返した時点で、カードの順番が元に戻る。
このシャッフルの規則を調べたい（元の状態にどの条件で戻るのか）のですが、
一般にカードがｎ枚あり
山をp個（p<=nとする）作って、このシャッフルをしていく場合、何回繰り返せば元に戻るのでしょうか？
（n=7,p=3なら３回で元に戻りました。）
これを知るためのプログラムを作って貰えないでしょうか？
これを使って新作のカードマジックを作りたいのでよろしくお願いします。
ちなみに、トランプ全部５２枚の場合２山、３山、４山、・・・、１３山
での復元回数も知りたいのですが・・・