代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/261064/11667797
f ge.f
real*8 function ge( AA, bb, N, Nm, x )
integer*4 N, Nm
real*8 AA(Nm,Nm), bb(Nm), x(Nm)
! ge - Function to perform Gaussian elimination to solve A*x = b
! using scaled column piv
www.eeworm.com/read/261064/11667799
f sprfft.f
! sprfft - Program to compute the power spectrum of a
! coupled mass-spring system.
program sprfft
integer*4 MAXnStep
parameter( MAXnStep = 100000 )
integer*4 nState, i, iStep
www.eeworm.com/read/261064/11667802
f dftcs.f
! dftcs - Program to solve the diffusion equation
! using the Forward Time Centered Space (FTCS) scheme.
program dftcs
integer*4 MAXN, MAXnplots
parameter( MAXN = 300, MAXnplots = 5
www.eeworm.com/read/261064/11667803
f sampler.f
subroutine sampler( x, v, npart, ncell, L )
integer*4 MAXnpart, MAXncell
parameter( MAXnpart = 10000, MAXncell = 500 )
integer*4 npart, ncell
real*8 x(MAXnpart), v(MA
www.eeworm.com/read/261064/11667806
f balle.f
! balle - Program to compute the trajectory of a baseball
! using the Euler method.
program balle
integer*4 MAXmaxStep
parameter( MAXmaxStep = 100000 )
integer*4 iStep
www.eeworm.com/read/261064/11667807
f dsmcne.f
! dsmcne - Program to simulate a dilute gas using DSMC algorithm
! This version simulates planar Couette flow
program dsmcne
integer*4 MAXnpart, MAXncell
parameter( MAXnpart =
www.eeworm.com/read/261064/11667808
f lorzrk.f
subroutine lorzrk( xx, t, param, deriv )
real*8 xx(*), t, param(*), deriv(*)
! Returns right-hand side of Lorenz model ODEs
! Inputs
! X State vector [x y z]
! t Tim
www.eeworm.com/read/261064/11667812
f sprrk.f
subroutine sprrk( x, t, param, deriv )
real*8 x(*), t, param(*), deriv(*)
! Returns right-hand side of 3 mass-spring system
! equations of motion
! Inputs
! x State vector [x(1
www.eeworm.com/read/261064/11667815
f zeroj.f
real*8 function zeroj( m_order, n_zero)
integer*4 m_order, n_zero
! Zeros of the Bessel function J(x)
! Inputs
! m_order Order of the Bessel function
! n_zero Index of the ze
www.eeworm.com/read/261064/11667816
f trige.f
real*8 function trige( A, b, N, x)
integer*4 N
real*8 A(*,3), b(*), x(*)
! Function to solve b = A*x by Gaussian elimination where
! the matrix A is a packed tridiagonal matrix