代码搜索：sparse
找到约 3,324 项符合「sparse」的源代码
代码结果 3,324
www.eeworm.com/read/124221/14587813
txt sparse.txt
procedure SPARSE(B:array of real; N:integer;var X:array of real; RSQ:real);
label 1;
const
NMAX = 500; EPS = 0.000001;
var
G,H,XI,XJ:array[0..500] of real;
J,ITER,IRST:integer;
www.eeworm.com/read/122037/14724128
txt sparse.txt
procedure SPARSE(B:array of real; N:integer;var X:array of real; RSQ:real);
label 1;
const
NMAX = 500; EPS = 0.000001;
var
G,H,XI,XJ:array[0..500] of real;
J,ITER,IRST:integer;
www.eeworm.com/read/221179/14755444
cpp sparse.cpp
void sparse(double b[], int n, double x[], double rsq)
{
const int nmax = 500;
double eps2,eps = 0.000001;
double g[500], h[500], xi[500], xj[500];
int j;
eps2 = n * pow(eps, 2)
www.eeworm.com/read/220554/14796672
h sparse.h
/*
* This file is part of tomo3d
*
* Copyright (C) 2002, 2003, Sebastien Judenherc
*
* This program is free software; you can redistribute it and/or modify
* it
www.eeworm.com/read/220554/14796682
c sparse.c
/*
* This file is part of tomo3d
*
* Copyright (C) 2002, 2003, Sebastien Judenherc
*
* This program is free software; you can redistribute it and/or modify
* it
www.eeworm.com/read/220447/14800247
txt sparse.txt
procedure SPARSE(B:array of real; N:integer;var X:array of real; RSQ:real);
label 1;
const
NMAX = 500; EPS = 0.000001;
var
G,H,XI,XJ:array[0..500] of real;
J,ITER,IRST:integer;
www.eeworm.com/read/217040/14981356
pas sparse.pas
PROCEDURE sparse(b: glnarray; n: integer; VAR x: glnarray; VAR rsq: real);
(* Programs using routine SPARSE must define the type
TYPE
glnarray = ARRAY [1..n] OF real;
in the main routine. They
www.eeworm.com/read/217040/14982074
dem sparse.dem
PROGRAM d2r10(input,output);
(* driver for routine SPARSE *)
CONST
n=20;
TYPE
glnarray = ARRAY [1..n] OF real;
VAR
i,ii : integer;
rsq : real;
b,bcmp,x : glnarray;
PROCEDURE
www.eeworm.com/read/115703/15004000
txt sparse.txt
Sub SPARSE(B(), N, X(), RSQ)
NMAX = 500
EPS = 0.000001
Dim G(500), H(500), XI(500), XJ(500)
EPS2 = N * EPS ^ 2
IRST = 0
1 IRST = IRST + 1
Call ASUB(X(), XI())
RP
www.eeworm.com/read/216367/15017944
txt sparse.txt
Sub SPARSE(B(), N, X(), RSQ)
NMAX = 500
EPS = 0.000001
Dim G(500), H(500), XI(500), XJ(500)
EPS2 = N * EPS ^ 2
IRST = 0
1 IRST = IRST + 1
Call ASUB(X(), XI())
RP