討論區快速選單
知識庫快速選單
傑米的攝影旅遊筆記 網路投保旅行平安險 政府補助!學嵌入式+物聯網
[ 回上頁 ] [ 討論區發言規則 ]
我想寫程式製造亂數
更改我的閱讀文章字型大小
作者 : b123022(andy)
[ 貼文 36 | 人氣 5758 | 評價 10 | 評價/貼文 0.28 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/4 下午 04:23:08
我想寫程式製造亂數,但我不知道該看什麼書,我找到的書都是原文的
希望各位高手可以給我建議,我想看中文的來學習,希望大家能幫忙
謝謝
作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/5 上午 12:08:31
如果你用的是 Fortran 90/95, 標準中有兩個 subroutine:
Random_Seed 和 Random_Number, 把它們搞懂了就可以了。
作者 : b123022(andy)
[ 貼文 36 | 人氣 5758 | 評價 10 | 評價/貼文 0.28 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/5 上午 07:44:07
謝謝你的回答 f77f95(f77f95)
那如果我用的fortran 77 要如何使用
可以舉例給我看嗎?
謝謝喔!
作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/5 上午 10:19:17
1. Fortran 77的標準中並未提供 random number 的標準函數或是 subroutine. 通常由廠商自行決定提供那些功能。 你用的 Fortran 77是那個廠商的?
作者 : b123022(andy)
[ 貼文 36 | 人氣 5758 | 評價 10 | 評價/貼文 0.28 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/7 上午 09:34:14
f77f95(f77f95) 不好意思最近真的比較忙,忙著被教授罵,
我想請教你一個問題
我用的隨機亂數哪裡出錯,我知道錯的地方但不知道意思,可否請你建議我該怎麼寫
因為我真的找很久了,找不出錯的地方.請你幫幫忙一個錯誤
subroutine initial(n)
     common/md1/surfn(6,3),surf(6,4),pos0(500,3),vel0(500,3),dt(500)
common/md2/pmass(500),hitmv(500),pos(500,3),vel(500,3)
pmass(n)=1.
x0=0.5
y0=0.5
z0=1.
pos0(n,1)=x0
pos0(n,2)=y0
pos0(n,3)=z0
     uuu=163778
vvv=84824
www=29480
u=ran(uuu)
v=ran(vvv)
w=ran(www)
uvw=(u**2+v**2+w**2)**0.5
u0=u/uvw
v0=v/uvw
w0=w/uvw
vel0(n,1)=u0
vel0(n,2)=v0
vel0(n,3)=w0
     call delt(n)
end
作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/7 下午 05:46:30
1. 就你而言, 這個副程式的結果有什麼問題?

2. 你使用的 Fortran Compiler 是那個公司的? 版本為何?
作者 : b123022(andy)
[ 貼文 36 | 人氣 5758 | 評價 10 | 評價/貼文 0.28 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/8 下午 08:47:32
f77f95(f77f95) 我這個應該是逸奇科技,用的是fortran6.6版本
我這個副程式都會出現1個warning錯誤的地方是
:\my files\Bo\materMD.for(114) : Warning: This argument's data type is incompatible with this intrinsic procedure; procedure assumed EXTERNAL. [UUU]
 u=ran(uuu)
以上是副程式錯誤的地方
第114行如上的錯誤
我真的搞不懂為什麼會出現這樣的錯誤,還有這個錯誤的意思我真的看不懂,如果可以的話
請你告訴我錯誤的是什麼意思呢?還有我該如何去改這個錯誤
謝謝
作者 : f77f95(f77f95) Fortran頂尖高手貼文超過500則
[ 貼文 548 | 人氣 9 | 評價 3370 | 評價/貼文 6.15 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人b123022註記此篇回應為最佳解答 2005/10/9 上午 10:49:50
RAN的 arguement 必需是整數, 在你的程式碼中, uuu 是實數, 這是問題的來源。
作者 : b123022(andy)
[ 貼文 36 | 人氣 5758 | 評價 10 | 評價/貼文 0.28 | 送出評價 5 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/9 上午 11:24:45
f77f95謝謝你喔!我想在請教你一個問題就是
這個字arguement這個字是什麼意思我真的查不到耶!
在fortran裡代表什麼意思呢?可以請以告訴我嗎?謝謝
不然我真的永遠看不出錯誤的意思!
謝謝你的幫忙喔!
作者 : herojake(hero)
[ 貼文 24 | 人氣 2325 | 評價 0 | 評價/貼文 0 | 送出評價 8 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/10/9 下午 05:00:08
那是參數的意思
作者 : changtenchun(qq) 貼文超過200則人氣指數超過30000點
[ 貼文 376 | 人氣 36017 | 評價 1040 | 評價/貼文 2.77 | 送出評價 69 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2005/11/11 下午 03:39:17
c---w6.for 有問題電寄changtenchun@yahoo.com.tw
     PROGRAM random1
     INTEGER*4 seed
     seed=101<============給初值

     random (seed) <=========使用亂數
     your code


     STOP
     END
C ******************
     function random (seed)
C ******************
     integer*4 seed,mult,modulus
     mult=65539
     modulus=2147483647
     seed=seed*mult
     if (seed.GE.0) go to 10
     seed = seed+modulus+1
  10 continue
     random =seed
     random =random/modulus
     RETURN
     end
 板主 : 徵求中
 > Fortran - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Fortran - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Fortran
1 f77f95 3300 
2 dennis 470 
3 cc 350 
4 smallpotato 320 
5 qq 290 
6 冼鏡光 230 
7 eraser 220 
8 小文 210 
9 iner 200 
10 wuda 160 
Fortran
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.0625