代码搜索：tiny
找到约 5,807 项符合「tiny」的源代码
代码结果 5,807
www.eeworm.com/read/140665/13069138
cpp bandec.cpp
#include
#include "nr.h"
using namespace std;
void NR::bandec(Mat_IO_DP &a, const int m1, const int m2, Mat_O_DP &al,
Vec_O_INT &indx, DP &d)
{
const DP TINY=1.0e-20;
int i,j,k,l,m
www.eeworm.com/read/312211/13615914
cpp bandec.cpp
#include
#include "nr.h"
using namespace std;
void NR::bandec(Mat_IO_DP &a, const int m1, const int m2, Mat_O_DP &al,
Vec_O_INT &indx, DP &d)
{
const DP TINY=1.0e-20;
int i,j,k,l,m
www.eeworm.com/read/320368/6294912
txt d10r12.txt
Private Sub Command1_Click()
'PROGRAM D10R12
'Driver for routine QROOT
N = 7
EPS = 0.000001
NTRY = 10
TINY = 0.00001
Dim P(7), B(10), C(10)
P(1) = 10#
P(2)
www.eeworm.com/read/487272/6517619
f90 e_231_02.f90
! 求解二次方程 a*x**2+b*x+c=0
print *, '输入3个系数'; read *, a,b,c
if(abs(a).le.tiny(a)) then
print *, 'a的值小于允许的最小实数，认为是零'
if(abs(b).le.tiny(b)) then
print *, 'b的值小于允许的最小实数，认为是零'
if(abs(c).le.tiny
www.eeworm.com/read/407616/11413454
f90 e_231_02.f90
! 求解二次方程 a*x**2+b*x+c=0
print *, '输入3个系数'; read *, a,b,c
if(abs(a).le.tiny(a)) then
print *, 'a的值小于允许的最小实数，认为是零'
if(abs(b).le.tiny(b)) then
print *, 'b的值小于允许的最小实数，认为是零'
if(abs(c).le.tiny
www.eeworm.com/read/407116/11429192
f90 e_231_02.f90
! 求解二次方程 a*x**2+b*x+c=0
print *, '输入3个系数'; read *, a,b,c
if(abs(a).le.tiny(a)) then
print *, 'a的值小于允许的最小实数，认为是零'
if(abs(b).le.tiny(b)) then
print *, 'b的值小于允许的最小实数，认为是零'
if(abs(c).le.tiny
www.eeworm.com/read/115704/15003465
txt d10r12.txt
Private Sub Command1_Click()
'PROGRAM D10R12
'Driver for routine QROOT
N = 7
EPS = 0.000001
NTRY = 10
TINY = 0.00001
Dim P(7), B(10), C(10)
P(1) = 10#
P(2)
www.eeworm.com/read/216367/15017437
txt d10r12.txt
Private Sub Command1_Click()
'PROGRAM D10R12
'Driver for routine QROOT
N = 7
EPS = 0.000001
NTRY = 10
TINY = 0.00001
Dim P(7), B(10), C(10)
P(1) = 10#
P(2)