版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請盡快對帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

返回列表

q1036210267

木蟲 (正式寫手)

應(yīng)助: 26 (小學(xué)生)
金幣: 2182.2
散金: 806
紅花: 4
帖子: 893
在線: 262.1小時(shí)
蟲號(hào): 1346635
注冊: 2011-07-15
性別: GG
專業(yè): 藥物化學(xué)

[求助] 求助計(jì)算機(jī)高人，編寫個(gè)Fortran程序

求助計(jì)算機(jī)高人
編寫Fortran程序，將waterbox.xyz文件中所有氧原子的X+1.0, Y+2.0, Z+3.0，而氫原子的保持不變。改變后的結(jié)果保存為一樣的格式，并且命名為waterbox.are.

1500為水分子數(shù)目，然后第一豎行為第一個(gè)，第二個(gè)。。第N個(gè)水分子（這里我只寫到40）第二豎行為氧原子和氫原子，接下來的三個(gè)豎行是需要改變的（第三四五豎行的氧原子坐標(biāo)改變）。以后其他豎行的都不需要改變。
希望計(jì)算機(jī)高手給我編下，不勝感激

回復(fù)此樓

» 猜你喜歡

考研求調(diào)劑已經(jīng)有4人回復(fù)
085601專碩，總分342求調(diào)劑，地區(qū)不限已經(jīng)有4人回復(fù)
085601材料工程專碩求調(diào)劑已經(jīng)有5人回復(fù)
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑已經(jīng)有6人回復(fù)
能源材料化學(xué)課題組招收碩士研究生8-10名已經(jīng)有6人回復(fù)
296求調(diào)劑已經(jīng)有5人回復(fù)
0703化學(xué)調(diào)劑，六級已過，有科研經(jīng)歷已經(jīng)有8人回復(fù)
268求調(diào)劑已經(jīng)有8人回復(fù)
材料，紡織，生物（0856、0710），化學(xué)招生啦已經(jīng)有7人回復(fù)
301求調(diào)劑已經(jīng)有5人回復(fù)

» 本主題相關(guān)商家推薦: (我也要在這里推廣)

» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:

gibbs程序包，fortran版，CPC庫程序，沒有錯(cuò)誤，可直接編譯運(yùn)行已經(jīng)有9人回復(fù)
求一個(gè)簡單的讀寫文件的小程序。。。已經(jīng)有4人回復(fù)
用Fortran編寫程序輸出的數(shù)據(jù)一般用什么程序作圖比較好？已經(jīng)有28人回復(fù)
求助：用Fortran寫一個(gè)關(guān)于晶粒個(gè)數(shù)統(tǒng)計(jì)和編號(hào)的程序�？宋液镁昧�。已經(jīng)有4人回復(fù)
求助：intel visual fortran的格式問題已經(jīng)有14人回復(fù)
fortran輸出求助已經(jīng)有6人回復(fù)
一個(gè)主程序，一個(gè)subroutine程序，要如何將兩個(gè)程序組合在fortran里運(yùn)行已經(jīng)有4人回復(fù)
求fortran95編寫的數(shù)值程序已經(jīng)有4人回復(fù)
fortran中到底該如何比較兩個(gè)實(shí)數(shù)是否相等已經(jīng)有8人回復(fù)
求高人幫忙看一下我這個(gè)Fortran程序的錯(cuò)誤出在哪里？已經(jīng)有12人回復(fù)
大家?guī)臀铱匆粋€(gè)fortran的程序，我總是計(jì)算不出正確的結(jié)果已經(jīng)有20人回復(fù)
我編的Simpson積分法fortran程序給不出結(jié)果，大俠們看看哪里出了問題？已經(jīng)有4人回復(fù)
求助：編寫程序已經(jīng)有5人回復(fù)
有沒有人關(guān)注fortran語言的GPU并行呢？已經(jīng)有12人回復(fù)
【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離已經(jīng)有34人回復(fù)
【求助】FORTRAN寫文件時(shí)每行開頭都多了一個(gè)空格？已經(jīng)有6人回復(fù)
【求助】求Fortran90編譯器？已經(jīng)有11人回復(fù)
【求助】初學(xué)fortran，已經(jīng)有15人回復(fù)
【求助】如何實(shí)現(xiàn)編寫的fortran程序讓別人使用，但不讓別人知道源代碼已經(jīng)有6人回復(fù)
【分享】fortran程序設(shè)計(jì)視頻教程【已搜索無重復(fù)】已經(jīng)有15人回復(fù)

