這個東西友在玩的人應該才看得懂
都沒水就跟大家分享一下拉~
-------------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