 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 3039 | 回復: 34 | ||||
| 本帖產(chǎn)生 1 個 程序強帖 ，點擊這里進行查看 | ||||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||||
[交流]
【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離 已有2人參與
|
||||
|
請問會用FORTRAN寫程序的高手：比如我有5個原子的圖形坐標和最近鄰距離的表格如下 1 # # # 2￥ 3￥ 4￥ 5￥ 2 # # # 1￥ 3￥ 4￥ 5￥ 3 # # # 1￥ 2￥ 4￥ 5￥ 4 # # # 1￥ 2￥ 3￥ 5￥ 5 # # # 1￥ 2￥ 3￥ 4￥ #代表原子坐標，￥代表原子與最近鄰原子的距離（這里的最近鄰我寫的是除了本身所有的，當然也有情況最近鄰并不是除了本身剩余的原子）請問我如何通過程序?qū)崿F(xiàn)平均最近鄰距離的計算？？ 我想要的是平均距離，也就是所有的￥加和平均。 我這舉得是5個的，也可以手動實現(xiàn)，但是我想處理的是60 70 80 諸如這種的，這樣的話最近鄰可能就得是幾百個數(shù)，請問如何實現(xiàn)？ 實例如下（原格式如第二三行，下面的在復制粘貼時出現(xiàn)了換行，15-38是正常的格式） ion position nearest neighbor table 1 0.332 0.445 0.489- 25 2.79 21 2.80 20 2.80 31 2.80 35 2.80 28 2.80 10 2.89 12 2.89 14 2.90 2 0.501 0.393 0.386- 20 2.79 29 2.79 16 2.80 38 2.80 30 2.80 28 2.80 10 2.89 14 2.90 9 2.90 3 0.610 0.411 0.558- 37 2.79 34 2.80 17 2.80 16 2.80 30 2.80 24 2.80 14 2.89 13 2.90 9 2.90 4 0.645 0.608 0.515- 17 2.80 36 2.80 22 2.80 34 2.80 32 2.80 19 2.80 9 2.90 13 2.90 11 2.90 5 0.366 0.641 0.446- 31 2.80 26 2.80 23 2.80 18 2.80 33 2.80 25 2.80 11 2.88 10 2.89 12 2.89 6 0.441 0.463 0.661- 35 2.79 37 2.80 21 2.80 27 2.80 15 2.80 24 2.80 12 2.89 14 2.89 13 2.90 7 0.535 0.590 0.344- 38 2.79 26 2.80 32 2.80 18 2.80 29 2.80 19 2.80 9 2.89 10 2.89 11 2.89 8 0.476 0.660 0.618- 23 2.79 22 2.80 15 2.80 36 2.80 33 2.80 27 2.80 12 2.90 11 2.90 13 2.90 9 0.568 0.502 0.454- 11 2.72 13 2.72 10 2.72 14 2.72 19 2.83 34 2.83 16 2.83 38 2.84 7 2.89 4 2.90 2 2.90 3 2.90 10 0.437 0.518 0.421- 9 2.72 11 2.72 14 2.72 12 2.73 26 2.83 28 2.83 29 2.83 25 2.84 1 2.89 2 2.89 5 2.89 7 2.89 11 0.504 0.619 0.482- 9 2.72 12 2.72 13 2.72 10 2.72 22 2.83 32 2.83 18 2.83 33 2.83 5 2.88 7 2.89 8 2.90 4 2.90 12 0.409 0.551 0.551- 13 2.72 11 2.72 14 2.72 10 2.73 27 2.83 21 2.83 23 2.83 31 2.83 1 2.89 5 2.89 6 2.89 8 2.90 13 0.540 0.535 0.583- 14 2.72 12 2.72 9 2.72 11 2.72 15 2.83 17 2.83 37 2.83 36 2.83 4 2.90 3 2.90 8 2.90 6 2.90 14 0.472 0.434 0.522- 13 2.72 10 2.72 9 2.72 12 2.72 24 2.83 30 2.83 20 2.83 35 2.83 3 2.89 6 2.89 2 2.90 1 2.90 15 0.512 0.569 0.717- 27 2.79 36 2.79 37 2.79 8 2.80 6 2.80 13 2.83 16 0.635 0.381 0.424- 34 2.79 38 2.80 30 2.80 2 2.80 3 2.80 9 2.83 17 0.676 0.519 0.618- 34 2.79 36 2.80 37 2.80 4 2.80 3 2.80 13 2.83 18 0.468 0.708 0.378- 33 2.79 32 2.80 26 2.80 5 2.80 7 2.80 11 2.83 19 0.668 0.571 0.382- 32 2.79 34 2.79 38 2.79 7 2.80 4 2.80 9 2.83 20 0.402 0.328 0.460- 35 2.79 28 2.79 2 2.79 30 2.80 1 2.80 14 2.83 21 0.308 0.481 0.622- 27 2.79 31 2.79 35 2.80 1 2.80 6 2.80 12 2.83 22 0.574 0.725 0.544- 36 2.79 32 2.79 33 2.80 8 2.80 4 2.80 11 2.83 23 0.341 0.672 0.581- 31 2.79 8 2.79 33 2.79 27 2.80 5 2.80 12 2.83 24 0.508 0.344 0.626- 30 2.79 35 2.80 37 2.80 3 2.80 6 2.80 14 2.83 25 0.300 0.534 0.386- 26 2.79 1 2.79 28 2.79 31 2.80 5 2.80 10 2.84 26 0.399 0.604 0.316- 25 2.79 29 2.79 7 2.80 18 2.80 5 2.80 10 2.83 27 0.378 0.585 0.684- 15 2.79 21 2.79 23 2.80 6 2.80 8 2.80 12 2.83 28 0.365 0.414 0.357- 29 2.79 20 2.79 25 2.79 2 2.80 1 2.80 10 2.83 29 0.464 0.484 0.287- 28 2.79 26 2.79 38 2.79 2 2.79 7 2.80 10 2.83 30 0.537 0.311 0.494- 24 2.79 16 2.80 20 2.80 2 2.80 3 2.80 14 2.83 31 0.272 0.568 0.518- 23 2.79 21 2.79 5 2.80 25 2.80 1 2.80 12 2.83 32 0.603 0.692 0.411- 19 2.79 22 2.79 18 2.80 7 2.80 4 2.80 11 2.83 33 0.440 0.742 0.510- 23 2.79 18 2.79 22 2.80 5 2.80 8 2.80 11 2.83 34 0.705 0.485 0.486- 16 2.79 19 2.79 17 2.79 3 2.80 4 2.80 9 2.83 35 0.373 0.361 0.593- 20 2.79 6 2.79 21 2.80 24 2.80 1 2.80 14 2.83 36 0.611 0.639 0.647- 22 2.79 15 2.79 17 2.80 4 2.80 8 2.80 13 2.83 37 0.577 0.449 0.688- 3 2.79 15 2.79 17 2.80 24 2.80 6 2.80 13 2.83 38 0.599 0.468 0.320- 7 2.79 29 2.79 19 2.79 16 2.80 2 2.80 9 2.84 [ Last edited by 阿黛拉 on 2011-2-22 at 09:10 ] |
回復此樓» 收錄本帖的淘帖專輯推薦
 fortran 原子距離 |
