老師看能幫完善一下，改成程序化交易嗎？、增加平空反手開多和反手開空？？　[金字塔]

咨詢內容：
開始:OPEN;VAR2:=EMA(CLOSE,120);
VAR3:=(CLOSE-VAR2)*2/(120+1)+VAR2;
生命線:=VAR3,LINETHICK2,COLORRED;
XCLOSE2:=EMA((OPEN+HIGH+LOW+CLOSE)/4,3);
//PARTLINE1((生命線>=XCLOSE2),生命線),LINETHICK2,COLORGREEN;
//PARTLINE1((生命線<XCLOSE2),生命線),LINETHICK2,COLORRED;
MA3:=MA(C,170);
HH1:=IFELSE(H<REF(H,1)&&REF(H,1)<REF(H,2),REF(H,2),0);
LL1:=IFELSE(L>REF(L,1)&&REF(L,1)>REF(L,2),REF(L,2),0);
HH2:=VALUEWHEN(HH1>0,HH1);
LL2:=VALUEWHEN(LL1>0,LL1);
HH:=HHV(HIGH,1)/10+HHV(HIGH,2)/10+HHV(HIGH,2)/10+HHV(HIGH,4)/10+HHV(HIGH,4)/10+HHV(HIGH,8)/10+HHV(HIGH,8)/10+HHV(HIGH,13)/10+HHV(HIGH,40)/10+HHV(HIGH,20)/10;
LL:=LLV(LOW,1)/10+LLV(LOW,2)/10+LLV(LOW,2)/10+LLV(LOW,4)/10+LLV(LOW,4)/10+LLV(LOW,8)/10+LLV(LOW,8)/10+LLV(LOW,13)/10+LLV(LOW,40)/10+LLV(LOW,20)/10;
H1:=IFELSE(HH<REF(HH,1)&&LL<REF(LL,1)&&REF(OPEN,1)>CLOSE&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HH,2),0);
L1:=IFELSE(LL>REF(LL,1)&&HH>REF(HH,1)&&REF(OPEN,1)<CLOSE&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LL,2),0);
X:=DATE;
X0:=H1,LINETHICK2;
X00:=L1;
XXX0:=O,LINETHICK2;
XXX00:=C;
XXX000:=H;
XXX0000:=L;
H2:=VALUEWHEN(X0>0,X0),LINETHICK2;
L2:=VALUEWHEN(X00>0,X00),LINETHICK2;
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(L>0,G1,G1,0,COLORCYAN);

X000:=K2,LINETHICK2;
TMP:=K2,LINETHICK2;
W1:=X000,LINETHICK2;
X0000:=OPEN-CLOSE,LINETHICK2;
W2:=X0000,LINETHICK2;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE),LINETHICK2;
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE),LINETHICK2;
DRAWLINE(W1=1,XXX000,W1=1,HT,COLORCYAN);//青色上影線
DRAWLINE(W1=1,XXX0000,W1=1,LT,COLORCYAN);//青色下影線
DRAWLINE(W1=-3,XXX000,W1=-3,HT,COLORRED);//紅色上影線
DRAWLINE(W1=-3,XXX0000,W1=-3,LT,COLORRED);//紅色下影線
STICKLINE(W1>0,XXX0,XXX00,COLORCYAN,1);//青色空心K線
STICKLINE(W1<=0,XXX0,XXX00,COLORRED,1);//紅色空心K線
STICKLINE(W2>0&&W1<=0,XXX0,XXX00,COLORRED,0);//紅色實心K線
STICKLINE(W2>0&&W1>0,XXX0,XXX00,COLORCYAN,0);//青色實心K線
DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF(G,1),COLORCYAN),DOT;//青色折豎線
DRAWLINE(TMP=-3&&REF(TMP,1)=-3,G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),COLORRED),DOT;//紅色折豎線
DRAWSL(K2=1,G,0,1,0,COLORCYAN),DOT;//青色折橫線
DRAWSL(K2=-3,G,0,1,0,COLORRED),DOT;//紅色折橫線
DRAWTEXT(CROSS(TMP,0),HH,'空'),COLORGREEN,FONTSIZE25;
DRAWTEXT(CROSS(0,TMP),LL,'多'),FONTSIZE25,VALIGN0;
N3:=BARSLAST(CROSS(W1>0,0.5)),LINETHICK2;
N4:=BARSLAST(CROSS(W1<=0,0.5)),LINETHICK2;
HH3:=IF(W1<=0,REF(HV(H,N4),N3),NULL),COLORYELLOW,DOT;
LL3:=IF(W1>0,REF(LV(L,N3),N4),NULL),COLORGREEN,DOT;
B:=CROSSUP(C,HH3)||REF(ISNULL(HH3),1)&&C>HH3;
S:=CROSSDOWN(C,LL3)||REF(ISNULL(LL3),1)&&C<LL3;

