共14 条记录, 每页显示 10 条, 页签: [1] [2]

标题：[原创]动态参数模板

1楼

z7c9 发表于：2010/10/18 10:30:51

p1:=strleft(stklabel,1);
p2:=strleft(stklabel,2);

//大连交易所
if strcmp(p1,'A')=0 then
n:=1;
if strcmp(p1,'B')=0 then
n:=2;
if strcmp(p1,'M')=0 then
n:=3;
if strcmp(p1,'C')=0 then
n:=4;
if strcmp(p1,'Y')=0 then
n:=5;
if strcmp(p1,'L')=0 then
n:=6;
if strcmp(p1,'V')=0 then
n:=7;
if strcmp(p1,'P')=0 then
n:=8;

//上海交易所
if strcmp(p2,'CU')=0 then
n:=9;
if strcmp(p2,'ZN')=0 then
n:=10;
if strcmp(p2,'AL')=0 then
n:=11;
if strcmp(p2,'RU')=0 then
n:=12;
if strcmp(p2,'FU')=0 then
n:=13;
if strcmp(p2,'AU')=0 then
n:=14;
if strcmp(p2,'WR')=0 then
n:=15;
if strcmp(p2,'RB')=0 then
n:=16;

//郑州交易所
if strcmp(p2,'CF')=0 then
n:=17;
if strcmp(p2,'RO')=0 then
n:=18;
if strcmp(p2,'SR')=0 then
n:=19;
if strcmp(p2,'TA')=0 then
n:=20;
if strcmp(p2,'ER')=0 then
n:=21;
if strcmp(p2,'WS')=0 then
n:=22;
if strcmp(p2,'WT')=0 then
n:=23;

//金融交易所
if strcmp(p2,'IF')=0 then
n:=24;

[此贴子已经被作者于2010-10-18 10:31:40编辑过]

2楼

董小球 发表于：2010/10/18 13:36:47

写个模板详细的解释嘛

3楼

z7c9 发表于：2010/10/18 13:38:40

以下是引用董小球在2010-10-18 13:36:47的发言：
写个模板详细的解释嘛

就是根据交易品种选择适合的交易参数。

4楼

z7c9 发表于：2010/10/18 16:38:27