» 猜你喜歡
288資源與環(huán)境專碩求調(diào)劑，不限專業(yè)，有學上就行
已經(jīng)有20人回復
-
311（085601）求調(diào)劑
已經(jīng)有11人回復
-
材料調(diào)劑
已經(jīng)有12人回復
-
一志愿 南京航空航天大學 ，080500材料科學與工程學碩
已經(jīng)有3人回復
-
0856材料與化工調(diào)劑，339
已經(jīng)有6人回復
-
08工科275分求調(diào)劑
已經(jīng)有6人回復
-
334分 一志愿武理-080500 材料求調(diào)劑
已經(jīng)有10人回復
-
324分 085600材料與化工
已經(jīng)有7人回復
-
各位老師好，我的一志愿為北京科技大學085601材料專碩
已經(jīng)有11人回復
-
309求調(diào)劑
已經(jīng)有6人回復
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求助計算機高人，編寫個Fortran程序
已經(jīng)有13人回復
- 哪位幫忙寫份Fortran程序？
已經(jīng)有10人回復
- 寫了一個fortran90的小程序，編譯通不過，請大俠幫忙
已經(jīng)有59人回復
- 【求助】求指點，在Fortran里面，怎樣實現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
已經(jīng)有5人回復
- 【求助】Fortran程序，如何讓exe文件可以單獨運行？
已經(jīng)有6人回復
- 【求助】這樣的公式，在fortran里該怎么寫了，謝謝【求助成功】
已經(jīng)有4人回復
- 【求助】如何實現(xiàn)編寫的fortran程序讓別人使用，但不讓別人知道源代碼
已經(jīng)有6人回復
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
3樓2011-02-22 10:55:14
有能指點一二的本人不勝感激！ 2樓2011-02-22 09:40:26
4樓2011-02-22 11:13:11
 |
