カードマジックのプログラム化へのお願い

 投稿者：GAI  投稿日：2009年10月17日(土)18時02分55秒
  一組のトランプを次の順序で構成する。
トップからの順番で
　　１：ハート  　８
　　２：スペード　３
　　３：ハート　　６
　　４：ダイア　　９
　　５：ダイア　　６
＊　６：ダイア　　Q
　　７：ダイア　　J
＊　８：スペード　Q
　　９：ハート　　J
　１０：スペード　９
＊１１：ハート　　５
　１２：ダイア　　８
　１３：スペード　６
＊１４：ハート　　Q
＊１５：ダイア　　７
　１６：スペード　K
　１７：クラブ　　K
　１８：ハート　　９
　１９：ダイア　　３
＊２０：ダイア　　５
＊２１：ダイア　１０
＊２２：スペード１０
　２３：クラブ　　J
　２４：クラブ　　９
＊２５：ハート　　２
　２６：ダイア　　A
＊２７：スペード　５
＊２８：ハート　１０
　２９：スペード　８
　３０：クラブ　　６
＊３１：ハート　　K
＊３２：ダイア　　K
＊３３：スペード　４
＊３４：クラブ　１０
＊３５：クラブ　　７
　３６：クラブ　　A
＊３７：クラブ　　２
　３８：ハート　　A
＊３９：スペード　２
＊４０：ハート　　４
＊４１：スペード　７
＊４２：クラブ　　４
　４３：クラブ　　８
　４４：クラブ　　３
　４５：ハート　　３
＊４６：ダイア　　２
＊４７：ダイア　　４
　４８：スペード　J
＊４９：クラブ　　Q
＊５０：ハート　　７
　５１：スペード　A
＊５２：クラブ　　５

ただし＊印は表向きで、他は裏向きでセットする。
（組み上がった時、ハートの８が裏向きで一番上のある。）

（遊び方）
１．演者は目隠しか、後ろを向いておく。
２．客に、この仕込んだデックを数回カット（任意の位置で上、下２つに分けて上下の位置関係を入れ替える。）させる。
３．５人の客（A,B,C,D,E)に上から一枚ずつカードを取らせる。
   この時、そのカードが表向きか裏向きかを言ってもらう。
４．最後に残りのパケットの一番上にあるカードが表向きか裏向きかを尋ねる。
５．このことから、いまパケットの一番上にのっているカードの種類と数字を言い当てる。

＜言い当てるカードの種類の判定方法＞
客C,Dが言う表、裏の組み合わせで
（C,D） ＝（表、表）→クラブ
　　　　＝（表、裏）→ハート
        ＝（裏、表）→スペード
        ＝（裏、裏）→ダイア

＜言い当てるカードの数字の算出方法＞
３人の客（A,B,E）と最後に聞くパケットトップのカードに割り当てるキー数字を
客A・・・８点
客B・・・４点
客E・・・２点
パケットのトップカード・・・１点
としておき、裏向きであるカードに対応する位置のキー数字の合計をする。
（０～１５の合計値のいずれかになる。）このとき、
合計値が０か５か１０か１５なら、言い当てるカードの数字＝K
０＜合計値＜５なら、言い当てるカードの数字＝合計値
５＜合計値＜１０なら、言い当てるカードの数字＝合計値－１
１０＜合計値なら、言い当てるカードの数字＝合計値－２ 		 

Re: カードマジックのプログラム化へのお願い

 投稿者：SECOND  投稿日：2009年10月21日(水)00時42分22秒
  > No.657[元記事へ]

GAIさんへ

!じつは、よくわからなくて、次のように勝手に想像してみましたが、
!合っているでしょうか。

!デックのトップから、A,B,C,D,E のパケット順に、最後の１枚を残して、配る。
!ただし＊印は表向きで、他は裏向き。

!最後のパケットトップが、以下なら、最後の１枚の種類は、
!（C,D） ＝（表、表）→クラブ
!　　　　＝（表、裏）→ハート
!        ＝（裏、表）→スペード
!        ＝（裏、裏）→ダイア

!裏向きカードの場所ごとに、点数をつけて合計する。
!５つの、パケットトップは、C,D …０点
!A・・・８点
!B・・・４点
!E・・・２点
!最後のカード・・・１点

!合計値が
!０,５,１０,１５ なら、　K　…13
!０＜合計値＜５なら、　　合計値
!５＜合計値＜１０なら、　合計値－１
!１０＜合計値なら、　　　合計値－２

