数组内容随机排序问题请教

lanyf · 发表于 2011-4-5 20:21

向大家请教一个问题
就是如何让一个一维数组的内容随机排序呢
且随机的越随机越好

fangjianp · 发表于 2011-4-5 21:02

提的问题让人难以琢磨！

dsmch · 发表于 2011-4-5 21:05

Dim arr, d As Object
Set d = CreateObject("scripting.dictionary")
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For i = 0 To UBound(arr)
line1:
x = Int(Rnd * (UBound(arr) + 1))
If Not d.exists(arr(x)) Then d.Add arr(x), "" Else GoTo line1
Next i
MsgBox Join(d.keys, ",")

lanyf · 发表于 2011-4-5 21:19

原帖由 dsmch 于 2011-4-5 21:05 发表
Dim arr, d As Object
Set d = CreateObject("scripting.dictionary")
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For i = 0 To UBound(arr)
line1:
x = Int(Rnd * (UBound(arr) + 1))
If Not d.exists(arr( ...

谢谢回复是我想要的结果
不过看不太懂
我是想让数组随机排序，然后按此顺序做相应计算
若结果小于某设定值则保留
如此进行n次计算
则可以保留最小接近结果的值
不晓得我上面的计算过程可否有好的方法实现

lanyf · 发表于 2011-4-5 21:46

Set d = CreateObject("scripting.dictionary")
这句话怎么理解呢？
还有这个d.exists(arr(x)) 和d.Add arr(x)

dsmch · 发表于 2011-4-6 08:36

原帖由 lanyf 于 2011-4-5 21:19 发表

谢谢回复是我想要的结果
不过看不太懂
我是想让数组随机排序，然后按此顺序做相应计算
若结果小于某设定值则保留
如此进行n次计算
则可以保留最小接近结果的值
不晓得我上面的计算过程可否有好的方法实现

上传附件说明问题。

lanyf · 发表于 2011-4-6 13:13

原帖由 dsmch 于 2011-4-6 08:36 发表

上传附件说明问题。

详细问题见附件

dsmch · 发表于 2011-4-6 13:43

不明白什么是正交分解，既然公式=C2*SIN(360/15)*0
数值全部是0，还有什么意义？

lanyf · 发表于 2011-4-6 13:56

原帖由 dsmch 于 2011-4-6 13:43 发表
不明白什么是正交分解，既然公式=C2*SIN(360/15)*0
数值全部是0，还有什么意义？

不好意思，公式写错了应该为C2*SIN【(360/15)*0】，相当于360°整圈分15份，计算0°、24°、48°……的正弦和余弦，
正交分解就是对力的正交分解
可这么理解：想制造一个风扇，比如有15张叶片，但由于制造误差，每个叶片重量不同
那如何分布这15张叶片呢，以使得该风扇整体静平衡
反正结果是要求的∑{arr（i）*cos[（360/n）*i]}^2+{arr（i）*sin[（360/n）*i]}^2最小，或着时，实现设定某个值，当上述求和小于设定值时，就停止计算

dsmch · 发表于 2011-4-6 15:22

我认为应分两步走
1、找出最小数
2、符合最小数的排列
对这个不大懂，不能明确最小数是多少，做了一步，供参考。

Microsoft Excel.rar (8.67 KB, 下载次数: 43)

		自动登录	找回密码
密码			免费注册

[求助] 数组内容随机排序问题请教