if strcmp(marketlabel,'SQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'CU')=0 then n:=2;
if strcmp(p,'ZN')=0 then n:=5;
if strcmp(p,'AL')=0 then n:=7;
if strcmp(p,'RU')=0 then n:=8;
if strcmp(p,'FU')=0 then n:=10;
if strcmp(p,'AU')=0 then n:=5;
if strcmp(p,'WR')=0 then n:=10;
if strcmp(p,'RB')=0 then n:=10;
end;

if strcmp(marketlabel,'DQ')=0 then begin
p:=strleft(stklabel,1);

if strcmp(p,'A')=0 then n:=12;
if strcmp(p,'B')=0 then n:=1;
if strcmp(p,'M')=0 then n:=14;
if strcmp(p,'C')=0 then n:=49;
if strcmp(p,'Y')=0 then n:=5;
if strcmp(p,'L')=0 then n:=10;
if strcmp(p,'V')=0 then n:=50;
if strcmp(p,'P')=0 then n:=3;
end;

if strcmp(marketlabel,'ZQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'CF')=0 then n:=12;
if strcmp(p,'RO')=0 then n:=7;
if strcmp(p,'SR')=0 then n:=13;
if strcmp(p,'TA')=0 then n:=26;
if strcmp(p,'ER')=0 then n:=50;
if strcmp(p,'WS')=0 then n:=50;
if strcmp(p,'WT')=0 then n:=27;
end;

5楼

z7c9 发表于：2010/10/25 8:54:38

if strcmp(marketlabel,'SQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'ZN')=0 then begin
n:=62;
s:=40;
w:=80;
r:=1;
end;

if strcmp(p,'RU')=0 then begin
n:=65;
s:=55;
w:=70;
r:=1;
end;

if strcmp(p,'CU')=0 then begin
n:=75;
s:=30;
w:=60;
r:=1;
end;

if strcmp(p,'RB')=0 then begin
n:=64;
s:=40;
w:=55;
r:=1;
end;

if strcmp(p,'AL')=0 then begin
n:=80;
s:=20;
w:=100;
r:=1;
end;

if strcmp(p,'AU')=0 then begin
n:=68;
s:=65;
w:=70;
r:=1;
end;

if strcmp(p,'WR')=0 then begin
n:=72;
s:=90;
w:=100;
r:=1;
end;

if strcmp(p,'FU')=0 then begin
n:=70;
s:=25;
w:=30;
r:=1;
end;
end;

if strcmp(marketlabel,'ZQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'SR')=0 then begin
n:=76;
s:=70;
w:=100;
r:=1;
end;

if strcmp(p,'TA')=0 then begin
n:=60;
s:=100;
w:=100;
r:=1;
end;

if strcmp(p,'CF')=0 then begin
n:=68;
s:=35;
w:=80;
r:=1;
end;
end;

if strcmp(marketlabel,'DQ')=0 then begin
p:=strleft(stklabel,1);

if strcmp(p,'Y')=0 then begin
n:=70;
s:=20;
w:=75;
r:=1;
end;

if strcmp(p,'L')=0 then begin
n:=66;
s:=30;
w:=50;
r:=1;
end;
end;

6楼

z7c9 发表于：2010/10/25 16:31:57

if strcmp(marketlabel,'SQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'ZN')=0 then begin
n:=62;
s:=40;
w:=80;
r:=1;
goto s@;
end;

if strcmp(p,'RU')=0 then begin
n:=65;
s:=55;
w:=70;
r:=1;
goto s@;
end;

if strcmp(p,'CU')=0 then begin
n:=75;
s:=30;
w:=60;
r:=1;
goto s@;
end;

if strcmp(p,'RB')=0 then begin
n:=64;
s:=40;
w:=55;
r:=1;
goto s@;
end;

if strcmp(p,'AL')=0 then begin
n:=80;
s:=20;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'AU')=0 then begin
n:=68;
s:=65;
w:=70;
r:=1;
goto s@;
end;

if strcmp(p,'FU')=0 then begin
n:=70;
s:=25;
w:=30;
r:=1;
goto s@;
end;

if strcmp(p,'WR')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'ZQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'SR')=0 then begin
n:=76;
s:=70;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'TA')=0 then begin
n:=60;
s:=100;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'CF')=0 then begin
n:=68;
s:=35;
w:=80;
r:=1;
goto s@;
end;

if strcmp(p,'RO')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'ER')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'WS')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'WT')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'DQ')=0 then begin
p:=strleft(stklabel,1);

if strcmp(p,'Y')=0 then begin
n:=70;
s:=20;
w:=75;
r:=1;
goto s@;
end;

if strcmp(p,'L')=0 then begin
n:=66;
s:=30;
w:=50;
r:=1;
goto s@;
end;

if strcmp(p,'A')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'B')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'M')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'C')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'V')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;

if strcmp(p,'P')=0 then begin
n:=70;
s:=50;
w:=100;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'ZJ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'IF')=0 then begin
n:=70;
s:=100;
w:=100;
r:=1;
goto s@;
end;
end;

s@;

7楼

z7c9 发表于：2010/10/25 21:27:49

if strcmp(marketlabel,'SQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'ZN')=0 then begin
n:=65;
m:=30;
r:=4;
goto s@;
end;

if strcmp(p,'RU')=0 then begin
n:=55;
m:=50;
r:=2;
goto s@;
end;

if strcmp(p,'CU')=0 then begin
n:=70;
m:=15;
r:=2;
goto s@;
end;

if strcmp(p,'RB')=0 then begin
n:=65;
m:=20;
r:=2;
goto s@;
end;

if strcmp(p,'AU')=0 then begin
n:=50;
m:=35;
r:=2;
goto s@;
end;

if strcmp(p,'AL')=0 then begin
n:=50;
m:=45;
r:=1;
goto s@;
end;

if strcmp(p,'FU')=0 then begin
n:=70;
m:=20;
r:=1;
goto s@;
end;

if strcmp(p,'WR')=0 then begin
n:=70;
m:=10;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'ZQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'SR')=0 then begin
n:=70;
m:=40;
r:=2;
goto s@;
end;

if strcmp(p,'TA')=0 then begin
n:=100;
m:=20;
r:=1;
goto s@;
end;

if strcmp(p,'CF')=0 then begin
n:=75;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'RO')=0 then begin
n:=90;
m:=30;
r:=1;
goto s@;
end;

