代码搜索：implicit

找到约 5,250 项符合「implicit」的源代码

代码结果 5,250
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/208614/15242339

f90 bvpfd1.f90

! IMSL BVPFD示范 ! 求解y'''-y''+y'-y=0 ! 经过y'=y, y2=y', y3=y''代换后会变成First order ODE ! y1'=y2 ! y2'=y3 ! y3'=y3-y2+y1 ! 答案为y1=cos(t), y2=-sin(t), y3=-cos(t) program main use IMSL implicit none
·
www.eeworm.com/read/208614/15242340

f90 qand.f90

program main use IMSL implicit none real, external :: F integer, parameter :: N=3 real A(N), B(N) real, parameter :: ERRABS = 0.0001 real, parameter :: ERRREL = 0.001 integer,
·
www.eeworm.com/read/208614/15242341

f90 qdagp.f90

program main use IMSL implicit none real, external :: F real A, B integer, parameter :: NPTS = 2 real :: POINTS(NPTS) = (/ 1.0, 2.0 /) real, parameter :: ERRABS = 1E-2 real, pa
·
www.eeworm.com/read/208614/15242342

f90 twodq.f90

program main use IMSL implicit none real A, B real, parameter :: ERRABS = 0.001 real, parameter :: ERRREL = 0.001 integer, parameter :: IRULE = 6 real, external :: F,G,H real :
·
www.eeworm.com/read/208614/15242343

f90 deriv.f90

program main use IMSL implicit none real, external :: F integer, parameter :: KORDER = 1 real :: x=0.0 real, parameter :: BGSTEP = 1E-3 real, parameter :: TOL = 1E-3 write(*,*
·
www.eeworm.com/read/208614/15242344

f90 ivpag.f90

! IMSL IVPAG范例 ! 求解Y'(t)=-0.01*Y(t) ! initial value Y(0)=2 program main use IMSL implicit none integer, parameter :: MXPARM = 50 integer, parameter :: N = 1 integer IDO, ISTEP, NOUT
·
www.eeworm.com/read/208614/15242347

f90 eigen.f90

program main use IMSL implicit none real :: A(3,3) = (/ 1,0,0,& 0,2,0,& 0,0,3 /) real :: eigenvalue(3) real :: eigenvector(3,3) integer i eigenval
·
www.eeworm.com/read/208614/15242349

f90 zbren.f90

program main use IMSL implicit none real, parameter :: ERRABS = 0.0 real, parameter :: ERRREL = 0.001 integer :: MAXFN = 100 real :: A,B real, external :: F A=-1.0 B=1.0
·
www.eeworm.com/read/208614/15242350

f90 neqnf.f90

program main use IMSL implicit none external FCN real, parameter :: ERRREL = 0.0001 integer, parameter :: N = 3 integer, parameter :: ITMAX = 100 real :: XGUESS(N) = (/ 0.0, 1.0,
·
www.eeworm.com/read/208614/15242351

f90 qdagi.f90

program main use IMSL implicit none real, external :: F real :: BOUND = 1.0 integer :: INTER = 1 real, parameter :: ERRABS = 1E-3 real, parameter :: ERRREL = 1E-3 real ANS, ERR
·