通达信牛金抓短选股指标公式源码

通达信牛金抓短选股指标公式源码

源码正文：

能量1:=SQRT(vol)*(((C-(H+L)/2))/((H+L)/2)){XG51};
能量2:=ema(能量1,16){XG51};
能量:Ema(能量2,16),NODRAW {XG51};
stICKLINE(能量>=0,(能量-能量*0.05),(能量-能量*0.15),5,-1) COLOR1C1C1C{XG51};
STICKLINE(能量>=0,(能量-能量*0.2),(能量-能量*0.35),5,-1) COLOR1C1C2C{XG51};
STICKLINE(能量>=0,(能量-能量*0.4),(能量-能量*0.55),5,-1) COLOR1C1C3C{XG51};
STICKLINE(能量>=0,(能量-能量*0.6),(能量-能量*0.75),5,-1) COLOR1C1C4C{XG51};
STICKLINE(能量>=0,(能量-能量*0.8),(能量-能量*0.95),5,-1) COLOR1C1C4C{XG51};
STICKLINE(能量<0,(能量-能量*0.05),(能量-能量*0.15),5,-1) COLOR003300{XG51};
STICKLINE(能量<0,(能量-能量*0.2),(能量-能量*0.35),5,-1) COLOR004400{XG51};
STICKLINE(能量<0,(能量-能量*0.4),(能量-能量*0.55),5,-1) COLOR005500{XG51};
STICKLINE(能量<0,(能量-能量*0.6),(能量-能量*0.75),5,-1) COLOR006600{XG51};
STICKLINE(能量<0,(能量-能量*0.8),(能量-能量*0.95),5,-1)COLOR007700{XG51};
WY1001:=(2*CLOSE+HIGH+LOW)/4{XG51};
WY1002:=EMA(WY1001,4){XG51};
WY1003:=EMA(WY1002,4){XG51};
WY1004:=EMA(WY1003,4){XG51};
强弱分区:(WY1004-REF(WY1004,1))/REF(WY1004,1)*100{XG51};
STICKLINE(强弱分区>=0,强弱分区,0,1.6,1),COLORLIMAGENTA{XG51};
STICKLINE(强弱分区<0,强弱分区,0,1.6,1),COLORGREEN{XG51};
PJGJ:=AMOUNT/VOL/100{XG51};
SSRYDJX:=MA(PJGJ,13){XG51};
SSRCJL:=EMA(VOL,13){XG51};
SSRCJE:=EMA(AMOUNT,13){XG51};
SSRCBJX:=SSRCJE/SSRCJL/100{XG51};
CYS13:=(CLOSE-SSRCBJX)/SSRCBJX*100{XG51};
XYSHSL:=EMA(VOL/CAPITAL*100,13){XG51};
STICKLINE(XYSHSL>6.1 AND cys13>5 ,2 ,0 ,2.5 ,0 ),COLORCYAN{XG51};
STICKLINE(XYSHSL>3.8 AND CYS13>5 ,1.5 ,0 ,2.5 ,0 ),COLORBLUE{XG51};
STICKLINE(XYSHSL>2.1 AND CYS13>5 ,1 ,0 ,2.5 ,0 ),COLORGREEN{XG51};
STICKLINE(XYSHSL>1.8 AND CYS13>5 ,0.5 ,0 ,2.5 ,0 ),COLORYELLOW{XG51};
VARA:=(2*CLOSE+HIGH+LOW)/4{XG51};
VARB:=expma(EXPMA(EXPMA(VARA,4),4),4){XG51};
VAR1:=EMA(EMA(CLOSE,9),9){XG51};
VAR2:=100*WINNER(CLOSE*0.95){XG51};
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*100{XG51};
A10:=crOSS(控盘,0){XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,0.1,0),COLORWHITE{XG51};
庄控:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),COLORWHITE,NODRAW{XG51};
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,0.1,0),COLORLIMAGENTA{XG51};
高控:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORLIMAGENTA,NODRAW{XG51};
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,0.1,0),COLOR00FF00{XG51};
出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,NODRAW{XG51};
破脚:REF(C,1)<REF(O,1) AND O<REF(L,1) AND C>REF(H,1){XG51};
AAA:=REF(C,3)>REF(O,3) AND REF(C,3)>REF(C,4){XG51};
BBB:=REF(C,2)<REF(O,2) AND REF(C,1)<REF(O,1){XG51};
CCC:=C>O AND C>REF(C,3) AND H>REF(H,3){XG51};
跳空:AAA AND BBB AND CCC{XG51};
TJ1:=EMA((C-L),20)/EMA((H-L),20)*100{XG51};
TJ2:=(L-Abs(MIN(C,O)))/L<=1{XG51};
TJ3:=ABS((L-MA(C,5)))/L*100>10{XG51};
TJ4:=TJ1 AND TJ2 AND TJ3{XG51};
暴跌:IF(TJ4 AND TJ1>REF(TJ1,1),TJ4,0),COLORCYAN{XG51};
神针:MIN(C,O)<MA(C,5) AND (MIN(C,O)-L)/O>0.05,COLORLIRED{XG51};
牛线:MA(强弱分区,2),COLORRED,LINETHICK1{XG51};
金线:MA(强弱分区,1),COLORBLUE,LINETHICK1{X_G-5_1_C_N_{};