代码搜索：rtflsp
找到约 136 项符合「rtflsp」的源代码
代码结果 136
www.eeworm.com/read/414769/11102482
for rtflsp.for
FUNCTION rtflsp(func,x1,x2,xacc)
INTEGER MAXIT
REAL rtflsp,x1,x2,xacc,func
EXTERNAL func
PARAMETER (MAXIT=30)
INTEGER j
REAL del,dx,f,fh,fl,swap,xh,xl
www.eeworm.com/read/391726/8384878
txt rtflsp.txt
Function RTFLSP(X1, X2, XACC:real):real;
Label 99;
var
XL,XH,SWAP,FL,FH,RTF,DX,F,DEL:real; J,MAXIT:integer;
begin
MAXIT:=30;
FL:=FUN(X1);
FH:=FUN(X2);
If FL * FH > 0 Then
www.eeworm.com/read/192256/8391737
txt rtflsp.txt
Function RTFLSP(X1, X2, XACC:real):real;
Label 99;
var
XL,XH,SWAP,FL,FH,RTF,DX,F,DEL:real; J,MAXIT:integer;
begin
MAXIT:=30;
FL:=FUN(X1);
FH:=FUN(X2);
If FL * FH > 0 Then
www.eeworm.com/read/291235/8433208
cpp rtflsp.cpp
#include
#include "nr.h"
using namespace std;
DP NR::rtflsp(DP func(const DP), const DP x1, const DP x2, const DP xacc)
{
const int MAXIT=30;
int j;
DP fl,fh,xl,xh,dx,del,f,rtf;
www.eeworm.com/read/387489/8669745
txt rtflsp.txt
Function RTFLSP(X1, X2, XACC:real):real;
Label 99;
var
XL,XH,SWAP,FL,FH,RTF,DX,F,DEL:real; J,MAXIT:integer;
begin
MAXIT:=30;
FL:=FUN(X1);
FH:=FUN(X2);
If FL * FH > 0 Then
www.eeworm.com/read/372592/9501960
txt rtflsp.txt
Function RTFLSP(X1, X2, XACC)
MAXIT = 30
FL = FUNC(X1)
FH = FUNC(X2)
If FL * FH > 0 Then
Print "Root must be bracketed for false position"
End If
If FL < 0 Then
www.eeworm.com/read/278154/10562512
c rtflsp.c
#include
#define MAXIT 30
float rtflsp(float (*func)(float), float x1, float x2, float xacc)
{
void nrerror(char error_text[]);
int j;
float fl,fh,xl,xh,swap,dx,del,f,rtf;
fl=(
www.eeworm.com/read/278154/10563594
c rtflsp.c
#include
#define MAXIT 30
float rtflsp(float (*func)(float), float x1, float x2, float xacc)
{
void nrerror(char error_text[]);
int j;
float fl,fh,xl,xh,swap,dx,del,f,rtf;
fl=(
www.eeworm.com/read/451644/7458814
txt rtflsp.txt
Function RTFLSP(X1, X2, XACC:real):real;
Label 99;
var
XL,XH,SWAP,FL,FH,RTF,DX,F,DEL:real; J,MAXIT:integer;
begin
MAXIT:=30;
FL:=FUN(X1);
FH:=FUN(X2);
If FL * FH > 0 Then
www.eeworm.com/read/199432/7854236
txt rtflsp.txt
Function RTFLSP(X1, X2, XACC:real):real;
Label 99;
var
XL,XH,SWAP,FL,FH,RTF,DX,F,DEL:real; J,MAXIT:integer;
begin
MAXIT:=30;
FL:=FUN(X1);
FH:=FUN(X2);
If FL * FH > 0 Then