作者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