double bessj(int n, double x) { int iacc,j,m; double temp,bigno,bigni,ax,tox,bj,bjp,bjm,besj,jsum,sum; iacc = 40; b…
BJ 源代码
BJ技术,作为电子工程领域中的重要组成部分,以其独特的性能优势广泛应用于信号处理、控制系统及自动化设备中。掌握BJ技术不仅能够帮助工程师们设计出更加高效稳定的电路系统,还能在解决复杂电磁兼容问题上发挥关键作用。本页面汇集了25个精选BJ相关资源,从基础理论到高级应用案例一应俱全,…
FUNCTION bessj(n: integer; x: real): real; CONST iacc=40; bigno=1.0e10; bigni=1.0e-10; VAR bj,bjm,bjp,sum,tox,an…
void MergeList(List La, List Lb, List &Lc) { // 算法2.2 // 已知线性表La和Lb中的元素按值非递减排列。 // 归并La和Lb得到新的线性表Lc,Lc的元素也按值非递减排列。 int L…
void MergeList(List La, List Lb, List &Lc) { // 算法2.2 // 已知线性表La和Lb中的元素按值非递减排列。 // 归并La和Lb得到新的线性表Lc,Lc的元素也按值非递减排列。 int L…
VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 5580 ClientLeft = 60 Cli…
Function BESSJ(N, X) IACC = 40 BIGNO = 10000000000# BIGNI = 0.0000000001 If N < 2 Then Form1.Print "b…
Function BESSJ(N, X) IACC = 40 BIGNO = 10000000000# BIGNI = 0.0000000001 If N < 2 Then Form1.Print "b…
#include #define ACC 40.0 #define BIGNO 1.0e10 #define BIGNI 1.0e-10 float bessj(n,x) int n; float x; { int j,jsum,m…
#include #define ACC 40.0 #define BIGNO 1.0e10 #define BIGNI 1.0e-10 float bessj(n,x) int n; float x; { int j,jsum,m…
#include #include #include "nr.h" using namespace std; DP NR::bessj(const int n, const DP x) { const DP ACC=160.0; co…