关于魏凤英书中MK突变检验发现的问题，大家来讨论一下！

liujxt · 发表于 2014-12-3 10:29:03

大家的讨论是不是可以理解为：书上的原理是对的，程序是错的，把子程序的.lt.改为.le.就可以了？

上善若水 · 发表于 2015-1-7 11:40:56

金钱不够无法下载（自动回复：请不要使用迅雷等下载工具，点我查看下载帮助），那个EXCEL公式能发个到邮箱吗？411976990@qq.com，O(∩_∩)O谢谢！

cguzh · 发表于 2015-1-12 10:54:09

excel是对的嘛？

飞飞 · 发表于 2015-4-28 15:51:51

从来都是直接程序拿来用，没想那么多啊

freeliving · 发表于 2015-5-14 11:36:17

好帖子，学习了，期待魏老师的解答

青青河边草207 · 发表于 2015-6-30 09:14:48

lu'an 发表于 2012-6-18 09:10
做了一个excel版的。大家对比下。
书上的有点小问题。

下载了第二个

青青河边草207 · 发表于 2015-6-30 09:15:37

青青河边草207 发表于 2015-6-30 09:14
下载了第二个

为什么最终Ub你取得逆序，而书上的公式是UB=-Uf?

chandty · 发表于 2015-7-6 16:29:59

进来学习一下。

taxueyueming · 发表于 2015-12-25 11:01:26

请问秩序列sk是和样本量一样长的么，看魏老师的书上写的k从2开始，有点疑惑

莫莫丶格格子° · 发表于 2017-1-8 10:12:40

18kingfzh 发表于 2012-4-14 19:06
我来给大家权威介绍下：
情况是这样的：
魏老前辈程序当中，在计算每个样本的累计数有所偏差，其采用的计 ...

研究之后，个人认为，魏老师的程序是正确的，源程序中的代码为
DO 10 I=2,N
M(I)=0
MD(I)=0
DO 20 J=1,I-1
IF(Y(I).LT.Y(J))GOTO 20
M(I)=M(I)+1
  20 CONTINUE
MD(I)=MD(I-1)+M(I)
  10 CONTINUE

GOTO 20 意味着如果Y（I）小于Y（J）则跳过后面的M(I)=M(I)+1，进行下一次循环，其相当于
DO 10 I=2,N
M(I)=0
MD(I)=0
DO 20 J=1,I-1
IF(Y(I).GE.Y(J)) then
M(I)=M(I)+1
      end if
  20 CONTINUE
MD(I)=MD(I-1)+M(I)
  10 CONTINUE
当然
如果正确的计算方法应该是：
xi>xj(1≤j≤i)
将LT改为LE即可

个人理解，欢迎交流

		自动登录	找回密码
密码			立即注册