生活中堅(jiān)持快樂的原則不改變，學(xué)習(xí)工作中踏實(shí)上進(jìn)！`~`

1樓 2011-09-06 16:05:16

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★
xzhdty: 歡迎常來程序語言看看 2011-09-06 22:23:55
ben_ladeng: 2011-09-07 00:23:25
微塵、夢想(金幣+5): 感謝應(yīng)助~ 2011-09-07 12:14:46
q1036210267(金幣+20): 辛苦了 2011-09-07 16:40:38

很簡單的嘛……

CODE:

program waterbox

   implicit none

   integer :: num, no, i, i1, i2, i3

   character(len=3) :: ele

   character(len=80) :: line

   real :: x, y, z

   open(unit=11, file='waterbox.xyz', status='old')

   open(unit=12, file='waterbox.are', status='unknown')

   read(11,'(i6)') num

   write(12,'(i6)') num

   do i=1,num

      if (mod(i,3) == 1) then

         read(11, '(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x,y,z,i1,i2,i3

         write(12,'(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x+1.,y+2.,z+3.,i1,i2,i3

      else

         read(11,'(a)') line

         write(12,'(a)') trim(line)

      end if

   end do

end program waterbox

贊一下(3人)

回復(fù)此樓

2樓2011-09-06 17:41:00

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

865504913

木蟲 (著名寫手)

應(yīng)助: 32 (小學(xué)生)
金幣: 2426.1
散金: 419
紅花: 24
帖子: 1045
在線: 287小時(shí)
蟲號(hào): 662691
注冊: 2008-11-26
性別: MM
專業(yè): 可再生與替代能源利用中的

xzhdty: 歡迎常來 2011-09-06 22:24:19

引用回帖:

2樓: Originally posted by snoopyzhao at 2011-09-06 17:41:00:
很簡單的嘛……
[code]
program waterbox
implicit none
integer :: num, no, i, i1, i2, i3
character(len=3) :: ele
character(len=80) :: line
real :: x, y, z

open(unit=11, fi ...

高人無處不在啊本科學(xué)的FORTRAN 現(xiàn)在有點(diǎn)淡忘了不過 2樓還是很厲害

贊一下(1人)

回復(fù)此樓

充滿挑戰(zhàn)的生活只有主動(dòng)出擊才能贏得勝算�。�

3樓2011-09-06 18:33:33

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

q1036210267

木蟲 (正式寫手)

應(yīng)助: 26 (小學(xué)生)
金幣: 2182.2
散金: 806
紅花: 4
帖子: 893
在線: 262.1小時(shí)
蟲號(hào): 1346635
注冊: 2011-07-15
性別: GG
專業(yè): 藥物化學(xué)

引用回帖:

不好意思現(xiàn)在才回復(fù)你，最后那幾列數(shù)字應(yīng)該不變，具體的參數(shù)怎么設(shè)啊。
我是剛開始學(xué)，所以很多都不懂。麻煩你了

贊一下

回復(fù)此樓

生活中堅(jiān)持快樂的原則不改變，學(xué)習(xí)工作中踏實(shí)上進(jìn)！`~`

4樓2011-09-07 09:29:54

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

★
xzhdty(金幣+1): 歡迎常來 2011-09-07 13:46:53

你確定你運(yùn)行的是我的程序和你給出的那個(gè)示例文件嗎？我這里最后一列沒有變化啊……

需要注意的是，這個(gè)程序?qū)︔斎胛募母袷接兄浅?yán)格的要求，所以一旦輸入文件格式發(fā)生變化，結(jié)果就會(huì)不同，甚至得不到正確的結(jié)果……

贊一下(1人)

回復(fù)此樓

5樓2011-09-07 10:46:04

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

q1036210267

木蟲 (正式寫手)

應(yīng)助: 26 (小學(xué)生)
金幣: 2182.2
散金: 806
紅花: 4
帖子: 893
在線: 262.1小時(shí)
蟲號(hào): 1346635
注冊: 2011-07-15
性別: GG
專業(yè): 藥物化學(xué)

引用回帖:

5樓: Originally posted by snoopyzhao at 2011-09-07 10:46:04:
你確定你運(yùn)行的是我的程序和你給出的那個(gè)示例文件嗎？我這里最后一列沒有變化啊……

需要注意的是，這個(gè)程序?qū)︔斎胛募母袷接兄浅?yán)格的要求，所以一旦輸入文件格式發(fā)生變化，結(jié)果就會(huì)不同，甚至得不到正確 ...