5樓2011-02-22 11:15:16
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 267求調(diào)劑 +7 | uiybh 2026-03-31 | 7/350 |
|
|---|---|---|---|---|
|
|
[考研] 254材料與化工求調(diào)劑 +3 | 翰冬林楠 2026-03-30 | 4/200 |
|
|
[考研] 08開頭看過來！��！ +3 | wwwwffffff 2026-03-31 | 5/250 |
|
|
|
[考研] 一志愿：西北大學，英一數(shù)一408-284分求調(diào)劑 +6 | 12.27 2026-03-27 | 6/300 |
|
|
|
[考研] 367求調(diào)劑 +7 | 芋泥啵�！� 2026-03-28 | 7/350 |
|
|
|
[考研] 一志愿哈爾濱工業(yè)大學材料與化工方向336分 +13 | 辰沐5211314 2026-03-26 | 13/650 |
|
|
|
[考研] 本科211生物醫(yī)學工程085409求調(diào)劑339分 +7 | 里子木yy 2026-03-29 | 7/350 |
|
|
|
[考研] 22408 359分調(diào)劑 +4 | Qshers 2026-03-27 | 8/400 |
|
|
|
[考研] 哈爾濱工業(yè)大學材料與化工專碩378求調(diào)劑 +3 | 塔比烏斯 2026-03-30 | 3/150 |
|
|
|
[考研] 281求調(diào)劑 +5 | 亞克西good 2026-03-26 | 7/350 |
|
|
|
[考研] 0703化學/290求調(diào)劑/本科經(jīng)歷豐富/工科也可 +13 | 丹青奶蓋 2026-03-26 | 15/750 |
|
|
|
[考研] 332求調(diào)劑 +6 | Lyy930824@ 2026-03-29 | 6/300 |
|
|
|
[考研] 一志愿雙一流機械285分求調(diào)劑 +4 | 幸運的三木 2026-03-29 | 5/250 |
|
|
|
[考研] 327求調(diào)劑 +6 | 汲亦昊 2026-03-29 | 6/300 |
|
|
|
[考研] 343求調(diào)劑 +6 | 愛羈絆 2026-03-29 | 6/300 |
|
|
|
[考研] 085600，專業(yè)課化工原理，321分求調(diào)劑 +5 | 大饞小子 2026-03-28 | 5/250 |
|
|
|
[考研] 復試調(diào)劑 +3 | raojunqi0129 2026-03-28 | 3/150 |
|
|
|
[考研] 394求調(diào)劑 +3 | 好事多磨靜候佳?/a> 2026-03-26 | 5/250 |
|
|
|
[考研] 求調(diào)劑 +6 | 蘆lty 2026-03-25 | 7/350 |
|
|
|
[考研] 286求調(diào)劑 +4 | lim0922 2026-03-26 | 4/200 |
|