if strcmp(p,'ER')=0 then begin
n:=100;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'WS')=0 then begin
n:=100;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'WT')=0 then begin
n:=80;
m:=25;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'DQ')=0 then begin
p:=strleft(stklabel,1);

if strcmp(p,'Y')=0 then begin
n:=50;
m:=20;
r:=1;
goto s@;
end;

if strcmp(p,'L')=0 then begin
n:=65;
m:=40;
r:=1;
goto s@;
end;

if strcmp(p,'A')=0 then begin
n:=100;
m:=45;
r:=1;
goto s@;
end;

if strcmp(p,'B')=0 then begin
n:=100;
m:=20;
r:=1;
goto s@;
end;

if strcmp(p,'M')=0 then begin
n:=85;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'C')=0 then begin
n:=95;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'V')=0 then begin
n:=60;
m:=40;
r:=1;
goto s@;
end;

if strcmp(p,'P')=0 then begin
n:=50;
m:=10;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'ZJ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'IF')=0 then begin
n:=70;
m:=5;
r:=1;
goto s@;
end;
end;

s@;

8楼

z7c9 发表于：2010/10/27 14:50:22

if strcmp(marketlabel,'SQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'ZN')=0 then begin
n:=320;
m:=280;
r:=1;
goto s@;
end;

if strcmp(p,'RU')=0 then begin
n:=300;
m:=250;
r:=1;
goto s@;
end;

if strcmp(p,'CU')=0 then begin
n:=300;
m:=250;
r:=1;
goto s@;
end;

if strcmp(p,'RB')=0 then begin
n:=200;
m:=80;
r:=1;
goto s@;
end;

if strcmp(p,'AU')=0 then begin
n:=190;
m:=90;
r:=1;
goto s@;
end;

if strcmp(p,'AL')=0 then begin
n:=360;
m:=40;
r:=1;
goto s@;
end;

if strcmp(p,'FU')=0 then begin
n:=300;
m:=280;
r:=1;
goto s@;
end;

if strcmp(p,'WR')=0 then begin
n:=30;
m:=250;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'ZQ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'SR')=0 then begin
n:=400;
m:=100;
r:=1;
goto s@;
end;

if strcmp(p,'TA')=0 then begin
n:=230;
m:=220;
r:=1;
goto s@;
end;

if strcmp(p,'CF')=0 then begin
n:=370;
m:=300;
r:=1;
goto s@;
end;

if strcmp(p,'RO')=0 then begin
n:=440;
m:=310;
r:=1;
goto s@;
end;

if strcmp(p,'ER')=0 then begin
n:=100;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'WS')=0 then begin
n:=100;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'WT')=0 then begin
n:=80;
m:=25;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'DQ')=0 then begin
p:=strleft(stklabel,1);

if strcmp(p,'Y')=0 then begin
n:=350;
m:=130;
r:=1;
goto s@;
end;

if strcmp(p,'L')=0 then begin
n:=360;
m:=190;
r:=1;
goto s@;
end;

if strcmp(p,'A')=0 then begin
n:=100;
m:=45;
r:=1;
goto s@;
end;

if strcmp(p,'B')=0 then begin
n:=100;
m:=20;
r:=1;
goto s@;
end;

if strcmp(p,'M')=0 then begin
n:=85;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'C')=0 then begin
n:=95;
m:=50;
r:=1;
goto s@;
end;

if strcmp(p,'V')=0 then begin
n:=60;
m:=40;
r:=1;
goto s@;
end;

if strcmp(p,'P')=0 then begin
n:=50;
m:=10;
r:=1;
goto s@;
end;
end;

if strcmp(marketlabel,'ZJ')=0 then begin
p:=strleft(stklabel,2);

if strcmp(p,'IF')=0 then begin
n:=70;
m:=5;
r:=1;
goto s@;
end;
end;

s@;

9楼

z7c9 发表于：2010/11/2 12:45:36

以下内容为程序代码:

1 if strcmp(marketlabel,'SQ')=0 then begin
2     x:=strleft(stklabel,2);
3
4     if strcmp(x,'ZN')=0 then begin
5         p:=30;
6         n:=30;
7         f:=2;
8         goto s@;
9     end;
10
11     if strcmp(x,'RU')=0 then begin
12         p:=50;
13         n:=50;
14         f:=3;
15         goto s@;
16     end;
17
18     if strcmp(x,'CU')=0 then begin
19         p:=80;
20         n:=30;
21         f:=1;
22         goto s@;
23     end;
24
25     if strcmp(x,'RB')=0 then begin
26         p:=45;
27         n:=15;
28         f:=2;
29         goto s@;
30     end;
31
32     if strcmp(x,'AU')=0 then begin
33         p:=35;
34         n:=35;
35         f:=3;
36         goto s@;
37     end;
38
39     if strcmp(x,'AL')=0 then begin
40         p:=85;
41         n:=20;
42         f:=3;
43         goto s@;
44     end;
45
46     if strcmp(x,'FU')=0 then begin
47         p:=45;
48         n:=45;
49         f:=3;
50         goto s@;
51     end;
52
53     if strcmp(x,'WR')=0 then begin
54         p:=60;
55         n:=30;
56         f:=2;
57         goto s@;
58     end;
59 end;
60
61 if strcmp(marketlabel,'ZQ')=0 then begin
62     x:=strleft(stklabel,2);
63
64     if strcmp(x,'SR')=0 then begin
65         p:=60;
66         n:=15;
67         f:=3;
68         goto s@;
69     end;
70
71     if strcmp(x,'TA')=0 then begin
72         p:=75;
73         n:=20;
74         f:=2;
75         goto s@;
76     end;
77
78     if strcmp(x,'CF')=0 then begin
79         p:=65;
80         n:=15;
81         f:=2;
82         goto s@;
83     end;
84
85     if strcmp(x,'RO')=0 then begin
86         p:=45;
87         n:=20;
88         f:=2;
89         goto s@;
90     end;
91
92     if strcmp(x,'ER')=0 then begin
93         p:=90;
94         n:=25;
95         f:=3;
96         goto s@;
97     end;
98
99     if strcmp(x,'WS')=0 then begin
100         p:=60;
101         n:=30;
102         f:=2;
103         goto s@;
104     end;
105
106     if strcmp(x,'WT')=0 then begin
107         p:=60;
108         n:=30;
109         f:=2;
110         goto s@;
111     end;
112 end;
113
114 if strcmp(marketlabel,'DQ')=0 then begin
115     x:=strleft(stklabel,1);
116
117     if strcmp(x,'Y')=0 then begin
118         p:=40;
119         n:=40;
120         f:=3;
121         goto s@;
122     end;
123
124     if strcmp(x,'L')=0 then begin
125         p:=70;
126         n:=25;
127         f:=3;
128         goto s@;
129     end;
130
131     if strcmp(x,'A')=0 then begin
132         p:=30;
133         n:=20;
134         f:=2;
135         goto s@;
136     end;
137
138     if strcmp(x,'B')=0 then begin
139         p:=60;
140         n:=30;
141         f:=2;
142         goto s@;
143     end;
144
145     if strcmp(x,'M')=0 then begin
146         p:=90;
147         n:=25;
148         f:=3;
149         goto s@;
150     end;
151
152     if strcmp(x,'C')=0 then begin
153         p:=60;
154         n:=30;
155         f:=2;
156         goto s@;
157     end;
158
159     if strcmp(x,'V')=0 then begin
160         p:=60;
161         n:=30;
162         f:=2;
163         goto s@;
164     end;
165
166     if strcmp(x,'P')=0 then begin
167         p:=40;
168         n:=40;
169         f:=1;
170         goto s@;
171     end;
172 end;
173
174 if strcmp(marketlabel,'ZJ')=0 then begin
175     x:=strleft(stklabel,2);
176
177     if strcmp(x,'IF')=0 then begin
178         p:=60;
179         n:=30;
180         f:=2;
181         goto s@;
182     end;
183 end;
184
185 s@;

10楼

z7c9 发表于：2010/11/8 16:45:00

if strcmp(marketlabel,'SQ')=0 then begin
x:=strleft(stklabel,2);

if strcmp(x,'RU')=0 then begin
p:=60;
n:=60;
s1:=6;
s2:=3;
s3:=16;
t:=2;
goto s@;
end;

