动态数组中的每个元素，两两组合、三三组合。。。。。。，组合排列问题

2014-05-29 09:01:12 1.3k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

集合论不是数学课，是工程师的思维操作系统集合是描述现实世界最基础、最无歧义的建模工具，其核心在于外延性（元素决定集合）与明确性（非此即彼的归属判断）。它不依赖抽象公理，而是通过‘属于∈’‘包含⊆’‘相等=’等关系，为数据清洗、SQL查询、权限系统、前端状态管理等工程场景提供严谨逻辑支撑。从Excel去重到数据库IN子句，从用户分组到Venn图建模，集合思维本质是将模糊语义转化为可验证、可计算、可传递的结构化表达——尤其在处理空集特性、真子集推导和差集精准召回等高频实践环节中，展现出不可替代的技术价值。阅读详情

各位大神，请教个问题。
动态数组中的每个元素（元素个数N不定，最多10个），两两组合、三三组合、NN组合。。。。。。，然后再排列。就是所有组合的所有排列。
例如：数组a(10)中有东、西、南、北、中、发、白。。。。。。
两两组合成：东西、西东、东南、南东。。。。。。
三三组合：东西南、东南西、西南东、西东南、南东西、南西东
中发白、中白发、发白中、发中白、白发中、白中发
。。。。。。
四四组合：。。。。。。
NN组合：。。。。。。

然后生成的组合存储在一个txt文档中。

...全文

Ansys疲劳仿真：工程结构寿命评估的实战方法论做了这么多年仿真，有个感受越来越深——静力学算得再漂亮，疲劳寿命预测不对，项目照样过不了评审。不是因为理论有多复杂，而是因为疲劳损伤的物理机制本身就带有统计属性，材料内部的微观缺陷分布、应力集中位置、载荷谱的随机性，每一项都能让结果偏移20%甚至更多。本文从实战出发，梳理Ansys疲劳仿真的核心流程，重点讲清楚载荷类型选择、S-N曲线处理、应力集中修正这几个最容易出问题的环节。疲劳仿真做好了，最大的收获不是跑出一个漂亮的Damage云图，而是对结构的真实薄弱环节建立起量化的认知。阅读详情

terrywolf

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

Treenewbee 2014-06-21

打赏
举报

递归即可

Dim t
Private Sub Command1_Click()
Dim arr() As String, i As Long
t = Split("东、西、南、北、中、发、白", "、")
Open "d:\MJ.TXT" For Output As #1
For i = 2 To UBound(t) + 1
getall UBound(t), i, "", arr
Print #1, Join(arr, ",") & vbCrLf

Next
Close #1
MsgBox "OK"
End Sub


Sub getall(ByVal m As Byte, ByVal n As Byte, ByRef a As String, ByRef arr() As String, Optional ByRef count As Long)
    If Len(a) = n Then
        count = count + 1
        ReDim Preserve arr(1 To count)
        arr(count) = a
        Exit Sub
    End If
    For i = 0 To m
        If InStr(a, t(i)) = 0 Then getall m, n, a & t(i), arr, count
    Next i
End Sub

赵4老师 2014-05-29

打赏
举报

仅供参考，尽管是C语言：

//qplw.cpp
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
int v=0;
int w=0;
int m;//记录字符串长度
int n;//记录字符串中的字符种类数
char map[256];//记录是哪几种字符
int count[256];//记录每种字符有多少个
int stack[1000];//递归用的栈，并记录当前生成的排列
void Make_Map(char *str) {//统计字符串的相关信息
    int s[256];
    int i;
    memset(s,0,sizeof(s));
    memset(count,0,sizeof(count));
    m=strlen(str);
    if (w<1 || m<w) w=m;
    while(*str) {
        s[*str]++;
        str++;
    }
    n=0;
    for (i=0;i<256;i++)
        if (s[i]) {
            map[n]=i;
            count[n]=s[i];
            n++;
        }
}
void Find(int depth) {//递归式回溯法生成全排列
    if (depth==w) {
        int i;
        for (i=0;i<depth;i++) putchar(map[stack[i]]);
        putchar('\n');
    } else {
        int i;
        if (v && depth>0) {
            for (i=0;i<depth;i++) putchar(map[stack[i]]);
            putchar('\n');
        }
        for (i=0;i<n;i++)
            if (count[i]) {
                stack[depth]=i;
                count[i]--;
                Find(depth+1);
                count[i]++;
            }
    }
}
void main(int argc,char**argv) {
    if (argc<2) {
        printf("%s 要产生全排列的字符串 [限定长度|-1]\n",argv[0]);
        return;
    }
    if (argc>=3) w=atoi(argv[2]);
    if (-1==w) v=1;
    Make_Map(argv[1]);
    Find(0);
}
//C:\test>qplw
//qplw 要产生全排列的字符串 [限定长度|-1]
//
//C:\test>qplw 123
//123
//132
//213
//231
//312
//321
//
//C:\test>qplw 123 2
//12
//13
//21
//23
//31
//32
//
//C:\test>qplw 122333 3
//122
//123
//132
//133
//212
//213
//221
//223
//231
//232
//233
//312
//313
//321
//322
//323
//331
//332
//333
//
//C:\test>qplw 123 -1
//1
//12
//123
//13
//132
//2
//21
//213
//23
//231
//3
//31
//312
//32
//321
//

bcrun 2014-05-29

打赏
举报

看起来好像是个麻将游戏哦

动态数组中的每个元素，两两组合、三三组合。。。。。。，组合排列问题

相关推荐