/******************************************************************************* COPYRIGHT 2003 STMicroelectronics Source File N…
tiny+ 源代码
汇集 tiny+ 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
/******************************************************************************* COPYRIGHT 2003 STMicroelectronics Source File N…
Private Sub Command1_Click() 'PROGRAM D10R12 'Driver for routine QROOT N = 7 EPS = 0.000001 NTRY = 10 …
Sub SHELL(N, ARR()) ALN2I = 1.442695: TINY = 0.00001 LOGNB2 = Int(Log(CSng(N)) * ALN2I + TINY) M = N For NN = …
VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 Cli…
Sub QROOT(P(), N, B, C, EPS) ITMAX = 20 TINY = 0.000001 Dim Q(20), D(3), REM1(20), QQ(20) D(3) = 1# For I…
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: …
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: …