!が、最後の１枚の、ナンバー

OPTION BASE 0
DIM s$(51),cd$(3)

LET cd$(0)="クラブ"
LET cd$(1)="ハート"
LET cd$(2)="スペード"
LET cd$(3)="ダイヤ"

! s$()(1:1) 先頭の数字= 1,0（裏,表）

LET s$( 0)="1ハート　　８" !　　１：ハート  　８
LET s$( 1)="1スペード　３" !　　２：スペード　３
LET s$( 2)="1ハート　　６" !　　３：ハート　　６
LET s$( 3)="1ダイア　　９" !　　４：ダイア　　９
LET s$( 4)="1ダイア　　６" !　　５：ダイア　　６
LET s$( 5)="0ダイア　　Ｑ" !＊　６：ダイア　　Q
LET s$( 6)="1ダイア　　Ｊ" !　　７：ダイア　　J
LET s$( 7)="0スペード　Ｑ" !＊　８：スペード　Q
LET s$( 8)="1ハート　　Ｊ" !　　９：ハート　　J
LET s$( 9)="1スペード　９" !　１０：スペード　９
LET s$(10)="0ハート　　５" !＊１１：ハート　　５
LET s$(11)="1ダイア　　８" !　１２：ダイア　　８
LET s$(12)="1スペード　６" !　１３：スペード　６
LET s$(13)="0ハート　　Ｑ" !＊１４：ハート　　Q
LET s$(14)="0ダイア　　７" !＊１５：ダイア　　７
LET s$(15)="1スペード　Ｋ" !　１６：スペード　K
LET s$(16)="1クラブ　　Ｋ" !　１７：クラブ　　K
LET s$(17)="1ハート　　９" !　１８：ハート　　９
LET s$(18)="1ダイア　　３" !　１９：ダイア　　３
LET s$(19)="0ダイア　　５" !＊２０：ダイア　　５
LET s$(20)="0ダイア　１０" !＊２１：ダイア　１０
LET s$(21)="0スペード１０" !＊２２：スペード１０
LET s$(22)="1クラブ　　Ｊ" !　２３：クラブ　　J
LET s$(23)="1クラブ　　９" !　２４：クラブ　　９
LET s$(24)="0ハート　　２" !＊２５：ハート　　２
LET s$(25)="1ダイア　　Ａ" !　２６：ダイア　　A
LET s$(26)="0スペード　５" !＊２７：スペード　５
LET s$(27)="0ハート　１０" !＊２８：ハート　１０
LET s$(28)="1スペード　８" !　２９：スペード　８
LET s$(29)="1クラブ　　６" !　３０：クラブ　　６
LET s$(30)="0ハート　　Ｋ" !＊３１：ハート　　K
LET s$(31)="0ダイア　　Ｋ" !＊３２：ダイア　　K
LET s$(32)="0スペード　４" !＊３３：スペード　４
LET s$(33)="0クラブ　１０" !＊３４：クラブ　１０
LET s$(34)="0クラブ　　７" !＊３５：クラブ　　７
LET s$(35)="1クラブ　　Ａ" !　３６：クラブ　　A
LET s$(36)="0クラブ　　２" !＊３７：クラブ　　２
LET s$(37)="1ハート　　Ａ" !　３８：ハート　　A
LET s$(38)="0スペード　２" !＊３９：スペード　２
LET s$(39)="0ハート　　４" !＊４０：ハート　　４
LET s$(40)="0スペード　７" !＊４１：スペード　７
LET s$(41)="0クラブ　　４" !＊４２：クラブ　　４
LET s$(42)="1クラブ　　８" !　４３：クラブ　　８
LET s$(43)="1クラブ　　３" !　４４：クラブ　　３
LET s$(44)="1ハート　　３" !　４５：ハート　　３
LET s$(45)="0ダイア　　２" !＊４６：ダイア　　２
LET s$(46)="0ダイア　　４" !＊４７：ダイア　　４
LET s$(47)="1スペード　Ｊ" !　４８：スペード　J
LET s$(48)="0クラブ　　Ｑ" !＊４９：クラブ　　Q
LET s$(49)="0ハート　　７" !＊５０：ハート　　７
LET s$(50)="1スペード　Ａ" !　５１：スペード　A
LET s$(51)="0クラブ　　５" !＊５２：クラブ　　５

