代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/154133/5640281
bas 多元线性m2.bas
Attribute VB_Name = "modMethod"
'多元线性回归
Option Explicit
'全主元高斯-约当消去法求逆矩阵
'A(1 To m, 1 To m)：开始存放欲求逆的矩阵，最终存求逆的结果矩阵，m是自变量个数
Public Sub Invert(a() As Double)
Dim n As Integer, ep As Double
www.eeworm.com/read/154133/5640376
bas 复相关分析m2.bas
Attribute VB_Name = "modMethod"
'复相关分析
Option Explicit
'求简单相关系数
'x(1 To n)：变量，n为观测次数，已知
'y(1 To n)：变量，n为观测次数，已知
'R：相关系数，计算结果
Public Sub YRelation(x() As Double, y() As Double, R As Double)
www.eeworm.com/read/392270/8353539
bas equation.bas
Attribute VB_Name = "Equation"
Option Explicit
'尚需调试
Sub ReadMatrix(FileName As String, a() As Double, Cols As Integer, Rows As Integer)
Dim i As Integer, j As Integer
Open FileName For Input A
www.eeworm.com/read/367160/9771229
f ssbevd.f
SUBROUTINE SSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK,
$ LWORK, IWORK, LIWORK, INFO )
*
* -- LAPACK driver routine (version 3.1) --
* Univ. of Tennessee
www.eeworm.com/read/367160/9771870
f dsbevd.f
SUBROUTINE DSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK,
$ LWORK, IWORK, LIWORK, INFO )
*
* -- LAPACK driver routine (version 3.1) --
* Univ. of Tennessee
www.eeworm.com/read/367160/9772774
f sstevr.f
SUBROUTINE SSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL,
$ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK,
$ LIWORK, INFO )
*
* -- LAPACK dri
www.eeworm.com/read/367160/9778902
f schkbb.f
SUBROUTINE SCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE,
$ NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB,
$ BD, BE, Q, LDQ, P, LDP, C, L
www.eeworm.com/read/367160/9778991
f zunt03.f
SUBROUTINE ZUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK,
$ RWORK, RESULT, INFO )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ.
www.eeworm.com/read/367160/9779581
f cunt03.f
SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK,
$ RWORK, RESULT, INFO )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Tennessee, Univ.
www.eeworm.com/read/147183/12579472
txt narcis1sus.txt
programe
integer a;
begin
a:= 3-2;
write a;
end.