作者shockbon (bonbon)
看板Fortran
標題[問題] 讀取兩筆資料 相乘 再輸出
時間Tue Dec 23 14:28:09 2008
小弟是fortran初學者
想請教高手一些問題
我想要將兩筆資料作相乘如
DATA1 DATA2
a b a d
0 0.1 0 2
0.0625 0.2 0.0625 4
0.1250 0.3 0.1250 6
0.1875 0.4 0.1875 8
0.25 0.5 0.25 10
. . . .
. . . .
. . . .
. . . .
類推
最後輸出的結果
DATA3
a b*d
0 0.1*2
0.0625 0.2*4
0.1250 0.3*6
0.1875 0.4*8
0.25 0.5*10
. .
. .
. .
. .
目前想到的方法可能是用do迴圈作
不知道各位高手有沒有別的想法
可以讓小弟參考
附上目前程式碼(有錯)
program resultdate3
implicit none
integer i
real a,b,c,d
integer datanumbers=5857 !全部資料點
type(datanumber) :: da(datanumbers)
open(unit=11,file='data1.dat',status='old')
open(unit=22,file='data2.dat',status='old')
open(unit=33,file='result.dat',status='unknow')
do i=1,datanumber
read(11,*) da(i)%a,da(i)%b
read(22,*) da(i)%c,da(i)%d
write(33,*) a,b*d
end do
stop
end
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.66.121
1F：→ redface:所以你的問題是? (想直接要完整程式碼?) 12/23 15:39
※ 編輯: shockbon 來自: 140.115.66.121 (12/23 17:09)
2F：推 meteorology:一定要迴圈^^ 12/23 17:09
3F：→ shockbon:程式碼附上(不過是錯的~"~) 12/23 17:11
4F：推 meteorology:少了module type 自訂型態 要在program 外宣告 12/23 21:24
5F：推 meteorology:這方法是稍微難一點 不過這方式處理的速度快 12/23 21:44
6F：→ snowanimal:我覺得這一題用什麼方法都可以很快處理 ＝ ＝ 12/23 21:52
7F：推 meteorology:嗯嗯是阿 方法很多～ 12/23 21:52
8F：→ meteorology:大概是因為作業巴～要用這種方式～ 12/23 21:53