FOR i=0 TO 52
   LET A=MOD(i,52)
   LET B=MOD(i+1,52)
   LET C=MOD(i+2,52)
   LET D=MOD(i+3,52)
   LET E=MOD(i+4,52)
   LET r=MOD(i+5,52)
   LET sum= VAL(s$( A )(1:1))*8+VAL(s$( B )(1:1))*4+VAL(s$( E )(1:1))*2+VAL(s$( r )(1:1))
   IF MOD(sum,5)=0 THEN
      LET N=13
   ELSEIF sum< 5 THEN
      LET N=sum
   ELSEIF 5< sum AND sum< 10 THEN
      LET N=sum-1
   ELSEIF 10< sum THEN
      LET N=sum-2
   END IF
   PRINT "計算のカード：";cd$( VAL(s$( C )(1:1))*2+VAL(s$( D )(1:1)) );N
   PRINT "最後のカード：";s$( r )(2:7)
   PRINT
NEXT i

!連続する６枚が、デックの一番下に残れば、その６枚は、何番目のものでも、ＯＫ
!のようですが、細かくシャッフルしすぎると、６枚が、確保できないかも知れません。

END 		 

Re: カードマジックのプログラム化へのお願い

 投稿者：GAI  投稿日：2009年10月21日(水)07時25分6秒
  > No.667[元記事へ]

SECONDさんへのお返事です。


製作ありがとうございます。


> !デックのトップから、A,B,C,D,E のパケット順に、最後の１枚を残して、配る。
> !ただし＊印は表向きで、他は裏向き。


この部分はA,B,C,D,Eの人が一枚ずつカードをとることで、とった後はそれ以上はカードはとりません。そして残りのパケットはテーブルにあり、その一番上にのっているカードについて、表か裏かを聞きます。
５人の返事とこの情報（６つの表か裏かのデーター）から、パケットトップにあるカードを当てると言う仕組みです。
これは、元のデックを任意にカットしても同じく成立します。（別に６枚が連続する必要はなく、任意の位置でデックを２分し、上下を入れ替えることが可能）


そこで、任意の位置でデックをカットする部分と、６つのデーター（A,B,C,D,E,トップカードの裏、表）を表示してもらい、一応こちらがパケットトップにあるカードを予想しますから、この答えが正解になるかを確認できるプログラムを構成してもらいたいんですが・・・ 		 

Re: カードマジックのプログラム化へのお願い

 投稿者：SECOND  投稿日：2009年10月21日(水)11時06分38秒
  > No.668[元記事へ]

GAIさんへ

カードはド素人で、随分とんちんかんな、状況を想像していたようです。
申し訳ない！でも、プログラム自体は、

s$( 0),s$( 1),s$( 2),s$( 3),s$( 4),s$( 5) の裏表からの計算カード　＝ s$( 5)のカードに一致
s$( 1),s$( 2),s$( 3),s$( 4),s$( 5),s$( 6) の裏表からの計算カード　＝ s$( 6)のカードに一致
s$( 2),s$( 3),s$( 4),s$( 5),s$( 6),s$( 7) の裏表からの計算カード　＝ s$( 7)のカードに一致
         :           :
         :           :
s$(50),s$(51),s$( 0),s$( 1),s$( 2),s$( 3) の裏表からの計算カード　＝ s$( 3)のカードに一致
s$(51),s$( 0),s$( 1),s$( 2),s$( 3),s$( 4) の裏表からの計算カード　＝ s$( 4)のカードに一致
s$( 0),s$( 1),s$( 2),s$( 3),s$( 4),s$( 5) の裏表からの計算カード　＝ s$( 5)のカードに一致

このように、ぐるぐると、何度回っても、連続の６枚でありさえすれば、
一致する確認の計算をしていますので、

兼用できるような気がします。
少しくらいは、シャッフルしてもトップの６枚は、上記の何れかだと思います、
上下を、中ほどで、入替えても、サークル順序は同じで、崩れませんが、
途中から抜き取ったり、１枚毎に織り込むシャッフルだと、どこで崩れるか、
運、になりますね。
あとは、ご自身で工夫してみてください。すみません。

   ------------------------
　　※例えば、２３枚目で上下入換えたとすると

　　for i=0+23 to 52+23
      (
       )
    next i

    とした状態です、２３枚目から始まる他、何も変りません。 		 

戻る