等级: 新手上路
- 注册:
- 2021-9-13
- 曾用名:
|
LHS:IF(DATE>220615,NULL,1),NODRAW;
MA3:=MA(C,170);
DRAWGBK(MA3>C,RGB(0,0,0),RGB(9,60,1),0);
DRAWGBK(MA3<C,RGB(0,0,0),RGB(62,1,1),0);
DRAWGBK(MA3=0,RGB(0,0,0),RGB(0,0,0),0);
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*LHS,LINETHICK2;
X00:=L1;
XXX0:=O*LHS,LINETHICK2;
XXX00:=C;
XXX000:=H;
XXX0000:=L;
H2:=VALUEWHEN(X0>0,X0)*LHS,LINETHICK2;
L2:=VALUEWHEN(X00>0,X00)*LHS,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);
DRAWNUMBER(LL>0,G1,G1,0,COLORWHITE),ALIGN0,FONTSIZE30,VALIGN0;
X000:=K2*LHS,LINETHICK2;
TMP:=K2*LHS,LINETHICK2;
W1:=X000*LHS,LINETHICK2;
X0000:=OPEN-CLOSE*LHS,LINETHICK2;
W2:=X0000*LHS,LINETHICK2;
HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE)*LHS,LINETHICK2;
LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE)*LHS,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),LINEDOT;//青色折横线
DRAWSL(K2=-3,G,0,1,0,COLORRED),LINEDOT;//红色折横线
DRAWTEXT(CROSS(TMP,0),HH,'空'),COLORGREEN,FONTSIZE30;
DRAWTEXT(CROSS(0,TMP),LL,'多'),FONTSIZE30,VALIGN0;
|
-
|