1、每一个交易日其实都是一个时空交汇点; HSL:=100*VOL/CAPITAL; DD:MOD(SUM(HSL,BARSSINCE(C>0)),100),COLORWHITE,NODRAW; SS:=DD<REF(DD,1); TS:BARSLAST(SS),NODRAW; 最高价:=IF(SS,MAX(REF(HHV(H,TS),1),MAX(REF(REF(H,TS),1),H)),0); 最低价:=IF(SS,MIN(REF(LLV(L,TS),1),MAX(REF(REF(L,TS),1),L)),0); G:=IF(SS,REFX(REFX(最高价,BARSNEXT(SS)),1),0); HG:=IF(SS AND IF(SS,REFX(REFX(C,BARSNEXT(SS)),1),0)>C,G,DRAWNULL); LG:=IF(SS AND IF(SS,REFX(REFX(C,BARSNEXT(SS)),1),0)<C,G,DRAWNULL); D:=IF(SS,REFX(REFX(最低价,BARSNEXT(SS)),1),0); HHH:=DRAWLINE(SS,HG,SS,REF(REF(HG,TS),1),0); LLH:=DRAWLINE(SS,LG,SS,REF(REF(LG,TS),1),0); Y:=DRAWLINE(SS,D,SS,REF(REF(D,TS),1),0); DRAWBAND(HHH,RGB(100,20,100),Y,RGB(100,20,100)); DRAWBAND(LLH,RGB(128,128,128),Y,RGB(128,128,128)); STICKLINE(REFX(SS,1),REF(HHH,1),REF(Y,1),9,0),COLOR641464; STICKLINE(REFX(SS,1),REF(LLH,1),REF(Y,1),9,0),COLOR808080; XIA:=SS AND REF(HHH,1); XZHI:=SS AND REF(LLH,1); T1:=BARSLAST(XIA=1); 灰止高:=IF(XZHI,HHV(H,T1),0); 灰止低:=IF(XZHI,LLV(L,T1),0); SHANG:=SS AND REF(LLH,1); SZHI:=SS AND REF(LLH,1); T2:=BARSLAST(SHANG=1),NODRAW; 红止高:=IF(SZHI,HHV(H,T2),0); 红止低:=IF(SZHI,LLV(L,T2),0); STICKLINE(XIA,REFX(灰止高,BARSNEXT(XZHI)),REFX(灰止低,BARSNEXT(XZHI)),0,0),COLORYELLOW; STICKLINE(XZHI,IF(XZHI,HHV(H,T1),0),IF(XZHI,LLV(L,T1),0),0,0),COLORYELLOW; 下降箱顶:IF(T1>=0 AND T1<=REF(BARSNEXT(XZHI),T1),REFX(灰止高,BARSNEXT(XZHI)),DRAWNULL),COLORYELLOW; 下降箱底:IF(T1>=0 AND T1<=REF(BARSNEXT(XZHI),T1),REFX(灰止低,BARSNEXT(XZHI)),DRAWNULL),COLORYELLOW; STICKLINE(XZHI,REFX(红止低,BARSNEXT(XIA)),REFX(红止高,BARSNEXT(XIA)),0,0),COLORGREEN; STICKLINE(XIA,IF(XIA,HHV(H,T2),0),IF(XIA,LLV(L,T2),0),0,0),COLORGREEN; 上升箱顶:IF(T2>=0 AND T2<=REF(BARSNEXT(XIA),T2),REFX(红止高,BARSNEXT(XIA)),DRAWNULL),COLORGREEN; 上升箱底:IF(T2>=0 AND T2<=REF(BARSNEXT(XIA),T2),REFX(红止低,BARSNEXT(XIA)),DRAWNULL),COLORGREEN; MACD:="MACD.MACD"; VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1); QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5); 终点:=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1, IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL)); UU:=(终点=1 OR 终点=2) AND MACD>0; ZZ:=FILTERX(UU,BARSCOUNT(C)); 横线:=CONST(REF(MACD,BARSLAST(ZZ))); WW:=MACD>横线; 起始点:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C)); 顶:=IF(BARSLAST(起始点)>=0,CONST(REF(C,BARSLAST(起始点))),DRAWNULL); 底:=IF(BARSLAST(起始点)>=0,CONST(REF(C,BARSLAST(ZZ))),DRAWNULL); STICKLINE(ISLASTBAR,顶,底,0,-1),COLORWHITE; 箱顶:顶,COLORWHITE,DOTLINE; 箱底:底,COLORWHITE,DOTLINE; STICKLINE(起始点,顶,底,0,-1),COLORWHITE; W1:DRAWTEXT(SS,L*0.98,'*100'),COLORYELLOW; DRAWKLINE(HIGH,OPEN,LOW,CLOSE); |
