※ 引述《[email protected] (小疤咪的妈)》之铭言： > s0=1 > sumr=0 > Z=100 > iseed=1582585565 > do 110 j=1,m sumr=0. > do 111 i=1,z > do 112 k=1,n > call rnset(iseed) > x=u0+s0*rnnof() > call rnget(iseed) > 112 continue > call svrgp (n,x,sya,iperm) > r=sya(n)-sya(1) > sumr=sumr+r > 111 continue > rbar=sumr/z > 110 continue > end 我不确定你要做甚麽. 初步是认为 sumr=0 应放到 j 回 圈中. 你可跟着程式步骤走, 就知道你要程式做的与你想做的是 否符合. 再者, 各变数要整数或要浮点弄清楚吧! 免得多耗费时间 做转换; 而且可能造成不是你所要的, 例如 do 圈多跑或 少做一次. -- ◢ 川◣ │││││ 您在找统计版吗? 竭诚邀请您加入 Statistics! ▃▅▃▅▆ ◣││││ 无名小站 telnet://wretch.twbbs.org (cat▍_/ ▲ 、 ││ 成大计中站 telnet://bbs.ncku.edu.tw ▊ ▊Moon◤▍▍▄▂ │ 交大次世代 telnet://bs2.twbbs.org ▃─ _▍_ ◣▌▎▃▅ 盈月与繁星 telnet://ms.twbbs.org ▲ ◤ ￣ ◢▂▃ ＊Mooncat~ ★未经本人同意请勿转载; 回覆请勿全文引用! -- 夫兵者不祥之器物或恶之故有道者不处君子居则贵左用兵则贵右兵者不祥之器非君子 之器不得已而用之恬淡为上胜而不美而美之者是乐杀人夫乐杀人者则不可得志於天下 矣吉事尚左凶事尚右偏将军居左上将军居右言以丧礼处之杀人之众以哀悲泣之战胜以 丧礼处之道常无名朴虽小天下莫能臣侯王若能守之万物将自宾天地相合以降甘露民莫 之令而自均始制有名名亦既有夫亦将知止知止可以不殆譬道之在天 163.15.188.87海