if strcmp(x,'ZN')=0 then begin
p:=80;
n:=60;
s1:=2;
s2:=1;
s3:=10;
t:=2;
goto s@;
end;

if strcmp(x,'CU')=0 then begin
p:=60;
n:=60;
s1:=6;
s2:=3;
s3:=10;
t:=0.5;
goto s@;
end;

if strcmp(x,'RB')=0 then begin
p:=65;
n:=60;
s1:=2;
s2:=1;
s3:=10;
t:=0.5;
goto s@;
end;

if strcmp(x,'AU')=0 then begin
p:=75;
n:=60;
s1:=4;
s2:=5;
s3:=14;
t:=0.5;
goto s@;
end;

if strcmp(x,'FU')=0 then begin
p:=75;
n:=60;
s1:=2;
s2:=1;
s3:=20;
t:=0.5;
goto s@;
end;

if strcmp(x,'AL')=0 then begin
p:=60;
n:=60;
s1:=10;
s2:=1;
s3:=20;
t:=0;
goto s@;
end;

if strcmp(x,'WR')=0 then begin
p:=60;
n:=60;
s1:=10;
s2:=1;
s3:=20;
t:=0;
goto s@;
end;
end;

if strcmp(marketlabel,'ZQ')=0 then begin
x:=strleft(stklabel,2);

if strcmp(x,'SR')=0 then begin
p:=40;
n:=60;
s1:=2;
s2:=2;
s3:=16;
t:=2;
goto s@;
end;

if strcmp(x,'CF')=0 then begin
p:=60;
n:=60;
s1:=8;
s2:=1;
s3:=16;
t:=2;
goto s@;
end;

if strcmp(x,'TA')=0 then begin
p:=55;
n:=60;
s1:=2;
s2:=1;
s3:=10;
t:=0.5;
goto s@;
end;

if strcmp(x,'RO')=0 then begin
p:=55;
n:=60;
s1:=8;
s2:=1;
s3:=14;
t:=0.5;
goto s@;
end;

if strcmp(x,'ER')=0 then begin
p:=55;
n:=70;
s1:=6;
s2:=3;
s3:=16;
t:=0;
goto s@;
end;

if strcmp(x,'WS')=0 then begin
p:=55;
n:=70;
s1:=6;
s2:=3;
s3:=16;
t:=0;
goto s@;
end;

if strcmp(x,'WT')=0 then begin
p:=55;
n:=70;
s1:=6;
s2:=3;
s3:=16;
t:=0;
goto s@;
end;
end;

if strcmp(marketlabel,'DQ')=0 then begin
x:=strleft(stklabel,1);

if strcmp(x,'P')=0 then begin
p:=75;
n:=60;
s1:=2;
s2:=1;
s3:=12;
t:=0.5;
goto s@;
end;

if strcmp(x,'M')=0 then begin
p:=85;
n:=60;
s1:=4;
s2:=1;
s3:=10;
t:=0.5;
goto s@;
end;

if strcmp(x,'Y')=0 then begin
p:=45;
n:=60;
s1:=8;
s2:=1;
s3:=12;
t:=0.5;
goto s@;
end;

if strcmp(x,'L')=0 then begin
p:=70;
n:=60;
s1:=8;
s2:=1;
s3:=14;
t:=0;
goto s@;
end;

if strcmp(x,'A')=0 then begin
p:=55;
n:=60;
s1:=8;
s2:=1;
s3:=18;
t:=0;
goto s@;
end;

if strcmp(x,'B')=0 then begin
p:=55;
n:=70;
s1:=6;
s2:=3;
s3:=16;
t:=0;
goto s@;
end;

if strcmp(x,'C')=0 then begin
p:=55;
n:=70;
s1:=6;
s2:=3;
s3:=16;
t:=0;
goto s@;
end;

if strcmp(x,'V')=0 then begin
p:=55;
n:=70;
s1:=6;
s2:=3;
s3:=16;
t:=0;
goto s@;
end;
end;

if strcmp(marketlabel,'ZJ')=0 then begin
x:=strleft(stklabel,2);

if strcmp(x,'IF')=0 then begin
p:=55;
n:=70;
s1:=6;
s2:=3;
s3:=16;
t:=0;
goto s@;
end;
end;

s@;

共14 条记录, 每页显示 10 条, 页签: [1] [2]