源码文件
SUBROUTINE shell(n,arr) INTEGER m,k,l,j REAL arr !parameter (aln2i=1./0.69314718,tiny=1.e-5) PARAMETER (aln2i=1.4427,tiny=1.e-…
tiny+ 源代码
汇集 tiny+ 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 500 份
全站深度检索
共匹配 500 份工程资源
· 第 18 / 50 页
源码文件
SUBROUTINE ratint(xa,ya,n,x,y,dy) INTEGER n,NMAX REAL dy,x,y,xa(n),ya(n),TINY PARAMETER (NMAX=10,TINY=1.e-25) INTEGER i,m,ns …
源码文件
SUBROUTINE qroot(p,n,b,c,eps) INTEGER n,NMAX,ITMAX REAL b,c,eps,p(n),TINY PARAMETER (NMAX=20,ITMAX=20,TINY=1.0e-6) !USES poldi…
源码文件
SUBROUTINE shell(n,arr) INTEGER m,k,l,j REAL arr !parameter (aln2i=1./0.69314718,tiny=1.e-5) PARAMETER (aln2i=1.4427,tiny=1.e-…
源码文件
SUBROUTINE ratint(xa,ya,n,x,y,dy) INTEGER n,NMAX REAL dy,x,y,xa(n),ya(n),TINY PARAMETER (NMAX=10,TINY=1.e-25) INTEGER i,m,ns …
源码文件
/******************************************************************************/ /* …
源码文件
SUBROUTINE qroot(p,n,b,c,eps) INTEGER n,NMAX,ITMAX REAL b,c,eps,p(n),TINY PARAMETER (NMAX=20,ITMAX=20,TINY=1.0e-6) !USES poldi…
源码文件
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*- * * ***** BEGIN LICENSE BLOCK ***** * Version: MPL 1…
源码文件
Procedure QROOT(P:array of real; N:integer; var B, C:real; EPS:real); const ITMAX = 20; TINY = 0.000001; var Q,REM1,Q…
源码文件
implementation //PROGRAM D8R12 //Driver for routine QROOTS uses unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: …