[PEL] 复制代码
N5:=1;
N1:=1;
Q:=0;
Q1:=0;
HH:=HHV(HIGH,N5);
LH:=LLV(LOW,N5);
H11:=IFELSE(HH<REF(HH,1)&&LH<REF(LH,1)&&REF(OPEN,1)>CLOSE&&OPEN>CLOSE&&(HHV(OPEN,Q)-CLOSE)>Q1,REF(HH,N1),0);
L11:=IFELSE(LH>REF(LH,1)&&HH>REF(HH,1)&&REF(OPEN,1)<CLOSE&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,Q))>Q1,REF(LH,N1),0);
H2:=VALUEWHEN(H11>0,H11);
L2:=VALUEWHEN(L11>0,L11);
K51:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K52:=VALUEWHEN(K51<>0,K51);
G5:=IFELSE(K52=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G5);
MA10:MA(C,5),DOT,COLORWHITE;
TMP:=K52;
W51:=K52;
W2:=OPEN-CLOSE;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);
DRAWLINE(W51=1,HIGH,W51=1,HT,COLORGREEN);
DRAWLINE(W51=1,LOW,W51=1,LT,COLORGREEN);
DRAWLINE(W51=-3,HIGH,W51=-3,HT,COLORRED);
DRAWLINE(W51=-3,LOW,W51=-3,LT,COLORRED);
STICKLINE(W51>0,OPEN,CLOSE,COLORGREEN,1);
STICKLINE(W51<=0,OPEN,CLOSE,COLORRED,1);
STICKLINE(W2>0&&W51<=0,OPEN,CLOSE,COLORRED,0);
STICKLINE(W2>0&&W51>0,OPEN,CLOSE,COLORGREEN,0);
DRAWLINE(TMP=1&&REF(TMP,1)=1,G5,TMP=1&&REF(TMP,1)=1,REF(G5,1),COLORGREEN);
DRAWLINE(TMP=-3&&REF(TMP,1)=-3,G5,TMP=-3&&REF(TMP,1)=-3,REF(G5,1),COLORRED);
DRAWSL(K52=1,G5,0,1,0,COLORGREEN);
DRAWSL(K52=-3,G5,0,1,0,COLORRED);
DRAWTEXT(CROSS(TMP,0),HH,'S');
DRAWTEXT(CROSS(0,TMP),LH,'B');
DRAWGBK(TMP>0,RGB(10,50,10),RGB(10,50,10),0);
DRAWGBK(TMP<0,RGB(50,00,50),RGB(50,00,50),0);
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IFELSE(K2=1,H2,L2),COLORRED;
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;
//青色折横线