0

<VBA> & <C言語>
ある本で見つけたC言語による<ランダム順列>生成リスト(1行(=1ステップ以上)が作者が消してる)
があります

これをその1行を想像してEXCEL97VBAに改変したのですが、 重複した順列が表示されてしまう

> ●どこを修正すれば良いでしょうか?

プログラム名は
C言語 ＝CPERM; 当方＝VBA253 としました

本には
k番目の要素を未決定要素 a[k],a[k+1],・・・・a[n] の中から 1/(n-k+1)の確率で決めていく
但し,重複は許さない
とあります

●CPERM
/*集合 {1,2,･・・,n} から r個を取り出し、1列に並べる部分順列をランダムに生成*/
/*要素交換に基づく方法*/

#include <stdio.h>
#include <stdlib.h>
#define N 20 /*集合の最大要素数*/
#define RMAX 32767.0 /*2の15乗 - 1*/
int a[N+1], /*部分順列を保存する配列*/
count, /*部分順列の個数*/
n, /*集合の要素数*/
r; /*取り出す個数*/

void perm(int k);

int main() {
int i, j;

/*乱数の初期値を設定*/
srand(1);

while (1) {

/*n , r の読み込み*/
scanf("%d%d", &n, &r);
if ( (n <= 0) || (n> N ) || (r > n) ) { break; }

/*初期設定*/
for ( j=1; j<=n; j++ ) { a[j] = j; }

/*ランダム部分順列の生成*/
for ( i=1; i<=5; i++ ) { perm(1); }
printf("n=%d r=%d
",n,r);
}
}

void perm(int k) {
int j, w;
float ran;

if ( k > r ) {
/*部分順列表示*/
for ( j=1; j<=r; j++ ) { printf ("%d", a[j]); }
printf(
);
} else {
ran = rand() / RMAX; /* 確率 */
j = ran * (n - k + 1) + k /* 交換する位置 */
/*交換*/
/*=======================*/ ◆ (消された1行)
perm k + 1
}
}



●ＶＢＡ253
Public Sub ＶBA253

N = 4: R = 4: PSN = Application.Permut(N, R)
ReDim PS(PSN)
For J = 1 To N: PS(J) = J: Next
SU = 0
Randomize
'ﾗﾝﾀﾞﾑ順列発生
For J = 1 To 24: PERM 1: Next
Debug.Print "N = " & N, "R = " & R, "SU = " & SU: Debug.Print
End Sub

Private Sub PERM(K As Integer)
Dim JX As Integer
If K > R Then
SU = SU + 1
FS = ""
For I = 1 To R: FS = FS & PS(I): Next
Debug.Print SU & ". " & FS
Else
JX = Int(Rnd * (N - K + 1) + K)
'交換
SWAP PS(JX), PS(K)
PERM K + 1
End If
End Sub
---------------------------
(VBA253)
N,R,I,J,PS(),FSはグローバル変数
PS[] ->a[]
SU -> count
JX -> j
に相当
メインVBA253から PERMを再帰呼出している
交換はSWAP X,Yというユーザー関数
交換対象が正しいかは不明?です

(CPERM)
C言語 :rand()は 0～32767を乱数発生 rand()/RMAXで 0～1へ変換

テストはＣＰＥＲＭ5通り、VBA253はN=4,R=4として24通り出力

なお,C言語の方は転記なのでフォーマット崩れはご容赦

//
システムは windows xp sp3
XLは 97VBA

質問者が選んだベストソリューション

Yahoo!知恵袋 4003日前