[問題] 讀取兩筆資料 相乘 再輸出
小弟是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
→
12/23 15:39, , 1F
12/23 15:39, 1F
※ 編輯: shockbon 來自: 140.115.66.121 (12/23 17:09)
推
12/23 17:09, , 2F
12/23 17:09, 2F
→
12/23 17:11, , 3F
12/23 17:11, 3F
推
12/23 21:24, , 4F
12/23 21:24, 4F
推
12/23 21:44, , 5F
12/23 21:44, 5F
→
12/23 21:52, , 6F
12/23 21:52, 6F
推
12/23 21:52, , 7F
12/23 21:52, 7F
→
12/23 21:53, , 8F
12/23 21:53, 8F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
