香川随机乱序在会计上的广泛应用！

张雄友

香川群子 发表于 2015-3-15 20:50
如果是这样考虑的话，
只要把代码中 If ar(i, j)  "" Then 这一个条件判断句的条件作变更，
就能适应更 ...

是的，我已经考虑到了，工作中主要是三类：空值，奇数，偶数。

八月十五

香川群子 发表于 2015-3-15 15:04
显然必须由我亲自出马：

很牛逼的高手

jpj123

香川群子 发表于 2015-3-15 15:04
显然必须由我亲自出马：

香川老师的思路高明，直接取非空值的行列号，乱序后再重新写入数组。比我想的排除空值行列号的方法效率多了!(减少了多炊循环)

jpj123

香川群子 发表于 2015-3-15 15:04
显然必须由我亲自出马：

请教下香川老师：
1、'      t = cr(R, 0): cr(R, 0) = cr(i, 0): cr(i, 0) = t '[数组洗牌法]交换
个人感觉这行代码其实没什么意义，可以不要。下一句直接写成这样就行了(随机数行和正常行交换取数)：
      S = br(cr(R, 2), cr(R, 3))
      br(cr(R, 2), cr(R, 3)) = br(cr(i, 2), cr(i, 3))
      br(cr(i, 2), cr(i, 3)) = S '本次随机乱序结果 赋值到数组br'本次随机乱序结果 赋值到数组br
2、 'R = Int(Rnd * (k - i)) + i '[数组洗牌法]不重复随机乱序
    这一句好像也可以换成这样： R = Int(Rnd * 1000) Mod k '不重复随机乱序

香川群子

jpj123 发表于 2015-3-16 00:23
请教下香川老师：
1、'      t = cr(R, 0): cr(R, 0) = cr(i, 0): cr(i, 0) = t '[数组洗牌法]交换
个 ...

你的做法确实可行，并且也算是更容易理解（数组洗牌法的更直接应用。）


但是，我的做法也是多年经验的积累：
虽然代码多转了几圈，但由于我的中间变量计算、处理过程都是Long整型数据，
只在最后有一次直接赋值 br(cr(i, 1), cr(i, 2)) = ar(cr(t, 1), cr(t, 2))……

所以，比起你的3次变量交换操作，实际运算效率会高一点。（大约是15%-20%的样子。）


呵呵。

不过，我的代码中确实还可以精简一些……: cr(i, 0) = t 这最后一步交换可以省去不做。
但对实际计算效率的影响似乎不大。(<3%)

jpj123

香川群子 发表于 2015-3-16 09:24
你的做法确实可行，并且也算是更容易理解（数组洗牌法的更直接应用。）

谢谢香川老师指点，收获颇多!

香川群子

jpj123 发表于 2015-3-16 00:23
请教下香川老师：
1、'      t = cr(R, 0): cr(R, 0) = cr(i, 0): cr(i, 0) = t '[数组洗牌法]交换
个 ...

2、 'R = Int(Rnd * (k - i)) + i '[数组洗牌法]不重复随机乱序
    这一句好像也可以换成这样： R = Int(Rnd * 1000) Mod k '不重复随机乱序

…………
这一句只能和你的三交换代码匹配使用。

如果和我的代码配套，就无法得到正确结果……呵呵。

因为我的是位置序号，即索引值的不重复随机乱序，
而你的是实际数组结果的随机交换……原理稍有不同。

…………
而且，你的参数1000必须比k大……是否每次写代码都需要检测呢？呵呵。

或许可以改成：R = Int(Rnd * k * 10) Mod k
或者：R = Int(Rnd * k * 100) Mod k


但你这样的随机算法，有一个潜在的缺陷：
无法按顺序进行随机抽签并立即输出每一次的抽取结果。（比如抽奖、抽签。）
……因为，这以后的任何一次随机，都可能抽到第1个。 （R=0时）

呵呵

所以，不建议使用你这样的算法。

jpj123

香川群子 发表于 2015-3-16 09:48
2、 'R = Int(Rnd * (k - i)) + i '[数组洗牌法]不重复随机乱序
    这一句好像也可以换成这样： R = In ...

嗯，明白了，谢谢香川老师的耐心讲解!
那如果写成： R = Int(Rnd * 1000) Mod( k-1)+1    是不是就可以避免出现0了呢？但确实会出现重复的机率。

香川群子

jpj123 发表于 2015-3-16 10:03
嗯，明白了，谢谢香川老师的耐心讲解!
那如果写成： R = Int(Rnd * 1000) Mod( k-1)+1    是不是就可以 ...

如果写成： R = Int(Rnd * k * 2) Mod (k- i) + i  那就没有必要使用Mod计算了。

和我的 r = Int(Rnd * (k - i)) + i 就是一样的效果了。

yzyyyyyyy

香川群子 发表于 2015-3-15 20:27
1. 选择单列范围执行宏，即可得到单列的随机乱序结果。

2. 如果需要同时对多列，或多行内容进行各自分 ...

2. 如果需要同时对多列，或多行内容进行各自分开的随机乱序，那么只要代码加入按列或按行的循环操作即可。
大师能否做个实例，搞不定啊