JFF的BASIC好像被人笑话了？那就拿EXCEL （2007）来模拟吧：

JFF的BASIC好像被人笑话了？那就拿EXCEL （2007）来模拟吧：

所有跟贴·加跟贴·新语丝读书论坛

送交者: Amsel 于 2010-01-21, 15:55:37:

一、无重名的情况：
A1到L1这12个单元格分别输入：
=RANDBETWEEN(1,4)
=RANDBETWEEN(1,3)
=RANDBETWEEN(1,2)
=A2
=IF(B2<A2,B2,B2+1)
=C2+IF(C2<MIN(D2,E2),0,IF(C2+1<MAX(D2,E2),1,2))
=1+2+3+4-D2-E2-F2
=CHAR(D2+64)
=CHAR(E2+64)
=CHAR(F2+64)
=CHAR(G2+64)
=IF(AND(H2<I2,I2<J2,J2<K2),1,0)

单元格L1输入
=SUM(L2:L10001)/COUNT(L2:L10001)

然后把A2到L2这一行往下复制10000行，L1就是计算结果（随机产生符合字母顺序序列的比例）

二、有重名的情况，比较简单：
单元格A1输入NameMax
单元格B1输入100 （名字库的名字个数）
A2到E2:
=RANDBETWEEN(1,$B$1)
=RANDBETWEEN(1,$B$1)
=RANDBETWEEN(1,$B$1)
=RANDBETWEEN(1,$B$1)
=IF(AND(A2<=B2,B2<=C2,C2<=D2),1,0)

单元格E1:
=SUM(E2:E10001)/COUNT(E2:E10001)

然后把A2到E2这一行往下复制10000行，E1就是计算结果（随机产生符合字母顺序序列的比例）

试试把B1改成4，10，20，50，就会看到Laoxiao那天说的结果。

Analytical result：。。。。。。 - LaoXiao (252 bytes) 2010-01-21, 19:26:19 (406759)
- good one, though don't know how you derived. - Amsel (132 bytes) 2010-01-21, 19:45:12 (406763)
  - The coef. var. of Uniform r.v. is relatively high. - LaoXiao (260 bytes) 2010-01-21, 20:35:40 (406790)
  - 人家给出答案了你都还不明白，不愧是民科妄人呀 - wanxiang (75 bytes) 2010-01-21, 19:51:15 (406765)
这种简单问题还要找计算机，随便找个中学生就搞定 - wanxiang (23 bytes) 2010-01-21, 18:14:17 (406723)
- 转脸就来吹了嘛，以为我们记不得你的中学生不如的水平？ - JFF (113 bytes) 2010-01-21, 19:54:38 (406768)
  - 我要是骂你骂得太厉害了，又不知道会有什么人跳出来 - wanxiang (28 bytes) 2010-01-21, 20:05:10 (406777)
    - wanxiang = stupid**6 - JFF (42 bytes) 2010-01-21, 20:18:41 (406784)
你把数值结果贴几个上来，省得重做。 (无内容) - JFF (0 bytes) 2010-01-21, 16:48:45 (406664)
- 我是授人以渔 - Amsel (211 bytes) 2010-01-21, 17:01:10 (406671)
  - 0.081 (无内容) - 潜伏九号 (0 bytes) 2010-01-21, 17:23:46 (406689)
matlab may be simpler but I dont care anymore (无内容) - 潜伏九号 (0 bytes) 2010-01-21, 16:35:44 (406655)
- 他说过他没有MATLAB - Amsel (61 bytes) 2010-01-21, 16:38:47 (406658)
  - similer scilab is free I think (无内容) - 潜伏九号 (0 bytes) 2010-01-21, 16:42:36 (406661)