作者maylow (美劳)
看板ASHS-NCHU
标题[闲聊] 跟大家分享一下
时间Tue Mar 31 13:59:00 2009
这个东西友在玩的人应该才看得懂
都没水就跟大家分享一下拉~
-------------Fortran90-------------------------------
program zero
parameter N=1000
dimension f(N)
real x,k,int
open(unit=1,file='data.txt')
open(unit=2,file='dataout.txt')
open(unit=3,file='NewData.txt')
open(unit=4,file='NewData2.txt')
! unit=1 档案代号
! test.dat 档案名称
write(*,*) '累加数据小於几?'
read(*,*) a
y=0
ysum=0
do j=1,N
read(1,*) yi
f(j)=yi
enddo
do k=0,100000
sum=0
int=0
do i=1,1000
x=k/1000
de=f(i)-x
sum=sum+de
int=int+abs(de)
enddo
write(2,*) sum
if (abs(sum)<a) then
write(*,*) x
do i=1,1000
de=f(i)-x
write(3,*) de
write(4,*) int
enddo
endif
enddo
end
--------------------------------------------
有需要做数值分析的人来大家一起讨论吧
科科
--
莫听穿林打叶声 ꘠ 何妨吟啸且徐行
竹杖芒鞋轻胜马
谁怕? 一蓑烟雨任平生
料峭春风吹酒醒 微冷, 山头斜照却相迎
回首向来萧瑟处 归去!
也无风雨也无晴
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.11.249