LC:= REF(CLOSE,1),LINETHICK2;
RSI:=SMA(MAX(CLOSE-LC, 0), 6, 1)/SMA(ABS(CLOSE-LC), 6, 1)*100,LINETHICK2;

CROSS(TMP,0),SOUND('A');
CROSS(0,TMP),SOUND('B');
DRAWSL(ISLASTBAR,HHV(H,60),0,-59,0,COLORYELLOW);
DRAWSL(ISLASTBAR,LLV(L,60),0,-59,0,COLORYELLOW);

DRAWSL(ISLASTBAR,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,0,-59,0,COLORYELLOW);
DRAWSL(ISLASTBAR,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,0,-59,0,COLORYELLOW);

DRAWNUMBER(ISLASTBAR,HHV(H,60),HHV(H,60),0,COLORYELLOW);
DRAWNUMBER(ISLASTBAR,LLV(L,60),LLV(L,60),0,COLORYELLOW);

DRAWNUMBER(ISLASTBAR,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,0,COLORYELLOW);
DRAWNUMBER(ISLASTBAR,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,0,COLORYELLOW);

?

?來源: www.tumamayizhan.com

金字塔資深技術： 這么復雜，看著就眼花

技術交流：

天道酬勤 發(fā)表于 2021-10-31 07:44
這么復雜，看著就眼花

你會編寫嗎？能不能幫忙

?

技術交流：

1.開平倉條件是什么？下面是修改后的代碼。你自己可以嘗試根據(jù)下單函數(shù)的說明自行添加試試。
2.REF(ISNULL(LL3),1) 這個在金字塔不需要

[PEL] 復制代碼

開始:OPEN;VAR2:=EMA(CLOSE,120);VAR3:=(CLOSE-VAR2)*2/(120+1)+VAR2;
生命線:=VAR3,LINETHICK2,COLORRED;
XCLOSE2:=EMA((OPEN+HIGH+LOW+CLOSE)/4,3);
//PARTLINE1((生命線>=XCLOSE2),生命線),LINETHICK2,COLORGREEN;
//PARTLINE1((生命線<XCLOSE2),生命線),LINETHICK2,COLORRED;
MA3:=MA(C,170);
HH1:=IFELSE(H<REF(H,1) AND REF(H,1)<REF(H,2),REF(H,2),0);
LL1:=IFELSE(L>REF(L,1) AND REF(L,1)>REF(L,2),REF(L,2),0);
HH2:=VALUEWHEN(HH1>0,HH1);
LL2:=VALUEWHEN(LL1>0,LL1);
HH:=HHV(HIGH,1)/10+HHV(HIGH,2)/10+HHV(HIGH,2)/10+HHV(HIGH,4)/10+HHV(HIGH,4)/10+HHV(HIGH,8)/10+HHV(HIGH,8)/10+HHV(HIGH,13)/10+HHV(HIGH,40)/10+HHV(HIGH,20)/10;
LL:=LLV(LOW,1)/10+LLV(LOW,2)/10+LLV(LOW,2)/10+LLV(LOW,4)/10+LLV(LOW,4)/10+LLV(LOW,8)/10+LLV(LOW,8)/10+LLV(LOW,13)/10+LLV(LOW,40)/10+LLV(LOW,20)/10;
H1:=IFELSE(HH<REF(HH,1) AND LL<REF(LL,1) AND REF(OPEN,1)>CLOSE AND OPEN>CLOSE AND (HHV(OPEN,0)-CLOSE)>0,REF(HH,2),0);
L1:=IFELSE(LL>REF(LL,1) AND HH>REF(HH,1) AND REF(OPEN,1)<CLOSE AND OPEN<CLOSE AND (CLOSE-LLV(OPEN,0))>0,REF(LL,2),0);
X:=DATE;
X0:=H1,LINETHICK2;
X00:=L1;
XXX0:=O,LINETHICK2;
XXX00:=C;
XXX000:=H;
XXX0000:=L;
H2:=VALUEWHEN(X0>0,X0),LINETHICK2;
L2:=VALUEWHEN(X00>0,X00),LINETHICK2;
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
DRAWNUMBER(L>0,G1,G1,0,COLORCYAN);

