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

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(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
注冊(cè): 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ù)此樓

» 猜你喜歡

277調(diào)劑已經(jīng)有6人回復(fù)
341求調(diào)劑已經(jīng)有7人回復(fù)
328求調(diào)劑，英語六級(jí)551，有科研經(jīng)歷已經(jīng)有8人回復(fù)
293求調(diào)劑已經(jīng)有12人回復(fù)
070300化學(xué)319求調(diào)劑已經(jīng)有4人回復(fù)
268求調(diào)劑已經(jīng)有9人回復(fù)
301求調(diào)劑已經(jīng)有4人回復(fù)
0703化學(xué)336分求調(diào)劑已經(jīng)有5人回復(fù)
301求調(diào)劑已經(jīng)有4人回復(fù)
材料專碩306英一數(shù)二已經(jīng)有9人回復(fù)

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

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

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
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

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

★ ★ ★ ★ ★
xzhdty: 歡迎常來程序語言看看 2011-09-06 22:23:55
ben_ladeng: 2011-09-07 00:23:25
微塵、夢(mèng)想(金幣+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
注冊(cè): 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
注冊(cè): 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
注冊(cè): 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
注冊(cè): 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
注冊(cè): 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
注冊(cè): 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
注冊(cè): 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
注冊(cè): 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ā)表

[考研] 0703化學(xué)336分求調(diào)劑 +4	zbzihdhd 2026-03-15	5/250	2026-03-17 17:33 by ruiyingmiao
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +5	yangfz 2026-03-17	5/250	2026-03-17 17:01 by ruiyingmiao
[考研] 274求調(diào)劑0856材料化工 +13	z2839474511 2026-03-11	14/700	2026-03-17 16:51 by share_joy
[基金申請(qǐng)] 被我言中：新模板不強(qiáng)調(diào)格式了，假專家開始管格式了 +3	beefly 2026-03-14	3/150	2026-03-17 16:45 by RRRKKK
[考研] 085600材料與化工 +4	安全上岸！ 2026-03-16	4/200	2026-03-17 14:02 by 勇敢太監(jiān)王公公
[考研] 0854控制工程 359求調(diào)劑可跨專業(yè) +3	626776879 2026-03-14	9/450	2026-03-16 17:42 by 626776879
[考研] 304求調(diào)劑 +4	ahbd 2026-03-14	4/200	2026-03-16 16:48 by 我的船我的海
[考研] 0703一志愿211 285分求調(diào)劑 +5	ly3471z 2026-03-13	5/250	2026-03-16 16:16 by 哦哦123
[考研] 283求調(diào)劑 +10	小樓。 2026-03-12	14/700	2026-03-16 16:08 by 13811244083
[考研] 中科大材料與化工319求調(diào)劑 +3	孟鑫材料 2026-03-14	3/150	2026-03-14 20:10 by ms629
[考研] 中科大材料專碩319求調(diào)劑 +3	孟鑫材料 2026-03-13	3/150	2026-03-14 18:10 by houyaoxu
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏
[考研] 【0703化學(xué)調(diào)劑】-一志愿華中師范大學(xué)-六級(jí)475 +5	Becho359 2026-03-11	5/250	2026-03-14 11:35 by 哦哦123
[考研] 學(xué)碩285求調(diào)劑 +13	Wisjxn 2026-03-12	46/2300	2026-03-14 10:33 by JourneyLucky
[考研] 279求調(diào)劑 +3	抓著星星的女孩 2026-03-10	3/150	2026-03-13 23:47 by userper
[考研] 26調(diào)劑/材料/英一數(shù)二/總分289/已過A區(qū)線 +6	步川酷紫123 2026-03-13	6/300	2026-03-13 21:59 by 星空星月
[考研] 290求調(diào)劑 +9	ADT 2026-03-11	9/450	2026-03-13 21:55 by JourneyLucky
[考研] 四川大學(xué)085601材料工程專碩初試294求調(diào)劑 +4	祝我們好在冬天 2026-03-11	4/200	2026-03-13 21:39 by peike
[考研] 0703化學(xué)求調(diào)劑 +7	綠豆芹菜湯 2026-03-12	7/350	2026-03-13 17:25 by njzyff
[論文投稿] 投稿問題 5+4	星光燦爛xt 2026-03-12	6/300	2026-03-13 14:17 by god_tian

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

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

» 猜你喜歡

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

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

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

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

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

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

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

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