| 查看: 3036 | 回復(fù): 34 | ||||
| 本帖產(chǎn)生 1 個 程序強(qiáng)帖 ,點(diǎn)擊這里進(jìn)行查看 | ||||
[交流]
【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離 已有2人參與
|
||||
|
請問會用FORTRAN寫程序的高手:比如我有5個原子的圖形坐標(biāo)和最近鄰距離的表格如下 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¥ #代表原子坐標(biāo),¥代表原子與最近鄰原子的距離(這里的最近鄰我寫的是除了本身所有的,當(dāng)然也有情況最近鄰并不是除了本身剩余的原子)請問我如何通過程序?qū)崿F(xiàn)平均最近鄰距離的計算?? 我想要的是平均距離,也就是所有的¥加和平均。 我這舉得是5個的,也可以手動實(shí)現(xiàn),但是我想處理的是60 70 80 諸如這種的,這樣的話最近鄰可能就得是幾百個數(shù),請問如何實(shí)現(xiàn)? 實(shí)例如下(原格式如第二三行,下面的在復(fù)制粘貼時出現(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 原子距離 |


至尊木蟲 (職業(yè)作家)

|
至尊木蟲 (職業(yè)作家)

至尊木蟲 (職業(yè)作家)

至尊木蟲 (職業(yè)作家)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085600 材料與化工 329分求調(diào)劑 +13 | Mr. Z 2026-03-25 | 13/650 |
|
|---|---|---|---|---|
|
[考研] 291求調(diào)劑 +5 | Y-cap 2026-03-29 | 5/250 |
|
|
[考研] 275求調(diào)劑 +11 | Micky11223 2026-03-25 | 16/800 |
|
|
[考研] 299求調(diào)劑 +9 | 15188958825 2026-03-25 | 9/450 |
|
|
[考研] 318一志愿吉林大學(xué)生物與醫(yī)藥 求調(diào)劑 +4 | 篤行致遠(yuǎn). 2026-03-28 | 4/200 |
|
|
[考研] 一志愿北化求調(diào)劑 +4 | Jsman 2026-03-22 | 4/200 |
|
|
[考研] 352分-085602-一志愿985 +5 | 海納百川Ly 2026-03-29 | 5/250 |
|
|
[考研] 292求調(diào)劑 +14 | 鵝鵝鵝額額額額?/a> 2026-03-25 | 15/750 |
|
|
[考研] 291求調(diào)劑 +6 | HanBeiNingZC 2026-03-24 | 6/300 |
|
|
[考研] 考研化學(xué)308分求調(diào)劑 +10 | 你好明天你好 2026-03-23 | 12/600 |
|
|
[考研] 085601 材料工程 313分 求調(diào)劑 +5 | Ong3 2026-03-27 | 5/250 |
|
|
[考研] 一志愿陜師大生物學(xué)071000,298分,求調(diào)劑 +5 | SYA! 2026-03-23 | 5/250 |
|
|
[考研] 總分322求生物學(xué)/生化與分子/生物信息學(xué)相關(guān)調(diào)劑 +5 | 星沉uu 2026-03-26 | 6/300 |
|
|
[考研] 一志愿天津大學(xué)339材料與化工求調(diào)劑 +3 | 江往賣魚 2026-03-26 | 3/150 |
|
|
[考研] 303求調(diào)劑 +6 | 藍(lán)山月 2026-03-25 | 6/300 |
|
|
[考研] 285求調(diào)劑 +3 | AZMK 2026-03-24 | 3/150 |
|
|
[考研] B區(qū)考研調(diào)劑 +4 | yqdszhdap- 2026-03-22 | 5/250 |
|
|
[考研] 340求調(diào)劑 +5 | 話梅糖111 2026-03-24 | 5/250 |
|
|
[考研] 292求調(diào)劑 +4 | 鵝鵝鵝額額額額?/a> 2026-03-24 | 4/200 |
|
|
[考研] 344求調(diào)劑 +3 | desto 2026-03-24 | 3/150 |
|