X000:=K2,LINETHICK2;
TMP:=K2,LINETHICK2;
W1:=X000,LINETHICK2;
X0000:=OPEN-CLOSE,LINETHICK2;
W2:=X0000,LINETHICK2;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE),LINETHICK2;
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE),LINETHICK2;
DRAWLINE(W1=1,XXX000,W1=1,HT,COLORCYAN);//青色上影線
DRAWLINE(W1=1,XXX0000,W1=1,LT,COLORCYAN);//青色下影線
DRAWLINE(W1=-3,XXX000,W1=-3,HT,COLORRED);//紅色上影線
DRAWLINE(W1=-3,XXX0000,W1=-3,LT,COLORRED);//紅色下影線
STICKLINE(W1>0,XXX0,XXX00,COLORCYAN,1);//青色空心K線
STICKLINE(W1<=0,XXX0,XXX00,COLORRED,1);//紅色空心K線
STICKLINE(W2>0 AND W1<=0,XXX0,XXX00,COLORRED,0);//紅色實心K線
STICKLINE(W2>0 AND W1>0,XXX0,XXX00,COLORCYAN,0);//青色實心K線
DRAWLINE(TMP=1 AND REF(TMP,1)=1,G,TMP=1 AND REF(TMP,1)=1,REF(G,1),COLORCYAN),DOT;//青色折豎線
DRAWLINE(TMP=-3 AND REF(TMP,1)=-3,G,TMP=-3 AND REF(TMP,1)=-3,REF(G,1),COLORRED),DOT;//紅色折豎線
DRAWSL(K2=1,G,0,1,0,COLORCYAN),DOT;//青色折橫線
DRAWSL(K2=-3,G,0,1,0,COLORRED),DOT;//紅色折橫線
DRAWTEXT(CROSS(TMP,0),HH,'空',COLORGREEN);
DRAWTEXT(CROSS(0,TMP),LL,'多');
N3:=BARSLAST(CROSS(W1>0,0.5)),LINETHICK2;
N4:=BARSLAST(CROSS(W1<=0,0.5)),LINETHICK2;
HH3:=IF(W1<=0,REF(HHV(H,N4),N3+1),NULL),COLORYELLOW;
LL3:=IF(W1>0,REF(LLV(L,N3),N4+1),NULL),COLORGREEN;
B:=CROSS(C,HH3)  AND C>HH3;
S:=CROSS(LL3,C)  AND C<LL3;

LC:= REF(CLOSE,1),LINETHICK2;
RSI:=SMA(MAX(CLOSE-LC, 0), 6, 1)/SMA(ABS(CLOSE-LC), 6, 1)*100,LINETHICK2;

SPEAK(CROSS(TMP,0)=1 ,'A' );
SPEAK(CROSS(0,TMP)=1 ,'B' );

DRAWSL(ISLASTBAR,HHV(H,60),0,-59,0,COLORYELLOW);
DRAWSL(ISLASTBAR,LLV(L,60),0,-59,0,COLORYELLOW);

DRAWSL(ISLASTBAR,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,0,-59,0,COLORYELLOW);
DRAWSL(ISLASTBAR,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,0,-59,0,COLORYELLOW);

DRAWNUMBER(ISLASTBAR,HHV(H,60),HHV(H,60),0,COLORYELLOW);
DRAWNUMBER(ISLASTBAR,LLV(L,60),LLV(L,60),0,COLORYELLOW);

DRAWNUMBER(ISLASTBAR,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,0,COLORYELLOW);
DRAWNUMBER(ISLASTBAR,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,0,COLORYELLOW);