代码搜索：SVDVAR
找到约 169 项符合「SVDVAR」的源代码
代码结果 169
www.eeworm.com/read/414769/11102071
for svdvar.for
SUBROUTINE svdvar(v,ma,np,w,cvm,ncvm)
INTEGER ma,ncvm,np,MMAX
REAL cvm(ncvm,ncvm),v(np,np),w(np)
PARAMETER (MMAX=20)
INTEGER i,j,k
REAL sum,wti(MMAX)
do
www.eeworm.com/read/391726/8386331
txt svdvar.txt
Procedure SVDVAR(V:matrx2; MA, NP:integer; W:array of real;
var CVM:matrx2; NCVM:integer);
var
WTI:array[0..20] of real;
I,K,J:integer; SUM1:real;
beg
www.eeworm.com/read/192256/8392888
txt svdvar.txt
Procedure SVDVAR(V:matrx2; MA, NP:integer; W:array of real;
var CVM:matrx2; NCVM:integer);
var
WTI:array[0..20] of real;
I,K,J:integer; SUM1:real;
beg
www.eeworm.com/read/291235/8433159
cpp svdvar.cpp
#include "nr.h"
void NR::svdvar(Mat_I_DP &v, Vec_I_DP &w, Mat_O_DP &cvm)
{
int i,j,k;
DP sum;
int ma=w.size();
Vec_DP wti(ma);
for (i=0;i
www.eeworm.com/read/387489/8671548
txt svdvar.txt
Procedure SVDVAR(V:matrx2; MA, NP:integer; W:array of real;
var CVM:matrx2; NCVM:integer);
var
WTI:array[0..20] of real;
I,K,J:integer; SUM1:real;
beg
www.eeworm.com/read/372592/9500532
txt svdvar.txt
Sub SVDVAR(V(), MA, NP, W(), CVM(), NCVM)
Dim WTI(20)
For I = 1 To MA
WTI(I) = 0#
If W(I) 0# Then WTI(I) = 1# / (W(I) * W(I))
Next I
For I = 1 To MA
F
www.eeworm.com/read/278154/10563407
c svdvar.c
#define NRANSI
#include "nrutil.h"
void svdvar(float **v, int ma, float w[], float **cvm)
{
int k,j,i;
float sum,*wti;
wti=vector(1,ma);
for (i=1;i
www.eeworm.com/read/278154/10564443
c svdvar.c
#define NRANSI
#include "nrutil.h"
void svdvar(float **v, int ma, float w[], float **cvm)
{
int k,j,i;
float sum,*wti;
wti=vector(1,ma);
for (i=1;i
www.eeworm.com/read/451644/7459456
txt svdvar.txt
Procedure SVDVAR(V:matrx2; MA, NP:integer; W:array of real;
var CVM:matrx2; NCVM:integer);
var
WTI:array[0..20] of real;
I,K,J:integer; SUM1:real;
beg
www.eeworm.com/read/199432/7856315
txt svdvar.txt
Procedure SVDVAR(V:matrx2; MA, NP:integer; W:array of real;
var CVM:matrx2; NCVM:integer);
var
WTI:array[0..20] of real;
I,K,J:integer; SUM1:real;
beg