代码搜索结果
找到约 10,000 项符合
9 的代码
d9r9.txt
Private Sub Command1_Click()
'PROGRAM D9R9
'Driver for roution FGAUSS
NPT = 3
NLIN = 2
NA = 3 * NLIN
Dim A(6), DYDA(6), DF(6)
A(1) = 3#: A(2) = 0.2: A(3) = 0.5: A(4)
d9r9.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5580
ClientLeft = 60
ClientTop = 345
ClientWidth = 7455
LinkTopic
d9r9.vbw
Form1 = 88, 88, 478, 455, Z, 66, 66, 456, 433,
d9r9.vbp
Type=Exe
Form=D9R9.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation
IconForm="Form1"
Startup="Form1"
ExeName32="d9r9.exe"
Command32=""
d9r9.txt
implementation
//PROGRAM D9R9
//Driver for routine DFPMIN
uses
unit2;
{$R *.DFM}
Function FUNC2(X:array of real; N:integer):real;
begin
FUNC2:=1 - BESSJ0(X[1]-0.5) * BESSJ0(X[2]-0.5) *
d9r9.dof
[Compiler]
A=1
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;
d9r9.dpr
program d9r9;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas';
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run
d9r9.cfg
-$A+
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J+
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;Dbi