看板
[ Fortran ]
討論串[問題] 如何用辛普森積分法解這題?
共 3 篇文章
首頁
上一頁
1
下一頁
尾頁
內容預覽:
切1000格. integer :: i. real*8 :: y. real*8 :: x. real*8 :: dx. real ll. real sum. dx = 3.0/(1000). ll = 4.0. sum = 1.0*exp(-(dx*1)**2 )*dx. do i = 2, i
(還有30個字)
內容預覽:
不同版本. Implicit none. real*8 xmin,xmax,result1,a_inc,a_leng,aa,a1,a2,f,result2,eps. !辛普生法. integer*8 iseg,i. write(*,*)"輸入積分下限,輸入積分下限,收斂值". read(*,*)xm
(還有480個字)
首頁
上一頁
1
下一頁
尾頁