通达信暴利钱庄主图选股指标公式源码

通达信暴利钱庄主图选股指标公式源码

源码正文：

DRAWGBK(C>0, RGB(0,0,00),RGB(0,0,0),0,'11',0){XG51};
ma10:MA(C,10){XG51};
MA60:MA(C,60){XG51};
VAR6:=(( Abs((OPEN-CLOSE))/(HIGH-LOW))*vol){XG51};
VAR7:=(( (HIGH-IF((CLOSE>OPEN),CLOSE,OPEN))/(HIGH-LOW))*VOL){XG51};
VAR8:=(( (IF((CLOSE>OPEN),OPEN,CLOSE)-LOW)/(HIGH-LOW))*VOL){XG51};
VAR9:=IF(((VOL/CAPITAL)>0.001),1,EXP(ABS(LOG(((VOL/CAPITAL)*100))))){XG51};
加仓:VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE>OPEN,NODRAW,COLORWHITE{XG51};
减仓:VAR6>=VAR7 AND VAR6>=VAR8 AND CLOSE<OPEN,NODRAW,COLORYELLOW{XG51};
洗盘:VAR8>VAR6 AND VAR8>VAR7,NODRAW,COLORRED{XG51};
高抛:VAR7>VAR6 AND VAR7>VAR8,NODRAW,COLORLIMAGENTA{XG51};
地量:VAR9>2 AND VOL<MA(VOL,5)/2,NODRAW,COLORCYAN{XG51};
DRAWKLINE(H,O,L,C){XG51};
TY:=C{XG51};
A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BacKSET(B1,10+1); HD:=FILTER(C1,10){XG51};
A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10){XG51};
前期高位:REF(H,BArslAst(HD)), COLORFF00FF,POINTDOT,LINETHICK3{XG51};
前期低位:REF(L,BARSLAST(LD)), COLORCYAN,POINTDOT,LINETHICK3{XG51};
STICKLINE(加仓,O,C,1,0),COLORWHITE{XG51};
STICKLINE(洗盘,O,C,1,0),COLORRED{XG51};
STICKLINE(减仓,O,C,1,0),COLORYELLOW{XG51};
STICKLINE(高抛,O,C,1,0),COLORLIMAGENTA{XG51};
STICKLINE(地量,O,C,1,0),COLORCYAN{XG51};
JJ:=(3*C+H+L+O)/6{XG51};
VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36{XG51};
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1){XG51};
LJL:=FILTER(TJ1,5){XG51};
STICKLINE(CLOSE,REF(LOW,BARSLAST(LJL)),REF(LOW,BARSLAST(LJL)),1,0),COLORWHITE{XG51};
STICKLINE(CLOSE,REF(CLOSE,BARSLAST(LJL)),REF(CLOSE,BARSLAST(LJL)),1,0),COLORBLUE{XG51};
STICKLINE(LJL,OPEN,CLOSE,1,0),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.0,0.0,0,'蓝芯-主力低位深度洗盘或高位出货坚决'),COLORYELLOW,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.00,0.06,0,'白芯-主力轻度洗盘'),COLORRED,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.00,0.12,0,'棕芯-出现了近期相对地量'),COLORCYAN,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.00,0.18,0,'粉芯-主力在做高抛低吸或低吸高抛'),COLORFF00FF,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.00,0.24,0,'红芯-主力吸筹进货积极主动'),COLORWHITE,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.00,0.3,0,'黄芯-主力吸筹进货强并且成交量出现黄金柱'),COLORBLUE,LINETHICK1{XG51};
DRAWTEXT_FIX(C>0,0.004,1,0,DYBLOCK),COLORBLUE,LINETHICK2{XG51};
DRAWTEXT_FIX(C>0,0.06,1,0,HYBLOCK),COLORWHITE,LINETHICK2{XG51};
DRAWTEXT_FIX(C>0,0.12,1,0,EXTERNSTR(0,1)),COLORRED,LINETHICK2{XG51};
EN1:=zig(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3){XG51};
PL10:=ZIG(3,10){XG51};
走强2:=BARSLAST(PL10<REF(PL10,1)){XG51};
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0){XG51};
追2:=EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2{XG51};
追4:=EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3{XG51};
DRAWTEXT(追2 OR 追4,LOW*0.978,'追'),COLORBLUE{XG51};
PL5:=ZIG(3,5){XG51};
EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3){XG51};
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3){XG51};
EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3){XG51};
PL20:=ZIG(3,20){XG51};
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3){XG51};
EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3){XG51};
PL40:=ZIG(3,40){XG51};
走强1:=BARSLAST(PL5<REF(PL5,1)){XG51};
走弱1:=BARSLAST(PL5>REF(PL5,1)){XG51};
走弱2:=BARSLAST(PL10>REF(PL10,1)){XG51};
走强3:=BARSLAST(PL20<REF(PL20,1)){XG51};
走弱3:=BARSLAST(PL20>REF(PL20,1)){XG51};
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0){XG51};
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0){XG51};
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0){XG51};
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0){XG51};
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0){XG51};
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0){XG51};
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0){XG51};
DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'反弹低点'),COLORLICYAN{XG51};
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'反弹高点！'),COLORLIGREEN{XG51};
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'底'),COLORBLUE{XG51};
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'减仓'),COLORFFFF00{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'----买'),COLOR0000FF{XG51};
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'短卖'),COLORCYAN{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'----短买'),COLOR0000FF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'短卖'),COLORCYAN{XG51};
DRAWTEXT(EN2 AND DTJZ10=1,L*0.96,'Ⅰ'),COLORFF00FF{XG51};
DRAWTEXT(EX2 AND DTJD10=2,H*1.03,'Ⅱ'),COLORFF6000{XG51};
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.95,'Ⅲ'),COLORBLUE{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.06,'①'),LINETHICK3,COLORFFFF00{XG51};
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.96,'②'),LINETHICK3,COLORBLUE{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.02,'清仓!'),LINETHICK3,COLORRED{XG51};
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.96,'④'),LINETHICK3,COLORBLUE{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.95,'⑷'),COLORBLUE{XG51};
ema13:=EMA(C,13){XG51};
EMA34:=EMA(C,34){XG51};
EMA55:=EMA(C,55){XG51};
EMA120:=EMA(C,120){XG51};
cr1:=(C-REF(C,1))/REF(C,1)*100>0.5{XG51};
CR2:=V>MA(V,5)*0.6{XG51};
CR3:=COUNT(CROSS(EMA13,EMA55),3)=1{XG51};
CR4:=ABS(EMA34-EMA55)/EMA55<0.03{XG51};
CR5:=EMA55<=EMA120 AND EMA55>=REF(EMA55,1){XG51};
CR6:=FILTER(CR1 AND CR2 AND CR3 AND CR4 AND CR5,2){XG51};
DRAWTEXT(CR6,C*0.98,'风险'),COLORRED{X_G+5.1_C_N_{};