※ 引述《[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海