代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/261064/11667757
f rombf.f
subroutine rombf( a, b, N,MAXN, func, param, R )
integer*4 N, MAXN
real*8 a, b, param(*), R(MAXN,MAXN)
external func
! Function to compute integrals by Romberg algorithm
www.eeworm.com/read/261064/11667760
f orbit.f
! orbit - Program to compute the orbit of a comet.
program orbit
integer*4 MAXnStep
parameter( MAXnStep = 100000 )
integer*4 nState, nStep, method, iStep, i
real*8 r0, v
www.eeworm.com/read/261064/11667769
f fft.f
subroutine fft( A, N )
integer*4 N
complex*16 A(N)
! Routine to compute discrete Fourier transform using FFT algorithm
! Inputs
! A Complex data vector
! Outputs
!
www.eeworm.com/read/261064/11667773
f gravrk.f
subroutine gravrk( x, t, param, deriv )
real*8 x(*), t, param(*), deriv(*)
! Returns right-hand side of Kepler ODE; used by Runge-Kutta routines
! Inputs
! x State vector [r(
www.eeworm.com/read/261064/11667777
f fftpoi.f
! fftpoi - Program to solve the Poisson equation using
! MFT method (periodic boundary conditions)
program fftpoi
integer*4 MAXN
parameter( MAXN = 300 )
integer*4 N, i, j, M,
www.eeworm.com/read/261064/11667780
f lsfdemo.f
! lsfdemo - Program for demonstrating least squares fit routines
program lsfdemo
integer*4 MAXN, MAXM
parameter( MAXN = 10000, MAXM = 50 )
integer*4 i, N, seed, M
real*8
www.eeworm.com/read/261064/11667783
f pollsf.f
subroutine pollsf( x, y, sigma, N, M, a_fit, sig_a, yy, chisqr )
integer*4 MAXN, MAXM
parameter( MAXN = 10000, MAXM = 50 )
integer*4 N, M
real*8 x(N), y(N), sigma(N),
www.eeworm.com/read/261064/11667786
f pendul.f
! pendul - Program to compute the motion of a simple pendulum
! using the Euler or Verlet method
program pendul
integer*4 MAXnStep
parameter( MAXnStep = 100000 )
integer*4 met
www.eeworm.com/read/261064/11667788
f inv.f
real function inv(AA, N, Nm, Ainv)
integer*4 N, Nm
real*8 AA(Nm,Nm), Ainv(Nm,Nm)
! Compute inverse of matrix
! Input
! AA - Matrix A (N by N)
! N - Dimension of matr
www.eeworm.com/read/261064/11667794
f schro.f
! schro - Program to solve the Schrodinger equation
! for a free particle using the Crank-Nicolson scheme
program schro
integer*4 MAXN, MAXnplots
parameter( MAXN = 200, MAXnplots