你已经派生过 TEM1dSAinv
镜像自地址
https://gitee.com/sduem/TEM1dSAinv.git
已同步 2025-08-03 11:06:51 +08:00
13 行
395 B
Fortran
13 行
395 B
Fortran
!主程序，瞬变电磁模拟退火法一维正演
|
|
program simulatedannealingmethod
|
|
implicit none
|
|
integer n,n1,i,j
|
|
! n为层数，n1为采样时间道
|
|
parameter(n=3,n1=30)
|
|
real(8) p(2*n-1),t(n1),u(n1),i0,a,wl(140),wsl(-149:100)
|
|
call get_t_u(t,u,n1,i0,a)
|
|
call inv(t,u,n1,p,n,i0,a)
|
|
call output(p,n)
|
|
end program simulatedannealingmethod
|
|
!********************************************
|