Re: 產生亂數之副程式(劉老師計程班第七次作業)
※ 引述《gazelle ( )》之銘言:
: subroutine random(n,seed)
: implicit real (a-h,o-z)
: pi=3.1416
: x=(seed+pi)**5
把一個數字和PI乘五方~~~確實很亂
: xint=int(x)
: xi=x-xint
: seed=xi
亂數就是那個五方的小數(0=<rnd<1)
: n=int(seed*10)
把RND*10再取高斯函數(整數)(0=<xrnd<=9)
就完成亂數0~9囉
: return
: stop
: end
--
真是首好詩 在思念的頂點轉移背景到故鄉 更顯思親之情
首句 獨異異 更讓孤獨感提昇多倍 期中考就默書這首詩&春江花月夜&俠客行歐
獨在異鄉為異客 每逢佳節倍思親
遙知兄弟登高處 遍插茱萸少一人
~~嗚嗚嗚~~~少了我 >.<
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 140.112.22.222
討論串 (同標題文章)