我就是按照這個(gè)程序輸入的啊。。結(jié)果還是剛才顯示的那樣，為什么呢？是不是哪里出錯(cuò)拉

   program waterbox
   implicit none
   integer :: num, no, i, i1, i2, i3
   character(len=3) :: ele
   character(len=80) :: line
   real :: x, y, z

   open(unit=11, file='waterbox.xyz', status='old')
   open(unit=12, file='waterbox.are', status='unknown')

   read(11,'(i6)') num
   write(12,'(i6)') num

   do i=1,num
   if (mod(i,3) == 1) then
      read(11, '(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x,y,z,i1,i2,i3
      write(12,'(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x+1.,y+2.,z+3.,i1,i2,i3
   else
      read(11,'(a)') line
      write(12,'(a)') trim(line)
   end if
   end do

   end program waterbox

贊一下

回復(fù)此樓

生活中堅(jiān)持快樂的原則不改變，學(xué)習(xí)工作中踏實(shí)上進(jìn)！`~`

6樓2011-09-07 12:56:13

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

★
余澤成(金幣+1): 謝謝參與應(yīng)助！ 2011-09-07 22:00:58

引用回帖:

6樓: Originally posted by q1036210267 at 2011-09-07 12:56:13:
我就是按照這個(gè)程序輸入的啊。。結(jié)果還是剛才顯示的那樣，為什么呢？是不是哪里出錯(cuò)拉

   program waterbox
   implicit none
   integer :: num, no, i, i1, i2, i3
   character(len= ...

你的源程序是不是用的固定格式？或者你的編譯器默認(rèn)使用固定格式？

你看一下
write(12,'(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x+1.,y+2.,z+3.,i1,i2,i3
這一行是不是超出 72 列了……

贊一下(1人)

回復(fù)此樓

7樓2011-09-07 16:03:42

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

★
余澤成(金幣+1): 謝謝參與應(yīng)助！ 2011-09-07 22:01:12

你把源碼命令為 file.f90，然后再編譯下看看……記得用 f90 或更新版本的編譯器……

贊一下(1人)

回復(fù)此樓

8樓2011-09-07 16:04:44

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

q1036210267

木蟲 (正式寫手)

應(yīng)助: 26 (小學(xué)生)
金幣: 2182.2
散金: 806
紅花: 4
帖子: 893
在線: 262.1小時(shí)
蟲號(hào): 1346635
注冊: 2011-07-15
性別: GG
專業(yè): 藥物化學(xué)

引用回帖:

8樓: Originally posted by snoopyzhao at 2011-09-07 16:04:44:
你把源碼命令為 file.f90，然后再編譯下看看……記得用 f90 或更新版本的編譯器……

write(12,'(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x+1.,y+2.,z+3.,i1,i2,i3

中 i3 顯示為綠色，我截個(gè)圖給你看看。這是為什么�。�

贊一下

回復(fù)此樓

生活中堅(jiān)持快樂的原則不改變，學(xué)習(xí)工作中踏實(shí)上進(jìn)！`~`

9樓2011-09-07 16:22:12

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★
余澤成(金幣+1): 謝謝參與應(yīng)助！ 2011-09-07 22:01:27

這樣吧，你把
write(12,'(i6,a3,tr2,3(f12.6),3(i6))') no,ele,x+1.,y+2.,z+3.,i1,i2,i3
改為
write(12,100) no,ele,x+1.,y+2.,z+3.,i1,i2,i3
100 format(i6,a3,tr2,3(f12.6),3(i6))
再試試吧

我覺得你最好還是找本基礎(chǔ) Fortran 語法的書的看一下吧

贊一下(1人)

回復(fù)此樓

10樓2011-09-07 16:29:46

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主學(xué)員94tPwG 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 材料，紡織，生物（0856、0710），化學(xué)招生啦 +3	Eember. 2026-03-17	7/350	2026-03-17 20:20 by 花125533
[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +3	生物工程調(diào)劑 2026-03-16	8/400	2026-03-17 19:03 by Wangjingyue
[考研] 304求調(diào)劑 +8	小熊joy 2026-03-14	8/400	2026-03-17 17:29 by ruiyingmiao
[考研] 材料專碩326求調(diào)劑 +6	墨煜姒莘 2026-03-15	7/350	2026-03-17 17:10 by ruiyingmiao
[考研] 211本，11408一志愿中科院277分，曾在中科院自動(dòng)化所實(shí)習(xí) +6	Losir 2026-03-12	7/350	2026-03-17 12:09 by danranxie
[考研] 材料專碩274一志愿陜西師范大學(xué)求調(diào)劑 +5	薛云鵬 2026-03-13	5/250	2026-03-17 10:15 by Sammy2
[考研] 一志愿，福州大學(xué)材料專碩339分求調(diào)劑 +3	木子momo青爭 2026-03-15	3/150	2026-03-17 07:52 by laoshidan
[考研] 304求調(diào)劑 +5	素年祭語 2026-03-15	5/250	2026-03-16 17:00 by 我的船我的海
[考研] 070300化學(xué)學(xué)碩求調(diào)劑 +6	太想進(jìn)步了0608 2026-03-16	6/300	2026-03-16 16:13 by kykm678
[考研] 085600材料與化工求調(diào)劑 +13	enenenhui 2026-03-13	14/700	2026-03-16 15:19 by 了了了了。。
[考研] 070305求調(diào)劑 +3	mlpqaz03 2026-03-14	4/200	2026-03-15 11:04 by peike
[考研] 中科大材料專碩319求調(diào)劑 +3	孟鑫材料 2026-03-13	3/150	2026-03-14 18:10 by houyaoxu
[考研] 330求調(diào)劑 +3	?醬給調(diào)劑跪了 2026-03-13	3/150	2026-03-14 10:13 by JourneyLucky
[考研] 341求調(diào)劑 +3	番茄頭--- 2026-03-10	3/150	2026-03-13 23:07 by JourneyLucky
[考研] 四川大學(xué)085601材料工程專碩初試294求調(diào)劑 +4	祝我們好在冬天 2026-03-11	4/200	2026-03-13 21:39 by peike
[考研] 工科，求調(diào)劑 +3	我887 2026-03-11	3/150	2026-03-13 21:39 by JourneyLucky
[考研] 329求調(diào)劑 +3	miaodesi 2026-03-12	4/200	2026-03-13 20:53 by 18595523086
[考研] 考研調(diào)劑 +4	芬達(dá)46 2026-03-12	4/200	2026-03-13 16:04 by ruiyingmiao
[考研] 一志愿211化學(xué)學(xué)碩310分求調(diào)劑 +8	努力奮斗112 2026-03-12	9/450	2026-03-13 15:41 by JourneyLucky
[考研] 270求調(diào)劑 085600材料與化工專碩 +3	YXCT 2026-03-11	3/150	2026-03-13 10:13 by houyaoxu

24小時(shí)熱門版塊排行榜

[求助] 求助計(jì)算機(jī)高人，編寫個(gè)Fortran程序

» 猜你喜歡

» 本主題相關(guān)商家推薦: (我也要在這里推廣)

» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

[求助] 求助計(jì)算機(jī)高人，編寫個(gè)Fortran程序