
等级: 专业版
- 注册:
- 2021-10-19
- 曾用名:
|

楼主 |
发表于 2023-12-18 14:27
|
显示全部楼层
variable:kcj=0,kcj2=0,kcj3=0,kcj4=0,kcj5=0,kcj6=0,kcj7=0,kcj8=0,kcj9=0,kcj10=0;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,P1,1);
D:=SMA(K,P2,1);
J:=3*K-2*D,NODRAW;
DIFF :=EMA(CLOSE,S) - EMA(CLOSE,P);
DEA :=EMA(DIFF,M);
MACD1 :=2*(DIFF-DEA), COLORSTICK;
macdjc:cross(diff,dea),NODRAW;//macd金叉
macdsc:cross(dea,diff),NODRAW;
kdjjc:cross(k,d),NODRAW;//kdj金叉
kdjsc:cross(d,k),NODRAW;
短多:= kdjjc OR macdjc;
//开多单
if 短多 AND kcj=0 then
begin
多开:Tbuy(1 AND TBUYHOLDINGEX('','',2)=0,SS,MKT);
kcj:=HIGH;
end
//平多单
if H>= kcj+N*MINDIFF then
begin
平多:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS AND kcj>0,SS,LMT, kcj+N*MINDIFF);
kcj:=0;
end
SSD1:kcj2;
//开多单2
if 短多 AND kcj2=0 then
begin
多开2:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS AND H<kcj AND TENTERBARS>1,SS,MKT);
kcj2:=HIGH;
end
//平多单2
if H>= kcj2+N*MINDIFF then
begin
平多2:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*2 AND kcj2>0 ,SS,LMT, kcj2+N*MINDIFF);
kcj2:=0;
end
SSD:kcj2;
//开多单3
if 短多 AND kcj3=0 then
begin
多开3:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS*2 AND H<kcj2 AND TENTERBARS>1,SS,MKT);
kcj3:=HIGH;
end
//平多单3
if H>= kcj3+N*MINDIFF then
begin
平多3:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*3 AND kcj3>0,SS,LMT, kcj3+N*MINDIFF);
kcj3:=0;
end
//开多单4
if 短多 AND kcj4=0 then
begin
多开4:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS*3 AND H<kcj3 AND TENTERBARS>1,SS,MKT);
kcj4:=HIGH;
end
//平多单4
if H>= kcj4+N*MINDIFF then
begin
平多4:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*4 AND kcj4>0,SS,LMT, kcj4+N*MINDIFF);
kcj4:=0;
end
//开多单5
if 短多 AND kcj5=0 then
begin
多开5:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS*4 AND H<kcj4 AND TENTERBARS>1,SS,MKT);
kcj5:=HIGH;
end
//平多单5
if H>= kcj5+N*MINDIFF then
begin
平多5:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*5 AND kcj5>0 ,SS,LMT, kcj5+N*MINDIFF);
kcj5:=0;
end
//开多单6
if 短多 AND kcj6=0 then
begin
多开6:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS*5 AND H<kcj5 AND TENTERBARS>1,SS,MKT);
kcj6:=HIGH;
end
//平多单6
if H>= kcj6+N*MINDIFF then
begin
平多6:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*6 AND kcj6>0 ,SS,LMT, kcj6+N*MINDIFF);
kcj6:=0;
end
//开多单7
if 短多 AND kcj7=0 then
begin
多开7:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS*6 AND H<kcj6 AND TENTERBARS>1,SS,MKT);
kcj7:=HIGH;
end
//平多单7
if H>= kcj7+N*MINDIFF then
begin
平多7:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*7 AND kcj7>0,SS,LMT, kcj7+N*MINDIFF);
kcj7:=0;
end
//开多单8
if 短多 AND kcj8=0 then
begin
多开8:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS*7 AND H<kcj7 AND TENTERBARS>1,SS,MKT);
kcj8:=HIGH;
end
//平多单8
if H>= kcj8+N*MINDIFF then
begin
平多8:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*8 AND kcj8>0 ,SS,LMT, kcj8+N*MINDIFF);
kcj8:=0;
end
//开多单9
if 短多 AND kcj9=0 then
begin
多开9:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS*8 AND H<kcj8 AND TENTERBARS>1,SS,MKT);
kcj9:=HIGH;
end
//平多单9
if H>= kcj9+N*MINDIFF then
begin
平多9:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*9 AND kcj9>0 ,SS,LMT, kcj9+N*MINDIFF);
kcj9:=0;
end
//开多单10
if 短多 AND kcj10=0 then
begin
多开10:Tbuy(1 AND TBUYHOLDINGEX('','',2)=SS*9 AND H<kcj9 AND TENTERBARS>1,SS,MKT);
kcj10:=HIGH;
end
//平多单10
if H>= kcj10+N*MINDIFF then
begin
平多10:TSELL(1 AND TBUYHOLDINGEX('','',2)=SS*10 AND kcj10>0 ,SS,LMT, kcj10+N*MINDIFF);
kcj10:=0;
end |
|