代码搜索：TRAPZD
找到约 292 项符合「TRAPZD」的源代码
代码结果 292
www.eeworm.com/read/414769/11102465
for trapzd.for
SUBROUTINE trapzd(func,a,b,s,n)
INTEGER n
REAL a,b,s,func
EXTERNAL func
INTEGER it,j
REAL del,sum,tnm,x
if (n.eq.1) then
s=0.5*(b-a)*(func(a)+f
www.eeworm.com/read/391726/8386116
txt trapzd.txt
implementation
procedure TRAPZD(A, B:real;var S:real; N:integer);
var
J,IT:integer;
TNM,DEL,X,SUM:real;
begin
If N = 1 Then
begin
S:=0.5 * (B - A) * (FUNC(A) + FUNC(B))
www.eeworm.com/read/192256/8392638
txt trapzd.txt
implementation
procedure TRAPZD(A, B:real;var S:real; N:integer);
var
J,IT:integer;
TNM,DEL,X,SUM:real;
begin
If N = 1 Then
begin
S:=0.5 * (B - A) * (FUNC(A) + FUNC(B))
www.eeworm.com/read/291235/8432974
cpp trapzd.cpp
#include "nr.h"
DP NR::trapzd(DP func(const DP), const DP a, const DP b, const int n)
{
DP x,tnm,sum,del;
static DP s;
int it,j;
if (n == 1) {
return (s=0.5*(b-a)*(func(a)+func(b)));
www.eeworm.com/read/431754/8655847
cpp trapzd.cpp
void trapzd(double a, double b, double& s, int n)
{
double del,x,sum;
int j,it, tnm;
if (n ==1)
{
s = 0.5 * (b - a) * (func(a) + func(b));
it = 1;
}
else
{
www.eeworm.com/read/387489/8671203
txt trapzd.txt
implementation
procedure TRAPZD(A, B:real;var S:real; N:integer);
var
J,IT:integer;
TNM,DEL,X,SUM:real;
begin
If N = 1 Then
begin
S:=0.5 * (B - A) * (FUNC(A) + FUNC(B))
www.eeworm.com/read/382441/9029137
txt trapzd.txt
implementation
procedure TRAPZD(A, B:real;var S:real; N:integer);
var
J,IT:integer;
TNM,DEL,X,SUM:real;
begin
If N = 1 Then
begin
S:=0.5 * (B - A) * (FUNC(A) + FUNC(B))
www.eeworm.com/read/373742/9441120
c trapzd.c
#define FUNC(x) ((*func)(x))
float trapzd(float (*func)(float), float a, float b, int n)
{
float x,tnm,sum,del;
static float s;
int it,j;
if (n == 1) {
return (s=0.5*(b-a)*(FUNC(a)+FU
www.eeworm.com/read/372592/9500553
txt trapzd.txt
Sub TRAPZD(A, B, S, N)
If N = 1 Then
S = 0.5 * (B - A) * (FUNC(A) + FUNC(B))
IT = 1
Else
IT = 2 ^ (N - 2)
TNM = IT
DEL = (B - A) / TNM
X
www.eeworm.com/read/278154/10563397
c trapzd.c
#define FUNC(x) ((*func)(x))
float trapzd(float (*func)(float), float a, float b, int n)
{
float x,tnm,sum,del;
static float s;
int it,j;
if (n == 1) {
return (s=0.5*(b-a)*(FUNC(a)+FU