代码搜索：GAUSSJ
找到约 181 项符合「GAUSSJ」的源代码
代码结果 181
www.eeworm.com/read/159264/10674140
for gaussj.for
SUBROUTINE gaussj(a,n,np,b,m,mp)
INTEGER m,mp,n,np,NMAX
REAL a(np,np),b(np,mp)
PARAMETER (NMAX=50)
INTEGER i,icol,irow,j,k,l,ll,indxc(NMAX),indxr(NMAX),ipiv(NMAX)
www.eeworm.com/read/414769/11102703
for gaussj.for
SUBROUTINE gaussj(a,n,np,b,m,mp)
INTEGER m,mp,n,np,NMAX
REAL a(np,np),b(np,mp)
PARAMETER (NMAX=50)
INTEGER i,icol,irow,j,k,l,ll,indxc(NMAX),indxr(NMAX),ipiv(NMAX)
www.eeworm.com/read/391726/8386846
txt gaussj.txt
procedure GAUSSJ(VAR A:matrx2; N:integer; VAR B:array of real);
var
IPIV,INDXR,INDXC:array[1..50] of integer;
J,I,K,L,LL:integer;
BIG,PIVINV,DUM:real; IROW,ICOL:integer;
begin
Fo
www.eeworm.com/read/192256/8393615
txt gaussj.txt
procedure GAUSSJ(VAR A:matrx2; N:integer; VAR B:array of real);
var
IPIV,INDXR,INDXC:array[1..50] of integer;
J,I,K,L,LL:integer;
BIG,PIVINV,DUM:real; IROW,ICOL:integer;
begin
Fo
www.eeworm.com/read/291235/8433657
cpp gaussj.cpp
#include
#include "nr.h"
using namespace std;
void NR::gaussj(Mat_IO_DP &a, Mat_IO_DP &b)
{
int i,icol,irow,j,k,l,ll;
DP big,dum,pivinv;
int n=a.nrows();
int m=b.ncols();
Vec
www.eeworm.com/read/431754/8655878
cpp gaussj.cpp
void gaussj(double a[], int n, double b[])
{
int i,j,k,l,ll,irow,icol;
double big,pivinv,dum;
int ipiv[50], indxr[50], indxc[50];
for (j=0;j
www.eeworm.com/read/387489/8672298
txt gaussj.txt
procedure GAUSSJ(VAR A:matrx2; N:integer; VAR B:array of real);
var
IPIV,INDXR,INDXC:array[1..50] of integer;
J,I,K,L,LL:integer;
BIG,PIVINV,DUM:real; IROW,ICOL:integer;
begin
Fo
www.eeworm.com/read/387009/8712395
h gaussj.h
void gaussj(MatDoub_IO &a, MatDoub_IO &b)
{
Int i,icol,irow,j,k,l,ll,n=a.nrows(),m=b.ncols();
Doub big,dum,pivinv;
VecInt indxc(n),indxr(n),ipiv(n);
for (j=0;j
www.eeworm.com/read/284588/8915507
txt gaussj.txt
procedure GAUSSJ(VAR A:matrx2; N:integer; VAR B:array of real);
var
IPIV,INDXR,INDXC:array[1..50] of integer;
J,I,K,L,LL:integer;
BIG,PIVINV,DUM:real; IROW,ICOL:integer;
begin
Fo
www.eeworm.com/read/382436/9029414
txt gaussj.txt
procedure GAUSSJ(VAR A:matrx2; N:integer; VAR B:array of real);
var
IPIV,INDXR,INDXC:array[1..50] of integer;
J,I,K,L,LL:integer;
BIG,PIVINV,DUM:real; IROW,ICOL:integer;
begin
Fo