共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：改模式问题
1楼
系统使用者 发表于：2016/10/24 16:22:30hld[n]:=0;
for i=n+1 to DATACOUNT do begin
IF FpC[i]>mhn[i-1] then hld[i]:=1;
else
IF FpC[i]<mln[i-1] then hld[i]:=-1;
else
hld[i]:=hld[i-1];
end;
转换为程序化交易，逐K模式。该如何改？
2楼
系统使用者 发表于：2016/10/24 16:28:42还有这个改：
fc:=c;fo:=o;cc:0*c,LINETHICK0;oo:0*c,LINETHICK0;t1:=0*c;t2:=0*c;
for i=1 to datacount do begin
if i=1 and fc[i]>fo[i] then
cc[i]:=fc[i];
oo[i]:=fc[i];
if i=1 and fc[i]<fo[i] then
cc[i]:=fc[i];
oo[i]:=fc[i];
if i>1 then
cc[i]:=cc[i-1];
oo[i]:=oo[i-1];
if i>1 and fc[i]>cc[i]*(1+n/100) then begin
cc[i]:=cc[i-1]*(1+n/100);
oo[i]:=cc[i-1];
end;
if i>1 and fc[i]<oo[i]/(1+n/100) then begin
oo[i]:=oo[i-1]/(1+n/100);
cc[i]:=oo[i-1];
end;
if oo[i]=oo[i-1] then
t1[i]:=t1[i-1]+1;
if cc[i]=cc[i-1] then
t2[i]:=t2[i-1]+1;
end;
o1:=ref(oo,t1+1);
c1:=ref(cc,t2+1);
3楼
jinzhe 发表于：2016/10/24 16:46:18请帖全部代码
4楼
系统使用者 发表于：2016/10/24 16:58:10第2个就是全部代码
5楼
jinzhe 发表于：2016/10/24 17:10:17
此主题相关图片如下：3.png
6楼
系统使用者 发表于：2016/10/25 0:42:1410或者5都可以
7楼
系统使用者 发表于：2016/10/25 0:51:38N:=2;
fc:=c;fo:=o;cc:0*c,LINETHICK0;oo:0*c,LINETHICK0;t1:=0*c;t2:=0*c;
for i=1 to datacount do begin
if i=1 and fc[i]>fo[i] then
cc[i]:=fc[i];
oo[i]:=fc[i];
if i=1 and fc[i]<fo[i] then
cc[i]:=fc[i];
oo[i]:=fc[i];
if i>1 then
cc[i]:=cc[i-1];
oo[i]:=oo[i-1];
if i>1 and fc[i]>cc[i]*(1+n/100) then begin
cc[i]:=cc[i-1]*(1+n/100);
oo[i]:=cc[i-1];
end;
if i>1 and fc[i]<oo[i]/(1+n/100) then begin
oo[i]:=oo[i-1]/(1+n/100);
cc[i]:=oo[i-1];
end;
if oo[i]=oo[i-1] then
t1[i]:=t1[i-1]+1;
if cc[i]=cc[i-1] then
t2[i]:=t2[i-1]+1;
end;
o1:=ref(oo,t1+1);
c1:=ref(cc,t2+1);
QDL:if(c1=oo,o1,c1);
8楼
jinzhe 发表于：2016/10/25 9:10:17这个改不了，太复杂了， 用户在序列模式下用
9楼
系统使用者 发表于：2016/10/25 12:00:21序列模式下不能使用
10楼
jinzhe 发表于：2016/10/25 13:22:59上述代码在序列模式下是可以的用，逐k线不行
共10 条记录, 每页显示 10 条, 页签:
[1]