代码搜索：COVSRT
找到约 167 项符合「COVSRT」的源代码
代码结果 167
www.eeworm.com/read/414769/11101962
for covsrt.for
SUBROUTINE covsrt(covar,npc,ma,ia,mfit)
INTEGER ma,mfit,npc,ia(ma)
REAL covar(npc,npc)
INTEGER i,j,k
REAL swap
do 12 i=mfit+1,ma
do 11 j=1,i
www.eeworm.com/read/391726/8386328
txt covsrt.txt
Procedure COVSRT(var COVAR:matrx2; NCVM, MA:integer;
LISTA:array of integer; MFIT:integer);
var
I,J:integer; SWAP:real;
begin
For J:=1 To MA - 1 do
www.eeworm.com/read/192256/8392886
txt covsrt.txt
Procedure COVSRT(var COVAR:matrx2; NCVM, MA:integer;
LISTA:array of integer; MFIT:integer);
var
I,J:integer; SWAP:real;
begin
For J:=1 To MA - 1 do
www.eeworm.com/read/291235/8433644
cpp covsrt.cpp
#include "nr.h"
void NR::covsrt(Mat_IO_DP &covar, Vec_I_BOOL &ia, const int mfit)
{
int i,j,k;
int ma=ia.size();
for (i=mfit;i
www.eeworm.com/read/387489/8671542
txt covsrt.txt
Procedure COVSRT(var COVAR:matrx2; NCVM, MA:integer;
LISTA:array of integer; MFIT:integer);
var
I,J:integer; SWAP:real;
begin
For J:=1 To MA - 1 do
www.eeworm.com/read/372592/9500531
txt covsrt.txt
Sub COVSRT(COVAR(), NCVM, MA, LISTA(), MFIT)
For J = 1 To MA - 1
For I = J + 1 To MA
COVAR(I, J) = 0#
Next I
Next J
For I = 1 To MFIT - 1
For J =
www.eeworm.com/read/278154/10562687
c covsrt.c
#define SWAP(a,b) {swap=(a);(a)=(b);(b)=swap;}
void covsrt(float **covar, int ma, int ia[], int mfit)
{
int i,j,k;
float swap;
for (i=mfit+1;i
www.eeworm.com/read/278154/10563745
c covsrt.c
#define SWAP(a,b) {swap=(a);(a)=(b);(b)=swap;}
void covsrt(float **covar, int ma, int ia[], int mfit)
{
int i,j,k;
float swap;
for (i=mfit+1;i
www.eeworm.com/read/451644/7459455
txt covsrt.txt
Procedure COVSRT(var COVAR:matrx2; NCVM, MA:integer;
LISTA:array of integer; MFIT:integer);
var
I,J:integer; SWAP:real;
begin
For J:=1 To MA - 1 do
www.eeworm.com/read/199432/7856310
txt covsrt.txt
Procedure COVSRT(var COVAR:matrx2; NCVM, MA:integer;
LISTA:array of integer; MFIT:integer);
var
I,J:integer; SWAP:real;
begin
For J:=1 To MA - 1 do